From 5390e77d847490622836c2f801b39b4159c1c531 Mon Sep 17 00:00:00 2001
From: handa <handa>
Date: Wed, 22 Sep 2004 00:11:38 +0000
Subject: [PATCH] Accept Arabic presentation forms in input.

---
 ARABIC-OTF.flt |   15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/ARABIC-OTF.flt b/ARABIC-OTF.flt
index ae0d296..bf37a15 100644
--- a/ARABIC-OTF.flt
+++ b/ARABIC-OTF.flt
@@ -39,11 +39,16 @@
  (0x06D5		?n)
  (0x200C		?x)
  (0x200D		?x)
+ (0xFB50 0xFDFF		?X)		; Arabic Presentation Froms-A
+ (0xFE70 0xFEFC		?X)		; Arabic Presentation Froms-B
  )
 
 (generator
  (0
   (cond
+   ;; If a presentation from is found, draw the whole sequence as is.
+   (".*X.*" = *)
+
    (".*p.*"				; If a high hamza is found,
     (cond
      (".*n.*"				;   and a suppressor exists,
@@ -116,17 +121,17 @@
  (0x06FA 0x06FC		?D)
  (0x06FD 0x06FE		?U)
  (0x06FF		?D)
- (0xFEF5		?R)
- (0xFEF7		?R)
- (0xFEF9		?R)
- (0xFEFB		?R)
  (0x200C		?U)
  (0x200D		?D)
+ (0xFB50 0xFDFF		?X)		; Arabic Presentation Froms-A
+ (0xFE70 0xFEFC		?X)		; Arabic Presentation Froms-B
  )
 
 (generator
  (0
   (cond
+   (".*X.*" (cond ("[DRUX]T*" < = * >) ("." =)) *)
+
    ("D.*"
     (cond
      ("(.)(T*)([DR].*)"
@@ -170,7 +175,7 @@
       >
       (3 disjoin))))
 
-   ("(.)(T*)(.*)"			; == (R)(T*)(.*)
+   ("(.)(T*)(.*)"
     <
     (1 otf:arab=fina)
     (2 = *)
-- 
1.7.10.4