From 2415fab00feac1f2f76d54e4e4e06942bcde96a5 Mon Sep 17 00:00:00 2001 From: ntakahas Date: Mon, 5 Sep 2005 08:06:25 +0000 Subject: [PATCH] Add (r)? after HR in Step 0. --- KHMR-OTF.flt | 47 ++++++++++++++++++++++++++--------------------- 1 file changed, 26 insertions(+), 21 deletions(-) diff --git a/KHMR-OTF.flt b/KHMR-OTF.flt index 49b945b..a0ed732 100644 --- 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 = *) | > ) ("." =)) -- 1.7.10.4