GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 16:42:51 -06:00
Code Issues Packages Projects Releases Wiki 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

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