comparison lisp/mule/greek.el @ 4690:257b468bf2ca

Move the #'query-coding-region implementation to C. This is necessary because there is no reasonable way to access the corresponding mswindows-multibyte functionality from Lisp, and we need such functionality if we're going to have a reliable and portable #'query-coding-region implementation. However, this change doesn't yet provide #'query-coding-region for the mswindow-multibyte coding systems, there should be no functional differences between an XEmacs with this change and one without it. src/ChangeLog addition: 2009-09-19 Aidan Kehoe <kehoea@parhasard.net> Move the #'query-coding-region implementation to C. This is necessary because there is no reasonable way to access the corresponding mswindows-multibyte functionality from Lisp, and we need such functionality if we're going to have a reliable and portable #'query-coding-region implementation. However, this change doesn't yet provide #'query-coding-region for the mswindow-multibyte coding systems, there should be no functional differences between an XEmacs with this change and one without it. * mule-coding.c (struct fixed_width_coding_system): Add a new coding system type, fixed_width, and implement it. It uses the CCL infrastructure but has a much simpler creation API, and its own query_method, formerly in lisp/mule/mule-coding.el. * unicode.c: Move the Unicode query method implementation here from unicode.el. * lisp.h: Declare Fmake_coding_system_internal, Fcopy_range_table here. * intl-win32.c (complex_vars_of_intl_win32): Use Fmake_coding_system_internal, not Fmake_coding_system. * general-slots.h: Add Qsucceeded, Qunencodable, Qinvalid_sequence here. * file-coding.h (enum coding_system_variant): Add fixed_width_coding_system here. (struct coding_system_methods): Add query_method and query_lstream_method to the coding system methods. Provide flags for the query methods. Declare the default query method; initialise it correctly in INITIALIZE_CODING_SYSTEM_TYPE. * file-coding.c (default_query_method): New function, the default query method for coding systems that do not set it. Moved from coding.el. (make_coding_system_1): Accept new elements in PROPS in #'make-coding-system; aliases, a list of aliases; safe-chars and safe-charsets (these were previously accepted but not saved); and category. (Fmake_coding_system_internal): New function, what used to be #'make-coding-system--on Mule builds, we've now moved some of the functionality of this to Lisp. (Fcoding_system_canonical_name_p): Move this earlier in the file, since it's now called from within make_coding_system_1. (Fquery_coding_region): Move the implementation of this here, from coding.el. (complex_vars_of_file_coding): Call Fmake_coding_system_internal, not Fmake_coding_system; specify safe-charsets properties when we're a mule build. * extents.h (mouse_highlight_priority, Fset_extent_priority, Fset_extent_face, Fmap_extents): Make these available to other C files. lisp/ChangeLog addition: 2009-09-19 Aidan Kehoe <kehoea@parhasard.net> Move the #'query-coding-region implementation to C. * coding.el: Consolidate code that depends on the presence or absence of Mule at the end of this file. (default-query-coding-region, query-coding-region): Move these functions to C. (default-query-coding-region-safe-charset-skip-chars-map): Remove this variable, the corresponding C variable is Vdefault_query_coding_region_chartab_cache in file-coding.c. (query-coding-string): Update docstring to reflect actual multiple values, be more careful about not modifying a range table that we're currently mapping over. (encode-coding-char): Make the implementation of this simpler. (featurep 'mule): Autoload #'make-coding-system from mule/make-coding-system.el if we're a mule build; provide an appropriate compiler macro. Do various non-mule compatibility things if we're not a mule build. * update-elc.el (additional-dump-dependencies): Add mule/make-coding-system as a dump time dependency if we're a mule build. * unicode.el (ccl-encode-to-ucs-2): (decode-char): (encode-char): Move these earlier in the file, for the sake of some byte compile warnings. (unicode-query-coding-region): Move this to unicode.c * mule/make-coding-system.el: New file, not dumped. Contains the functionality to rework the arguments necessary for fixed-width coding systems, and contains the implementation of #'make-coding-system, which now calls #'make-coding-system-internal. * mule/vietnamese.el (viscii): * mule/latin.el (iso-8859-2): (windows-1250): (iso-8859-3): (iso-8859-4): (iso-8859-14): (iso-8859-15): (iso-8859-16): (iso-8859-9): (macintosh): (windows-1252): * mule/hebrew.el (iso-8859-8): * mule/greek.el (iso-8859-7): (windows-1253): * mule/cyrillic.el (iso-8859-5): (koi8-r): (koi8-u): (windows-1251): (alternativnyj): (koi8-ru): (koi8-t): (koi8-c): (koi8-o): * mule/arabic.el (iso-8859-6): (windows-1256): Move all these coding systems to being of type fixed-width, not of type CCL. This allows the distinct query-coding-region for them to be in C, something which will eventually allow us to implement query-coding-region for the mswindows-multibyte coding systems. * mule/general-late.el (posix-charset-to-coding-system-hash): Document why we're pre-emptively persuading the byte compiler that the ELC for this file needs to be written using escape-quoted. Call #'set-unicode-query-skip-chars-args, now the Unicode query-coding-region implementation is in C. * mule/thai-xtis.el (tis-620): Don't bother checking whether we're XEmacs or not here. * mule/mule-coding.el: Move the eight bit fixed-width functionality from this file to make-coding-system.el. tests/ChangeLog addition: 2009-09-19 Aidan Kehoe <kehoea@parhasard.net> * automated/mule-tests.el: Check a coding system's type, not an 8-bit-fixed property, for whether that coding system should be treated as a fixed-width coding system. * automated/query-coding-tests.el: Don't test the query coding functionality for mswindows-multibyte coding systems, it's not yet implemented.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 19 Sep 2009 22:53:13 +0100
parents e0a8715fdb1f
children 308d34e9f07d
comparison
equal deleted inserted replaced
4689:0636c6ccb430 4690:257b468bf2ca
116 do (modify-syntax-entry 116 do (modify-syntax-entry
117 (make-char 'greek-iso8859-7 greek) 117 (make-char 'greek-iso8859-7 greek)
118 (string (char-syntax (make-char 'latin-iso8859-1 latin-1))) 118 (string (char-syntax (make-char 'latin-iso8859-1 latin-1)))
119 syntax-table)) 119 syntax-table))
120 120
121 (make-8-bit-coding-system 121 (make-coding-system
122 'iso-8859-7 122 'iso-8859-7 'fixed-width "ISO-8859-7 (Greek)"
123 '((#x80 ?\u0080) ;; <control> 123 '(unicode-map
124 (#x81 ?\u0081) ;; <control> 124 ((#x80 ?\u0080) ;; <control>
125 (#x82 ?\u0082) ;; <control> 125 (#x81 ?\u0081) ;; <control>
126 (#x83 ?\u0083) ;; <control> 126 (#x82 ?\u0082) ;; <control>
127 (#x84 ?\u0084) ;; <control> 127 (#x83 ?\u0083) ;; <control>
128 (#x85 ?\u0085) ;; <control> 128 (#x84 ?\u0084) ;; <control>
129 (#x86 ?\u0086) ;; <control> 129 (#x85 ?\u0085) ;; <control>
130 (#x87 ?\u0087) ;; <control> 130 (#x86 ?\u0086) ;; <control>
131 (#x88 ?\u0088) ;; <control> 131 (#x87 ?\u0087) ;; <control>
132 (#x89 ?\u0089) ;; <control> 132 (#x88 ?\u0088) ;; <control>
133 (#x8A ?\u008A) ;; <control> 133 (#x89 ?\u0089) ;; <control>
134 (#x8B ?\u008B) ;; <control> 134 (#x8A ?\u008A) ;; <control>
135 (#x8C ?\u008C) ;; <control> 135 (#x8B ?\u008B) ;; <control>
136 (#x8D ?\u008D) ;; <control> 136 (#x8C ?\u008C) ;; <control>
137 (#x8E ?\u008E) ;; <control> 137 (#x8D ?\u008D) ;; <control>
138 (#x8F ?\u008F) ;; <control> 138 (#x8E ?\u008E) ;; <control>
139 (#x90 ?\u0090) ;; <control> 139 (#x8F ?\u008F) ;; <control>
140 (#x91 ?\u0091) ;; <control> 140 (#x90 ?\u0090) ;; <control>
141 (#x92 ?\u0092) ;; <control> 141 (#x91 ?\u0091) ;; <control>
142 (#x93 ?\u0093) ;; <control> 142 (#x92 ?\u0092) ;; <control>
143 (#x94 ?\u0094) ;; <control> 143 (#x93 ?\u0093) ;; <control>
144 (#x95 ?\u0095) ;; <control> 144 (#x94 ?\u0094) ;; <control>
145 (#x96 ?\u0096) ;; <control> 145 (#x95 ?\u0095) ;; <control>
146 (#x97 ?\u0097) ;; <control> 146 (#x96 ?\u0096) ;; <control>
147 (#x98 ?\u0098) ;; <control> 147 (#x97 ?\u0097) ;; <control>
148 (#x99 ?\u0099) ;; <control> 148 (#x98 ?\u0098) ;; <control>
149 (#x9A ?\u009A) ;; <control> 149 (#x99 ?\u0099) ;; <control>
150 (#x9B ?\u009B) ;; <control> 150 (#x9A ?\u009A) ;; <control>
151 (#x9C ?\u009C) ;; <control> 151 (#x9B ?\u009B) ;; <control>
152 (#x9D ?\u009D) ;; <control> 152 (#x9C ?\u009C) ;; <control>
153 (#x9E ?\u009E) ;; <control> 153 (#x9D ?\u009D) ;; <control>
154 (#x9F ?\u009F) ;; <control> 154 (#x9E ?\u009E) ;; <control>
155 (#xA0 ?\u00A0) ;; NO-BREAK SPACE 155 (#x9F ?\u009F) ;; <control>
156 (#xA1 ?\u2018) ;; LEFT SINGLE QUOTATION MARK 156 (#xA0 ?\u00A0) ;; NO-BREAK SPACE
157 (#xA2 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK 157 (#xA1 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
158 (#xA3 ?\u00A3) ;; POUND SIGN 158 (#xA2 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
159 (#xA4 ?\u20AC) ;; EURO SIGN 159 (#xA3 ?\u00A3) ;; POUND SIGN
160 (#xA5 ?\u20AF) ;; DRACHMA SIGN 160 (#xA4 ?\u20AC) ;; EURO SIGN
161 (#xA6 ?\u00A6) ;; BROKEN BAR 161 (#xA5 ?\u20AF) ;; DRACHMA SIGN
162 (#xA7 ?\u00A7) ;; SECTION SIGN 162 (#xA6 ?\u00A6) ;; BROKEN BAR
163 (#xA8 ?\u00A8) ;; DIAERESIS 163 (#xA7 ?\u00A7) ;; SECTION SIGN
164 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN 164 (#xA8 ?\u00A8) ;; DIAERESIS
165 (#xAA ?\u037A) ;; GREEK YPOGEGRAMMENI 165 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
166 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK 166 (#xAA ?\u037A) ;; GREEK YPOGEGRAMMENI
167 (#xAC ?\u00AC) ;; NOT SIGN 167 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
168 (#xAD ?\u00AD) ;; SOFT HYPHEN 168 (#xAC ?\u00AC) ;; NOT SIGN
169 (#xAF ?\u2015) ;; HORIZONTAL BAR 169 (#xAD ?\u00AD) ;; SOFT HYPHEN
170 (#xB0 ?\u00B0) ;; DEGREE SIGN 170 (#xAF ?\u2015) ;; HORIZONTAL BAR
171 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN 171 (#xB0 ?\u00B0) ;; DEGREE SIGN
172 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO 172 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
173 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE 173 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
174 (#xB4 ?\u0384) ;; GREEK TONOS 174 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
175 (#xB5 ?\u0385) ;; GREEK DIALYTIKA TONOS 175 (#xB4 ?\u0384) ;; GREEK TONOS
176 (#xB6 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS 176 (#xB5 ?\u0385) ;; GREEK DIALYTIKA TONOS
177 (#xB7 ?\u00B7) ;; MIDDLE DOT 177 (#xB6 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS
178 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS 178 (#xB7 ?\u00B7) ;; MIDDLE DOT
179 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS 179 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS
180 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS 180 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS
181 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK 181 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS
182 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS 182 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
183 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF 183 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS
184 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS 184 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
185 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS 185 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS
186 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS 186 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS
187 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA 187 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
188 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA 188 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA
189 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA 189 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA
190 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA 190 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA
191 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON 191 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA
192 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA 192 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON
193 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA 193 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA
194 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA 194 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA
195 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA 195 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA
196 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA 196 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA
197 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA 197 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA
198 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU 198 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA
199 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU 199 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU
200 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI 200 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU
201 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON 201 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI
202 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI 202 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON
203 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO 203 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI
204 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA 204 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO
205 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU 205 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA
206 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON 206 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU
207 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI 207 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON
208 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI 208 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI
209 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI 209 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI
210 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA 210 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI
211 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA 211 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA
212 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA 212 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
213 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS 213 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
214 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS 214 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS
215 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS 215 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS
216 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS 216 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS
217 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS 217 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS
218 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA 218 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
219 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA 219 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA
220 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA 220 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA
221 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA 221 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA
222 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON 222 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA
223 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA 223 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON
224 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA 224 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA
225 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA 225 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA
226 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA 226 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA
227 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA 227 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA
228 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA 228 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA
229 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU 229 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA
230 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU 230 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU
231 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI 231 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU
232 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON 232 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI
233 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI 233 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON
234 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO 234 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI
235 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA 235 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO
236 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA 236 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA
237 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU 237 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA
238 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON 238 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU
239 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI 239 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON
240 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI 240 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI
241 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI 241 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI
242 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA 242 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI
243 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA 243 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA
244 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA 244 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA
245 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS 245 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA
246 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS 246 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS
247 (#xFE ?\u03CE));; GREEK SMALL LETTER OMEGA WITH TONOS 247 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS
248 "ISO-8859-7 (Greek)" 248 (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS
249 '(mnemonic "Grk" 249 mnemonic "Grk"
250 aliases (greek-iso-8bit))) 250 aliases (greek-iso-8bit)))
251 251
252 (make-8-bit-coding-system 252 (make-coding-system
253 'windows-1253 253 'windows-1253 'fixed-width "Microsoft's CP1253"
254 '((#x80 ?\u20AC) ;; EURO SIGN 254 '(unicode-map
255 (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK 255 ((#x80 ?\u20AC) ;; EURO SIGN
256 (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK 256 (#x82 ?\u201A) ;; SINGLE LOW-9 QUOTATION MARK
257 (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK 257 (#x83 ?\u0192) ;; LATIN SMALL LETTER F WITH HOOK
258 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS 258 (#x84 ?\u201E) ;; DOUBLE LOW-9 QUOTATION MARK
259 (#x86 ?\u2020) ;; DAGGER 259 (#x85 ?\u2026) ;; HORIZONTAL ELLIPSIS
260 (#x87 ?\u2021) ;; DOUBLE DAGGER 260 (#x86 ?\u2020) ;; DAGGER
261 (#x89 ?\u2030) ;; PER MILLE SIGN 261 (#x87 ?\u2021) ;; DOUBLE DAGGER
262 (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK 262 (#x89 ?\u2030) ;; PER MILLE SIGN
263 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK 263 (#x8B ?\u2039) ;; SINGLE LEFT-POINTING ANGLE QUOTATION MARK
264 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK 264 (#x91 ?\u2018) ;; LEFT SINGLE QUOTATION MARK
265 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK 265 (#x92 ?\u2019) ;; RIGHT SINGLE QUOTATION MARK
266 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK 266 (#x93 ?\u201C) ;; LEFT DOUBLE QUOTATION MARK
267 (#x95 ?\u2022) ;; BULLET 267 (#x94 ?\u201D) ;; RIGHT DOUBLE QUOTATION MARK
268 (#x96 ?\u2013) ;; EN DASH 268 (#x95 ?\u2022) ;; BULLET
269 (#x97 ?\u2014) ;; EM DASH 269 (#x96 ?\u2013) ;; EN DASH
270 (#x99 ?\u2122) ;; TRADE MARK SIGN 270 (#x97 ?\u2014) ;; EM DASH
271 (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK 271 (#x99 ?\u2122) ;; TRADE MARK SIGN
272 (#xA0 ?\u00A0) ;; NO-BREAK SPACE 272 (#x9B ?\u203A) ;; SINGLE RIGHT-POINTING ANGLE QUOTATION MARK
273 (#xA1 ?\u0385) ;; GREEK DIALYTIKA TONOS 273 (#xA0 ?\u00A0) ;; NO-BREAK SPACE
274 (#xA2 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS 274 (#xA1 ?\u0385) ;; GREEK DIALYTIKA TONOS
275 (#xA3 ?\u00A3) ;; POUND SIGN 275 (#xA2 ?\u0386) ;; GREEK CAPITAL LETTER ALPHA WITH TONOS
276 (#xA4 ?\u00A4) ;; CURRENCY SIGN 276 (#xA3 ?\u00A3) ;; POUND SIGN
277 (#xA5 ?\u00A5) ;; YEN SIGN 277 (#xA4 ?\u00A4) ;; CURRENCY SIGN
278 (#xA6 ?\u00A6) ;; BROKEN BAR 278 (#xA5 ?\u00A5) ;; YEN SIGN
279 (#xA7 ?\u00A7) ;; SECTION SIGN 279 (#xA6 ?\u00A6) ;; BROKEN BAR
280 (#xA8 ?\u00A8) ;; DIAERESIS 280 (#xA7 ?\u00A7) ;; SECTION SIGN
281 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN 281 (#xA8 ?\u00A8) ;; DIAERESIS
282 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK 282 (#xA9 ?\u00A9) ;; COPYRIGHT SIGN
283 (#xAC ?\u00AC) ;; NOT SIGN 283 (#xAB ?\u00AB) ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
284 (#xAD ?\u00AD) ;; SOFT HYPHEN 284 (#xAC ?\u00AC) ;; NOT SIGN
285 (#xAE ?\u00AE) ;; REGISTERED SIGN 285 (#xAD ?\u00AD) ;; SOFT HYPHEN
286 (#xAF ?\u2015) ;; HORIZONTAL BAR 286 (#xAE ?\u00AE) ;; REGISTERED SIGN
287 (#xB0 ?\u00B0) ;; DEGREE SIGN 287 (#xAF ?\u2015) ;; HORIZONTAL BAR
288 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN 288 (#xB0 ?\u00B0) ;; DEGREE SIGN
289 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO 289 (#xB1 ?\u00B1) ;; PLUS-MINUS SIGN
290 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE 290 (#xB2 ?\u00B2) ;; SUPERSCRIPT TWO
291 (#xB4 ?\u0384) ;; GREEK TONOS 291 (#xB3 ?\u00B3) ;; SUPERSCRIPT THREE
292 (#xB5 ?\u00B5) ;; MICRO SIGN 292 (#xB4 ?\u0384) ;; GREEK TONOS
293 (#xB6 ?\u00B6) ;; PILCROW SIGN 293 (#xB5 ?\u00B5) ;; MICRO SIGN
294 (#xB7 ?\u00B7) ;; MIDDLE DOT 294 (#xB6 ?\u00B6) ;; PILCROW SIGN
295 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS 295 (#xB7 ?\u00B7) ;; MIDDLE DOT
296 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS 296 (#xB8 ?\u0388) ;; GREEK CAPITAL LETTER EPSILON WITH TONOS
297 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS 297 (#xB9 ?\u0389) ;; GREEK CAPITAL LETTER ETA WITH TONOS
298 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK 298 (#xBA ?\u038A) ;; GREEK CAPITAL LETTER IOTA WITH TONOS
299 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS 299 (#xBB ?\u00BB) ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
300 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF 300 (#xBC ?\u038C) ;; GREEK CAPITAL LETTER OMICRON WITH TONOS
301 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS 301 (#xBD ?\u00BD) ;; VULGAR FRACTION ONE HALF
302 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS 302 (#xBE ?\u038E) ;; GREEK CAPITAL LETTER UPSILON WITH TONOS
303 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS 303 (#xBF ?\u038F) ;; GREEK CAPITAL LETTER OMEGA WITH TONOS
304 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA 304 (#xC0 ?\u0390) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA AND TONOS
305 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA 305 (#xC1 ?\u0391) ;; GREEK CAPITAL LETTER ALPHA
306 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA 306 (#xC2 ?\u0392) ;; GREEK CAPITAL LETTER BETA
307 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA 307 (#xC3 ?\u0393) ;; GREEK CAPITAL LETTER GAMMA
308 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON 308 (#xC4 ?\u0394) ;; GREEK CAPITAL LETTER DELTA
309 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA 309 (#xC5 ?\u0395) ;; GREEK CAPITAL LETTER EPSILON
310 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA 310 (#xC6 ?\u0396) ;; GREEK CAPITAL LETTER ZETA
311 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA 311 (#xC7 ?\u0397) ;; GREEK CAPITAL LETTER ETA
312 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA 312 (#xC8 ?\u0398) ;; GREEK CAPITAL LETTER THETA
313 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA 313 (#xC9 ?\u0399) ;; GREEK CAPITAL LETTER IOTA
314 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA 314 (#xCA ?\u039A) ;; GREEK CAPITAL LETTER KAPPA
315 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU 315 (#xCB ?\u039B) ;; GREEK CAPITAL LETTER LAMDA
316 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU 316 (#xCC ?\u039C) ;; GREEK CAPITAL LETTER MU
317 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI 317 (#xCD ?\u039D) ;; GREEK CAPITAL LETTER NU
318 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON 318 (#xCE ?\u039E) ;; GREEK CAPITAL LETTER XI
319 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI 319 (#xCF ?\u039F) ;; GREEK CAPITAL LETTER OMICRON
320 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO 320 (#xD0 ?\u03A0) ;; GREEK CAPITAL LETTER PI
321 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA 321 (#xD1 ?\u03A1) ;; GREEK CAPITAL LETTER RHO
322 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU 322 (#xD3 ?\u03A3) ;; GREEK CAPITAL LETTER SIGMA
323 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON 323 (#xD4 ?\u03A4) ;; GREEK CAPITAL LETTER TAU
324 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI 324 (#xD5 ?\u03A5) ;; GREEK CAPITAL LETTER UPSILON
325 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI 325 (#xD6 ?\u03A6) ;; GREEK CAPITAL LETTER PHI
326 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI 326 (#xD7 ?\u03A7) ;; GREEK CAPITAL LETTER CHI
327 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA 327 (#xD8 ?\u03A8) ;; GREEK CAPITAL LETTER PSI
328 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA 328 (#xD9 ?\u03A9) ;; GREEK CAPITAL LETTER OMEGA
329 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA 329 (#xDA ?\u03AA) ;; GREEK CAPITAL LETTER IOTA WITH DIALYTIKA
330 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS 330 (#xDB ?\u03AB) ;; GREEK CAPITAL LETTER UPSILON WITH DIALYTIKA
331 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS 331 (#xDC ?\u03AC) ;; GREEK SMALL LETTER ALPHA WITH TONOS
332 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS 332 (#xDD ?\u03AD) ;; GREEK SMALL LETTER EPSILON WITH TONOS
333 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS 333 (#xDE ?\u03AE) ;; GREEK SMALL LETTER ETA WITH TONOS
334 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS 334 (#xDF ?\u03AF) ;; GREEK SMALL LETTER IOTA WITH TONOS
335 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA 335 (#xE0 ?\u03B0) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA AND TONOS
336 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA 336 (#xE1 ?\u03B1) ;; GREEK SMALL LETTER ALPHA
337 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA 337 (#xE2 ?\u03B2) ;; GREEK SMALL LETTER BETA
338 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA 338 (#xE3 ?\u03B3) ;; GREEK SMALL LETTER GAMMA
339 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON 339 (#xE4 ?\u03B4) ;; GREEK SMALL LETTER DELTA
340 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA 340 (#xE5 ?\u03B5) ;; GREEK SMALL LETTER EPSILON
341 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA 341 (#xE6 ?\u03B6) ;; GREEK SMALL LETTER ZETA
342 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA 342 (#xE7 ?\u03B7) ;; GREEK SMALL LETTER ETA
343 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA 343 (#xE8 ?\u03B8) ;; GREEK SMALL LETTER THETA
344 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA 344 (#xE9 ?\u03B9) ;; GREEK SMALL LETTER IOTA
345 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA 345 (#xEA ?\u03BA) ;; GREEK SMALL LETTER KAPPA
346 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU 346 (#xEB ?\u03BB) ;; GREEK SMALL LETTER LAMDA
347 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU 347 (#xEC ?\u03BC) ;; GREEK SMALL LETTER MU
348 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI 348 (#xED ?\u03BD) ;; GREEK SMALL LETTER NU
349 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON 349 (#xEE ?\u03BE) ;; GREEK SMALL LETTER XI
350 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI 350 (#xEF ?\u03BF) ;; GREEK SMALL LETTER OMICRON
351 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO 351 (#xF0 ?\u03C0) ;; GREEK SMALL LETTER PI
352 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA 352 (#xF1 ?\u03C1) ;; GREEK SMALL LETTER RHO
353 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA 353 (#xF2 ?\u03C2) ;; GREEK SMALL LETTER FINAL SIGMA
354 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU 354 (#xF3 ?\u03C3) ;; GREEK SMALL LETTER SIGMA
355 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON 355 (#xF4 ?\u03C4) ;; GREEK SMALL LETTER TAU
356 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI 356 (#xF5 ?\u03C5) ;; GREEK SMALL LETTER UPSILON
357 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI 357 (#xF6 ?\u03C6) ;; GREEK SMALL LETTER PHI
358 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI 358 (#xF7 ?\u03C7) ;; GREEK SMALL LETTER CHI
359 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA 359 (#xF8 ?\u03C8) ;; GREEK SMALL LETTER PSI
360 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA 360 (#xF9 ?\u03C9) ;; GREEK SMALL LETTER OMEGA
361 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA 361 (#xFA ?\u03CA) ;; GREEK SMALL LETTER IOTA WITH DIALYTIKA
362 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS 362 (#xFB ?\u03CB) ;; GREEK SMALL LETTER UPSILON WITH DIALYTIKA
363 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS 363 (#xFC ?\u03CC) ;; GREEK SMALL LETTER OMICRON WITH TONOS
364 (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS 364 (#xFD ?\u03CD) ;; GREEK SMALL LETTER UPSILON WITH TONOS
365 "Microsoft's Code Page 1253, for monotonic Greek. " 365 (#xFE ?\u03CE)) ;; GREEK SMALL LETTER OMEGA WITH TONOS
366 '(mnemonic "GrkW" 366 mnemonic "GrkW"
367 documentation 367 documentation
368 "This ASCII-compatible encoding is slightly incompatibile with 368 "Microsoft's Code Page 1253, for monotonic Greek.
369
370 This ASCII-compatible encoding is slightly incompatibile with
369 ISO-8859-7; it provides several widely-used punctuation marks in the C1 371 ISO-8859-7; it provides several widely-used punctuation marks in the C1
370 ISO-2022 area, which makes it incompatbile with the latter standard, but 372 ISO-2022 area, which makes it incompatbile with the latter standard, but
371 that latter standard is not used in Greece, " 373 that latter standard is not used in Greece, "
372 aliases (cp1253))) 374 aliases (cp1253)))
373 375