GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-27 11:56:29 -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
src/thai/SentenceTha.gf
+8 -5
View File
@@ -32,17 +32,20 @@ concrete SentenceTha of Sentence = CatTha **
EmbedQS qs = {s = qs.s ! QIndir} ;
EmbedVP vp = {s = infVP vp} ;
UseCl t p cl = {s = thbind t.s p.s (cl.s ! ClDecl ! p.p)} ;
UseCl t p cl = {s = t.s ++ p.s ++ (cl.s ! ClDecl ! p.p)} ; --- no bIND here, to prevent spurious &+ tokens
UseQCl t p cl = {
s = \\q => thbind t.s p.s
(case q of {QIndir => waa_s ; _ => []}) (cl.s ! p.p)
s = \\q => t.s ++ p.s ++
(case q of {QIndir => waa_s ; _ => []}) ++bIND++ (cl.s ! p.p)
} ;
UseRCl t p cl = {
s = thbind t.s p.s (cl.s ! p.p) ;
s = t.s ++ p.s ++ (cl.s ! p.p) ;
} ;
UseSlash t p cl = {s = thbind t.s p.s (cl.s ! p.p) ; c2 = cl.c2} ;
UseSlash t p cl = {s = t.s ++ p.s ++ (cl.s ! p.p) ; c2 = cl.c2} ;
AdvS a s = thbind a s ;
RelS s r = thbind s r ;
ExtAdvS a s = thbind a s ;
SSubjS a c b = thbind a c b ;
}