GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-10 11:42:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

Thai: transliterations in a separate src file; bind words in NumeralThai

Browse Source
This commit is contained in:
aarne
2011-11-06 21:10:58 +00:00
parent d058394219
commit 8ec4afde05
4 changed files with 202 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lib/src/thai/NumeralTha.gf
View File

@@ -1,4 +1,4 @@
concrete NumeralTha of Numeral = CatTha ** open ResTha, StringsTha in {
concrete NumeralTha of Numeral = CatTha ** open ResTha, StringsTha, Prelude in {
lincat
-- Numeral = {s : Str} ;
@@ -27,26 +27,26 @@ lin
pot110 = {s = sip} ;
pot111 = {s = table {
Unit => sip_s ++ et_s ;
Thousand => nvg_s ++ mvvn_s ++ nvg_s ++ phan_s
Unit => thbind sip_s et_s ;
Thousand => thbind nvg_s mvvn_s nvg_s phan_s
}
} ;
pot1to19 d = {s = table {
Unit => sip_s ++ d.s ! After ;
Thousand => nvg_s ++ mvvn_s ++ d.s ! Indep ++ phan_s
Unit => thbind sip_s (d.s ! After) ;
Thousand => thbind nvg_s mvvn_s (d.s ! Indep) phan_s
}
} ;
pot0as1 d = {s = \\n => d.s ! Indep ++ phan ! n} ;
pot1 d = {s = \\n => d.s ! ModTen ++ sip ! n} ;
pot0as1 d = {s = \\n => thbind (d.s ! Indep) (phan ! n)} ;
pot1 d = {s = \\n => thbind (d.s ! ModTen) (sip ! n)} ;
pot1plus d e = {
s = \\n => d.s ! ModTen ++ sip ! n ++ e.s ! After ++ phan ! n
s = \\n => thbind (d.s ! ModTen) (sip ! n) (e.s ! After) (phan ! n)
} ;
pot1as2 n = n ;
pot2 d = {s = \\n => d.s ! Indep ++ roy ! n} ;
pot2plus d e = {s = \\n => d.s ! Indep ++ roy ! n ++ e.s ! n} ;
pot2 d = {s = \\n => thbind (d.s ! Indep) (roy ! n)} ;
pot2plus d e = {s = \\n => thbind (d.s ! Indep) (roy ! n) (e.s ! n)} ;
pot2as3 n = {s = n.s ! Unit} ;
pot3 n = {s = n.s ! Thousand} ;
pot3plus n m = {s = n.s ! Thousand ++ m.s ! Unit} ;
pot3plus n m = {s = thbind (n.s ! Thousand) (m.s ! Unit)} ;
param
DForm = Indep | ModTen | After ;