New file.

diff --git a/ARABIC-OTF.flt b/ARABIC-OTF.flt
new file mode 100644 (file)
index 0000000..f58f10a
--- /dev/null
+++ b/ARABIC-OTF.flt
@@ -0,0 +1,200 @@
+;; ARABIC-OTF.flt -- Font Layout Table for Arabic OpenType font
+;; Copyright (C) 2004
+;;   National Institute of Advanced Industrial Science and Technology (AIST)
+;;   Registration Number H15PRO112
+
+;; This file is part of the m17n database; a sub-part of the m17n
+;; library.
+
+;; The m17n library is free software; you can redistribute it and/or
+;; modify it under the terms of the GNU Lesser General Public License
+;; as published by the Free Software Foundation; either version 2.1 of
+;; the License, or (at your option) any later version.
+
+;; The m17n library is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; Lesser General Public License for more details.
+
+;; You should have received a copy of the GNU Lesser General Public
+;; License along with the m17n library; if not, write to the Free
+;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
+;; 02111-1307, USA.
+
+;;; <li> ARABIC-OTF.flt
+;;;
+;;; For Arabic OpenType fonts to draw the Arabic script.
+
+
+;; Step 0: Move Kazakh high hamza.
+
+(category
+ ;; p: high hamza carrier (p for positive)
+ ;; n: high hamza suppressor (n for negative)
+ ;; x: don't care
+ (0x0600 0x06FF                ?x)
+ (0x0674 0x0678                ?p)
+ (0x0643               ?n)
+ (0x06AF               ?n)
+ (0x06D5               ?n)
+ (0x200C               ?x)
+ (0x200D               ?x)
+ )
+
+(generator
+ (0
+  (cond
+   (".*p.*"                            ; If a high hamza is found,
+    (cond
+     (".*n.*"                          ;   and a suppressor exists,
+      rmhamza *)                       ;   then remove the high hamza.
+     (0                                        ;   Otherwise, move the high
+      0x674 rmhamza *)))               ;   hamza to the beginning.
+   (0 = *)))                           ; If no high hamza, do nothing.
+
+ (rmhamza
+  (cond
+   ((0x0674)           )
+   ((0x0675)           0x0627)
+   ((0x0676)           0x0648)
+   ((0x0677)           0x06C7)
+   ((0x0678)           0x0649)
+   ("."                        =))))
+
+;; Step 1: ccmp
+
+;; (generator
+;;  (0
+;;   otf:arab=ccmp))
+
+;; Step 2: Initial, medial, or final.
+
+(category
+ ;; D: Dual-joining (beh, teh, etc. & zwj)
+ ;; R: Right-joining (alef, dal, thal, reh, zain)
+ ;; U: Non-joining (Hamza, etc. & zwnj)
+ ;; T: Transparent (combining marks)
+ (0x060C 0x060F                ?U)
+ (0x0610 0x0615                ?T)
+ (0x061B               ?U)
+ (0x061F               ?U)
+ (0x0621               ?U)
+ (0x0622 0x0623                ?R)
+ (0x0624               ?R)
+ (0x0625               ?R)
+ (0x0626               ?D)
+ (0x0627               ?R)
+ (0x0628               ?D)
+ (0x0629               ?R)
+ (0x062A 0x062E                ?D)
+ (0x062F 0x0632                ?R)
+ (0x0633 0x0647                ?D)
+ (0x0648               ?R)
+ (0x0649 0x064A                ?D)
+ (0x064B 0x0658                ?T)
+ (0x0660 0x066D                ?U)
+ (0x066E 0x066F                ?D)
+ (0x0670               ?T)
+ (0x0671 0x0673                ?R)
+ (0x0674 0x0678                ?U)
+ (0x0679 0x0687                ?D)
+ (0x0688 0x0699                ?R)
+ (0x069A 0x06C3                ?D)
+ (0x06C4 0x06CB                ?R)
+ (0x06CC 0x06CE                ?D)
+ (0x06CF               ?R)
+ (0x06D0 0x06D3                ?D)
+ (0x06D4               ?U)
+ (0x06D5               ?R)
+ (0x06D6 0x06E4                ?T)
+ (0x06E5 0x06E6                ?U)
+ (0x06E7 0x06E8                ?T)
+ (0x06E9               ?U)
+ (0x06EA 0x06ED                ?T)
+ (0x06EE 0x06EF                ?R)
+ (0x06F0 0x06F9                ?U)
+ (0x06FA 0x06FC                ?D)
+ (0x06FD 0x06FE                ?U)
+ (0x06FF               ?D)
+ (0xFEF5               ?R)
+ (0xFEF7               ?R)
+ (0xFEF9               ?R)
+ (0xFEFB               ?R)
+ (0x200C               ?U)
+ (0x200D               ?D)
+ )
+
+(generator
+ (0
+  (cond
+   ("D.*"
+    (cond
+     ("(.)(T*)([DR].*)"
+      (1 otf:arab=init)
+      (2 = *)
+      (3 join))
+     ("(.)(T*)(.*)"                    ; == (D)(T*)(U.*)
+      (1 otf:arab=isol)
+      (2 = *)
+      (3 disjoin))))
+
+   ("([RU])(T*)(.*)"
+    (1 otf:arab=isol)
+    (2 = *)
+    (3 disjoin))
+
+   ("(T+)(.*)"
+    (1 = *)
+    (2 disjoin))))
+
+ (join
+  (cond
+   ("D.*"
+    (cond
+     ("(.)(T*)([DR].*)"
+      (1 otf:arab=medi)
+      (2 = *)
+      (3 join))
+     ("(.)(T*)(.*)"                    ; == (D)(T*)(U.*)
+      (1 otf:arab=fina)
+      (2 = *)
+      (3 disjoin))))
+
+   ("(.)(T*)(.*)"                      ; == (R)(T*)(.*)
+    (1 otf:arab=fina)
+    (2 = *)
+    (3 disjoin))))
+
+ (disjoin
+  (cond
+   ("D.*"
+    (cond
+     ("(.)(T*)([DR].*)"
+      (1 otf:arab=init)
+      (2 = *)
+      (3 join))
+     ("(.)(T*)(.*)"                    ; == (D)(T*)(U.*)
+      (1 otf:arab=isol)
+      (2 = *)
+      (3 disjoin))))
+
+   ("(.)(T*)(.*)"                      ; == ([RU])(T*)(.*)
+    (1 otf:arab=isol)
+    (2 = *)
+    (3 disjoin)))))
+
+;; Step 3: Other GSUB features (ligatures, etc.)
+
+(generator
+ (0
+  otf:arab=rlig,calt,liga,dlig,cswh,mset))
+
+;; Step 4: GPOS features.
+
+(generator
+ (0
+  otf:arab=))
+
+;; Local Variables:
+;; mode: lisp
+;; End: