From: ntakahas <ntakahas>
Date: Tue, 2 Aug 2011 07:09:07 +0000 (+0000)
Subject: Fix the handling of LAM-ALEF.
X-Git-Tag: REL-1-6-3-RC~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d51bea4c920b2c89658c11e405e9777f3d3bb7be;p=m17n%2Fm17n-db.git

Fix the handling of LAM-ALEF.
---

diff --git a/FLT/ARAB-OTF-NO-GPOS.flt b/FLT/ARAB-OTF-NO-GPOS.flt
index 35edb4e..4e8d86f 100644
--- a/FLT/ARAB-OTF-NO-GPOS.flt
+++ b/FLT/ARAB-OTF-NO-GPOS.flt
@@ -132,20 +132,12 @@
    ;; LAM-ALEF pattern.  Move diacritcs on LAM after ALEF.  This is to
    ;; avoid loosing surrounding separators by OTF's liga or rlig
    ;; features in the next step.
-   ("L(T*)A.*"
-    (cond
-     ("(.)(T*)(A)(T*)([DLRA].*)"
-      (1 otf:arab=init)
-      (3 otf:arab=fina)
-      (2 | = * |)
-      (4 | = * |)
-      (5 join))
-     ("(.)(T*)(A)(T*)(.*)"			; == (D)(T*)(U.*)
-      (1 otf:arab=init)
-      (3 otf:arab=fina)
-      (2 | = * |)
-      (4 | = * |)
-      (5 disjoin))))
+   ("(L)(T*)(A)(T*)(.*)"
+    (1 otf:arab=init)
+    (3 otf:arab=fina)
+    (2 | = * |)
+    (4 | = * |)
+    (5 disjoin))
 
    ("[DL].*"
     (cond
@@ -173,20 +165,12 @@
  (join
   (cond
    ;; LAM-ALEF pattern.  See the above comment.
-   ("L(T*)A.*"
-    (cond
-     ("(.)(T*)(A)(T*)([DLRA].*)"
-      (1 otf:arab=medi)
-      (3 otf:arab=fina)
-      (2 | = * |)
-      (4 | = * |)
-      (5 join))
-     ("(.)(T*)(A)(T*)(.*)"			; == (D)(T*)(U.*)
-      (1 otf:arab=medi)
-      (3 otf:arab=fina)
-      (2 | = * |)
-      (4 | = * |)
-      (5 disjoin))))
+   ("(L)(T*)(A)(T*)(.*)"
+    (1 otf:arab=medi)
+    (3 otf:arab=fina)
+    (2 | = * |)
+    (4 | = * |)
+    (5 disjoin))
 
    ("[DL].*"
     (cond
@@ -207,20 +191,12 @@
  (disjoin
   (cond
    ;; LAM-ALEF pattern.  See the above comment.
-   ("L(T*)A.*"
-    (cond
-     ("(.)(T*)(A)(T*)([DLRA].*)"
-      (1 otf:arab=init)
-      (3 otf:arab=fina)
-      (2 | = * |)
-      (4 | = * |)
-      (5 join))
-     ("(.)(T*)(A)(T*)(.*)"			; == (D)(T*)(U.*)
-      (1 otf:arab=init)
-      (3 otf:arab=fina)
-      (2 | = * |)
-      (4 | = * |)
-      (5 disjoin))))
+   ("(L)(T*)(A)(T*)(.*)"
+    (1 otf:arab=init)
+    (3 otf:arab=fina)
+    (2 | = * |)
+    (4 | = * |)
+    (5 disjoin))
 
    ("[DL].*"
     (cond