CVS update by aidan xemacs/lisp ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 06/11/07 19:51:23

  Modified:    xemacs/lisp ChangeLog unicode.el
Log:
Re-introduce ccl-encode-to-ucs-2, since it's still used by the JIT-UCS
charsets. Thank you Ilya.

Revision  Changes    Path
1.769     +6 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.768
retrieving revision 1.769
diff -u -p -r1.768 -r1.769
--- ChangeLog	2006/11/05 22:31:31	1.768
+++ ChangeLog	2006/11/07 18:51:21	1.769
@@ -1,3 +1,9 @@
+2006-11-07  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* unicode.el:
+	Re-introduce ccl-encode-to-ucs-2; it's still being used by the
+	JIT-UCS charsets, despite what I thought. Thank you Ilya. 
+
 2006-11-05  Aidan Kehoe  <kehoea at parhasard.net>
         
 	* mule/arabic.el (arabic-digit):  



1.18      +26 -0     XEmacs/xemacs/lisp/unicode.el

Index: unicode.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/unicode.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -p -r1.17 -r1.18
--- unicode.el	2006/11/07 15:58:21	1.17
+++ unicode.el	2006/11/07 18:51:22	1.18
@@ -283,6 +283,32 @@ The second argument must be 'ucs, the th
 	  "Sorry, encode-char doesn't yet support anything but the UCS.  ")
   (char-to-unicode char))
 
+(when (featurep 'mule)
+  ;; This CCL program is used for displaying the fallback UCS character set,
+  ;; and can be repurposed to lao and the IPA, all going well.
+  ;;
+  ;; define-ccl-program is available after mule-ccl is loaded, much later
+  ;; than this file in the build process. The below is the result of 
+  ;;
+  ;;   (macroexpand 
+  ;;    '(define-ccl-program ccl-encode-to-ucs-2
+  ;;      `(1
+  ;;        ((r1 = (r1 << 8))
+  ;; 	     (r1 = (r1 | r2))
+  ;; 	     (mule-to-unicode r0 r1)
+  ;; 	     (r1 = (r0 >> 8))
+  ;; 	     (r2 = (r0 & 255))))
+  ;;      "CCL program to transform Mule characters to UCS-2."))
+  ;;
+  ;; and it should occasionally be confirmed that the correspondence still
+  ;; holds.
+
+  (let ((prog [1 10 131127 8 98872 65823 147513 8 82009 255 22]))
+    (defconst ccl-encode-to-ucs-2 prog 
+      "CCL program to transform Mule characters to UCS-2.")
+    (put (quote ccl-encode-to-ucs-2) (quote ccl-program-idx) 
+	 (register-ccl-program (quote ccl-encode-to-ucs-2) prog)) nil))
+
 ;; #### UTF-7 is not yet implemented, and it's tricky to do.  There's
 ;; an implementation in appendix A.1 of the Unicode Standard, Version
 ;; 2.0, but I don't know its licensing characteristics.