1 ;;; -*- coding: iso-2022-7bit -*-
2 ;;; uiso8859-9.el --- tables between UCS and ISO-8859-9
4 ;; Keywords: CCL, mule, multilingual,
5 ;; character set, coding-system, ISO10646, Unicode, ISO8859
7 ;; This file is part of Mule-UCS
9 ;; Mule-UCS is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; Mule-UCS is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with this program; see the file COPYING. If not, write to the
21 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22 ;; Boston, MA 02111-1307, USA.
24 ;;; This file is converted from 8859-9.TXT of Unicode consortium
25 ;;; by Miyashita Hisashi <himi@bird.scphys.kyoto-u.ac.jp>.
27 (put 'latin-iso8859-9 'unicode-assoc
28 'iso-8859-9-vs-unicode-assoc)
31 iso-8859-9-vs-unicode-assoc
33 (char-1 . ucs-generic)
34 ,(transformate-list-structure
35 (identity . c-notated-string-to-number)
36 ((?
\e,M
\e(B . "0x00A0") ;; NO-BREAK SPACE
37 (?
\e,M!
\e(B . "0x00A1") ;; INVERTED EXCLAMATION MARK
38 (?
\e,M"
\e(B . "0x00A2") ;; CENT SIGN
39 (?
\e,M#
\e(B . "0x00A3") ;; POUND SIGN
40 (?
\e,M$
\e(B . "0x00A4") ;; CURRENCY SIGN
41 (?
\e,M%
\e(B . "0x00A5") ;; YEN SIGN
42 (?
\e,M&
\e(B . "0x00A6") ;; BROKEN BAR
43 (?
\e,M'
\e(B . "0x00A7") ;; SECTION SIGN
44 (?
\e,M(
\e(B . "0x00A8") ;; DIAERESIS
45 (?
\e,M)
\e(B . "0x00A9") ;; COPYRIGHT SIGN
46 (?
\e,M*
\e(B . "0x00AA") ;; FEMININE ORDINAL INDICATOR
47 (?
\e,M+
\e(B . "0x00AB") ;; LEFT-POINTING DOUBLE ANGLE QUOTATION MARK
48 (?
\e,M,
\e(B . "0x00AC") ;; NOT SIGN
49 (?
\e,M-
\e(B . "0x00AD") ;; SOFT HYPHEN
50 (?
\e,M.
\e(B . "0x00AE") ;; REGISTERED SIGN
51 (?
\e,M/
\e(B . "0x00AF") ;; MACRON
52 (?
\e,M0
\e(B . "0x00B0") ;; DEGREE SIGN
53 (?
\e,M1
\e(B . "0x00B1") ;; PLUS-MINUS SIGN
54 (?
\e,M2
\e(B . "0x00B2") ;; SUPERSCRIPT TWO
55 (?
\e,M3
\e(B . "0x00B3") ;; SUPERSCRIPT THREE
56 (?
\e,M4
\e(B . "0x00B4") ;; ACUTE ACCENT
57 (?
\e,M5
\e(B . "0x00B5") ;; MICRO SIGN
58 (?
\e,M6
\e(B . "0x00B6") ;; PILCROW SIGN
59 (?
\e,M7
\e(B . "0x00B7") ;; MIDDLE DOT
60 (?
\e,M8
\e(B . "0x00B8") ;; CEDILLA
61 (?
\e,M9
\e(B . "0x00B9") ;; SUPERSCRIPT ONE
62 (?
\e,M:
\e(B . "0x00BA") ;; MASCULINE ORDINAL INDICATOR
63 (?
\e,M;
\e(B . "0x00BB") ;; RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK
64 (?
\e,M<
\e(B . "0x00BC") ;; VULGAR FRACTION ONE QUARTER
65 (?
\e,M=
\e(B . "0x00BD") ;; VULGAR FRACTION ONE HALF
66 (?
\e,M>
\e(B . "0x00BE") ;; VULGAR FRACTION THREE QUARTERS
67 (?
\e,M?
\e(B . "0x00BF") ;; INVERTED QUESTION MARK
68 (?
\e,M@
\e(B . "0x00C0") ;; LATIN CAPITAL LETTER A WITH GRAVE
69 (?
\e,MA
\e(B . "0x00C1") ;; LATIN CAPITAL LETTER A WITH ACUTE
70 (?
\e,MB
\e(B . "0x00C2") ;; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
71 (?
\e,MC
\e(B . "0x00C3") ;; LATIN CAPITAL LETTER A WITH TILDE
72 (?
\e,MD
\e(B . "0x00C4") ;; LATIN CAPITAL LETTER A WITH DIAERESIS
73 (?
\e,ME
\e(B . "0x00C5") ;; LATIN CAPITAL LETTER A WITH RING ABOVE
74 (?
\e,MF
\e(B . "0x00C6") ;; LATIN CAPITAL LETTER AE
75 (?
\e,MG
\e(B . "0x00C7") ;; LATIN CAPITAL LETTER C WITH CEDILLA
76 (?
\e,MH
\e(B . "0x00C8") ;; LATIN CAPITAL LETTER E WITH GRAVE
77 (?
\e,MI
\e(B . "0x00C9") ;; LATIN CAPITAL LETTER E WITH ACUTE
78 (?
\e,MJ
\e(B . "0x00CA") ;; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
79 (?
\e,MK
\e(B . "0x00CB") ;; LATIN CAPITAL LETTER E WITH DIAERESIS
80 (?
\e,ML
\e(B . "0x00CC") ;; LATIN CAPITAL LETTER I WITH GRAVE
81 (?
\e,MM
\e(B . "0x00CD") ;; LATIN CAPITAL LETTER I WITH ACUTE
82 (?
\e,MN
\e(B . "0x00CE") ;; LATIN CAPITAL LETTER I WITH CIRCUMFLEX
83 (?
\e,MO
\e(B . "0x00CF") ;; LATIN CAPITAL LETTER I WITH DIAERESIS
84 (?
\e,MP
\e(B . "0x011E") ;; LATIN CAPITAL LETTER G WITH BREVE
85 (?
\e,MQ
\e(B . "0x00D1") ;; LATIN CAPITAL LETTER N WITH TILDE
86 (?
\e,MR
\e(B . "0x00D2") ;; LATIN CAPITAL LETTER O WITH GRAVE
87 (?
\e,MS
\e(B . "0x00D3") ;; LATIN CAPITAL LETTER O WITH ACUTE
88 (?
\e,MT
\e(B . "0x00D4") ;; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
89 (?
\e,MU
\e(B . "0x00D5") ;; LATIN CAPITAL LETTER O WITH TILDE
90 (?
\e,MV
\e(B . "0x00D6") ;; LATIN CAPITAL LETTER O WITH DIAERESIS
91 (?
\e,MW
\e(B . "0x00D7") ;; MULTIPLICATION SIGN
92 (?
\e,MX
\e(B . "0x00D8") ;; LATIN CAPITAL LETTER O WITH STROKE
93 (?
\e,MY
\e(B . "0x00D9") ;; LATIN CAPITAL LETTER U WITH GRAVE
94 (?
\e,MZ
\e(B . "0x00DA") ;; LATIN CAPITAL LETTER U WITH ACUTE
95 (?
\e,M[
\e(B . "0x00DB") ;; LATIN CAPITAL LETTER U WITH CIRCUMFLEX
96 (?
\e,M\
\e(B . "0x00DC") ;; LATIN CAPITAL LETTER U WITH DIAERESIS
97 (?
\e,M]
\e(B . "0x0130") ;; LATIN CAPITAL LETTER I WITH DOT ABOVE
98 (?
\e,M^
\e(B . "0x015E") ;; LATIN CAPITAL LETTER S WITH CEDILLA
99 (?
\e,M_
\e(B . "0x00DF") ;; LATIN SMALL LETTER SHARP S
100 (?
\e,M`
\e(B . "0x00E0") ;; LATIN SMALL LETTER A WITH GRAVE
101 (?
\e,Ma
\e(B . "0x00E1") ;; LATIN SMALL LETTER A WITH ACUTE
102 (?
\e,Mb
\e(B . "0x00E2") ;; LATIN SMALL LETTER A WITH CIRCUMFLEX
103 (?
\e,Mc
\e(B . "0x00E3") ;; LATIN SMALL LETTER A WITH TILDE
104 (?
\e,Md
\e(B . "0x00E4") ;; LATIN SMALL LETTER A WITH DIAERESIS
105 (?
\e,Me
\e(B . "0x00E5") ;; LATIN SMALL LETTER A WITH RING ABOVE
106 (?
\e,Mf
\e(B . "0x00E6") ;; LATIN SMALL LETTER AE
107 (?
\e,Mg
\e(B . "0x00E7") ;; LATIN SMALL LETTER C WITH CEDILLA
108 (?
\e,Mh
\e(B . "0x00E8") ;; LATIN SMALL LETTER E WITH GRAVE
109 (?
\e,Mi
\e(B . "0x00E9") ;; LATIN SMALL LETTER E WITH ACUTE
110 (?
\e,Mj
\e(B . "0x00EA") ;; LATIN SMALL LETTER E WITH CIRCUMFLEX
111 (?
\e,Mk
\e(B . "0x00EB") ;; LATIN SMALL LETTER E WITH DIAERESIS
112 (?
\e,Ml
\e(B . "0x00EC") ;; LATIN SMALL LETTER I WITH GRAVE
113 (?
\e,Mm
\e(B . "0x00ED") ;; LATIN SMALL LETTER I WITH ACUTE
114 (?
\e,Mn
\e(B . "0x00EE") ;; LATIN SMALL LETTER I WITH CIRCUMFLEX
115 (?
\e,Mo
\e(B . "0x00EF") ;; LATIN SMALL LETTER I WITH DIAERESIS
116 (?
\e,Mp
\e(B . "0x011F") ;; LATIN SMALL LETTER G WITH BREVE
117 (?
\e,Mq
\e(B . "0x00F1") ;; LATIN SMALL LETTER N WITH TILDE
118 (?
\e,Mr
\e(B . "0x00F2") ;; LATIN SMALL LETTER O WITH GRAVE
119 (?
\e,Ms
\e(B . "0x00F3") ;; LATIN SMALL LETTER O WITH ACUTE
120 (?
\e,Mt
\e(B . "0x00F4") ;; LATIN SMALL LETTER O WITH CIRCUMFLEX
121 (?
\e,Mu
\e(B . "0x00F5") ;; LATIN SMALL LETTER O WITH TILDE
122 (?
\e,Mv
\e(B . "0x00F6") ;; LATIN SMALL LETTER O WITH DIAERESIS
123 (?
\e,Mw
\e(B . "0x00F7") ;; DIVISION SIGN
124 (?
\e,Mx
\e(B . "0x00F8") ;; LATIN SMALL LETTER O WITH STROKE
125 (?
\e,My
\e(B . "0x00F9") ;; LATIN SMALL LETTER U WITH GRAVE
126 (?
\e,Mz
\e(B . "0x00FA") ;; LATIN SMALL LETTER U WITH ACUTE
127 (?
\e,M{
\e(B . "0x00FB") ;; LATIN SMALL LETTER U WITH CIRCUMFLEX
128 (?
\e,M|
\e(B . "0x00FC") ;; LATIN SMALL LETTER U WITH DIAERESIS
129 (?
\e,M}
\e(B . "0x0131") ;; LATIN SMALL LETTER DOTLESS I
130 (?
\e,M~
\e(B . "0x015F") ;; LATIN SMALL LETTER S WITH CEDILLA
131 (?
\e,M
\7f\e(B . "0x00FF") ;; LATIN SMALL LETTER Y WITH DIAERESIS
134 (provide 'uiso8859-9)