From: handa Date: Mon, 14 Jul 2008 10:51:21 +0000 (+0000) Subject: Change the mark name @tone to TONE. X-Git-Tag: REL-1-5-3~50 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=67f06675ef06e5f3397d926f23686082048c4cb6;p=m17n%2Fm17n-db.git Change the mark name @tone to TONE. --- diff --git a/MIM/lo-lrt.mim b/MIM/lo-lrt.mim index 2f0a98a..0ec864d 100644 --- a/MIM/lo-lrt.mim +++ b/MIM/lo-lrt.mim @@ -74,12 +74,12 @@ (vowel-simple ("ar" "າ") - ("i" "ິ" (mark @tone)) - ("ii" "ີ" (mark @tone)) - ("eu" "ຶ" (mark @tone)) - ("ur" "ື" (mark @tone)) - ("u" "ຸ" (mark @tone)) - ("uu" "ູ" (mark @tone)) + ("i" "ິ" (mark TONE)) + ("ii" "ີ" (mark TONE)) + ("eu" "ຶ" (mark TONE)) + ("ur" "ື" (mark TONE)) + ("u" "ຸ" (mark TONE)) + ("uu" "ູ" (mark TONE)) ("aM" "ຳ") ("ee" (move @-) (move @-) "ເ" (move @+) (move @+)) @@ -88,11 +88,11 @@ ("ai" (move @-) (move @-) "ໄ" (move @+) (move @+)) ("ei" (move @-) (move @-) "ໃ" (move @+) (move @+)) - ("er" (move @-) (move @-) "ເ" (move @+) (move @+) "ິ" (mark @tone)) - ("ir" (move @-) (move @-) "ເ" (move @+) (move @+) "ີ" (mark @tone)) - ("ea" (move @-) (move @-) "ເ" (move @+) (move @+) "ຶ" (mark @tone) "ອ") - ("eaa" (move @-) (move @-) "ເ" (move @+) (move @+) "ື" (mark @tone) "ອ") - ("ao" (move @-) (move @-) "ເ" (move @+) (move @+) "ົ" (mark @tone) "າ")) + ("er" (move @-) (move @-) "ເ" (move @+) (move @+) "ິ" (mark TONE)) + ("ir" (move @-) (move @-) "ເ" (move @+) (move @+) "ີ" (mark TONE)) + ("ea" (move @-) (move @-) "ເ" (move @+) (move @+) "ຶ" (mark TONE) "ອ") + ("eaa" (move @-) (move @-) "ເ" (move @+) (move @+) "ື" (mark TONE) "ອ") + ("ao" (move @-) (move @-) "ເ" (move @+) (move @+) "ົ" (mark TONE) "າ")) (vowel-a-e-ae ("a" "ະ") @@ -106,19 +106,19 @@ ("o" (move @-) (move @-) "ໂ" (move @+) (move @+) "ະ")) (vowel-or - ("or" "ໍ" (mark @tone))) + ("or" "ໍ" (mark TONE))) (vowel-ua - ("ua" "ົ" (mark @tone) "ວະ")) + ("ua" "ົ" (mark TONE) "ວະ")) (vowel-uaa - ("uaa" "ົ" (mark @tone) "ວ")) + ("uaa" "ົ" (mark TONE) "ວ")) (vowel-ie - ("ie" (move @-) (move @-) "ເ" (move @+) (move @+) "ັ" (mark @tone) "ຽະ")) + ("ie" (move @-) (move @-) "ເ" (move @+) (move @+) "ັ" (mark TONE) "ຽະ")) (vowel-ia - ("ia" (move @-) (move @-) "ເ" (move @+) (move @+) "ັ" (mark @tone) "ຽ")) + ("ia" (move @-) (move @-) "ເ" (move @+) (move @+) "ັ" (mark TONE) "ຽ")) (maa-sakod ("k" "ກ") @@ -145,11 +145,11 @@ ("m" "ມ")) (tone - ("'" (move @tone) "່" (move @>)) - ("\"" (move @tone) "້" (move @>)) - ("^" (move @tone) "໊" (move @>)) - ("+" (move @tone) "໋" (move @>)) - ("~" (move @tone) "໌" (move @>))) + ("'" (move TONE) "່" (move @>)) + ("\"" (move TONE) "້" (move @>)) + ("^" (move TONE) "໊" (move @>)) + ("+" (move TONE) "໋" (move @>)) + ("~" (move TONE) "໌" (move @>))) (punctuation ("\\0" "໐") @@ -167,7 +167,7 @@ (state (init - (consonant (move 1) (mark @tone) (move @>) (shift c-state)) + (consonant (move 1) (mark TONE) (move @>) (shift c-state)) (vowel-simple) (vowel-a-e-ae) (vowel-oe) @@ -201,19 +201,19 @@ (nil (shift csvm-state))) (csv-a-e-ae-state - (maa-sakod (move @-) (delete @-) "ັ" (mark @tone) (move @>) + (maa-sakod (move @-) (delete @-) "ັ" (mark TONE) (move @>) (shift csvm-state)) (nil (shift csvm-state))) (csv-oe-state - (maa-sakod (move @-) (delete @-) (delete @-) "ັ" (mark @tone) "ອ" (move @>) + (maa-sakod (move @-) (delete @-) (delete @-) "ັ" (mark TONE) "ອ" (move @>) (shift csvm-state)) (nil (shift csvm-state))) (csv-o-state - (maa-sakod-y-v (move @-) (delete @-) "ັ" (mark @tone) (move @>) + (maa-sakod-y-v (move @-) (delete @-) "ັ" (mark TONE) (move @>) (shift csvm-state)) - (maa-sakod-non-y-v (move @-) (delete @-) "ົ" (mark @tone) + (maa-sakod-non-y-v (move @-) (delete @-) "ົ" (mark TONE) (move 0) (delete @+) (move @>) (shift csvm-state)) (nil (shift csvm-state)))