From: handa <handa>
Date: Mon, 13 Sep 2004 10:59:07 +0000 (+0000)
Subject: Explicitly combine a consotant with following
X-Git-Tag: REL-1-2-0~85
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5919aa4c367f6fcb275bd1cb47dbb880a2185e1d;p=m17n%2Fm17n-db.git

Explicitly combine a consotant with following
vowels.
---

diff --git a/ARABIC-OTF.flt b/ARABIC-OTF.flt
index f58f10a..ae0d296 100644
--- a/ARABIC-OTF.flt
+++ b/ARABIC-OTF.flt
@@ -130,17 +130,23 @@
    ("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+)(.*)"
@@ -152,17 +158,23 @@
    ("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
@@ -170,17 +182,23 @@
    ("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.)