From 350960da1cc68222fc66242d85b0606e926d121b Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Mon, 30 Mar 2020 15:26:04 +0200
Subject: [PATCH] (Hun) Add transitive verbs

---
 src/hungarian/ResHun.gf  |  5 +++++
 src/hungarian/VerbHun.gf | 12 +++++++-----
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/src/hungarian/ResHun.gf b/src/hungarian/ResHun.gf
index 74249687..a29fe2e0 100644
--- a/src/hungarian/ResHun.gf
+++ b/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} ;
diff --git a/src/hungarian/VerbHun.gf b/src/hungarian/VerbHun.gf
index 657194fa..946882cf 100644
--- a/src/hungarian/VerbHun.gf
+++ b/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 ** { } ;