From: ntakahas <ntakahas>
Date: Tue, 6 Jul 2004 05:13:54 +0000 (+0000)
Subject: Fix a very rare case (Syllables beginning with "RHRHC".)
X-Git-Tag: REL-1-1-0~65
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1b4259961476494bb2c714b79a4426619f2d6fd3;p=m17n%2Fm17n-db.git

Fix a very rare case (Syllables beginning with "RHRHC".)
---

diff --git a/GUJ-OTF.flt b/GUJ-OTF.flt
index 8bcbf82..6b6a2cf 100644
--- a/GUJ-OTF.flt
+++ b/GUJ-OTF.flt
@@ -124,15 +124,32 @@
 (generator
  (0
   (cond
-   ;; 1        2    3   4       5
-   (" ([^X ]*)X(RH)?(m)?([bup])?([Aa])? "
-    | (3 =) (1 otf:gujr=~rphf,*) (4 =) (2 otf:gujr=rphf) (5 =) |)
-
-   (" ([^X ]*)X(RH)?(HJ) "
-    | (1 = *) (2 otf:gujr=rphf) (3 = =) |)
-
-   (" ([^X ]*)X(RH)?(H)N "
-    | (1 otf:gujr=~rphf,*) (2 otf:gujr=rphf) (3 =) |)
+   ;; 1    2        3    4   5       6
+   (" (RH)?([^X ]*)X(RH)?(m)?([bup])?([Aa])? "
+    |
+    (4 =)
+    (1 otf:gujr=~rphf,~blwf,*)
+    (2 otf:gujr=~rphf,*)
+    (5 =)
+    (3 otf:gujr=rphf)
+    (6 =)
+    |)
+
+   (" (RH)?([^X ]*)X(RH)?(HJ) "
+    |
+    (1 = =)
+    (2 otf:gujr=~rphf)
+    (3 otf:gujr=rphf)
+    (4 = =)
+    |)
+
+   (" (RH)?([^X ]*)X(RH)?(H)N "
+    |
+    (1 otf:gujr=~rphf,~blwf,*)
+    (2 otf:gujr=~rphf,*)
+    (3 otf:gujr=rphf)
+    (4 =)
+    |)
 
    ("." =))
   *))
@@ -142,7 +159,7 @@
  (0
   (cond
    (" (.*)J "
-    (1 otf:gujr=~rphf,*))
+    (1 otf:gujr=~rphf,~blwf,*))
    (" ([^ ]*) "
     (1 otf:gujr=~rphf,~blwf,~half,~haln,*))
    ("."