some changes in Thai coding

2 files changed, 18 insertions, 18 deletions

diff --git a/examples/numerals/thai.gf b/examples/numerals/thai.gf
index 1ef77a8a7..94bbe3982 100644
--- a/examples/numerals/thai.gf
+++ b/examples/numerals/thai.gf
@@ -16,15 +16,15 @@ lincat
 lin 
   num x = x ;
 
-  pot01 = mkNum "hnvg" "hnvg" "eOMd'" ;
+  pot01 = mkNum "hnvg" "hnvg" "eOSd" ;
 
-  n2 = mkNum  "s-Og" "y'i:T1" "s-Og" ;
-  n3 = regNum "s-a:m" ;
-  n4 = regNum "s-i:T1" ; -- T1 = E48 '
+  n2 = mkNum  "sOg" "yi:T1" "sOg" ;
+  n3 = regNum "sa:m" ;
+  n4 = regNum "si:T1" ; -- T1 = E48 '
   n5 = regNum "hT2a:" ;  -- T2 = E49 9
   n6 = regNum "ho?k" ;
-  n7 = regNum "ecMd'" ;  -- M  = E47 w
-  n8 = regNum "e'pd'" ; 
+  n7 = regNum "ecSd" ;   -- S  = E47 w
+  n8 = regNum "e'pd" ; 
   n9 = regNum "eka:" ;
 
 
@@ -32,12 +32,12 @@ lin
 
   pot110 = {s = sip} ;
   pot111 = {s = table {
-    Unit => ["s'ib et"] ; 
+    Unit => ["sib eOSd"] ; 
     Thousand => ["hnvg hmv:T1n hnvg p2an"]
     }
   } ;
   pot1to19 d = {s = table {
-    Unit => "s'ib" ++ d.s ! After ; 
+    Unit => "sib" ++ d.s ! After ; 
     Thousand => ["hnvg hmv:T1n"] ++ d.s ! Indep ++ "p2an"
     }
   } ;
@@ -64,6 +64,6 @@ oper
     mkNum x x x ;
 
 
-  sip  = table {Unit => "s'ib"   ; Thousand => "hmv:T1n"} ;
-  roy  = table {Unit => "rT2Oy'" ; Thousand => "e'sn"} ;
-  phan = table {Unit => []       ; Thousand => "p2an"} ;
+  sip  = table {Unit => "sib"   ; Thousand => "hmv:T1n"} ;
+  roy  = table {Unit => "rT2Oy" ; Thousand => "e'sn"} ;
+  phan = table {Unit => []      ; Thousand => "p2an"} ;
diff --git a/examples/numerals/thaiU.gf b/examples/numerals/thaiU.gf
index a5f6ca685..35fbd8e8b 100644
--- a/examples/numerals/thaiU.gf
+++ b/examples/numerals/thaiU.gf
@@ -20,10 +20,10 @@ lin
 
   n2 = mkNum  "สอง" "ยี่" "สอง" ;
   n3 = regNum "สาม" ;
-  n4 = regNum "สี่" ;  -- E = E48 '
-  n5 = regNum "ห้า" ;   -- T = E49 9
+  n4 = regNum "สี่" ; -- T1 = E48 '
+  n5 = regNum "ห้า" ;  -- T2 = E49 9
   n6 = regNum "หก" ;
-  n7 = regNum "เจ็ด" ;  -- M = E47 w
+  n7 = regNum "เจ็ด" ;   -- S  = E47 w
   n8 = regNum "แปด" ; 
   n9 = regNum "เกา" ;
 
@@ -32,12 +32,12 @@ lin
 
   pot110 = {s = sip} ;
   pot111 = {s = table {
-    Unit => ["ศิบเฏ"] ; 
+    Unit => ["สิบเอ็ด"] ; 
     Thousand => ["หนึงหมื่นหนึงพะน"]
     }
   } ;
   pot1to19 d = {s = table {
-    Unit => "ศิบ" ++ d.s ! After ; 
+    Unit => "สิบ" ++ d.s ! After ; 
     Thousand => ["หนึงหมื่น"] ++ d.s ! Indep ++ "พะน"
     }
   } ;
@@ -64,6 +64,6 @@ oper
     mkNum x x x ;
 
 
-  sip  = table {Unit => "ศิบ"  ; Thousand => "หมื่น"} ;
-  roy  = table {Unit => "ร้อย" ; Thousand => "ซแน"} ;
+  sip  = table {Unit => "สิบ"   ; Thousand => "หมื่น"} ;
+  roy  = table {Unit => "ร้อย" ; Thousand => "แสน"} ;
   phan = table {Unit => []      ; Thousand => "พะน"} ;