(Hun) Add relative clauses

src/hungarian/RelativeHun.gf

@@ -1,22 +1,31 @@
 concrete RelativeHun of Relative = CatHun ** open
   ResHun, Prelude, (NS=NounHun), (SS=StructuralHun) in {
 
-{-
 lin
   --  : Cl -> RCl ;            -- such that John loves her
   -- RelCl cl = ;
 
   -- : RP -> VP -> RCl ;
-  RelVP rp vp =
+  RelVP = relVP ;
 
   -- : RP -> ClSlash -> RCl ; -- whom John loves
-  RelSlash rp cls =
+  RelSlash = relSlash ;
 
   -- : RP ;
-  IdRP = {s = ""} ;
+  IdRP = {s =
+    table {Sg => caseTable "ami" "amit" "aminek"      -- nom, acc, dat
+                           "amibe"  "amiben" "amiből" -- ill, ine, ela
+                           "amihez" "aminél" "amitől" -- all, ade, abl
+                           "amire"  "amin"   "amiről" -- sub, sup, del
+                           "amiért" "amivel" "amivé" ; -- cau, ins, tra
+           Pl => caseTable "amik" "amiket" "amiknek"      -- nom, acc, dat
+                           "amikbe"  "amikben" "amikből"  -- ill, ine, ela
+                           "amikhez" "amiknél" "amiktől"  -- all, ade, abl
+                           "amikre"  "amiken"  "amikről"  -- sub, sup, del
+                           "amikért" "amikkel" "amikké"}; -- cau, ins, tra
+    } ;
 
   -- : Prep -> NP -> RP -> RP ;  -- the mother of whom
   --FunRP prep np rp = {} ;
--}
 
 }