GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 17:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Thai complete with what is needed to compile Sentences in Phrasebook

Browse Source
This commit is contained in:
aarne
2011-11-07 15:46:21 +00:00
parent 3148e305d5
commit 06630f223f
9 changed files with 55 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
lib/src/thai/SymbolTha.gf
View File

@@ -3,30 +3,25 @@
concrete SymbolTha of Symbol = CatTha ** open Prelude, ResTha in {
flags coding = utf8;
{-
lin
-- SymbPN i = {s = \\_ => i.s ; g = Masc} ;
SymbPN i = {s = addGenitiveS i.s ; g = Masc} ;
IntPN i = {s = addGenitiveS i.s ; g = Masc} ;
FloatPN i = {s = addGenitiveS i.s ; g = Masc} ;
NumPN i = {s = \\_ =>i.s ; g = Masc} ;
SymbPN i = i ;
IntPN i = i ;
FloatPN i = i ;
NumPN i = i ;
CNIntNP cn i = {
s = \\c => cn.s ! Sg ! Dir ++ i.s ;
a = agrP3 cn.g Sg
} ;
CNSymbNP det cn xs = {
s = \\c => det.s!Sg!Masc ++ cn.s ! det.n ! Dir ++ xs.s ;
a = agrP3 cn.g det.n
s = thbind cn.s ++ i.s ;
c = cn.c
} ;
CNSymbNP det cn xs = ss (thbind det.s1 cn.s xs.s) ; ----
CNNumNP cn i = {
s = \\c => cn.s ! Sg ! Dir ++ i.s ;
a = agrP3 cn.g Sg
s = thbind cn.s ++ i.s ;
c = cn.c
} ;
SymbS sy = sy ;
SymbNum sy = { s = sy.s ; n = Pl } ;
SymbOrd sy = { s = sy.s ++ "waN" ; n = Pl} ;
-}
SymbNum sy = sy ;
SymbOrd sy = sy ;
lincat