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

(Dut) fix bug in infVP; add comments & clean up

Browse Source
This commit is contained in:
Inari Listenmaa
2018-04-16 16:42:44 +02:00
parent 714429e95f
commit 7e03f0f5a2
2 changed files with 15 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/dutch/VerbDut.gf
+2 -3
View File
@@ -50,6 +50,7 @@ concrete VerbDut of Verb = CatDut ** open Prelude, ResDut in {
--vp.c2.p2: if the verb has a preposition or not
ComplSlash vp np = insertObjNP np.isPron (case vp.c2.p2 of {True => BeforeObjs; False => vp.negPos}) (\\_ => appPrep vp.c2.p1 np) vp ;
SlashVV v vp =
let
vpi = infVP v.isAux vp
@@ -69,9 +70,7 @@ concrete VerbDut of Verb = CatDut ** open Prelude, ResDut in {
insertObj (\\_ => appPrep v.c2.p1 np) (
predVGen v.isAux vp.negPos v)))) ** {c2 = v.c2} ;
-- BeforeObjs, because negation comes before copula complement
-- "ik ben niet groot" but "ik begrijp hem niet"
UseComp comp = insertObjNP False BeforeObjs comp.s (predV zijn_V) ; -- agr not used
UseComp comp = insertObj comp.s (compV zijn_V) ;
UseCopula = predV zijn_V;