Some fixes to follow coding conventions in files from Gnus.
[bpt/emacs.git] / lisp / language / cyrillic.el
CommitLineData
56c8bc03 1;;; cyrillic.el --- Support for Cyrillic -*- coding: iso-2022-7bit; -*-
4ed46869 2
4ed46869 3;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
b79e7b7b 4;; Licensed to the Free Software Foundation.
4ed46869
KH
5
6;; Keywords: multilingual, Cyrillic
7
8;; This file is part of GNU Emacs.
9
10;; GNU Emacs is free software; you can redistribute it and/or modify
11;; it under the terms of the GNU General Public License as published by
12;; the Free Software Foundation; either version 2, or (at your option)
13;; any later version.
14
15;; GNU Emacs is distributed in the hope that it will be useful,
16;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18;; GNU General Public License for more details.
19
20;; You should have received a copy of the GNU General Public License
369314dc
KH
21;; along with GNU Emacs; see the file COPYING. If not, write to the
22;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23;; Boston, MA 02111-1307, USA.
4ed46869
KH
24
25;;; Commentary:
26
445559c9
DL
27;; The character set ISO8859-5 is supported. See
28;; http://www.ecma.ch/ecma1/STAND/ECMA-113.HTM. KOI-8 and
29;; ALTERNATIVNYJ are converted to ISO8859-5 internally.
4ed46869
KH
30
31;;; Code:
32
5f1d80c7
KH
33;; Cyrillic (general)
34
2b01336d
KH
35;; ISO-8859-5 staff
36
4ed46869 37(make-coding-system
efbc7e89
KH
38 'cyrillic-iso-8bit 2 ?5
39 "ISO 2022 based 8-bit encoding for Cyrillic script (MIME:ISO-8859-5)"
11b77f14
KH
40 '(ascii cyrillic-iso8859-5 nil nil
41 nil nil nil nil nil nil nil)
42 '((safe-charsets ascii cyrillic-iso8859-5)
43 (mime-charset . iso-8859-5)))
4ed46869 44
71eabd24 45(define-coding-system-alias 'iso-8859-5 'cyrillic-iso-8bit)
efbc7e89 46
5f1d80c7 47(set-language-info-alist
a564ccf9 48 "Cyrillic-ISO" '((charset cyrillic-iso8859-5)
11b77f14
KH
49 (coding-system cyrillic-iso-8bit)
50 (coding-priority cyrillic-iso-8bit)
a564ccf9
KH
51 (input-method . "cyrillic-yawerty")
52 (nonascii-translation . cyrillic-iso8859-5)
53 (unibyte-display . cyrillic-iso-8bit)
54 (features cyril-util)
5f1d80c7 55 (sample-text . "Russian (\e,L@caaZXY\e(B) \e,L7T`PRabRcYbU\e(B!")
11b77f14
KH
56 (documentation . "Support for Cyrillic ISO-8859-5."))
57 '("Cyrillic"))
5f1d80c7 58
2b01336d
KH
59;; KOI-8 staff
60
70c58a1f
KH
61(defvar cyrillic-koi8-r-decode-table
62 [
63 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
64 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
65 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
66 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
67 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
68 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
69 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
70 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
71 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
72 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159
1aee0381
KH
73 160 161 162 ?\e,Lq\e(B 164 165 166 167 168 169 170 171 172 173 174 175
74 176 177 178 ?\e,L!\e(B 180 181 182 183 184 185 186 187 188 189 190 191
70c58a1f
KH
75 ?\e,Ln\e(B ?\e,LP\e(B ?\e,LQ\e(B ?\e,Lf\e(B ?\e,LT\e(B ?\e,LU\e(B ?\e,Ld\e(B ?\e,LS\e(B ?\e,Le\e(B ?\e,LX\e(B ?\e,LY\e(B ?\e,LZ\e(B ?\e,L[\e(B ?\e,L\\e(B ?\e,L]\e(B ?\e,L^\e(B
76 ?\e,L_\e(B ?\e,Lo\e(B ?\e,L`\e(B ?\e,La\e(B ?\e,Lb\e(B ?\e,Lc\e(B ?\e,LV\e(B ?\e,LR\e(B ?\e,Ll\e(B ?\e,Lk\e(B ?\e,LW\e(B ?\e,Lh\e(B ?\e,Lm\e(B ?\e,Li\e(B ?\e,Lg\e(B ?\e,Lj\e(B
77 ?\e,LN\e(B ?\e,L0\e(B ?\e,L1\e(B ?\e,LF\e(B ?\e,L4\e(B ?\e,L5\e(B ?\e,LD\e(B ?\e,L3\e(B ?\e,LE\e(B ?\e,L8\e(B ?\e,L9\e(B ?\e,L:\e(B ?\e,L;\e(B ?\e,L<\e(B ?\e,L=\e(B ?\e,L>\e(B
78 ?\e,L?\e(B ?\e,LO\e(B ?\e,L@\e(B ?\e,LA\e(B ?\e,LB\e(B ?\e,LC\e(B ?\e,L6\e(B ?\e,L2\e(B ?\e,LL\e(B ?\e,LK\e(B ?\e,L7\e(B ?\e,LH\e(B ?\e,LM\e(B ?\e,LI\e(B ?\e,LG\e(B ?\e,LJ\e(B ]
79 "Cyrillic KOI8-R decoding table.")
80
1f487ef8
KH
81(let ((table (make-translation-table-from-vector
82 cyrillic-koi8-r-decode-table)))
83 (define-translation-table 'cyrillic-koi8-r-nonascii-translation-table table)
84 (define-translation-table 'cyrillic-koi8-r-encode-table
85 (char-table-extra-slot table 0)))
70c58a1f 86
2b01336d 87(define-ccl-program ccl-decode-koi8
70c58a1f 88 `(3
1f487ef8
KH
89 ((loop
90 (r0 = 0)
91 (read r1)
92 (if (r1 < 128)
93 (write-repeat r1)
94 ((translate-character cyrillic-koi8-r-nonascii-translation-table r0 r1)
95 (write-multibyte-character r0 r1)
96 (repeat))))))
2b01336d
KH
97 "CCL program to decode KOI8.")
98
99(define-ccl-program ccl-encode-koi8
100 `(1
1f487ef8
KH
101 ((loop
102 (read-multibyte-character r0 r1)
103 (if (r0 == ,(charset-id 'cyrillic-iso8859-5))
104 (translate-character cyrillic-koi8-r-encode-table r0 r1))
105 (write-repeat r1))))
2b01336d
KH
106 "CCL program to encode KOI8.")
107
108(make-coding-system
4b9121fc 109 'cyrillic-koi8 4
49716ecd
RS
110 ;; We used to use ?K. It is true that ?K is more strictly correct,
111 ;; but it is also used for Korean.
112 ;; So people who use koi8 for languages other than Russian
113 ;; will have to forgive us.
efbc7e89 114 ?R "KOI8 8-bit encoding for Cyrillic (MIME: KOI8-R)"
7fbf766f 115 '(ccl-decode-koi8 . ccl-encode-koi8)
53a1db80
KH
116 `((safe-chars . ,(let ((table (make-char-table 'safe-chars))
117 (i 0))
118 (while (< i 256)
119 (aset table (aref cyrillic-koi8-r-decode-table i) t)
120 (setq i (1+ i)))
121 table))
70c58a1f 122 (mime-charset . koi8-r)
cf461235
KH
123 (valid-codes (0 . 127) 163 179 (192 . 255))
124 (charset-origin-alist (cyrillic-iso8859-5 "KOI8-R"
125 cyrillic-encode-koi8-r-char))))
2b01336d 126
71eabd24
RS
127(define-coding-system-alias 'koi8-r 'cyrillic-koi8)
128(define-coding-system-alias 'koi8 'cyrillic-koi8)
2b01336d
KH
129
130(define-ccl-program ccl-encode-koi8-font
70c58a1f 131 `(0
1f487ef8 132 ((translate-character cyrillic-koi8-r-encode-table r0 r1)))
2b01336d
KH
133 "CCL program to encode Cyrillic chars to KOI font.")
134
135(setq font-ccl-encoder-alist
1f487ef8 136 (cons '("koi8" . ccl-encode-koi8-font) font-ccl-encoder-alist))
70c58a1f 137
5f1d80c7 138(set-language-info-alist
a564ccf9
KH
139 "Cyrillic-KOI8" `((charset cyrillic-iso8859-5)
140 (nonascii-translation
1f487ef8
KH
141 . ,(get 'cyrillic-koi8-r-nonascii-translation-table
142 'translation-table))
11b77f14
KH
143 (coding-system cyrillic-koi8)
144 (coding-priority cyrillic-koi8)
44446f59 145 (input-method . "cyrillic-jcuken")
a564ccf9
KH
146 (features cyril-util)
147 (unibyte-display . cyrillic-koi8)
5f1d80c7 148 (sample-text . "Russian (\e,L@caaZXY\e(B) \e,L7T`PRabRcYbU\e(B!")
70c58a1f 149 (documentation . "Support for Cyrillic KOI8-R."))
11b77f14 150 '("Cyrillic"))
5f1d80c7 151
2b01336d
KH
152;;; ALTERNATIVNYJ staff
153
70c58a1f
KH
154(defvar cyrillic-alternativnyj-decode-table
155 [
156 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
157 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
158 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
159 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
160 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
161 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
162 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
163 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
164 ?\e,L0\e(B ?\e,L1\e(B ?\e,L2\e(B ?\e,L3\e(B ?\e,L4\e(B ?\e,L5\e(B ?\e,L6\e(B ?\e,L7\e(B ?\e,L8\e(B ?\e,L9\e(B ?\e,L:\e(B ?\e,L;\e(B ?\e,L<\e(B ?\e,L=\e(B ?\e,L>\e(B ?\e,L?\e(B
165 ?\e,L@\e(B ?\e,LA\e(B ?\e,LB\e(B ?\e,LC\e(B ?\e,LD\e(B ?\e,LE\e(B ?\e,LF\e(B ?\e,LG\e(B ?\e,LH\e(B ?\e,LI\e(B ?\e,LJ\e(B ?\e,LK\e(B ?\e,LL\e(B ?\e,LM\e(B ?\e,LN\e(B ?\e,LO\e(B
166 ?\e,LP\e(B ?\e,LQ\e(B ?\e,LR\e(B ?\e,LS\e(B ?\e,LT\e(B ?\e,LU\e(B ?\e,LV\e(B ?\e,LW\e(B ?\e,LX\e(B ?\e,LY\e(B ?\e,LZ\e(B ?\e,L[\e(B ?\e,L\\e(B ?\e,L]\e(B ?\e,L^\e(B ?\e,L_\e(B
1aee0381
KH
167 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191
168 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207
169 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223
70c58a1f 170 ?\e,L`\e(B ?\e,La\e(B ?\e,Lb\e(B ?\e,Lc\e(B ?\e,Ld\e(B ?\e,Le\e(B ?\e,Lf\e(B ?\e,Lg\e(B ?\e,Lh\e(B ?\e,Li\e(B ?\e,Lj\e(B ?\e,Lk\e(B ?\e,Ll\e(B ?\e,Lm\e(B ?\e,Ln\e(B ?\e,Lo\e(B
1aee0381 171 ?\e,L!\e(B ?\e,Lq\e(B 242 243 244 245 246 247 248 249 250 251 252 253 254 ?\e,Lp\e(B]
70c58a1f
KH
172 "Cyrillic ALTERNATIVNYJ decoding table.")
173
1f487ef8
KH
174(let ((table (make-translation-table-from-vector
175 cyrillic-alternativnyj-decode-table)))
176 (define-translation-table 'cyrillic-alternativnyj-nonascii-translation-table
70c58a1f 177 table)
1f487ef8
KH
178 (define-translation-table 'cyrillic-alternativnyj-encode-table
179 (char-table-extra-slot table 0)))
70c58a1f
KH
180
181
2b01336d 182(define-ccl-program ccl-decode-alternativnyj
70c58a1f 183 `(3
1f487ef8
KH
184 ((loop
185 (r0 = 0)
186 (read r1)
187 (if (r1 < 128)
188 (write-repeat r1)
189 ((translate-character cyrillic-alternativnyj-nonascii-translation-table
190 r0 r1)
191 (write-multibyte-character r0 r1)
192 (repeat))))))
2b01336d
KH
193 "CCL program to decode Alternativnyj.")
194
195(define-ccl-program ccl-encode-alternativnyj
196 `(1
1f487ef8
KH
197 ((loop
198 (read-multibyte-character r0 r1)
53a1db80 199 (translate-character cyrillic-alternativnyj-encode-table r0 r1)
1f487ef8 200 (write-repeat r1))))
2b01336d
KH
201 "CCL program to encode Alternativnyj.")
202
203(make-coding-system
efbc7e89
KH
204 'cyrillic-alternativnyj 4 ?A
205 "ALTERNATIVNYJ 8-bit encoding for Cyrillic"
7fbf766f 206 '(ccl-decode-alternativnyj . ccl-encode-alternativnyj)
53a1db80
KH
207 `((safe-chars . ,(let ((table (make-char-table 'safe-chars))
208 (i 0))
209 (while (< i 256)
210 (aset table (aref cyrillic-alternativnyj-decode-table i)
211 t)
212 (setq i (1+ i)))
213 table))
cf461235
KH
214 (valid-codes (0 . 175) (224 . 241) 255)
215 (charset-origin-alist (cyrillic-iso8859-5 "ALTERNATIVNYJ"
216 cyrillic-encode-koi8-r-char))))
217
2b01336d 218
71eabd24 219(define-coding-system-alias 'alternativnyj 'cyrillic-alternativnyj)
efbc7e89 220
2b01336d
KH
221(define-ccl-program ccl-encode-alternativnyj-font
222 '(0
1f487ef8 223 ((translate-character cyrillic-alternativnyj-encode-table r0 r1)))
2b01336d
KH
224 "CCL program to encode Cyrillic chars to Alternativnyj font.")
225
226(setq font-ccl-encoder-alist
1f487ef8 227 (cons '("alternativnyj" . ccl-encode-alternativnyj-font)
2b01336d
KH
228 font-ccl-encoder-alist))
229
4ed46869 230(set-language-info-alist
a564ccf9
KH
231 "Cyrillic-ALT" `((charset cyrillic-iso8859-5)
232 (nonascii-translation
1f487ef8
KH
233 . ,(get 'cyrillic-alternativnyj-nonascii-translation-table
234 'translation-table))
11b77f14
KH
235 (coding-system cyrillic-alternativnyj)
236 (coding-priority cyrillic-alternativnyj)
44446f59 237 (input-method . "cyrillic-jcuken")
a564ccf9
KH
238 (features cyril-util)
239 (unibyte-display . cyrillic-alternativnyj)
5f1d80c7 240 (sample-text . "Russian (\e,L@caaZXY\e(B) \e,L7T`PRabRcYbU\e(B!")
11b77f14
KH
241 (documentation . "Support for Cyrillic ALTERNATIVNYJ."))
242 '("Cyrillic"))
4ed46869 243
41da80b1
DL
244(provide 'cyrillic)
245
4ed46869 246;;; cyrillic.el ends here