Mercurial > emacs
comparison lisp/language/cyrillic.el @ 48832:351ae4e51f08
(ccl-encode-koi8, ccl-encode-koi8-u)
(ccl-encode-alternativnyj): Fix last change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 13 Dec 2002 04:45:43 +0000 |
| parents | 930e1c30b4ea |
| children | 0f184780c237 |
comparison
equal
deleted
inserted
replaced
| 48831:55e7852135dc | 48832:351ae4e51f08 |
|---|---|
| 138 (define-ccl-program ccl-encode-koi8 | 138 (define-ccl-program ccl-encode-koi8 |
| 139 `(1 | 139 `(1 |
| 140 ((loop | 140 ((loop |
| 141 (read-multibyte-character r0 r1) | 141 (read-multibyte-character r0 r1) |
| 142 (translate-character cyrillic-koi8-r-encode-table r0 r1) | 142 (translate-character cyrillic-koi8-r-encode-table r0 r1) |
| 143 (if (r0 != ,(charset-id 'eight-bit-graphic)) | 143 (if (r0 != ,(charset-id 'ascii)) |
| 144 (if (r0 != ,(charset-id 'eight-bit-control)) | 144 (if (r0 != ,(charset-id 'eight-bit-graphic)) |
| 145 (r1 = ??))) | 145 (if (r0 != ,(charset-id 'eight-bit-control)) |
| 146 (r1 = ??)))) | |
| 146 (write-repeat r1)))) | 147 (write-repeat r1)))) |
| 147 "CCL program to encode KOI8-R.") | 148 "CCL program to encode KOI8-R.") |
| 148 | 149 |
| 149 (defun cyrillic-unify-encoding (table) | 150 (defun cyrillic-unify-encoding (table) |
| 150 "Set up equivalent characters in the encoding TABLE. | 151 "Set up equivalent characters in the encoding TABLE. |
| 278 (define-ccl-program ccl-encode-koi8-u | 279 (define-ccl-program ccl-encode-koi8-u |
| 279 `(1 | 280 `(1 |
| 280 ((loop | 281 ((loop |
| 281 (read-multibyte-character r0 r1) | 282 (read-multibyte-character r0 r1) |
| 282 (translate-character cyrillic-koi8-u-encode-table r0 r1) | 283 (translate-character cyrillic-koi8-u-encode-table r0 r1) |
| 283 (if (r0 != ,(charset-id 'eight-bit-graphic)) | 284 (if (r0 != ,(charset-id 'ascii)) |
| 284 (if (r0 != ,(charset-id 'eight-bit-control)) | 285 (if (r0 != ,(charset-id 'eight-bit-graphic)) |
| 285 (r1 = ??))) | 286 (if (r0 != ,(charset-id 'eight-bit-control)) |
| 287 (r1 = ??)))) | |
| 286 (write-repeat r1)))) | 288 (write-repeat r1)))) |
| 287 "CCL program to encode KOI8-U.") | 289 "CCL program to encode KOI8-U.") |
| 288 | 290 |
| 289 (cyrillic-unify-encoding 'cyrillic-koi8-u-encode-table) | 291 (cyrillic-unify-encoding 'cyrillic-koi8-u-encode-table) |
| 290 | 292 |
| 379 (define-ccl-program ccl-encode-alternativnyj | 381 (define-ccl-program ccl-encode-alternativnyj |
| 380 `(1 | 382 `(1 |
| 381 ((loop | 383 ((loop |
| 382 (read-multibyte-character r0 r1) | 384 (read-multibyte-character r0 r1) |
| 383 (translate-character cyrillic-alternativnyj-encode-table r0 r1) | 385 (translate-character cyrillic-alternativnyj-encode-table r0 r1) |
| 384 (if (r0 != ,(charset-id 'eight-bit-graphic)) | 386 (if (r0 != ,(charset-id 'ascii)) |
| 385 (if (r0 != ,(charset-id 'eight-bit-control)) | 387 (if (r0 != ,(charset-id 'eight-bit-graphic)) |
| 386 (r1 = ??))) | 388 (if (r0 != ,(charset-id 'eight-bit-control)) |
| 389 (r1 = ??)))) | |
| 387 (write-repeat r1)))) | 390 (write-repeat r1)))) |
| 388 "CCL program to encode Alternativnyj.") | 391 "CCL program to encode Alternativnyj.") |
| 389 | 392 |
| 390 (cyrillic-unify-encoding 'cyrillic-alternativnyj-encode-table) | 393 (cyrillic-unify-encoding 'cyrillic-alternativnyj-encode-table) |
| 391 | 394 |