start reworking grammar to split verb and verb complement

This commit is contained in:
Herbert Lange
2019-11-10 20:40:32 +01:00
parent 523b4841fc
commit 48d9b3909e
4 changed files with 23 additions and 10 deletions
+3 -1
View File
@@ -17,7 +17,8 @@ concrete QuestionLat of Question = CatLat ** open ResLat, IrregLat, Prelude in {
neg = \\_,_ => "" ;
o = \\_ => vp.obj ;
q = ip.s ! Nom ;
v = \\t,a,_,ap,cp => vp.s ! VAct (anteriorityToVAnter a) (tenseToVTense t) ip.n P3 ! VQFalse
v = \\t,a,_,ap,cp => vp.s ! VAct (anteriorityToVAnter a) (tenseToVTense t) ip.n P3 ! VQFalse ;
vcompl = vp.compl ! Ag Masc ip.n Nom ; -- default gender masculine
} ;
-- let qcl = mkQuestion { s = ip.s ! Nom } ( mkClause emptyNP vp )
-- in {s = \\t,a,b,qd => qcl.s ! t ! a ! b ! qd} ;
@@ -40,6 +41,7 @@ concrete QuestionLat of Question = CatLat ** open ResLat, IrregLat, Prelude in {
o = \\_ => combineNounPhrase np ! PronNonDrop ! Nom ; -- Should probably not go into the object field
q = icomp.s ;
v = \\t,a,_,ap,cp => esseAux.act ! VAct (anteriorityToVAnter a) (tenseToVTense t) np.n P3 ;
vcompl = "" ;
} ;
--
--