msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

some changes in Thai coding

Browse Source
This commit is contained in:
aarne
2007-01-08 17:25:37 +00:00
parent ec2b12cf65
commit 2d60e4a187
3 changed files with 48 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
examples/numerals/thai.gf
View File

@@ -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"} ;

14
examples/numerals/thaiU.gf
View File

@@ -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 => "พะน"} ;