diff options
Diffstat (limited to 'ukrainian/emacs-koi8u/files/ukr-koi8u.el')
| -rw-r--r-- | ukrainian/emacs-koi8u/files/ukr-koi8u.el | 107 |
1 files changed, 107 insertions, 0 deletions
diff --git a/ukrainian/emacs-koi8u/files/ukr-koi8u.el b/ukrainian/emacs-koi8u/files/ukr-koi8u.el new file mode 100644 index 000000000000..f2ee0698cc78 --- /dev/null +++ b/ukrainian/emacs-koi8u/files/ukr-koi8u.el @@ -0,0 +1,107 @@ +;;; ukr-koi8u.el --- Support for Cyrillic -*- coding: iso-2022-7bit; -*- + +;;; Code: + +;; KOI8-U staff + +(eval-and-compile + +(defvar cyrillic-koi8-u-decode-table + [ + 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 + 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 + 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 + 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 + 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 + 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 + 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 + 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 + 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 + 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 + 32 32 32 ?,Lq(B ?,Lt(B 32 ?,Lv(B ?,Lw(B 32 32 32 32 32 ?,Ls(B 32 32 + 32 32 32 ?,L!(B ?,L$(B 32 ?,L&(B ?,L'(B 32 32 32 32 32 ?,L#(B 32 32 + ?,Ln(B ?,LP(B ?,LQ(B ?,Lf(B ?,LT(B ?,LU(B ?,Ld(B ?,LS(B ?,Le(B ?,LX(B ?,LY(B ?,LZ(B ?,L[(B ?,L\(B ?,L](B ?,L^(B + ?,L_(B ?,Lo(B ?,L`(B ?,La(B ?,Lb(B ?,Lc(B ?,LV(B ?,LR(B ?,Ll(B ?,Lk(B ?,LW(B ?,Lh(B ?,Lm(B ?,Li(B ?,Lg(B ?,Lj(B + ?,LN(B ?,L0(B ?,L1(B ?,LF(B ?,L4(B ?,L5(B ?,LD(B ?,L3(B ?,LE(B ?,L8(B ?,L9(B ?,L:(B ?,L;(B ?,L<(B ?,L=(B ?,L>(B + ?,L?(B ?,LO(B ?,L@(B ?,LA(B ?,LB(B ?,LC(B ?,L6(B ?,L2(B ?,LL(B ?,LK(B ?,L7(B ?,LH(B ?,LM(B ?,LI(B ?,LG(B ?,LJ(B ] + "Cyrillic KOI8-U decoding table.") + +(defvar cyrillic-koi8-u-encode-table + (let ((table (make-vector 256 32)) + (i 0)) + (while (< i 256) + (let* ((ch (aref cyrillic-koi8-u-decode-table i)) + (split (split-char ch))) + (cond ((eq (car split) 'cyrillic-iso8859-5) + (aset table (logior (nth 1 split) 128) i) + ) + ((eq ch 32)) + ((eq (car split) 'ascii) + (aset table ch i) + ))) + (setq i (1+ i))) + table) + "Cyrillic KOI8-U encoding table.") + +(define-ccl-program ccl-decode-koi8-u + `(3 + ((read r0) + (loop + (write-read-repeat r0 ,cyrillic-koi8-u-decode-table)))) + "CCL program to decode KOI8.") + +(define-ccl-program ccl-encode-koi8-u + `(1 + ((read r0) + (loop + (if (r0 != ,(charset-id 'cyrillic-iso8859-5)) + (write-read-repeat r0) + ((read r0) + (write-read-repeat r0 , cyrillic-koi8-u-encode-table)))))) + "CCL program to encode KOI8.") + +(make-coding-system + 'koi8-u 'ccl + "KOI8-U 8-bit encoding for Cyrillic." + '(decode ccl-decode-koi8-u + encode ccl-encode-koi8-u + mnemonic "KOI8")) + +;; `iso-8-1' is not correct, but XEmacs doesn't have a `ccl' category +(coding-system-put 'koi8-u 'category 'iso-8-1) + +;; (define-ccl-program ccl-encode-koi8-u-font +;; `(0 +;; ((r1 |= 128) +;; (r1 = r1 ,cyrillic-koi8-u-encode-table))) +;; "CCL program to encode Cyrillic chars to koi8-u font.") + +;; (setq font-ccl-encoder-alist +;; (cons '("koi8-u" . ccl-encode-koi8-u-font) font-ccl-encoder-alist)) + +(defvar cyrillic-koi8-u-to-external-code-table + (let ((table (make-char-table 'generic)) + (i 0) + (len (length cyrillic-koi8-u-decode-table))) + (while (< i len) + (let ((ch (aref cyrillic-koi8-u-decode-table i))) + (if (characterp ch) + (put-char-table ch i table))) + (incf i))) + "Table to convert from characters to their Koi8-U code.") + +(set-language-info-alist + "Cyrillic-KOI8-U" '((charset cyrillic-iso8859-5) + (coding-system koi8-u) + (coding-priority koi8-u) + (input-method . "cyrillic-yawerty") + (features cyril-util) + (tutorial . "TUTORIAL.ru") + (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!") + (documentation . "Support for Cyrillic KOI8-U.")) + '("Cyrillic")) + + ) + + +(provide 'ukr-koi8u) |