New file

[m17n/m17n-db.git] / ARABIC.flt

diff --git a/ARABIC.flt b/ARABIC.flt
index 01e8ae9..4fb83d2 100644 (file)
--- a/ARABIC.flt
+++ b/ARABIC.flt
@@ -32,6 +32,8 @@
  (0x0643               ?n)
  (0x06AF               ?n)
  (0x06D5               ?n)
+ (0x200C               ?x)
+ (0x200D               ?x)
  )
 
 (generator
@@ -40,9 +42,10 @@
    (".*p.*"
     (cond
      (".*n.*"
-      rmhamza)
-     (0
-      < 0x0674 = > rmhamza)))
+      rmhamza *)
+     ("(.)(.*)"
+      (1 < 0x0674 rmhamza >)
+      (2 rmhamza *))))
    (0 = *)))
 
  (rmhamza
@@ -51,8 +54,7 @@
    ((0x0676)   0x0648)
    ((0x0677)   0x06C7)
    ((0x0678)   0x0649)
-   ("."                =))
-  *))
+   ("."                =))))
 
 ;; phase 2: ligatures
 (category
@@ -68,6 +70,8 @@
  (0x06E5               ?x)
  (0x06E6               ?x)
  (0x06E9               ?x)
+ (0x200C               ?x)
+ (0x200D               ?x)
  )
 
 (generator
@@ -129,7 +133,8 @@
  (0x06CC 0x06CE                ?D)
  (0x06CF               ?R)
  (0x06D0 0x06D3                ?D)
- (0x06D4 0x06D5                ?U)
+ (0x06D4               ?U)
+ (0x06D5               ?R)
  (0x06D6 0x06E4                ?T)
  (0x06E5 0x06E6                ?U)
  (0x06E7 0x06E8                ?T)
@@ -251,6 +256,7 @@
    ((0x064A)   0xFEF1)
    ((range 0x0660 0x066D)      =)
    ((0x0671)   0xFB50)
+   ((0x0674)   =)
    ((0x0677)   0xFBDD)
    ((0x0679)   0xFB66)
    ((0x067A)   0xFB5E)
@@ -291,7 +297,7 @@
    ((0x06D2)   0xFBAE)
    ((0x06D3)   0xFBB0)
    ((0x06D4)   =)
-   ((0x06D5)   =)
+   ((0x06D5)   0xFEE9)
    ((0x06E5)   =)
    ((0x06E6)   =)
    ((0x06E9)   =)
@@ -302,8 +308,8 @@
    ((0xFEF7)   =)
    ((0xFEF9)   =)
    ((0xFEFB)   =)
-   ((0x200C))
-   ((0x200D))
+   ((0x200C)   =)
+   ((0x200D)   =)
    ))
 
  (final
@@ -383,12 +389,13 @@
    ((0x06D0)   0xFBE5)
    ((0x06D2)    0xFBAF)
    ((0x06D3)   0xFBB1)
+   ((0x06D5)   0xFEEA)
    ((0xFEF5)   0xFEF6)
    ((0xFEF7)   0xFEF8)
    ((0xFEF9)   0xFEFA)
    ((0xFEFB)   0xFEFC)
-   ((0x200C))
-   ((0x200D))
+   ((0x200C)   =)
+   ((0x200D)   =)
    ))
 
  (initial
@@ -441,8 +448,8 @@
    ((0x06C1)   0xFBA8)
    ((0x06CC)   0xFBFE)
    ((0x06D0)   0xFBE6)
-   ((0x200C))
-   ((0x200D))
+   ((0x200C)   =)
+   ((0x200D)   =)
    ))
 
  (medial
@@ -495,40 +502,39 @@
    ((0x06C1)   0xFBA9)
    ((0x06CC)   0xFBFF)
    ((0x06D0)   0xFBE7)
-   ((0x200C))
-   ((0x200D))
+   ((0x200C)   =)
+   ((0x200D)   =)
    ))
 
  (combining
   (cond
+   ((0x0651 0x0650) tc+bc 0x064E tc+bc 0x0651) ; shadda + kasra
+   ((0x0651 0x064D) tc+bc 0x064B tc+bc 0x0651) ; shadda + kasratan
    ((range 0x0610 0x0615) tc+bc =)
    ((0x064B) tc+bc =)
    ((0x064C) tc+bc =)
-   ((0x064D) bc-15tc =)
+   ((0x064D) bc-tc =)
    ((0x064E) tc+bc =)
    ((0x064F) tc+bc =)
-   ((0x0650) bc-15tc =)
-   ((0x0651) tc+bc =)
-   ((0x0652) tc+bc =)
-   ((0x0653) tc+bc =)
-   ((0x0654) tc+bc =)
-   ((0x0655) bc-15tc =)
-   ((0x0656) bc-15tc =)
+   ((0x0650) bc-tc =)
+   ((range 0x0651 0x0654) tc+bc =)
+   ((0x0655) bc-tc =)
+   ((0x0656) bc-tc =)
    ((0x0657) tc+bc =)
    ((0x0658) tc+bc =)
    ((0x0670) tc+bc =)
    ((range 0x06D6 0x06DC) tc+bc =)
    ((range 0x06DF 0x06E2) tc+bc =)
-   ((0x06E3) bc-15tc =)
+   ((0x06E3) bc-tc =)
    ((0x06E4) tc+bc =)
    ((0x06E7) tc+bc =)
    ((0x06E8) tc+bc =)
-   ((0x06EA) bc-15tc =)
+   ((0x06EA) bc-tc =)
    ((0x06EB) tc+bc =)
    ((0x06EC) tc+bc =)
-   ((0x06ED) bc-15tc =)
-   ((0x200C))
-   ((0x200D))
+   ((0x06ED) bc-tc =)
+   ((0x200C)   =)
+   ((0x200D)   =)
    ))
  )