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

modified the fun UttVP in PhraseCgg.gf to allow formation of Verb Phrase Utterances with various complements e.g to sleep == kugwenjegyera

Browse Source
This commit is contained in:
David Bamutura
2020-10-27 01:35:41 +03:00
parent e14cdf99e3
commit fc7bede563
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/rukiga/PhraseCgg.gf
View File

@@ -33,8 +33,14 @@ lin
--UttAdv : Adv -> Utt ; -- here --UttAdv : Adv -> Utt ; -- here
UttAdv adv = {s= adv.s}; UttAdv adv = {s= adv.s};
--can be improved upon -- better but can be improved upon
UttVP vp = {s = vp.adv ++ vp.s ++ BIND ++ vp.pres ++ vp.comp ++vp.comp2 ++ vp.ap }; UttVP vp = case <vp.isCompApStem,vp.containsAdv, vp.containsAdV,vp.containsComp, vp.containsComp2> of {
<False,False,True,False,False> => {s = "ku" ++ BIND ++ vp.s ++ BIND ++ vp.pres ++ vp.adV};
<False,True,False,False,False> =>{s = "ku" ++ BIND ++ vp.s ++ BIND ++ vp.pres ++ vp.adv};
<_, _,_,True,False> => {s = "ku" ++ BIND ++ vp.s ++ BIND ++ vp.pres ++ vp.comp};
<_, _,_,True, True> => {s = "ku" ++ BIND ++ vp.s ++ BIND ++ vp.pres ++ vp.comp ++ vp.comp2};
<_, _,_,_, _> => {s = "ku" ++ BIND ++ vp.s ++ BIND ++ vp.pres}
};
UttAP ap = {s=ap.s!(AgP3 Sg KI_BI)}; UttAP ap = {s=ap.s!(AgP3 Sg KI_BI)};