(Hun) Add transitive verbs

2020-03-30 15:26:04 +02:00
parent fcd8732d9b
commit 350960da1c
2 changed files with 12 additions and 5 deletions
@@ -252,6 +252,11 @@ oper

  insertObj : VPSlash -> NounPhrase -> VerbPhrase = \vps,np -> vps ** {
    obj = np.s ! vps.c2 ;
+
+    -- If verb's subject case is Dat and object Nom, verb agrees with obj.
+    s = \\vf => case <vps.sc,vps.c2> of {
+                  <SCDat,Nom> => vps.s ! agr2vf np.agr ;
+                  _ => vps.s ! vf } ;
    } ;

  insertAdv : VerbPhrase -> SS -> VerbPhrase = \vp,adv -> vp ** {adv = adv.s} ;