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

complete Thai resource syntax (but many unverified rules)

Browse Source
This commit is contained in:
aarne
2011-11-07 13:29:24 +00:00
parent 2699780736
commit 7cbf532735
15 changed files with 379 additions and 379 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,5 +1,7 @@
concrete NumeralTha of Numeral = CatTha ** open ResTha, StringsTha, Prelude in {
flags coding = utf8 ;
lincat
-- Numeral = {s : Str} ;
Digit = {s : DForm => Str} ;
@@ -63,4 +65,25 @@ oper
roy = table {Unit => rooy_s ; Thousand => seen_s} ;
phan = table {Unit => [] ; Thousand => phan_s} ;
-- numerals as sequences of digits
lincat
Dig = SS ;
lin
IDig d = d ;
IIDig d i = thbind d i ;
D_0 = ss "๐" ;
D_1 = ss "๑" ;
D_2 = ss "๒" ;
D_3 = ss "๓" ;
D_4 = ss "๔" ;
D_5 = ss "๕" ;
D_6 = ss "๖" ;
D_7 = ss "๗" ;
D_8 = ss "๘" ;
D_9 = ss "๙" ;
}