New file.

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

diff --git a/KHMR-OTF.flt b/KHMR-OTF.flt
index 49b945b..72ffc81 100644 (file)
--- a/KHMR-OTF.flt
+++ b/KHMR-OTF.flt
@@ -18,8 +18,8 @@
 
 ;; You should have received a copy of the GNU Lesser General Public
 ;; License along with the m17n library; if not, write to the Free
-;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-;; 02111-1307, USA.
+;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; <li> 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 = *)
     | > )
 
    ("." =))
@@ -221,7 +226,7 @@
    (" ([^ ]*) "
     (1 otf:khmr=pres,blws,abvs,psts,clig))
    ("."
-    [ otf:sinh=+ ]))
+    [ otf:khmr=+ ]))
   *))
 
 ;; Step 4.