1 ;; ARAB-OTF.flt -- Font Layout Table for Arabic OpenType font
2 ;; Copyright (C) 2004, 2006, 2007, 2008, 2010 AIST (H15PRO112)
3 ;; See the end for copying conditions.
5 (font layouter arab-otf nil
6 (font (nil nil unicode-bmp :otf=arab=init,medi,fina+mark)))
10 ;;; For Arabic OpenType fonts to draw the Arabic script.
12 ;; Step 0: Move Kazakh high hamza.
15 ;; p: high hamza carrier (p for positive)
16 ;; n: high hamza suppressor (n for negative)
18 ;; X: presentation form
24 (0x0750 0x077F ?x) ; Arabic Supplement
28 (0xFB50 0xFDFF ?X) ; Arabic Presentation Forms-A
29 (0xFE70 0xFEFC ?X) ; Arabic Presentation Forms-B
35 ;; If a presentation form is found, draw the whole sequence as is.
38 (".*p.*" ; If a high hamza is found,
40 (".*n.*" ; and a suppressor exists,
41 rmhamza *) ; then remove the high hamza.
42 (0 ; Otherwise, move the high
43 0x674 rmhamza *))) ; hamza to the beginning.
44 (0 = *))) ; If no high hamza, do nothing.
58 ;; D: Dual-joining (beh, teh, etc. & zwj)
59 ;; R: Right-joining (alef, dal, thal, reh, zain)
60 ;; U: Non-joining (Hamza, etc. & zwnj)
61 ;; T: Transparent (combining marks)
108 (0xFB50 0xFDFF ?X) ; Arabic Presentation Forms-A
109 (0xFE70 0xFEFC ?X) ; Arabic Presentation Forms-B
116 ;; Step 2: Initial, medial, or final.
121 (".*X.*" (cond ("[DRUX]T*" < = * >) ("." =)) *)
131 ("(.)(T*)(.*)" ; == (D)(T*)(U.*)
147 ((font-facility 0x25CC) < 0x25CC = * >)
161 ("(.)(T*)(.*)" ; == (D)(T*)(U.*)
185 ("(.)(T*)(.*)" ; == (D)(T*)(U.*)
192 ("(.)(T*)(.*)" ; == ([RU])(T*)(.*)
199 ;; Step 3: Other OTF features.
203 otf:arab=rlig,calt,liga,dlig,cswh,mset+curs,kern,mark,mkmk))
205 ;; Copyright (C) 2004, 2006, 2007, 2008
206 ;; National Institute of Advanced Industrial Science and Technology (AIST)
207 ;; Registration Number H15PRO112
209 ;; This file is part of the m17n database; a sub-part of the m17n
212 ;; The m17n library is free software; you can redistribute it and/or
213 ;; modify it under the terms of the GNU Lesser General Public License
214 ;; as published by the Free Software Foundation; either version 2.1 of
215 ;; the License, or (at your option) any later version.
217 ;; The m17n library is distributed in the hope that it will be useful,
218 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
219 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
220 ;; Lesser General Public License for more details.
222 ;; You should have received a copy of the GNU Lesser General Public
223 ;; License along with the m17n library; if not, write to the Free
224 ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA