1 /* FriBidi
2 * fribidi-char-sets-cp1256.c - CP1256 character set conversion routines
3 *
4 * Authors:
5 * Behdad Esfahbod, 2001, 2002, 2004
6 * Dov Grobgeld, 1999, 2000
7 *
8 * Copyright (C) 2004 Sharif FarsiWeb, Inc
9 * Copyright (C) 2001,2002 Behdad Esfahbod
10 * Copyright (C) 1999,2000 Dov Grobgeld
11 *
12 * This library is free software; you can redistribute it and/or
13 * modify it under the terms of the GNU Lesser General Public
14 * License as published by the Free Software Foundation; either
15 * version 2.1 of the License, or (at your option) any later version.
16 *
17 * This library is distributed in the hope that it will be useful,
18 * but WITHOUT ANY WARRANTY; without even the implied warranty of
19 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 * Lesser General Public License for more details.
21 *
22 * You should have received a copy of the GNU Lesser General Public License
23 * along with this library, in a file named COPYING; if not, write to the
24 * Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
25 * Boston, MA 02110-1301, USA
26 *
27 * For licensing issues, contact <fribidi.license@gmail.com>.
28 */
29
30 #include <common.h>
31
32 #include <fribidi-char-sets-cp1256.h>
33
34 #define ISO_HAMZA 0xc1
35 #define CP1256_DAD 0xD6
36
37 #define UNI_HAMZA 0x0621
38 #define UNI_DAD 0x0636
39
40 static FriBidiChar fribidi_cp1256_to_unicode_tab[] = { /* 0x80-0xFF */
41 0x20AC, 0x067E, 0x201A, 0x0192, 0x201E, 0x2026, 0x2020, 0x2021,
42 0x02C6, 0x2030, 0x0679, 0x2039, 0x0152, 0x0686, 0x0698, 0x0688,
43 0x06AF, 0x2018, 0x2019, 0x201C, 0x201D, 0x2022, 0x2013, 0x2014,
44 0x06A9, 0x2122, 0x0691, 0x203A, 0x0153, 0x200C, 0x200D, 0x06BA,
45 0x00A0, 0x060C, 0x00A2, 0x00A3, 0x00A4, 0x00A5, 0x00A6, 0x00A7,
46 0x00A8, 0x00A9, 0x06BE, 0x00AB, 0x00AC, 0x00AD, 0x00AE, 0x00AF,
47 0x00B0, 0x00B1, 0x00B2, 0x00B3, 0x00B4, 0x00B5, 0x00B6, 0x00B7,
48 0x00B8, 0x00B9, 0x061B, 0x00BB, 0x00BC, 0x00BD, 0x00BE, 0x061F,
49 0x06C1, 0x0621, 0x0622, 0x0623, 0x0624, 0x0625, 0x0626, 0x0627,
50 0x0628, 0x0629, 0x062A, 0x062B, 0x062C, 0x062D, 0x062E, 0x062F,
51 0x0630, 0x0631, 0x0632, 0x0633, 0x0634, 0x0635, 0x0636, 0x00D7,
52 0x0637, 0x0638, 0x0639, 0x063A, 0x0640, 0x0641, 0x0642, 0x0643,
53 0x00E0, 0x0644, 0x00E2, 0x0645, 0x0646, 0x0647, 0x0648, 0x00E7,
54 0x00E8, 0x00E9, 0x00EA, 0x00EB, 0x0649, 0x064A, 0x00EE, 0x00EF,
55 0x064B, 0x064C, 0x064D, 0x064E, 0x00F4, 0x064F, 0x0650, 0x00F7,
56 0x0651, 0x00F9, 0x0652, 0x00FB, 0x00FC, 0x200E, 0x200F, 0x00ff
57 };
58
59 FriBidiChar
60 fribidi_cp1256_to_unicode_c (
61 /* input */
62 char sch
63 )
64 {
65 register unsigned char ch = (unsigned char) sch;
66 if (ch >= 0x80)
67 return fribidi_cp1256_to_unicode_tab[ch - 0x80];
68 else
69 return ch;
70 }
71
72 char
73 fribidi_unicode_to_cp1256_c (
74 /* input */
75 FriBidiChar uch
76 )
77 {
78 if (uch < 256)
79 return (char) uch;
80 if (uch >= UNI_HAMZA && uch <= UNI_DAD)
81 return (char) (uch - UNI_HAMZA + ISO_HAMZA);
82 else
83 switch (uch)
84 {
85 case 0x0152:
86 return (char) 0x8c;
87 case 0x0153:
88 return (char) 0x9c;
89 case 0x0192:
90 return (char) 0x83;
91 case 0x02C6:
92 return (char) 0x88;
93 case 0x060C:
94 return (char) 0xA1;
95 case 0x061B:
96 return (char) 0xBA;
97 case 0x061F:
98 return (char) 0xBF;
99 case 0x0637:
100 return (char) 0xD8;
101 case 0x0638:
102 return (char) 0xD9;
103 case 0x0639:
104 return (char) 0xDA;
105 case 0x063A:
106 return (char) 0xDB;
107 case 0x0640:
108 return (char) 0xDC;
109 case 0x0641:
110 return (char) 0xDD;
111 case 0x0642:
112 return (char) 0xDE;
113 case 0x0643:
114 return (char) 0xDF;
115 case 0x0644:
116 return (char) 0xE1;
117 case 0x0645:
118 return (char) 0xE3;
119 case 0x0646:
120 return (char) 0xE4;
121 case 0x0647:
122 return (char) 0xE5;
123 case 0x0648:
124 return (char) 0xE6;
125 case 0x0649:
126 return (char) 0xEC;
127 case 0x064A:
128 return (char) 0xED;
129 case 0x064B:
130 return (char) 0xF0;
131 case 0x064C:
132 return (char) 0xF1;
133 case 0x064D:
134 return (char) 0xF2;
135 case 0x064E:
136 return (char) 0xF3;
137 case 0x064F:
138 return (char) 0xF5;
139 case 0x0650:
140 return (char) 0xF6;
141 case 0x0651:
142 return (char) 0xF8;
143 case 0x0652:
144 return (char) 0xFA;
145 case 0x0679:
146 return (char) 0x8A;
147 case 0x067E:
148 return (char) 0x81;
149 case 0x0686:
150 return (char) 0x8D;
151 case 0x0688:
152 return (char) 0x8F;
153 case 0x0691:
154 return (char) 0x9A;
155 case 0x0698:
156 return (char) 0x8E;
157 case 0x06A9:
158 return (char) 0x98;
159 case 0x06AF:
160 return (char) 0x90;
161 case 0x06BA:
162 return (char) 0x9F;
163 case 0x06BE:
164 return (char) 0xAA;
165 case 0x06C1:
166 return (char) 0xC0;
167 case 0x200C:
168 return (char) 0x9D;
169 case 0x200D:
170 return (char) 0x9E;
171 case 0x200E:
172 return (char) 0xFD;
173 case 0x200F:
174 return (char) 0xFE;
175 case 0x2013:
176 return (char) 0x96;
177 case 0x2014:
178 return (char) 0x97;
179 case 0x2018:
180 return (char) 0x91;
181 case 0x2019:
182 return (char) 0x92;
183 case 0x201A:
184 return (char) 0x82;
185 case 0x201C:
186 return (char) 0x93;
187 case 0x201D:
188 return (char) 0x94;
189 case 0x201E:
190 return (char) 0x84;
191 case 0x2020:
192 return (char) 0x86;
193 case 0x2021:
194 return (char) 0x87;
195 case 0x2022:
196 return (char) 0x95;
197 case 0x2026:
198 return (char) 0x85;
199 case 0x2030:
200 return (char) 0x89;
201 case 0x2039:
202 return (char) 0x8B;
203 case 0x203A:
204 return (char) 0x9B;
205 case 0x20AC:
206 return (char) 0x80;
207 case 0x2122:
208 return (char) 0x99;
209
210 default:
211 return '?';
212 }
213 }
214
215 /* Editor directions:
216 * vim:textwidth=78:tabstop=8:shiftwidth=2:autoindent:cindent
217 */