started hungarian project

lib/src/hungarian/ExtraHun.gf

@@ -0,0 +1,164 @@
+concrete ExtraHun of ExtraHunAbs = CatHun ** 
+  open ResHun, Coordination, Prelude, MorphoHun, ParadigmsHun in 
+{
+--{
+--
+--  lin
+--    GenNP np = {s = \\_,_ => np.s ! npGen ; sp = \\_,_,_ => np.s ! npGen} ;
+--    GenIP ip = {s = \\_ => ip.s ! NCase Gen} ;
+--    GenRP nu cn = {
+--      s = \\c => "whose" ++ nu.s ! Nom ++ 
+--                 case c of {
+--                   RC _ (NCase Gen) => cn.s ! nu.n ! Gen ;
+--                   _ => cn.s ! nu.n ! Nom
+--                   } ;
+--      a = RAg (agrP3 Sg)
+--      } ;
+--
+--    ComplBareVS v s  = insertObj (\\_ => s.s) (predV v) ;
+--
+--    StrandRelSlash rp slash = {
+--      s = \\t,a,p,ag => 
+--        rp.s ! RC (fromAgr ag).g NPAcc ++ slash.s ! t ! a ! p ! ODir ++ slash.c2 ;
+--      c = NPAcc
+--      } ;
+--    EmptyRelSlash slash = {
+--      s = \\t,a,p,_ => slash.s ! t ! a ! p ! ODir ++ slash.c2 ;
+--      c = NPAcc
+--      } ;
+--
+--    StrandQuestSlash ip slash = 
+--      {s = \\t,a,b,q => 
+--         (mkQuestion (ss (ip.s ! NPAcc)) slash).s ! t ! a ! b ! q ++ slash.c2
+--      };
+--
+--  lincat
+--    VPI   = {s : VPIForm => Agr => Str} ;
+--    [VPI] = {s1,s2 : VPIForm => Agr => Str} ;
+--
+--  lin
+--    BaseVPI = twoTable2 VPIForm Agr ;
+--    ConsVPI = consrTable2 VPIForm Agr comma ;
+--
+--    MkVPI vp = {
+--      s = \\v,a => vp.ad ++ vp.inf ++ vp.s2 ! a
+--      } ;
+--    ConjVPI = conjunctDistrTable2 VPIForm Agr ;
+--    ComplVPIVV vv vpi = 
+------      insertObj (\\a => infVP vv.typ vpi a) (predVV vv) ;
+--      let isAux = case vv.typ of {VVAux => True ; _ => False} in 
+--      insertObj (\\a => (if_then_Str isAux [] "to") ++ vpi.s ! VPIInf ! a) (predVV vv) ;
+--
+--  lin
+--    that_RP = 
+--    { s = table {
+--        RC _ (NCase Gen)    => "whose" ; 
+--        RC _ _      => "that" ;
+--        _           => "that"   ---- "in that" ?
+----        RPrep Neutr => "which" ;
+----        RPrep _     => "whom"
+--        } ;
+--      a = RNoAg
+--      } ;
+--
+--    each_Det = mkDeterminer Sg "each" ;
+--    any_Quant = mkQuant "any" "any" ;
+--
+---- for VP conjunction
+--
+--  param
+--    VPIForm = VPIInf | VPIPPart ;
+--
+--  lincat
+--    VPS   = {s : Agr => Str} ;
+--    [VPS] = {s1,s2 : Agr => Str} ;
+--
+--  lin
+--    BaseVPS = twoTable Agr ;
+--    ConsVPS = consrTable Agr comma ;
+--
+--    PredVPS np vpi = {s = np.s ! npNom ++ vpi.s ! np.a} ;
+--
+--    MkVPS t p vp = {
+--      s = \\a => 
+--            let 
+--              verb = vp.s ! t.t ! t.a ! p.p ! ODir ! a ;
+--              verbf = verb.aux ++ verb.adv ++ verb.fin ++ verb.inf ;
+--            in t.s ++ p.s ++ vp.ad ++ verbf ++ vp.s2 ! a
+--      } ;
+--
+--    ConjVPS = conjunctDistrTable Agr ;
+--
+--    ICompAP ap = {s = "how" ++ ap.s ! agrP3 Sg} ; ---- IComp should have agr!
+--
+--    IAdvAdv adv = {s = "how" ++ adv.s} ;
+--
+--    PartVP vp = {
+--      s = \\a => vp.ad ++ vp.prp ++ vp.s2 ! a ;
+--      isPre = False ---- depends on whether there are complements
+--      } ;
+--
+--    EmbedPresPart vp = {s = infVP VVPresPart vp (agrP3 Sg)} ; --- agr
+--
+--    UttVPShort vp = {s = infVP VVAux vp (agrP3 Sg)} ;
+--
+--  do_VV = {
+--    s = table {
+--      VVF VInf => ["do"] ;
+--      VVF VPres => "does" ;
+--      VVF VPPart => ["done"] ; ----
+--      VVF VPresPart => ["doing"] ;
+--      VVF VPast => ["did"] ;      --# notpresent
+--      VVPastNeg => ["didn't"] ;      --# notpresent
+--      VVPresNeg => "doesn't"
+--      } ;
+--    typ = VVAux
+--    } ;
+--
+--
+--lin
+--  UncNeg = {s = [] ; p = CNeg False} ; 
+--
+--  PassVPSlash vps = 
+--    let 
+--      be = predAux auxBe ;
+--      ppt = vps.ptp
+--    in {
+--    s = be.s ;
+--    prp = be.prp ;
+--    ptp = be.ptp ;
+--    inf = be.inf ;
+--    ad = vps.ad ;
+--    s2 = \\a => ppt ++ vps.s2 ! a ---- order
+--    } ;
+--
+--------------
+----- obsolete: use UncNeg : Pol
+--
+--    UncNegCl t p cl = {
+--      s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! unc p.p ! ODir
+--    } ;
+--    UncNegQCl t p cl = {
+--      s = \\q => t.s ++ p.s ++ cl.s ! t.t ! t.a ! unc p.p ! q
+--    } ;
+--    UncNegRCl t p cl = {
+--      s = \\r => t.s ++ p.s ++ cl.s ! t.t ! t.a ! unc p.p ! r ;
+--      c = cl.c
+--    } ;
+--
+--    UncNegImpSg p imp = {s = p.s ++ imp.s ! unc p.p ! ImpF Sg False} ;
+--    UncNegImpPl p imp = {s = p.s ++ imp.s ! unc p.p ! ImpF Pl False} ;
+--
+--    CompoundCN a b = {s = \\n,c => a.s ! Sg ! Nom ++ b.s ! n ! c ; g = b.g} ;
+--
+--  oper
+--    unc : CPolarity -> CPolarity = \x -> case x of {
+--      CNeg _ => CNeg False ; 
+--      _ => x
+--      } ;
+---------
+--
+--
+--} 
+
+}