1
0
forked from GitHub/gf-core

fixes in Dut infinitive/extraposed word order. Not quite clear yet.

This commit is contained in:
aarne
2015-09-17 19:44:35 +00:00
parent bbc679c6d6
commit f4197a374f
3 changed files with 14 additions and 6 deletions
+9 -4
View File
@@ -6,14 +6,19 @@ concrete VerbDut of Verb = CatDut ** open Prelude, ResDut in {
UseV = predV ;
ComplVV v vp =
let
vpi = infVP v.isAux vp
let
vpv = predVGen v.isAux vp.negPos (v2v v) ;
vpi = infVP v.isAux vp ;
in
insertExtrapos vpi.p3 (
vpv ** {n2 = vpi.p1 ; inf = <vpi.p2, True> ; ext = vpi.p3} ; ----
{-
in
insertInf vpi.p3 (
insertInf vpi.p2 (
insertObj vpi.p1 (
predVGen v.isAux vp.negPos (v2v v)))) ; ---- subtyp
-}
ComplVS v s =
insertExtrapos (conjThat ++ s.s ! Sub) (predV v) ;
ComplVQ v q =