1 ;; ARAB-OTF-NO-GPOS.flt -- Font Layout Table for Arabic OpenType font sans GPOS
3 ;; National Institute of Advanced Industrial Science and Technology (AIST)
4 ;; Registration Number H15PRO112
6 ;; This file is part of the m17n database; a sub-part of the m17n
9 ;; The m17n library is free software; you can redistribute it and/or
10 ;; modify it under the terms of the GNU Lesser General Public License
11 ;; as published by the Free Software Foundation; either version 2.1 of
12 ;; the License, or (at your option) any later version.
14 ;; The m17n library 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 GNU
17 ;; Lesser General Public License for more details.
19 ;; You should have received a copy of the GNU Lesser General Public
20 ;; License along with the m17n library; if not, write to the Free
21 ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
24 ;;; <li> ARAB-OTF-NO-GPOS.flt
26 ;;; For Arabic OpenType fonts that don't have GPOS table to draw the
29 ;; Step 0: Move Kazakh high hamza.
32 ;; p: high hamza carrier (p for positive)
33 ;; n: high hamza suppressor (n for negative)
43 (0xFB50 0xFDFF ?X) ; Arabic Presentation Froms-A
44 (0xFE70 0xFEFC ?X) ; Arabic Presentation Froms-B
50 ;; If a presentation from is found, draw the whole sequence as is.
53 (".*p.*" ; If a high hamza is found,
55 (".*n.*" ; and a suppressor exists,
56 rmhamza *) ; then remove the high hamza.
57 (0 ; Otherwise, move the high
58 0x674 rmhamza *))) ; hamza to the beginning.
59 (0 = *))) ; If no high hamza, do nothing.
73 ;; D: Dual-joining (beh, teh, etc. & zwj)
74 ;; R: Right-joining (alef, dal, thal, reh, zain)
75 ;; U: Non-joining (Hamza, etc. & zwnj)
76 ;; T: Transparent (combining marks)
122 (0xFB50 0xFDFF ?X) ; Arabic Presentation Froms-A
123 (0xFE70 0xFEFC ?X) ; Arabic Presentation Froms-B
130 ;; Step 2: Initial, medial, or final.
135 (".*X.*" (cond ("[DRUX]T*" < = * >) ("." =)) *)
145 ("(.)(T*)(.*)" ; == (D)(T*)(U.*)
173 ("(.)(T*)(.*)" ; == (D)(T*)(U.*)
197 ("(.)(T*)(.*)" ; == (D)(T*)(U.*)
204 ("(.)(T*)(.*)" ; == ([RU])(T*)(.*)
211 ;; Step 3: GPOS features.
216 ((0x0651 0x0650) tc+bc 0x064E tc+bc 0x0651) ; shadda + kasra
217 ((0x0651 0x064D) tc+bc 0x064B tc+bc 0x0651) ; shadda + kasratan
218 ((range 0x0610 0x0615) tc+bc =)
225 ((range 0x0651 0x0654) tc+bc =)
231 ((range 0x06D6 0x06DC) tc+bc =)
232 ((range 0x06DF 0x06E2) tc+bc =)