|
7
|
1 /* vi:set ts=8 sts=4 sw=4:
|
|
|
2 *
|
|
|
3 * VIM - Vi IMproved by Bram Moolenaar
|
|
|
4 *
|
|
|
5 * Do ":help uganda" in Vim to read copying and usage conditions.
|
|
|
6 * Do ":help credits" in Vim to see a list of people who contributed.
|
|
|
7 * See README.txt for an overview of the Vim source code.
|
|
|
8 */
|
|
|
9
|
|
|
10 /*
|
|
|
11 * arabic.c: functions for Arabic language
|
|
|
12 *
|
|
|
13 * Included by main.c, when FEAT_ARABIC & FEAT_GUI is defined.
|
|
|
14 *
|
|
|
15 * --
|
|
|
16 *
|
|
|
17 * Author: Nadim Shaikli & Isam Bayazidi
|
|
|
18 *
|
|
|
19 */
|
|
|
20
|
|
|
21 static int A_is_a __ARGS((int cur_c));
|
|
|
22 static int A_is_s __ARGS((int cur_c));
|
|
|
23 static int A_is_f __ARGS((int cur_c));
|
|
|
24 static int chg_c_a2s __ARGS((int cur_c));
|
|
|
25 static int chg_c_a2i __ARGS((int cur_c));
|
|
|
26 static int chg_c_a2m __ARGS((int cur_c));
|
|
|
27 static int chg_c_a2f __ARGS((int cur_c));
|
|
|
28 static int chg_c_i2m __ARGS((int cur_c));
|
|
|
29 static int chg_c_f2m __ARGS((int cur_c));
|
|
|
30 static int chg_c_laa2i __ARGS((int hid_c));
|
|
|
31 static int chg_c_laa2f __ARGS((int hid_c));
|
|
|
32 static int half_shape __ARGS((int c));
|
|
|
33 static int A_firstc_laa __ARGS((int c1, int c));
|
|
|
34 static int A_is_harakat __ARGS((int c));
|
|
|
35 static int A_is_iso __ARGS((int c));
|
|
|
36 static int A_is_formb __ARGS((int c));
|
|
|
37 static int A_is_ok __ARGS((int c));
|
|
|
38 static int A_is_valid __ARGS((int c));
|
|
|
39 static int A_is_special __ARGS((int c));
|
|
|
40
|
|
|
41
|
|
|
42 /*
|
|
|
43 * Returns True if c is an ISO-8859-6 shaped ARABIC letter (user entered)
|
|
|
44 */
|
|
|
45 static int
|
|
|
46 A_is_a(cur_c)
|
|
|
47 int cur_c;
|
|
|
48 {
|
|
|
49 switch (cur_c)
|
|
|
50 {
|
|
|
51 case a_HAMZA:
|
|
|
52 case a_ALEF_MADDA:
|
|
|
53 case a_ALEF_HAMZA_ABOVE:
|
|
|
54 case a_WAW_HAMZA:
|
|
|
55 case a_ALEF_HAMZA_BELOW:
|
|
|
56 case a_YEH_HAMZA:
|
|
|
57 case a_ALEF:
|
|
|
58 case a_BEH:
|
|
|
59 case a_TEH_MARBUTA:
|
|
|
60 case a_TEH:
|
|
|
61 case a_THEH:
|
|
|
62 case a_JEEM:
|
|
|
63 case a_HAH:
|
|
|
64 case a_KHAH:
|
|
|
65 case a_DAL:
|
|
|
66 case a_THAL:
|
|
|
67 case a_REH:
|
|
|
68 case a_ZAIN:
|
|
|
69 case a_SEEN:
|
|
|
70 case a_SHEEN:
|
|
|
71 case a_SAD:
|
|
|
72 case a_DAD:
|
|
|
73 case a_TAH:
|
|
|
74 case a_ZAH:
|
|
|
75 case a_AIN:
|
|
|
76 case a_GHAIN:
|
|
|
77 case a_TATWEEL:
|
|
|
78 case a_FEH:
|
|
|
79 case a_QAF:
|
|
|
80 case a_KAF:
|
|
|
81 case a_LAM:
|
|
|
82 case a_MEEM:
|
|
|
83 case a_NOON:
|
|
|
84 case a_HEH:
|
|
|
85 case a_WAW:
|
|
|
86 case a_ALEF_MAKSURA:
|
|
|
87 case a_YEH:
|
|
|
88 return TRUE;
|
|
|
89 }
|
|
|
90
|
|
|
91 return FALSE;
|
|
|
92 }
|
|
|
93
|
|
|
94
|
|
|
95 /*
|
|
|
96 * Returns True if c is an Isolated Form-B ARABIC letter
|
|
|
97 */
|
|
|
98 static int
|
|
|
99 A_is_s(cur_c)
|
|
|
100 int cur_c;
|
|
|
101 {
|
|
|
102 switch (cur_c)
|
|
|
103 {
|
|
|
104 case a_s_HAMZA:
|
|
|
105 case a_s_ALEF_MADDA:
|
|
|
106 case a_s_ALEF_HAMZA_ABOVE:
|
|
|
107 case a_s_WAW_HAMZA:
|
|
|
108 case a_s_ALEF_HAMZA_BELOW:
|
|
|
109 case a_s_YEH_HAMZA:
|
|
|
110 case a_s_ALEF:
|
|
|
111 case a_s_BEH:
|
|
|
112 case a_s_TEH_MARBUTA:
|
|
|
113 case a_s_TEH:
|
|
|
114 case a_s_THEH:
|
|
|
115 case a_s_JEEM:
|
|
|
116 case a_s_HAH:
|
|
|
117 case a_s_KHAH:
|
|
|
118 case a_s_DAL:
|
|
|
119 case a_s_THAL:
|
|
|
120 case a_s_REH:
|
|
|
121 case a_s_ZAIN:
|
|
|
122 case a_s_SEEN:
|
|
|
123 case a_s_SHEEN:
|
|
|
124 case a_s_SAD:
|
|
|
125 case a_s_DAD:
|
|
|
126 case a_s_TAH:
|
|
|
127 case a_s_ZAH:
|
|
|
128 case a_s_AIN:
|
|
|
129 case a_s_GHAIN:
|
|
|
130 case a_s_FEH:
|
|
|
131 case a_s_QAF:
|
|
|
132 case a_s_KAF:
|
|
|
133 case a_s_LAM:
|
|
|
134 case a_s_MEEM:
|
|
|
135 case a_s_NOON:
|
|
|
136 case a_s_HEH:
|
|
|
137 case a_s_WAW:
|
|
|
138 case a_s_ALEF_MAKSURA:
|
|
|
139 case a_s_YEH:
|
|
|
140 return TRUE;
|
|
|
141 }
|
|
|
142
|
|
|
143 return FALSE;
|
|
|
144 }
|
|
|
145
|
|
|
146
|
|
|
147 /*
|
|
|
148 * Returns True if c is a Final shape of an ARABIC letter
|
|
|
149 */
|
|
|
150 static int
|
|
|
151 A_is_f(cur_c)
|
|
|
152 int cur_c;
|
|
|
153 {
|
|
|
154 switch (cur_c)
|
|
|
155 {
|
|
|
156 case a_f_ALEF_MADDA:
|
|
|
157 case a_f_ALEF_HAMZA_ABOVE:
|
|
|
158 case a_f_WAW_HAMZA:
|
|
|
159 case a_f_ALEF_HAMZA_BELOW:
|
|
|
160 case a_f_YEH_HAMZA:
|
|
|
161 case a_f_ALEF:
|
|
|
162 case a_f_BEH:
|
|
|
163 case a_f_TEH_MARBUTA:
|
|
|
164 case a_f_TEH:
|
|
|
165 case a_f_THEH:
|
|
|
166 case a_f_JEEM:
|
|
|
167 case a_f_HAH:
|
|
|
168 case a_f_KHAH:
|
|
|
169 case a_f_DAL:
|
|
|
170 case a_f_THAL:
|
|
|
171 case a_f_REH:
|
|
|
172 case a_f_ZAIN:
|
|
|
173 case a_f_SEEN:
|
|
|
174 case a_f_SHEEN:
|
|
|
175 case a_f_SAD:
|
|
|
176 case a_f_DAD:
|
|
|
177 case a_f_TAH:
|
|
|
178 case a_f_ZAH:
|
|
|
179 case a_f_AIN:
|
|
|
180 case a_f_GHAIN:
|
|
|
181 case a_f_FEH:
|
|
|
182 case a_f_QAF:
|
|
|
183 case a_f_KAF:
|
|
|
184 case a_f_LAM:
|
|
|
185 case a_f_MEEM:
|
|
|
186 case a_f_NOON:
|
|
|
187 case a_f_HEH:
|
|
|
188 case a_f_WAW:
|
|
|
189 case a_f_ALEF_MAKSURA:
|
|
|
190 case a_f_YEH:
|
|
|
191 case a_f_LAM_ALEF_MADDA_ABOVE:
|
|
|
192 case a_f_LAM_ALEF_HAMZA_ABOVE:
|
|
|
193 case a_f_LAM_ALEF_HAMZA_BELOW:
|
|
|
194 case a_f_LAM_ALEF:
|
|
|
195 return TRUE;
|
|
|
196 }
|
|
|
197 return FALSE;
|
|
|
198 }
|
|
|
199
|
|
|
200
|
|
|
201 /*
|
|
|
202 * Change shape - from ISO-8859-6/Isolated to Form-B Isolated
|
|
|
203 */
|
|
|
204 static int
|
|
|
205 chg_c_a2s(cur_c)
|
|
|
206 int cur_c;
|
|
|
207 {
|
|
|
208 int tempc;
|
|
|
209
|
|
|
210 switch (cur_c)
|
|
|
211 {
|
|
|
212 case a_HAMZA:
|
|
|
213 tempc = a_s_HAMZA;
|
|
|
214 break;
|
|
|
215 case a_ALEF_MADDA:
|
|
|
216 tempc = a_s_ALEF_MADDA;
|
|
|
217 break;
|
|
|
218 case a_ALEF_HAMZA_ABOVE:
|
|
|
219 tempc = a_s_ALEF_HAMZA_ABOVE;
|
|
|
220 break;
|
|
|
221 case a_WAW_HAMZA:
|
|
|
222 tempc = a_s_WAW_HAMZA;
|
|
|
223 break;
|
|
|
224 case a_ALEF_HAMZA_BELOW:
|
|
|
225 tempc = a_s_ALEF_HAMZA_BELOW;
|
|
|
226 break;
|
|
|
227 case a_YEH_HAMZA:
|
|
|
228 tempc = a_s_YEH_HAMZA;
|
|
|
229 break;
|
|
|
230 case a_ALEF:
|
|
|
231 tempc = a_s_ALEF;
|
|
|
232 break;
|
|
|
233 case a_TEH_MARBUTA:
|
|
|
234 tempc = a_s_TEH_MARBUTA;
|
|
|
235 break;
|
|
|
236 case a_DAL:
|
|
|
237 tempc = a_s_DAL;
|
|
|
238 break;
|
|
|
239 case a_THAL:
|
|
|
240 tempc = a_s_THAL;
|
|
|
241 break;
|
|
|
242 case a_REH:
|
|
|
243 tempc = a_s_REH;
|
|
|
244 break;
|
|
|
245 case a_ZAIN:
|
|
|
246 tempc = a_s_ZAIN;
|
|
|
247 break;
|
|
|
248 case a_TATWEEL: /* exceptions */
|
|
|
249 tempc = cur_c;
|
|
|
250 break;
|
|
|
251 case a_WAW:
|
|
|
252 tempc = a_s_WAW;
|
|
|
253 break;
|
|
|
254 case a_ALEF_MAKSURA:
|
|
|
255 tempc = a_s_ALEF_MAKSURA;
|
|
|
256 break;
|
|
|
257 case a_BEH:
|
|
|
258 tempc = a_s_BEH;
|
|
|
259 break;
|
|
|
260 case a_TEH:
|
|
|
261 tempc = a_s_TEH;
|
|
|
262 break;
|
|
|
263 case a_THEH:
|
|
|
264 tempc = a_s_THEH;
|
|
|
265 break;
|
|
|
266 case a_JEEM:
|
|
|
267 tempc = a_s_JEEM;
|
|
|
268 break;
|
|
|
269 case a_HAH:
|
|
|
270 tempc = a_s_HAH;
|
|
|
271 break;
|
|
|
272 case a_KHAH:
|
|
|
273 tempc = a_s_KHAH;
|
|
|
274 break;
|
|
|
275 case a_SEEN:
|
|
|
276 tempc = a_s_SEEN;
|
|
|
277 break;
|
|
|
278 case a_SHEEN:
|
|
|
279 tempc = a_s_SHEEN;
|
|
|
280 break;
|
|
|
281 case a_SAD:
|
|
|
282 tempc = a_s_SAD;
|
|
|
283 break;
|
|
|
284 case a_DAD:
|
|
|
285 tempc = a_s_DAD;
|
|
|
286 break;
|
|
|
287 case a_TAH:
|
|
|
288 tempc = a_s_TAH;
|
|
|
289 break;
|
|
|
290 case a_ZAH:
|
|
|
291 tempc = a_s_ZAH;
|
|
|
292 break;
|
|
|
293 case a_AIN:
|
|
|
294 tempc = a_s_AIN;
|
|
|
295 break;
|
|
|
296 case a_GHAIN:
|
|
|
297 tempc = a_s_GHAIN;
|
|
|
298 break;
|
|
|
299 case a_FEH:
|
|
|
300 tempc = a_s_FEH;
|
|
|
301 break;
|
|
|
302 case a_QAF:
|
|
|
303 tempc = a_s_QAF;
|
|
|
304 break;
|
|
|
305 case a_KAF:
|
|
|
306 tempc = a_s_KAF;
|
|
|
307 break;
|
|
|
308 case a_LAM:
|
|
|
309 tempc = a_s_LAM;
|
|
|
310 break;
|
|
|
311 case a_MEEM:
|
|
|
312 tempc = a_s_MEEM;
|
|
|
313 break;
|
|
|
314 case a_NOON:
|
|
|
315 tempc = a_s_NOON;
|
|
|
316 break;
|
|
|
317 case a_HEH:
|
|
|
318 tempc = a_s_HEH;
|
|
|
319 break;
|
|
|
320 case a_YEH:
|
|
|
321 tempc = a_s_YEH;
|
|
|
322 break;
|
|
|
323 default:
|
|
|
324 tempc = 0;
|
|
|
325 }
|
|
|
326
|
|
|
327 return tempc;
|
|
|
328 }
|
|
|
329
|
|
|
330
|
|
|
331 /*
|
|
|
332 * Change shape - from ISO-8859-6/Isolated to Initial
|
|
|
333 */
|
|
|
334 static int
|
|
|
335 chg_c_a2i(cur_c)
|
|
|
336 int cur_c;
|
|
|
337 {
|
|
|
338 int tempc;
|
|
|
339
|
|
|
340 switch (cur_c)
|
|
|
341 {
|
|
|
342 case a_YEH_HAMZA:
|
|
|
343 tempc = a_i_YEH_HAMZA;
|
|
|
344 break;
|
|
|
345 case a_HAMZA: /* exceptions */
|
|
|
346 tempc = a_s_HAMZA;
|
|
|
347 break;
|
|
|
348 case a_ALEF_MADDA: /* exceptions */
|
|
|
349 tempc = a_s_ALEF_MADDA;
|
|
|
350 break;
|
|
|
351 case a_ALEF_HAMZA_ABOVE: /* exceptions */
|
|
|
352 tempc = a_s_ALEF_HAMZA_ABOVE;
|
|
|
353 break;
|
|
|
354 case a_WAW_HAMZA: /* exceptions */
|
|
|
355 tempc = a_s_WAW_HAMZA;
|
|
|
356 break;
|
|
|
357 case a_ALEF_HAMZA_BELOW: /* exceptions */
|
|
|
358 tempc = a_s_ALEF_HAMZA_BELOW;
|
|
|
359 break;
|
|
|
360 case a_ALEF: /* exceptions */
|
|
|
361 tempc = a_s_ALEF;
|
|
|
362 break;
|
|
|
363 case a_TEH_MARBUTA: /* exceptions */
|
|
|
364 tempc = a_s_TEH_MARBUTA;
|
|
|
365 break;
|
|
|
366 case a_DAL: /* exceptions */
|
|
|
367 tempc = a_s_DAL;
|
|
|
368 break;
|
|
|
369 case a_THAL: /* exceptions */
|
|
|
370 tempc = a_s_THAL;
|
|
|
371 break;
|
|
|
372 case a_REH: /* exceptions */
|
|
|
373 tempc = a_s_REH;
|
|
|
374 break;
|
|
|
375 case a_ZAIN: /* exceptions */
|
|
|
376 tempc = a_s_ZAIN;
|
|
|
377 break;
|
|
|
378 case a_TATWEEL: /* exceptions */
|
|
|
379 tempc = cur_c;
|
|
|
380 break;
|
|
|
381 case a_WAW: /* exceptions */
|
|
|
382 tempc = a_s_WAW;
|
|
|
383 break;
|
|
|
384 case a_ALEF_MAKSURA: /* exceptions */
|
|
|
385 tempc = a_s_ALEF_MAKSURA;
|
|
|
386 break;
|
|
|
387 case a_BEH:
|
|
|
388 tempc = a_i_BEH;
|
|
|
389 break;
|
|
|
390 case a_TEH:
|
|
|
391 tempc = a_i_TEH;
|
|
|
392 break;
|
|
|
393 case a_THEH:
|
|
|
394 tempc = a_i_THEH;
|
|
|
395 break;
|
|
|
396 case a_JEEM:
|
|
|
397 tempc = a_i_JEEM;
|
|
|
398 break;
|
|
|
399 case a_HAH:
|
|
|
400 tempc = a_i_HAH;
|
|
|
401 break;
|
|
|
402 case a_KHAH:
|
|
|
403 tempc = a_i_KHAH;
|
|
|
404 break;
|
|
|
405 case a_SEEN:
|
|
|
406 tempc = a_i_SEEN;
|
|
|
407 break;
|
|
|
408 case a_SHEEN:
|
|
|
409 tempc = a_i_SHEEN;
|
|
|
410 break;
|
|
|
411 case a_SAD:
|
|
|
412 tempc = a_i_SAD;
|
|
|
413 break;
|
|
|
414 case a_DAD:
|
|
|
415 tempc = a_i_DAD;
|
|
|
416 break;
|
|
|
417 case a_TAH:
|
|
|
418 tempc = a_i_TAH;
|
|
|
419 break;
|
|
|
420 case a_ZAH:
|
|
|
421 tempc = a_i_ZAH;
|
|
|
422 break;
|
|
|
423 case a_AIN:
|
|
|
424 tempc = a_i_AIN;
|
|
|
425 break;
|
|
|
426 case a_GHAIN:
|
|
|
427 tempc = a_i_GHAIN;
|
|
|
428 break;
|
|
|
429 case a_FEH:
|
|
|
430 tempc = a_i_FEH;
|
|
|
431 break;
|
|
|
432 case a_QAF:
|
|
|
433 tempc = a_i_QAF;
|
|
|
434 break;
|
|
|
435 case a_KAF:
|
|
|
436 tempc = a_i_KAF;
|
|
|
437 break;
|
|
|
438 case a_LAM:
|
|
|
439 tempc = a_i_LAM;
|
|
|
440 break;
|
|
|
441 case a_MEEM:
|
|
|
442 tempc = a_i_MEEM;
|
|
|
443 break;
|
|
|
444 case a_NOON:
|
|
|
445 tempc = a_i_NOON;
|
|
|
446 break;
|
|
|
447 case a_HEH:
|
|
|
448 tempc = a_i_HEH;
|
|
|
449 break;
|
|
|
450 case a_YEH:
|
|
|
451 tempc = a_i_YEH;
|
|
|
452 break;
|
|
|
453 default:
|
|
|
454 tempc = 0;
|
|
|
455 }
|
|
|
456
|
|
|
457 return tempc;
|
|
|
458 }
|
|
|
459
|
|
|
460
|
|
|
461 /*
|
|
|
462 * Change shape - from ISO-8859-6/Isolated to Medial
|
|
|
463 */
|
|
|
464 static int
|
|
|
465 chg_c_a2m(cur_c)
|
|
|
466 int cur_c;
|
|
|
467 {
|
|
|
468 int tempc;
|
|
|
469
|
|
|
470 switch (cur_c)
|
|
|
471 {
|
|
|
472 case a_HAMZA: /* exception */
|
|
|
473 tempc = a_s_HAMZA;
|
|
|
474 break;
|
|
|
475 case a_ALEF_MADDA: /* exception */
|
|
|
476 tempc = a_f_ALEF_MADDA;
|
|
|
477 break;
|
|
|
478 case a_ALEF_HAMZA_ABOVE: /* exception */
|
|
|
479 tempc = a_f_ALEF_HAMZA_ABOVE;
|
|
|
480 break;
|
|
|
481 case a_WAW_HAMZA: /* exception */
|
|
|
482 tempc = a_f_WAW_HAMZA;
|
|
|
483 break;
|
|
|
484 case a_ALEF_HAMZA_BELOW: /* exception */
|
|
|
485 tempc = a_f_ALEF_HAMZA_BELOW;
|
|
|
486 break;
|
|
|
487 case a_YEH_HAMZA:
|
|
|
488 tempc = a_m_YEH_HAMZA;
|
|
|
489 break;
|
|
|
490 case a_ALEF: /* exception */
|
|
|
491 tempc = a_f_ALEF;
|
|
|
492 break;
|
|
|
493 case a_BEH:
|
|
|
494 tempc = a_m_BEH;
|
|
|
495 break;
|
|
|
496 case a_TEH_MARBUTA: /* exception */
|
|
|
497 tempc = a_f_TEH_MARBUTA;
|
|
|
498 break;
|
|
|
499 case a_TEH:
|
|
|
500 tempc = a_m_TEH;
|
|
|
501 break;
|
|
|
502 case a_THEH:
|
|
|
503 tempc = a_m_THEH;
|
|
|
504 break;
|
|
|
505 case a_JEEM:
|
|
|
506 tempc = a_m_JEEM;
|
|
|
507 break;
|
|
|
508 case a_HAH:
|
|
|
509 tempc = a_m_HAH;
|
|
|
510 break;
|
|
|
511 case a_KHAH:
|
|
|
512 tempc = a_m_KHAH;
|
|
|
513 break;
|
|
|
514 case a_DAL: /* exception */
|
|
|
515 tempc = a_f_DAL;
|
|
|
516 break;
|
|
|
517 case a_THAL: /* exception */
|
|
|
518 tempc = a_f_THAL;
|
|
|
519 break;
|
|
|
520 case a_REH: /* exception */
|
|
|
521 tempc = a_f_REH;
|
|
|
522 break;
|
|
|
523 case a_ZAIN: /* exception */
|
|
|
524 tempc = a_f_ZAIN;
|
|
|
525 break;
|
|
|
526 case a_SEEN:
|
|
|
527 tempc = a_m_SEEN;
|
|
|
528 break;
|
|
|
529 case a_SHEEN:
|
|
|
530 tempc = a_m_SHEEN;
|
|
|
531 break;
|
|
|
532 case a_SAD:
|
|
|
533 tempc = a_m_SAD;
|
|
|
534 break;
|
|
|
535 case a_DAD:
|
|
|
536 tempc = a_m_DAD;
|
|
|
537 break;
|
|
|
538 case a_TAH:
|
|
|
539 tempc = a_m_TAH;
|
|
|
540 break;
|
|
|
541 case a_ZAH:
|
|
|
542 tempc = a_m_ZAH;
|
|
|
543 break;
|
|
|
544 case a_AIN:
|
|
|
545 tempc = a_m_AIN;
|
|
|
546 break;
|
|
|
547 case a_GHAIN:
|
|
|
548 tempc = a_m_GHAIN;
|
|
|
549 break;
|
|
|
550 case a_TATWEEL: /* exception */
|
|
|
551 tempc = cur_c;
|
|
|
552 break;
|
|
|
553 case a_FEH:
|
|
|
554 tempc = a_m_FEH;
|
|
|
555 break;
|
|
|
556 case a_QAF:
|
|
|
557 tempc = a_m_QAF;
|
|
|
558 break;
|
|
|
559 case a_KAF:
|
|
|
560 tempc = a_m_KAF;
|
|
|
561 break;
|
|
|
562 case a_LAM:
|
|
|
563 tempc = a_m_LAM;
|
|
|
564 break;
|
|
|
565 case a_MEEM:
|
|
|
566 tempc = a_m_MEEM;
|
|
|
567 break;
|
|
|
568 case a_NOON:
|
|
|
569 tempc = a_m_NOON;
|
|
|
570 break;
|
|
|
571 case a_HEH:
|
|
|
572 tempc = a_m_HEH;
|
|
|
573 break;
|
|
|
574 case a_WAW: /* exception */
|
|
|
575 tempc = a_f_WAW;
|
|
|
576 break;
|
|
|
577 case a_ALEF_MAKSURA: /* exception */
|
|
|
578 tempc = a_f_ALEF_MAKSURA;
|
|
|
579 break;
|
|
|
580 case a_YEH:
|
|
|
581 tempc = a_m_YEH;
|
|
|
582 break;
|
|
|
583 default:
|
|
|
584 tempc = 0;
|
|
|
585 }
|
|
|
586
|
|
|
587 return tempc;
|
|
|
588 }
|
|
|
589
|
|
|
590
|
|
|
591 /*
|
|
|
592 * Change shape - from ISO-8859-6/Isolated to final
|
|
|
593 */
|
|
|
594 static int
|
|
|
595 chg_c_a2f(cur_c)
|
|
|
596 int cur_c;
|
|
|
597 {
|
|
|
598 int tempc;
|
|
|
599
|
|
|
600 /* NOTE: these encodings need to be accounted for
|
|
|
601
|
|
|
602 a_f_ALEF_MADDA;
|
|
|
603 a_f_ALEF_HAMZA_ABOVE;
|
|
|
604 a_f_ALEF_HAMZA_BELOW;
|
|
|
605 a_f_LAM_ALEF_MADDA_ABOVE;
|
|
|
606 a_f_LAM_ALEF_HAMZA_ABOVE;
|
|
|
607 a_f_LAM_ALEF_HAMZA_BELOW;
|
|
|
608 */
|
|
|
609
|
|
|
610 switch (cur_c)
|
|
|
611 {
|
|
|
612 case a_HAMZA: /* exception */
|
|
|
613 tempc = a_s_HAMZA;
|
|
|
614 break;
|
|
|
615 case a_ALEF_MADDA:
|
|
|
616 tempc = a_f_ALEF_MADDA;
|
|
|
617 break;
|
|
|
618 case a_ALEF_HAMZA_ABOVE:
|
|
|
619 tempc = a_f_ALEF_HAMZA_ABOVE;
|
|
|
620 break;
|
|
|
621 case a_WAW_HAMZA:
|
|
|
622 tempc = a_f_WAW_HAMZA;
|
|
|
623 break;
|
|
|
624 case a_ALEF_HAMZA_BELOW:
|
|
|
625 tempc = a_f_ALEF_HAMZA_BELOW;
|
|
|
626 break;
|
|
|
627 case a_YEH_HAMZA:
|
|
|
628 tempc = a_f_YEH_HAMZA;
|
|
|
629 break;
|
|
|
630 case a_ALEF:
|
|
|
631 tempc = a_f_ALEF;
|
|
|
632 break;
|
|
|
633 case a_BEH:
|
|
|
634 tempc = a_f_BEH;
|
|
|
635 break;
|
|
|
636 case a_TEH_MARBUTA:
|
|
|
637 tempc = a_f_TEH_MARBUTA;
|
|
|
638 break;
|
|
|
639 case a_TEH:
|
|
|
640 tempc = a_f_TEH;
|
|
|
641 break;
|
|
|
642 case a_THEH:
|
|
|
643 tempc = a_f_THEH;
|
|
|
644 break;
|
|
|
645 case a_JEEM:
|
|
|
646 tempc = a_f_JEEM;
|
|
|
647 break;
|
|
|
648 case a_HAH:
|
|
|
649 tempc = a_f_HAH;
|
|
|
650 break;
|
|
|
651 case a_KHAH:
|
|
|
652 tempc = a_f_KHAH;
|
|
|
653 break;
|
|
|
654 case a_DAL:
|
|
|
655 tempc = a_f_DAL;
|
|
|
656 break;
|
|
|
657 case a_THAL:
|
|
|
658 tempc = a_f_THAL;
|
|
|
659 break;
|
|
|
660 case a_REH:
|
|
|
661 tempc = a_f_REH;
|
|
|
662 break;
|
|
|
663 case a_ZAIN:
|
|
|
664 tempc = a_f_ZAIN;
|
|
|
665 break;
|
|
|
666 case a_SEEN:
|
|
|
667 tempc = a_f_SEEN;
|
|
|
668 break;
|
|
|
669 case a_SHEEN:
|
|
|
670 tempc = a_f_SHEEN;
|
|
|
671 break;
|
|
|
672 case a_SAD:
|
|
|
673 tempc = a_f_SAD;
|
|
|
674 break;
|
|
|
675 case a_DAD:
|
|
|
676 tempc = a_f_DAD;
|
|
|
677 break;
|
|
|
678 case a_TAH:
|
|
|
679 tempc = a_f_TAH;
|
|
|
680 break;
|
|
|
681 case a_ZAH:
|
|
|
682 tempc = a_f_ZAH;
|
|
|
683 break;
|
|
|
684 case a_AIN:
|
|
|
685 tempc = a_f_AIN;
|
|
|
686 break;
|
|
|
687 case a_GHAIN:
|
|
|
688 tempc = a_f_GHAIN;
|
|
|
689 break;
|
|
|
690 case a_TATWEEL: /* exception */
|
|
|
691 tempc = cur_c;
|
|
|
692 break;
|
|
|
693 case a_FEH:
|
|
|
694 tempc = a_f_FEH;
|
|
|
695 break;
|
|
|
696 case a_QAF:
|
|
|
697 tempc = a_f_QAF;
|
|
|
698 break;
|
|
|
699 case a_KAF:
|
|
|
700 tempc = a_f_KAF;
|
|
|
701 break;
|
|
|
702 case a_LAM:
|
|
|
703 tempc = a_f_LAM;
|
|
|
704 break;
|
|
|
705 case a_MEEM:
|
|
|
706 tempc = a_f_MEEM;
|
|
|
707 break;
|
|
|
708 case a_NOON:
|
|
|
709 tempc = a_f_NOON;
|
|
|
710 break;
|
|
|
711 case a_HEH:
|
|
|
712 tempc = a_f_HEH;
|
|
|
713 break;
|
|
|
714 case a_WAW:
|
|
|
715 tempc = a_f_WAW;
|
|
|
716 break;
|
|
|
717 case a_ALEF_MAKSURA:
|
|
|
718 tempc = a_f_ALEF_MAKSURA;
|
|
|
719 break;
|
|
|
720 case a_YEH:
|
|
|
721 tempc = a_f_YEH;
|
|
|
722 break;
|
|
|
723 default:
|
|
|
724 tempc = 0;
|
|
|
725 }
|
|
|
726
|
|
|
727 return tempc;
|
|
|
728 }
|
|
|
729
|
|
|
730
|
|
|
731 /*
|
|
|
732 * Change shape - from Initial to Medial
|
|
|
733 */
|
|
|
734 static int
|
|
|
735 chg_c_i2m(cur_c)
|
|
|
736 int cur_c;
|
|
|
737 {
|
|
|
738 int tempc;
|
|
|
739
|
|
|
740 switch (cur_c)
|
|
|
741 {
|
|
|
742 case a_i_YEH_HAMZA:
|
|
|
743 tempc = a_m_YEH_HAMZA;
|
|
|
744 break;
|
|
|
745 case a_i_BEH:
|
|
|
746 tempc = a_m_BEH;
|
|
|
747 break;
|
|
|
748 case a_i_TEH:
|
|
|
749 tempc = a_m_TEH;
|
|
|
750 break;
|
|
|
751 case a_i_THEH:
|
|
|
752 tempc = a_m_THEH;
|
|
|
753 break;
|
|
|
754 case a_i_JEEM:
|
|
|
755 tempc = a_m_JEEM;
|
|
|
756 break;
|
|
|
757 case a_i_HAH:
|
|
|
758 tempc = a_m_HAH;
|
|
|
759 break;
|
|
|
760 case a_i_KHAH:
|
|
|
761 tempc = a_m_KHAH;
|
|
|
762 break;
|
|
|
763 case a_i_SEEN:
|
|
|
764 tempc = a_m_SEEN;
|
|
|
765 break;
|
|
|
766 case a_i_SHEEN:
|
|
|
767 tempc = a_m_SHEEN;
|
|
|
768 break;
|
|
|
769 case a_i_SAD:
|
|
|
770 tempc = a_m_SAD;
|
|
|
771 break;
|
|
|
772 case a_i_DAD:
|
|
|
773 tempc = a_m_DAD;
|
|
|
774 break;
|
|
|
775 case a_i_TAH:
|
|
|
776 tempc = a_m_TAH;
|
|
|
777 break;
|
|
|
778 case a_i_ZAH:
|
|
|
779 tempc = a_m_ZAH;
|
|
|
780 break;
|
|
|
781 case a_i_AIN:
|
|
|
782 tempc = a_m_AIN;
|
|
|
783 break;
|
|
|
784 case a_i_GHAIN:
|
|
|
785 tempc = a_m_GHAIN;
|
|
|
786 break;
|
|
|
787 case a_i_FEH:
|
|
|
788 tempc = a_m_FEH;
|
|
|
789 break;
|
|
|
790 case a_i_QAF:
|
|
|
791 tempc = a_m_QAF;
|
|
|
792 break;
|
|
|
793 case a_i_KAF:
|
|
|
794 tempc = a_m_KAF;
|
|
|
795 break;
|
|
|
796 case a_i_LAM:
|
|
|
797 tempc = a_m_LAM;
|
|
|
798 break;
|
|
|
799 case a_i_MEEM:
|
|
|
800 tempc = a_m_MEEM;
|
|
|
801 break;
|
|
|
802 case a_i_NOON:
|
|
|
803 tempc = a_m_NOON;
|
|
|
804 break;
|
|
|
805 case a_i_HEH:
|
|
|
806 tempc = a_m_HEH;
|
|
|
807 break;
|
|
|
808 case a_i_YEH:
|
|
|
809 tempc = a_m_YEH;
|
|
|
810 break;
|
|
|
811 default:
|
|
|
812 tempc = 0;
|
|
|
813 }
|
|
|
814
|
|
|
815 return tempc;
|
|
|
816 }
|
|
|
817
|
|
|
818
|
|
|
819 /*
|
|
|
820 * Change shape - from Final to Medial
|
|
|
821 */
|
|
|
822 static int
|
|
|
823 chg_c_f2m(cur_c)
|
|
|
824 int cur_c;
|
|
|
825 {
|
|
|
826 int tempc;
|
|
|
827
|
|
|
828 switch (cur_c)
|
|
|
829 {
|
|
|
830 /* NOTE: these encodings are multi-positional, no ?
|
|
|
831 case a_f_ALEF_MADDA:
|
|
|
832 case a_f_ALEF_HAMZA_ABOVE:
|
|
|
833 case a_f_ALEF_HAMZA_BELOW:
|
|
|
834 */
|
|
|
835 case a_f_YEH_HAMZA:
|
|
|
836 tempc = a_m_YEH_HAMZA;
|
|
|
837 break;
|
|
|
838 case a_f_WAW_HAMZA: /* exceptions */
|
|
|
839 case a_f_ALEF:
|
|
|
840 case a_f_TEH_MARBUTA:
|
|
|
841 case a_f_DAL:
|
|
|
842 case a_f_THAL:
|
|
|
843 case a_f_REH:
|
|
|
844 case a_f_ZAIN:
|
|
|
845 case a_f_WAW:
|
|
|
846 case a_f_ALEF_MAKSURA:
|
|
|
847 tempc = cur_c;
|
|
|
848 break;
|
|
|
849 case a_f_BEH:
|
|
|
850 tempc = a_m_BEH;
|
|
|
851 break;
|
|
|
852 case a_f_TEH:
|
|
|
853 tempc = a_m_TEH;
|
|
|
854 break;
|
|
|
855 case a_f_THEH:
|
|
|
856 tempc = a_m_THEH;
|
|
|
857 break;
|
|
|
858 case a_f_JEEM:
|
|
|
859 tempc = a_m_JEEM;
|
|
|
860 break;
|
|
|
861 case a_f_HAH:
|
|
|
862 tempc = a_m_HAH;
|
|
|
863 break;
|
|
|
864 case a_f_KHAH:
|
|
|
865 tempc = a_m_KHAH;
|
|
|
866 break;
|
|
|
867 case a_f_SEEN:
|
|
|
868 tempc = a_m_SEEN;
|
|
|
869 break;
|
|
|
870 case a_f_SHEEN:
|
|
|
871 tempc = a_m_SHEEN;
|
|
|
872 break;
|
|
|
873 case a_f_SAD:
|
|
|
874 tempc = a_m_SAD;
|
|
|
875 break;
|
|
|
876 case a_f_DAD:
|
|
|
877 tempc = a_m_DAD;
|
|
|
878 break;
|
|
|
879 case a_f_TAH:
|
|
|
880 tempc = a_m_TAH;
|
|
|
881 break;
|
|
|
882 case a_f_ZAH:
|
|
|
883 tempc = a_m_ZAH;
|
|
|
884 break;
|
|
|
885 case a_f_AIN:
|
|
|
886 tempc = a_m_AIN;
|
|
|
887 break;
|
|
|
888 case a_f_GHAIN:
|
|
|
889 tempc = a_m_GHAIN;
|
|
|
890 break;
|
|
|
891 case a_f_FEH:
|
|
|
892 tempc = a_m_FEH;
|
|
|
893 break;
|
|
|
894 case a_f_QAF:
|
|
|
895 tempc = a_m_QAF;
|
|
|
896 break;
|
|
|
897 case a_f_KAF:
|
|
|
898 tempc = a_m_KAF;
|
|
|
899 break;
|
|
|
900 case a_f_LAM:
|
|
|
901 tempc = a_m_LAM;
|
|
|
902 break;
|
|
|
903 case a_f_MEEM:
|
|
|
904 tempc = a_m_MEEM;
|
|
|
905 break;
|
|
|
906 case a_f_NOON:
|
|
|
907 tempc = a_m_NOON;
|
|
|
908 break;
|
|
|
909 case a_f_HEH:
|
|
|
910 tempc = a_m_HEH;
|
|
|
911 break;
|
|
|
912 case a_f_YEH:
|
|
|
913 tempc = a_m_YEH;
|
|
|
914 break;
|
|
|
915 /* NOTE: these encodings are multi-positional, no ?
|
|
|
916 case a_f_LAM_ALEF_MADDA_ABOVE:
|
|
|
917 case a_f_LAM_ALEF_HAMZA_ABOVE:
|
|
|
918 case a_f_LAM_ALEF_HAMZA_BELOW:
|
|
|
919 case a_f_LAM_ALEF:
|
|
|
920 */
|
|
|
921 default:
|
|
|
922 tempc = 0;
|
|
|
923 }
|
|
|
924
|
|
|
925 return tempc;
|
|
|
926 }
|
|
|
927
|
|
|
928
|
|
|
929 /*
|
|
|
930 * Change shape - from Combination (2 char) to an Isolated
|
|
|
931 */
|
|
|
932 static int
|
|
|
933 chg_c_laa2i(hid_c)
|
|
|
934 int hid_c;
|
|
|
935 {
|
|
|
936 int tempc;
|
|
|
937
|
|
|
938 switch (hid_c)
|
|
|
939 {
|
|
|
940 case a_ALEF_MADDA:
|
|
|
941 tempc = a_s_LAM_ALEF_MADDA_ABOVE;
|
|
|
942 break;
|
|
|
943 case a_ALEF_HAMZA_ABOVE:
|
|
|
944 tempc = a_s_LAM_ALEF_HAMZA_ABOVE;
|
|
|
945 break;
|
|
|
946 case a_ALEF_HAMZA_BELOW:
|
|
|
947 tempc = a_s_LAM_ALEF_HAMZA_BELOW;
|
|
|
948 break;
|
|
|
949 case a_ALEF:
|
|
|
950 tempc = a_s_LAM_ALEF;
|
|
|
951 break;
|
|
|
952 default:
|
|
|
953 tempc = 0;
|
|
|
954 }
|
|
|
955
|
|
|
956 return tempc;
|
|
|
957 }
|
|
|
958
|
|
|
959
|
|
|
960 /*
|
|
|
961 * Change shape - from Combination-Isolated to Final
|
|
|
962 */
|
|
|
963 static int
|
|
|
964 chg_c_laa2f(hid_c)
|
|
|
965 int hid_c;
|
|
|
966 {
|
|
|
967 int tempc;
|
|
|
968
|
|
|
969 switch (hid_c)
|
|
|
970 {
|
|
|
971 case a_ALEF_MADDA:
|
|
|
972 tempc = a_f_LAM_ALEF_MADDA_ABOVE;
|
|
|
973 break;
|
|
|
974 case a_ALEF_HAMZA_ABOVE:
|
|
|
975 tempc = a_f_LAM_ALEF_HAMZA_ABOVE;
|
|
|
976 break;
|
|
|
977 case a_ALEF_HAMZA_BELOW:
|
|
|
978 tempc = a_f_LAM_ALEF_HAMZA_BELOW;
|
|
|
979 break;
|
|
|
980 case a_ALEF:
|
|
|
981 tempc = a_f_LAM_ALEF;
|
|
|
982 break;
|
|
|
983 default:
|
|
|
984 tempc = 0;
|
|
|
985 }
|
|
|
986
|
|
|
987 return tempc;
|
|
|
988 }
|
|
|
989
|
|
|
990 /*
|
|
|
991 * Do "half-shaping" on character "c". Return zero if no shaping.
|
|
|
992 */
|
|
|
993 static int
|
|
|
994 half_shape(c)
|
|
|
995 int c;
|
|
|
996 {
|
|
|
997 if (A_is_a(c))
|
|
|
998 return chg_c_a2i(c);
|
|
|
999 if (A_is_valid(c) && A_is_f(c))
|
|
|
1000 return chg_c_f2m(c);
|
|
|
1001 return 0;
|
|
|
1002 }
|
|
|
1003
|
|
|
1004 /*
|
|
|
1005 * Do Arabic shaping on character "c". Returns the shaped character.
|
|
|
1006 * out: "ccp" points to the first byte of the character to be shaped.
|
|
|
1007 * in/out: "c1p" points to the first composing char for "c".
|
|
|
1008 * in: "prev_c" is the previous character (not shaped)
|
|
|
1009 * in: "prev_c1" is the first composing char for the previous char
|
|
|
1010 * (not shaped)
|
|
|
1011 * in: "next_c" is the next character (not shaped).
|
|
|
1012 */
|
|
|
1013 int
|
|
|
1014 arabic_shape(c, ccp, c1p, prev_c, prev_c1, next_c)
|
|
|
1015 int c;
|
|
|
1016 int *ccp;
|
|
|
1017 int *c1p;
|
|
|
1018 int prev_c;
|
|
|
1019 int prev_c1;
|
|
|
1020 int next_c;
|
|
|
1021 {
|
|
|
1022 int curr_c;
|
|
|
1023 int shape_c;
|
|
|
1024 int curr_laa;
|
|
|
1025 int prev_laa;
|
|
|
1026
|
|
|
1027 /* Deal only with Arabic character, pass back all others */
|
|
|
1028 if (!A_is_ok(c))
|
|
|
1029 return c;
|
|
|
1030
|
|
|
1031 /* half-shape current and previous character */
|
|
|
1032 shape_c = half_shape(prev_c);
|
|
|
1033
|
|
|
1034 /* Save away current character */
|
|
|
1035 curr_c = c;
|
|
|
1036
|
|
|
1037 curr_laa = A_firstc_laa(c, *c1p);
|
|
|
1038 prev_laa = A_firstc_laa(prev_c, prev_c1);
|
|
|
1039
|
|
|
1040 if (curr_laa)
|
|
|
1041 {
|
|
|
1042 if (A_is_valid(prev_c) && !A_is_f(shape_c)
|
|
|
1043 && !A_is_s(shape_c) && !prev_laa)
|
|
|
1044 curr_c = chg_c_laa2f(curr_laa);
|
|
|
1045 else
|
|
|
1046 curr_c = chg_c_laa2i(curr_laa);
|
|
|
1047
|
|
|
1048 /* Remove the composing character */
|
|
|
1049 *c1p = 0;
|
|
|
1050 }
|
|
|
1051 else if (!A_is_valid(prev_c) && A_is_valid(next_c))
|
|
|
1052 curr_c = chg_c_a2i(c);
|
|
|
1053 else if (!shape_c || A_is_f(shape_c) || A_is_s(shape_c) || prev_laa)
|
|
|
1054 curr_c = A_is_valid(next_c) ? chg_c_a2i(c) : chg_c_a2s(c);
|
|
|
1055 else if (A_is_valid(next_c))
|
|
|
1056 curr_c = A_is_iso(c) ? chg_c_a2m(c) : chg_c_i2m(c);
|
|
|
1057 else if (A_is_valid(prev_c))
|
|
|
1058 curr_c = chg_c_a2f(c);
|
|
|
1059 else
|
|
|
1060 curr_c = chg_c_a2s(c);
|
|
|
1061
|
|
|
1062 /* Sanity check -- curr_c should, in the future, never be 0.
|
|
|
1063 * We should, in the future, insert a fatal error here. */
|
|
|
1064 if (curr_c == NUL)
|
|
|
1065 curr_c = c;
|
|
|
1066
|
|
|
1067 if (curr_c != c && ccp != NULL)
|
|
|
1068 {
|
|
|
1069 char_u buf[MB_MAXBYTES];
|
|
|
1070
|
|
|
1071 /* Update the first byte of the character. */
|
|
|
1072 (*mb_char2bytes)(curr_c, buf);
|
|
|
1073 *ccp = buf[0];
|
|
|
1074 }
|
|
|
1075
|
|
|
1076 /* Return the shaped character */
|
|
|
1077 return curr_c;
|
|
|
1078 }
|
|
|
1079
|
|
|
1080
|
|
|
1081 /*
|
|
|
1082 * A_firstc_laa returns first character of LAA combination if it exists
|
|
|
1083 */
|
|
|
1084 static int
|
|
|
1085 A_firstc_laa(c, c1)
|
|
|
1086 int c; /* base character */
|
|
|
1087 int c1; /* first composing character */
|
|
|
1088 {
|
|
|
1089 if (c1 != NUL && c == a_LAM && !A_is_harakat(c1))
|
|
|
1090 return c1;
|
|
|
1091 return 0;
|
|
|
1092 }
|
|
|
1093
|
|
|
1094
|
|
|
1095 /*
|
|
|
1096 * A_is_harakat returns TRUE if 'c' is an Arabic Harakat character
|
|
|
1097 * (harakat/tanween)
|
|
|
1098 */
|
|
|
1099 static int
|
|
|
1100 A_is_harakat(c)
|
|
|
1101 int c;
|
|
|
1102 {
|
|
|
1103 return (c >= a_FATHATAN && c <= a_SUKUN);
|
|
|
1104 }
|
|
|
1105
|
|
|
1106
|
|
|
1107 /*
|
|
|
1108 * A_is_iso returns TRUE if 'c' is an Arabic ISO-8859-6 character
|
|
|
1109 * (alphabet/number/punctuation)
|
|
|
1110 */
|
|
|
1111 static int
|
|
|
1112 A_is_iso(c)
|
|
|
1113 int c;
|
|
|
1114 {
|
|
|
1115 return ((c >= a_HAMZA && c <= a_GHAIN)
|
|
|
1116 || (c >= a_TATWEEL && c <= a_HAMZA_BELOW)
|
|
|
1117 || c == a_MINI_ALEF);
|
|
|
1118 }
|
|
|
1119
|
|
|
1120
|
|
|
1121 /*
|
|
|
1122 * A_is_formb returns TRUE if 'c' is an Arabic 10646-1 FormB character
|
|
|
1123 * (alphabet/number/punctuation)
|
|
|
1124 */
|
|
|
1125 static int
|
|
|
1126 A_is_formb(c)
|
|
|
1127 int c;
|
|
|
1128 {
|
|
|
1129 return ((c >= a_s_FATHATAN && c <= a_s_DAMMATAN)
|
|
|
1130 || c == a_s_KASRATAN
|
|
|
1131 || (c >= a_s_FATHA && c <= a_f_LAM_ALEF)
|
|
|
1132 || c == a_BYTE_ORDER_MARK);
|
|
|
1133 }
|
|
|
1134
|
|
|
1135
|
|
|
1136 /*
|
|
|
1137 * A_is_ok returns TRUE if 'c' is an Arabic 10646 (8859-6 or Form-B)
|
|
|
1138 */
|
|
|
1139 static int
|
|
|
1140 A_is_ok(c)
|
|
|
1141 int c;
|
|
|
1142 {
|
|
|
1143 return (A_is_iso(c) || A_is_formb(c));
|
|
|
1144 }
|
|
|
1145
|
|
|
1146
|
|
|
1147 /*
|
|
|
1148 * A_is_valid returns TRUE if 'c' is an Arabic 10646 (8859-6 or Form-B)
|
|
|
1149 * with some exceptions/exclusions
|
|
|
1150 */
|
|
|
1151 static int
|
|
|
1152 A_is_valid(c)
|
|
|
1153 int c;
|
|
|
1154 {
|
|
|
1155 return (A_is_ok(c) && !A_is_special(c));
|
|
|
1156 }
|
|
|
1157
|
|
|
1158
|
|
|
1159 /*
|
|
|
1160 * A_is_special returns TRUE if 'c' is not a special Arabic character.
|
|
|
1161 * Specials don't adhere to most of the rules.
|
|
|
1162 */
|
|
|
1163 static int
|
|
|
1164 A_is_special(c)
|
|
|
1165 int c;
|
|
|
1166 {
|
|
|
1167 return (c == a_HAMZA || c == a_s_HAMZA);
|
|
|
1168 }
|
