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

Some corrections made and functions added

Browse Source
This commit is contained in:
David Bamutura
2019-05-14 09:23:09 +02:00
parent ef5783853f
commit 355fcc2e6d
7 changed files with 111 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/rukiga/SentenceCgg.gf
+7 -3
View File
@@ -13,11 +13,11 @@ lin
UseCl temp pol cl = let
subj = cl.s;
clitic = mkSubjClitic cl.subjAgr;
simul = cl.morphs ! VFPres; --this is not delivering the string
simul = cl.pres; --morphs ! VFPres; --this is not delivering the string
ant = cl.morphs ! VFPastPart; --this is not delivering the string
root = cl.root;
presRestOfVerb = cl.morphs ! VFPres ! RestOfVerb;
pastRestOfVerb = cl.morphs ! VFPastPart ! RestOfVerb;
pastRestOfVerb = cl.perf; --morphs ! VFPastPart ! RestOfVerb;
compl = cl.compl
in
@@ -34,7 +34,7 @@ lin
}; --: Temp -> Pol -> QCl -> QS ; -- has John walked
UseQCl = UseCl; -- : Temp -> Pol -> Cl -> S ; -- John has not walked
QuestCl cl = cl; --: Cl -> QCl ; -- does John (not) walk
QuestCl qcl = qcl; --: Cl -> QCl ; -- does John (not) walk
PredVP np vp = case vp.isCompApStem of{
False => {
@@ -93,6 +93,10 @@ lin
}
}; --: VP -> Imp ; -- walk / do not walk
-- A sentence can be modified by a relative clause referring to its contents.
RelS : S -> RS -> S ; -- she sleeps, which is good
--2 Clauses missing object noun phrases
-- This category is a variant of the 'slash category' $S/NP$ of