(Hun) Fresh copypaste from generic dummy template. Compiles, isn't good.

src/hungarian/RelativeHun.gf

@@ -1,56 +1,22 @@
-concrete RelativeHun of Relative = CatHun ** open ResHun in 
-{
---{
---
---  flags optimize=all_subs ;
---
---  lin
---
---    RelCl cl = {
---      s = \\t,a,p,_ => "such" ++ "that" ++ cl.s ! t ! a ! p ! ODir ; 
---      c = npNom
---      } ;
---
---    RelVP rp vp = {
---      s = \\t,ant,b,ag => 
---        let 
---          agr = case rp.a of {
---            RNoAg => ag ;
---            RAg a => a
---            } ;
---          cl = mkClause (rp.s ! RC (fromAgr agr).g npNom) agr vp
---        in
---        cl.s ! t ! ant ! b ! ODir ;
---      c = npNom
---      } ;
---
----- Pied piping: "at which we are looking". Stranding and empty
----- relative are defined in $ExtraHun.gf$ ("that we are looking at", 
----- "we are looking at").
---
---    RelSlash rp slash = {
---      s = \\t,a,p,agr => 
---          slash.c2 ++ rp.s ! RPrep (fromAgr agr).g ++ slash.s ! t ! a ! p ! ODir ;
---      c = NPAcc
---      } ;
---
---    FunRP p np rp = {
---      s = \\c => np.s ! NPAcc ++ p.s ++ rp.s ! RPrep (fromAgr np.a).g ;
---      a = RAg np.a
---      } ;
---
---    IdRP = 
---     { s = table {
---        RC _ (NCase Gen) => "whose" ; 
---        RC Neutr _  => "which" ;
---        RC _ NPAcc    => "whom" ;
---        RC _ (NCase Nom)    => "who" ;
---        RPrep Neutr => "which" ;
---        RPrep _     => "whom"
---        } ;
---      a = RNoAg
---      } ;
---
---}
+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 =
+
+  -- : RP -> ClSlash -> RCl ; -- whom John loves
+  RelSlash rp cls =
+
+  -- : RP ;
+  IdRP = {s = ""} ;
+
+  -- : Prep -> NP -> RP -> RP ;  -- the mother of whom
+  --FunRP prep np rp = {} ;
+-}
 
 }