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