Commit 58566dff authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(ccl-encode-koi8, ccl-encode-koi8-u)

(ccl-encode-alternativnyj): Fix last change.
parent d8504583
......@@ -140,9 +140,10 @@
((loop
(read-multibyte-character r0 r1)
(translate-character cyrillic-koi8-r-encode-table r0 r1)
(if (r0 != ,(charset-id 'eight-bit-graphic))
(if (r0 != ,(charset-id 'eight-bit-control))
(r1 = ??)))
(if (r0 != ,(charset-id 'ascii))
(if (r0 != ,(charset-id 'eight-bit-graphic))
(if (r0 != ,(charset-id 'eight-bit-control))
(r1 = ??))))
(write-repeat r1))))
"CCL program to encode KOI8-R.")
......@@ -280,9 +281,10 @@ This works whether or not the table is Unicode-based or
((loop
(read-multibyte-character r0 r1)
(translate-character cyrillic-koi8-u-encode-table r0 r1)
(if (r0 != ,(charset-id 'eight-bit-graphic))
(if (r0 != ,(charset-id 'eight-bit-control))
(r1 = ??)))
(if (r0 != ,(charset-id 'ascii))
(if (r0 != ,(charset-id 'eight-bit-graphic))
(if (r0 != ,(charset-id 'eight-bit-control))
(r1 = ??))))
(write-repeat r1))))
"CCL program to encode KOI8-U.")
......@@ -381,9 +383,10 @@ This works whether or not the table is Unicode-based or
((loop
(read-multibyte-character r0 r1)
(translate-character cyrillic-alternativnyj-encode-table r0 r1)
(if (r0 != ,(charset-id 'eight-bit-graphic))
(if (r0 != ,(charset-id 'eight-bit-control))
(r1 = ??)))
(if (r0 != ,(charset-id 'ascii))
(if (r0 != ,(charset-id 'eight-bit-graphic))
(if (r0 != ,(charset-id 'eight-bit-control))
(r1 = ??))))
(write-repeat r1))))
"CCL program to encode Alternativnyj.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment