GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-10-02 23:23:38 -06:00
Code Issues Packages Projects Releases Wiki Activity

more extensions by Codex + reuse the TenseX module

Browse Source
This commit is contained in:
Krasimir Angelov
2026-10-02 19:20:32 +02:00
parent bc7afae589
commit ea2fb317c5
22 changed files with 753 additions and 170 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/czech/QuestionCze.gf
+12 -2
View File
@@ -4,11 +4,21 @@ lin
QuestIAdv adv cl = cl ** {q = adv.s ; yesNo = False} ;
QuestIComp comp np = {
q = comp.s ; subj = case np.isDrop of {True => np.clit ! Nom ; False => np.s ! Nom} ;
clit,compl = [] ; verb = copulaVerbForms ; a = np.a ; yesNo = False
clit,compl = [] ; verb = copulaVerbForms ; a = np.a ; yesNo = False ;
isDrop = np.isDrop ; clitPresent = False ;
finite = (mkClause [] [] [] copulaVerbForms np.a np.isDrop False).finite ;
auxiliary = (mkClause [] [] [] copulaVerbForms np.a np.isDrop False).auxiliary
} ;
QuestVP ip vp = {
q = ip.s ! Nom ; subj = [] ; clit = vp.clit ! ip.a ;
compl = vp.compl ! ip.a ; verb = vp.verb ; a = ip.a ; yesNo = False
compl = vp.compl ! ip.a ; verb = vp.verb ; a = ip.a ; yesNo = False ;
isDrop = True ; clitPresent = vp.clitPresent ;
finite = (mkClause [] [] [] vp.verb ip.a True vp.clitPresent).finite ;
auxiliary = (mkClause [] [] [] vp.verb ip.a True vp.clitPresent).auxiliary
} ;
QuestSlash ip cls = cls ** {
q = fullComplement cls.c ip.s ip.s ;
compl = cls.compl ++ cls.ind ; yesNo = False
} ;
CompIAdv adv = adv ;
CompIP ip = {s = ip.s ! Nom} ;