GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-07 14:16:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

refactored Thai so that it can now be compiled producing BIND tokens instead of spaces, by just changing the definition of ResTha.bIND. This is not to be exploited yet, because it produces consecutive BIND tokens, which are not supported at runtime.

Browse Source
This commit is contained in:
aarne
2015-03-16 14:53:53 +00:00
parent 354b89e588
commit 3c27eea68b
7 changed files with 28 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/thai/NounTha.gf
View File

@@ -18,18 +18,18 @@ concrete NounTha of Noun = CatTha ** open StringsTha, ResTha, Prelude in {
AdvNP np adv = thbind np adv ;
DetQuant quant num = {
s1 = num.s ++ quant.s1 ; --- can there be quant.s1 ??
s1 = num.s ++bIND++ quant.s1 ; --- can there be quant.s1 ??
s2 = quant.s2 ;
hasC = orB num.hasC quant.hasC ;
} ;
DetQuantOrd quant num ord = {
s1 = num.s ++ quant.s1 ; --- can there be quant.s1 ??
s2 = ord.s ++ quant.s2 ;
s1 = num.s ++bIND++ quant.s1 ; --- can there be quant.s1 ??
s2 = ord.s ++bIND++ quant.s2 ;
hasC = True ;
} ;
PossPron p = {
s1 = khoog_s ++ p.s ;
s1 = khoog_s ++bIND++ p.s ;
s2 = [] ;
hasC = False
} ;
@@ -60,7 +60,7 @@ concrete NounTha of Noun = CatTha ** open StringsTha, ResTha, Prelude in {
ComplN2 f x = {s = thbind f.s f.c2 x.s ; c = f.c} ;
ComplN3 f x = {s = thbind f.s f.c2 x.s ; c = f.c ; c2 = f.c3} ;
AdjCN ap cn = {s = cn.s ++ ap.s ; c = cn.c} ;
AdjCN ap cn = {s = cn.s ++bIND++ ap.s ; c = cn.c} ;
RelCN cn rs = {s = thbind cn.s rs.s ; c = cn.s} ;
AdvCN cn ad = {s = thbind cn.s ad.s ; c = cn.s} ;