*** empty log message ***

[m17n/m17n-db.git] / GUJ-OTF.flt

diff --git a/GUJ-OTF.flt b/GUJ-OTF.flt
index 8bcbf82..a85a29a 100644 (file)
--- a/GUJ-OTF.flt
+++ b/GUJ-OTF.flt
@@ -62,8 +62,6 @@
  (0x0ACD       ?H)                     ; SIGN VIRAMA (HALANT)
  (0x0AE0 0x0AE1        ?V)                     ; LETTER VOCALIC RR, LL
  (0x0AE2 0x0AE3        ?b)                     ; VOWEL SIGN VOCALIC RR, LL (below)
- (0x0AFD       ?Z)                     ; internal use
- (0x0AFE       ?Y)                     ; internal use
  (0x0AFF       ?X)                     ; internal use
  )
 
@@ -124,15 +122,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 +157,7 @@
  (0
   (cond
    (" (.*)J "
-    (1 otf:gujr=~rphf,*))
+    (1 otf:gujr=~rphf,~blwf,*))
    (" ([^ ]*) "
     (1 otf:gujr=~rphf,~blwf,~half,~haln,*))
    ("."