GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-11 04:02:52 -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 ae97390cf5
commit 845687462f
7 changed files with 28 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/src/thai/PhraseTha.gf
View File

@@ -1,13 +1,13 @@
concrete PhraseTha of Phrase = CatTha ** open Prelude, ResTha in {
lin
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
PhrUtt pconj utt voc = {s = pconj.s ++bIND++ utt.s ++bIND++ voc.s} ;
UttS s = s ;
UttQS qs = {s = qs.s ! QDir} ;
UttImpSg pol imp = {s = pol.s ++ imp.s ! pol.p} ;
UttImpPl pol imp = {s = pol.s ++ imp.s ! pol.p} ;
UttImpPol pol imp = {s = pol.s ++ imp.s ! pol.p} ; --- add politeness here?
UttImpSg pol imp = {s = pol.s ++bIND++ imp.s ! pol.p} ;
UttImpPl pol imp = {s = pol.s ++bIND++ imp.s ! pol.p} ;
UttImpPol pol imp = {s = pol.s ++bIND++ imp.s ! pol.p} ; --- add politeness here?
UttIP ip = ip ;
UttIAdv iadv = iadv ;
@@ -15,7 +15,7 @@ concrete PhraseTha of Phrase = CatTha ** open Prelude, ResTha in {
UttCN cn = cn ;
UttAP ap = ap ;
UttCard x = x ;
UttVP vp = {s = vp.s ! Pos ++ vp.e} ;
UttVP vp = {s = vp.s ! Pos ++bIND++ vp.e} ;
UttAdv adv = adv ;
NoPConj = {s = []} ;