Mercurial > hg > xemacs-beta

comparison lisp/unicode.el @ 4072:aa28d959af41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-07-22 22:03:29 by aidan] Add support for non-ISO2022 8 bit fixed-width coding-systems
author aidan
date Sun, 22 Jul 2007 22:04:14 +0000
parents 6b2ef948e140
children a3f8bb07ab38
comparison
equal deleted inserted replaced
4071:d607d13fca67 4072:aa28d959af41
291 ;; than this file in the build process. The below is the result of 291 ;; than this file in the build process. The below is the result of
292 ;; 292 ;;
293 ;; (macroexpand 293 ;; (macroexpand
294 ;; '(define-ccl-program ccl-encode-to-ucs-2 294 ;; '(define-ccl-program ccl-encode-to-ucs-2
295 ;; `(1 295 ;; `(1
296 ;; ((r1 = (r1 << 8)) 296 ;; ((r1 = (r1 << 7))
297 ;; (r1 = (r1 | r2)) 297 ;; (r1 = (r1 | r2))
298 ;; (mule-to-unicode r0 r1) 298 ;; (mule-to-unicode r0 r1)
299 ;; (r1 = (r0 >> 8)) 299 ;; (r1 = (r0 >> 8))
300 ;; (r2 = (r0 & 255)))) 300 ;; (r2 = (r0 & #xff))))
301 ;; "CCL program to transform Mule characters to UCS-2.")) 301 ;; "CCL program to transform Mule characters to UCS-2."))
302 ;; 302 ;;
303 ;; and it should occasionally be confirmed that the correspondence still 303 ;; and it should occasionally be confirmed that the correspondence still
304 ;; holds. 304 ;; holds.
305 305
306 (let ((prog [1 10 131127 8 98872 65823 147513 8 82009 255 22])) 306 (let ((prog [1 10 131127 7 98872 65823 147513 8 82009 255 22]))
307 (defconst ccl-encode-to-ucs-2 prog 307 (defconst ccl-encode-to-ucs-2
308 prog
308 "CCL program to transform Mule characters to UCS-2.") 309 "CCL program to transform Mule characters to UCS-2.")
309 (put (quote ccl-encode-to-ucs-2) (quote ccl-program-idx) 310 (put 'ccl-encode-to-ucs-2
310 (register-ccl-program (quote ccl-encode-to-ucs-2) prog)) nil)) 311 'ccl-program-idx
312 (register-ccl-program 'ccl-encode-to-ucs-2 prog))
313 nil))
311 314
312 ;; #### UTF-7 is not yet implemented, and it's tricky to do. There's 315 ;; #### UTF-7 is not yet implemented, and it's tricky to do. There's
313 ;; an implementation in appendix A.1 of the Unicode Standard, Version 316 ;; an implementation in appendix A.1 of the Unicode Standard, Version
314 ;; 2.0, but I don't know its licensing characteristics. 317 ;; 2.0, but I don't know its licensing characteristics.
315 318