(Hun) Add transitive verbs

src/hungarian/ResHun.gf

@@ -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} ;

src/hungarian/VerbHun.gf

@@ -34,9 +34,11 @@ lin
 
 --------
 -- Slash
+-}
   -- : V2 -> VPSlash
   SlashV2a = ResHun.useVc ;
 
+{-
   -- : V3 -> NP -> VPSlash ; -- give it (to her)
   -- : V3 -> NP -> VPSlash ; -- give (it) to her
   Slash2V3,
@@ -59,10 +61,10 @@ lin
   SlashV2A v2a ap = useVc v2a ** {
     aComp = \\_ => (CompAP ap).aComp ! Sg3 Masc
   } ;
-
+-}
   -- : VPSlash -> NP -> VP
-  ComplSlash = ResHun.insertComp ;
-
+  ComplSlash = ResHun.insertObj ;
+{-
   -- : VV  -> VPSlash -> VPSlash ;
                   -- Just like ComplVV except missing subject!
   SlashVV vv vps = ComplVV vv vps ** { missing = vps.missing ;
@@ -80,13 +82,13 @@ lin
   -- : Comp -> VP ;
   UseComp comp = comp ;
 
-{-
+
   -- : VP -> Adv -> VP ;  -- sleep here
   AdvVP = insertAdv ;
 
   -- : VPSlash -> Adv -> VPSlash ;  -- use (it) here
   AdvVPSlash = insertAdvSlash ;
-
+{-
   -- : VP -> Adv -> VP ;  -- sleep , even though ...
   ExtAdvVP vp adv = vp ** { } ;