From 66aa9b907789a91fc6bef4113d5c567cac9a5b8e Mon Sep 17 00:00:00 2001
From: ntakahas <ntakahas>
Date: Thu, 25 Mar 2010 10:30:55 +0000
Subject: [PATCH] (reorder): Add the patters JY and HJ before pstf.

---
 FLT/ORYA-OTF.flt |   44 ++++++++++++++++++++++++++++----------------
 1 file changed, 28 insertions(+), 16 deletions(-)

diff --git a/FLT/ORYA-OTF.flt b/FLT/ORYA-OTF.flt
index de61eba..c057793 100644
--- a/FLT/ORYA-OTF.flt
+++ b/FLT/ORYA-OTF.flt
@@ -92,15 +92,15 @@
    ;; Two-part vowel signs
    ((0x0B47 0x0B56)
     (cond
-     ((font-facility 0x25CC) < 0x0B47 0x25CC 0x0B56 >)
+     ((font-facility 0x25CC) < = 0x25CC = >)
      (".+" < 0x0B48 >)))
    ((0x0B47 0x0B3E)
     (cond
-     ((font-facility 0x25CC) < 0x0B47 0x25CC 0x0B3E >)
+     ((font-facility 0x25CC) < = 0x25CC = >)
      (".+" < 0x0B4B >)))
    ((0x0B47 0x0B57)
     (cond
-     ((font-facility 0x25CC) < 0x0B47 0x25CC 0x0B57 >)
+     ((font-facility 0x25CC) < = 0x25CC = >)
      (".+" < 0x0B4C >)))
 
    ;; Combining marks are displayed with a DOTTED CIRCLE.
@@ -144,19 +144,20 @@
   *)
 
  (reorder
-  ("(.|.+[^YJ])((J?HY)*)$"
-   (1 reorder-BR) (2 reorder-Y)))
+  ("(.|.+([^YJ]|JY|HJ))((J?HY)*)$"
+   (1 reorder-BR *) (3 reorder-Y *))
+  ("(.*)(.HJ)$"
+   (1 reorder-BR) (2 = *)))
 
  (reorder-BR
   (cond
-   ("J?(H)([BR])(.*)"
-    (2 =) (1 =) (3 reorder-BR))
-   ("(.)(.*)"
-    (1 =) (2 reorder-BR))))
+   ("J?(H)([BR])"
+    (2 =) (1 =))
+   ("." =)))
 
  (reorder-Y
-  ("J?(H)(Y)(.*)"
-   (2 =) (1 =) (3 reorder-Y)))
+  ("J?(H)(Y)"
+   (2 =) (1 =)))
  )
 
 ;; Stage 3
@@ -182,14 +183,25 @@
    ("." =))
   *)
 
+ ;; Oriya should not have half forms nor vatu forms, but
+ ;; Samyak-Oriya.ttf and utkal.ttf do have them.
  (b4post
-  ("(.|.+[^YH]H?)(YH)*$"
-   (1 (cond ("(.H)(.+)" (1 :otf=orya=half+) (2 :otf=orya=blwf,half,vatu+))
- 	    (".+" :otf=orya=blwf,half,vatu+)))))
+  (cond
+   ("(.H)J?(.*)"
+    (1 :otf=orya=half+)
+    (2 ("(.|.+([^YH]|JY|[BR]H))((YH)*)$" (1 lang-forms *))))
+   ("(.|.+([^YH]|JY|[BR]H))((YH)*)"
+    (1 lang-forms *))))
+
+ (lang-forms
+  (cond
+   ("(.H)J" (1 :otf=orya=half+))
+   (".H" :otf=orya=blwf,half,vatu+)
+   ("." =)))
 
  (post
-  ("(.|.+[^YH]H?)((YH)+)$"
-   (2 :otf=orya=pstf+)))
+  ("(.|.+([^YH]|JY|[BR]H))((YH)+)$"
+   (3 :otf=orya=pstf+)))
  )
 
 ;; Stage 4
-- 
1.7.10.4