Mercurial > hg > xemacs-beta

comparison lisp/mule/cyrillic.el @ 418:e804706bfb8c r21-2-17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-17
author cvs
date Mon, 13 Aug 2007 11:23:13 +0200
parents ebe98a74bd68
children 95016f13131a
comparison
equal deleted inserted replaced
417:43a18b32d56e 418:e804706bfb8c
30 30
31 ;;; Code: 31 ;;; Code:
32 32
33 ;; For syntax of Cyrillic 33 ;; For syntax of Cyrillic
34 (modify-syntax-entry 'cyrillic-iso8859-5 "w") 34 (modify-syntax-entry 'cyrillic-iso8859-5 "w")
35 (modify-syntax-entry ?.LN- ".") 35 (modify-syntax-entry ?,L-(B ".")
36 (modify-syntax-entry ?.LNp ".") 36 (modify-syntax-entry ?,Lp(B ".")
37 (modify-syntax-entry ?.LN} ".") 37 (modify-syntax-entry ?,L}(B ".")
38 38
39 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 39 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
40 ;;; CYRILLIC 40 ;;; CYRILLIC
41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 41 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
42 42
75 "Cyrillic-ISO" '((setup-function . (setup-cyrillic-iso-environment 75 "Cyrillic-ISO" '((setup-function . (setup-cyrillic-iso-environment
76 . setup-cyrillic-environment-map)) 76 . setup-cyrillic-environment-map))
77 (charset . (cyrillic-iso8859-5)) 77 (charset . (cyrillic-iso8859-5))
78 (tutorial . "TUTORIAL.ru") 78 (tutorial . "TUTORIAL.ru")
79 (coding-system . (iso-8859-5)) 79 (coding-system . (iso-8859-5))
80 (sample-text . "Russian (.LN@NcNaNaNZNXNY) N7NTN`NPNRNaNbNRNcNYNbNU!") 80 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!")
81 (documentation . ("Support for Cyrillic ISO-8859-5." 81 (documentation . ("Support for Cyrillic ISO-8859-5."
82 . describe-cyrillic-environment-map)))) 82 . describe-cyrillic-environment-map))))
83 83
84 ;; KOI-8 staff 84 ;; KOI-8 staff
85 85
94 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 94 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
95 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 95 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
96 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 96 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
97 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 97 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
98 ?$B(!(B ?$B("(B ?$B(#(B ?$B($(B ?$B(&(B ?$B(%(B ?$B('(B ?$B()(B ?$B(((B ?$B(*(B ?$B(+(B 32 ?$(G#'(B ?$(G#+(B ?$(G#/(B 32 98 ?$B(!(B ?$B("(B ?$B(#(B ?$B($(B ?$B(&(B ?$B(%(B ?$B('(B ?$B()(B ?$B(((B ?$B(*(B ?$B(+(B 32 ?$(G#'(B ?$(G#+(B ?$(G#/(B 32
99 32 ?$(C"F(B 32 32 ?$B"#(B 32 ?$B"e(B ?$A!V(B ?$A!\(B ?$A!](B ?.AN 32 ?N0 ?N2 ?N7 ?Nw 99 32 ?$(C"F(B 32 32 ?$B"#(B 32 ?$B"e(B ?$A!V(B ?$A!\(B ?$A!](B ?,L (B 32 ?,A0(B ?,A2(B ?,A7(B ?,Aw(B
100 ?$(G#D(B 32 32 ?.LNq 32 32 32 32 32 32 32 32 32 32 32 ?$(G#E(B 100 ?$(G#D(B 32 32 ?,Lq(B 32 32 32 32 32 32 32 32 32 32 32 ?$(G#E(B
101 32 32 ?$(G#G(B ?.LN! 32 32 32 32 32 32 32 32 ?$(G#F(B 32 32 ?.AN) 101 32 32 ?$(G#G(B ?,L!(B 32 32 32 32 32 32 32 32 ?$(G#F(B 32 32 ?,A)(B
102 ?.LNn ?NP ?NQ ?Nf ?NT ?NU ?Nd ?NS ?Ne ?NX ?NY ?NZ ?N[ ?N\ ?N] ?N^ 102 ?,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
103 ?.LN_ ?No ?N` ?Na ?Nb ?Nc ?NV ?NR ?Nl ?Nk ?NW ?Nh ?Nm ?Ni ?Ng ?Nj 103 ?,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
104 ?.LNN ?N0 ?N1 ?NF ?N4 ?N5 ?ND ?N3 ?NE ?N8 ?N9 ?N: ?N; ?N< ?N= ?N> 104 ?,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
105 ?.LN? ?NO ?N@ ?NA ?NB ?NC ?N6 ?N2 ?NL ?NK ?N7 ?NH ?NM ?NI ?NG ?NJ ] 105 ?,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 ]
106 "Cyrillic KOI8-R decoding table.") 106 "Cyrillic KOI8-R decoding table.")
107 107
108 (defvar cyrillic-koi8-r-encode-table 108 (defvar cyrillic-koi8-r-encode-table
109 (let ((table (make-vector 256 32)) 109 (let ((table (make-vector 256 32))
110 (i 0)) 110 (i 0))
111 (while (< i 256) 111 (while (< i 256)
112 (let* ((ch (aref cyrillic-koi8-r-decode-table i)) 112 (let* ((ch (aref cyrillic-koi8-r-decode-table i))
113 (split (split-char-or-char-int ch))) 113 (split (split-char ch)))
114 (cond ((eq (car split) 'cyrillic-iso8859-5) 114 (cond ((eq (car split) 'cyrillic-iso8859-5)
115 (aset table (logior (nth 1 split) 128) i) 115 (aset table (logior (nth 1 split) 128) i)
116 ) 116 )
117 ((eq ch 32)) 117 ((eq ch 32))
118 ((eq (car split) 'ascii) 118 ((eq (car split) 'ascii)
182 "Cyrillic-KOI8" '((setup-function . (setup-cyrillic-koi8-environment 182 "Cyrillic-KOI8" '((setup-function . (setup-cyrillic-koi8-environment
183 . setup-cyrillic-environment-map)) 183 . setup-cyrillic-environment-map))
184 (charset . (cyrillic-iso8859-5)) 184 (charset . (cyrillic-iso8859-5))
185 (coding-system . (koi8-r)) 185 (coding-system . (koi8-r))
186 (tutorial . "TUTORIAL.ru") 186 (tutorial . "TUTORIAL.ru")
187 (sample-text . "Russian (.LN@NcNaNaNZNXNY) N7NTN`NPNRNaNbNRNcNYNbNU!") 187 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!")
188 (documentation . ("Support for Cyrillic KOI-8." 188 (documentation . ("Support for Cyrillic KOI-8."
189 . describe-cyrillic-environment-map)))) 189 . describe-cyrillic-environment-map))))
190 190
191 ;;; ALTERNATIVNYJ staff 191 ;;; ALTERNATIVNYJ staff
192 192
202 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 202 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
203 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 203 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
204 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 204 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
205 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 205 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
206 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 206 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
207 ?.LN0 ?N1 ?N2 ?N3 ?N4 ?N5 ?N6 ?N7 ?N8 ?N9 ?N: ?N; ?N< ?N= ?N> ?N? 207 ?,L0(B ?,L1(B ?,L2(B ?,L3(B ?,L4(B ?,L5(B ?,L6(B ?,L7(B ?,L8(B ?,L9(B ?,L:(B ?,L;(B ?,L<(B ?,L=(B ?,L>(B ?,L?(B
208 ?.LN@ ?NA ?NB ?NC ?ND ?NE ?NF ?NG ?NH ?NI ?NJ ?NK ?NL ?NM ?NN ?NO 208 ?,L@(B ?,LA(B ?,LB(B ?,LC(B ?,LD(B ?,LE(B ?,LF(B ?,LG(B ?,LH(B ?,LI(B ?,LJ(B ?,LK(B ?,LL(B ?,LM(B ?,LN(B ?,LO(B
209 ?.LNP ?NQ ?NR ?NS ?NT ?NU ?NV ?NW ?NX ?NY ?NZ ?N[ ?N\ ?N] ?N^ ?N_ 209 ?,LP(B ?,LQ(B ?,LR(B ?,LS(B ?,LT(B ?,LU(B ?,LV(B ?,LW(B ?,LX(B ?,LY(B ?,LZ(B ?,L[(B ?,L\(B ?,L](B ?,L^(B ?,L_(B
210 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 210 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32
211 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 211 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32
212 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 212 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32 32
213 ?.LN` ?Na ?Nb ?Nc ?Nd ?Ne ?Nf ?Ng ?Nh ?Ni ?Nj ?Nk ?Nl ?Nm ?Nn ?No 213 ?,L`(B ?,La(B ?,Lb(B ?,Lc(B ?,Ld(B ?,Le(B ?,Lf(B ?,Lg(B ?,Lh(B ?,Li(B ?,Lj(B ?,Lk(B ?,Ll(B ?,Lm(B ?,Ln(B ?,Lo(B
214 ?.LN! ?Nq 32 32 32 32 32 32 32 32 32 32 32 32 32 ?Np])))) 214 ?,L!(B ?,Lq(B 32 32 32 32 32 32 32 32 32 32 32 32 32 ?,Lp(B]))))
215 "CCL program to decode Alternativnyj.") 215 "CCL program to decode Alternativnyj.")
216 216
217 (define-ccl-program ccl-encode-alternativnyj 217 (define-ccl-program ccl-encode-alternativnyj
218 `(1 218 `(1
219 ((read r0) 219 ((read r0)
266 "Cyrillic-ALT" '((setup-function . (setup-cyrillic-alternativnyj-environment 266 "Cyrillic-ALT" '((setup-function . (setup-cyrillic-alternativnyj-environment
267 . setup-cyrillic-environment-map)) 267 . setup-cyrillic-environment-map))
268 (charset . (cyrillic-iso8859-5)) 268 (charset . (cyrillic-iso8859-5))
269 (coding-system . (alternativnyj)) 269 (coding-system . (alternativnyj))
270 (tutorial . "TUTORIAL.ru") 270 (tutorial . "TUTORIAL.ru")
271 (sample-text . "Russian (.LN@NcNaNaNZNXNY) N7NTN`NPNRNaNbNRNcNYNbNU!") 271 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!")
272 (documentation . ("Support for Cyrillic ALTERNATIVNYJ." 272 (documentation . ("Support for Cyrillic ALTERNATIVNYJ."
273 . describe-cyrillic-environment-map)))) 273 . describe-cyrillic-environment-map))))
274 274
275 ;;; GENERAL 275 ;;; GENERAL
276 276
301 "Cyrillic" '((setup-function . setup-cyrillic-environment) 301 "Cyrillic" '((setup-function . setup-cyrillic-environment)
302 (describe-function . describe-cyrillic-support) 302 (describe-function . describe-cyrillic-support)
303 (charset . (cyrillic-iso8859-5)) 303 (charset . (cyrillic-iso8859-5))
304 (tutorial . "TUTORIAL.ru") 304 (tutorial . "TUTORIAL.ru")
305 (coding-system . (iso-8859-5 koi8-r alternativnyj)) 305 (coding-system . (iso-8859-5 koi8-r alternativnyj))
306 (sample-text . "Russian (.LN@NcNaNaNZNXNY) N7NTN`NPNRNaNbNRNcNYNbNU!") 306 (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!")
307 (documentation . nil))) 307 (documentation . nil)))
308 308
309 ;;; cyrillic.el ends here 309 ;;; cyrillic.el ends here