Add (r)? after HR in Step 0.

diff --git a/KHMR-OTF.flt b/KHMR-OTF.flt
index 49b945b..a0ed732 100644 (file)
--- a/KHMR-OTF.flt
+++ b/KHMR-OTF.flt
@@ -82,58 +82,63 @@
   (cond
 
    ;; pre vowel sign
-   ;;1    2       3       4    56            7  8    9
-   ("([CR](r|N?c)?(HCr?)*)(HR)?((HCr?)*[NJ]?)(m)(s*S?(H[CR])?)"
+   ;;1    2       3       4  5     67            8  9    10
+   ("([CR](r|N?c)?(HCr?)*)(HR(r)?)?((HCr?)*[NJ]?)(m)(s*S?(H[CR])?)"
     < |
-    (7 =)
+    (8 =)
     (4 = =)
     (1 = *)
-    (5 = *)
-    (8 = *)
+    (5 =)
+    (6 = *)
+    (9 = *)
     | > )
 
    ;; two-part above vowel sign
-   ;;1    2       3       4    56                7
-   ("([CR](r|N?c)?(HCr?)*)(HR)?((HCr?)*[NJ]?As*S?(H[CR])?)"
+   ;;1    2       3       4  5     67                8
+   ("([CR](r|N?c)?(HCr?)*)(HR(r)?)?((HCr?)*[NJ]?As*S?(H[CR])?)"
     < |
     0x17C1
     (4 = =)
     (1 = *)
-    (5 = *)
+    (5 =)
+    (6 = *)
     | > )
 
    ;; post vowel sign
-   ;;1    2       3       4    56            7  8   9  10
-   ("([CR](r|N?c)?(HCr?)*)(HR)?((HCr?)*[NJ]?)(p)(s*)(S?(H[CR])?)"
+   ;;1    2       3       4  5     67            8  9   10 11
+   ("([CR](r|N?c)?(HCr?)*)(HR(r)?)?((HCr?)*[NJ]?)(p)(s*)(S?(H[CR])?)"
     < |
     (4 = =)
     (1 = *)
-    (5 = *)
-    (8 = *)
-    (7 =)
+    (5 =)
+    (6 = *)
     (9 = *)
+    (8 =)
+    (10 = *)
     | > )
 
    ;; two-part post vowel sign
-   ;;1    2       3       4    56            7  8   9  10
-   ("([CR](r|N?c)?(HCr?)*)(HR)?((HCr?)*[NJ]?)(P)(s*)(S?(H[CR])?)"
+   ;;1    2       3       4  5     67            8  9   10 11
+   ("([CR](r|N?c)?(HCr?)*)(HR(r)?)?((HCr?)*[NJ]?)(P)(s*)(S?(H[CR])?)"
     < |
     0x17C1
     (4 = =)
     (1 = *)
-    (5 = *)
-    (8 = *)
-    (7 =)
+    (5 =)
+    (6 = *)
     (9 = *)
+    (8 =)
+    (10 = *)
     | > )
 
    ;; other vowel signs or no vowel sign
-   ;;1    2       3       4    56                     7
-   ("([CR](r|N?c)?(HCr?)*)(HR)?((HCr?)*[NJ]?[b|a]?s*S?(H[CR])?)"
+   ;;1    2       3       4  5     67                     8
+   ("([CR](r|N?c)?(HCr?)*)(HR(r)?)?((HCr?)*[NJ]?[b|a]?s*S?(H[CR])?)"
     < |
     (4 = =)
     (1 = *)
-    (5 = *)
+    (5 =)
+    (6 = *)
     | > )
 
    ("." =))