(Spa) Add Extend functions, mostly copied from Por

src/spanish/ExtendSpa.gf

@@ -3,8 +3,50 @@
 concrete ExtendSpa of Extend =
   CatSpa ** ExtendFunctor -
    [
-   iFem_Pron, youFem_Pron, weFem_Pron, youPlFem_Pron, theyFem_Pron, youPolFem_Pron, youPolPl_Pron, youPolPlFem_Pron,
+     iFem_Pron, youFem_Pron, weFem_Pron, youPlFem_Pron, theyFem_Pron,
-   ProDrop
+        youPolFem_Pron, youPolPl_Pron, youPolPlFem_Pron,
+      ProDrop,
+      AdAdV,
+      AdjAsCN,
+      AdjAsNP,
+      ApposNP,
+      BaseVPS,
+      ByVP,
+      CompBareCN,
+      ComplBareVS,
+      ComplSlashPartLast,
+      CompoundAP,
+      CompoundN,
+      CompVP,
+      ConjVPS,
+      ConsVPS,
+      --EmptyRelSlash,
+      ExistsNP,
+      GenIP,
+      GenModIP,
+      GenModNP,
+      GenNP,
+      GerundAdv,
+      GerundCN,
+      GerundNP,
+      IAdvAdv,
+      ICompAP,
+      InOrderToVP,
+      ListVPS,
+      MkVPS,
+      PassAgentVPSlash,
+      PassVPSlash,
+      PastPartAP,
+      PastPartAgentAP,
+      PositAdVAdj,
+      PredVPS,
+      PresPartAP,
+      PurposeVP,
+      UseComp_estar,
+      VPS,
+      UttAdV,
+      UttVPShort,
+      WithoutVP
    ]                   -- put the names of your own definitions here
   with
     (Grammar = GrammarSpa) **
@@ -19,7 +61,7 @@ concrete ExtendSpa of Extend =
 
   lin
     UseComp_estar comp = insertComplement comp.s (predV estar_V) ;
-    
+
     iFem_Pron =  mkPronoun
       "yo" "me" "me" "mí"
       "mi" "mi" "mis" "mis"
@@ -29,12 +71,12 @@ concrete ExtendSpa of Extend =
       "su" "su" "sus" "sus"
       Fem Pl P3 ;
 
-    weFem_Pron = mkPronoun 
+    weFem_Pron = mkPronoun
       "nosotras" "nos" "nos" "nosotras"
       "nuestro" "nuestra" "nuestros" "nuestras"
       Fem Pl P1 ;
 
-    youFem_Pron = mkPronoun 
+    youFem_Pron = mkPronoun
       "tú" "te" "te" "ti"
       "tu" "tu" "tus" "tus"
       Fem Sg P2 ;
@@ -56,17 +98,209 @@ concrete ExtendSpa of Extend =
       "su" "su" "sus" "sus"
       Fem Pl P3 ;
 
-    ProDrop p = {
+    ProDrop p = p ** {
       s = table {
-        Nom => let pn = p.s ! Nom in {c1 = pn.c1 ; c2 = pn.c2 ; comp = [] ; ton = pn.ton} ; 
+        Nom => let pn = p.s ! Nom in {c1 = pn.c1 ; c2 = pn.c2 ; comp = [] ; ton = pn.ton} ;
         c => p.s ! c
         } ;
-      a = p.a ;
-      poss = p.poss ;
-      hasClit = p.hasClit ;
-      isPol = p.isPol ;
       isNeg = False
       } ;
 
+--- All that follows is copied from Portuguese /IL
+
+    GenNP np =
+      let denp = (np.s ! ResSpa.genitive).ton in {
+        s = \\_,_,_,_ => [] ;
+        sp = \\_,_,_ => denp ;
+        s2 = denp ;
+        isNeg = False ;
+      } ;
+
+     GenIP ip = {s = \\_,_,c => ip.s ! c} ;
+
+     GenModNP num np cn = DetCN (DetQuant (GenNP (lin NP np)) num) cn ;
+
+     GenModIP num ip cn = IdetCN (IdetQuant (GenIP (lin IP ip)) num) cn ;
+
+     CompBareCN cn = {
+       s = \\agr => cn.s ! agr.n ;
+       cop = serCopula
+       } ;
+
+     EmptyRelSlash cls = {
+       s = \\agr,t,a,p,m => cls.s ! agr ! DDir ! t ! a ! p ! m ++ cls.c2.s ;
+       c = Nom
+       } ;
+  lincat
+    VPS = {s : Mood => Agr => Bool => Str} ;
+    [VPS] = {s1,s2 : Mood => Agr => Bool => Str} ;
+
+  lin
+    BaseVPS x y = twoTable3 Mood Agr Bool x y ;
+    ConsVPS = consrTable3 Mood Agr Bool comma ;
+
+    PredVPS np vpi = {
+      s = \\m => (np.s ! Nom).comp ++ vpi.s ! m ! np.a ! np.isNeg
+      } ;
+
+    MkVPS tm p vp = {
+      s = \\m,agr,isNeg =>
+        tm.s ++ p.s ++
+        (mkClausePol (orB isNeg vp.isNeg) [] False False agr vp).s
+          ! DDir ! tm.t ! tm.a ! p.p ! m
+      } ;
+
+    ConjVPS = conjunctDistrTable3 Mood Agr Bool ;
+
+    ICompAP ap = {
+      s =\\a => "que tan" ++ ap.s ! (genNum2Aform a.g a.n) ;
+      cop = serCopula
+      } ;
+
+    IAdvAdv adv = {
+      s = "que tan" ++ adv.s
+      } ;
+
+    CompIQuant iq = {s = \\aa => iq.s ! aa.n ! aa.g ! Nom ; cop = serCopula} ;
+
+    PrepCN prep cn = {s = prep.s ++ prepCase prep.c ++ cn.s ! Sg} ;
+
+  lin
+    PresPartAP vp = {
+      s = \\af => gerVP vp (aform2aagr af ** {p = P3}) ;
+      isPre = False ;
+      copTyp = serCopula
+      } ;
+
+    PastPartAP vps = pastPartAP vps [] ;
+
+    PastPartAgentAP vps np = pastPartAP vps (let by = <Grammar.by8agent_Prep : Prep> in by.s ++ (np.s ! by.c).ton) ;
+
+    PassVPSlash vps = passVPSlash vps [] ;
+
+    PassAgentVPSlash vps np = passVPSlash vps (let by = <Grammar.by8agent_Prep : Prep> in by.s ++ (np.s ! by.c).ton) ;
+
+    ExistsNP np =
+      mkClause [] True False np.a
+      (insertComplement (\\_ => (np.s ! Nom).ton)
+         (predV (mkV "existir"))) ;
+
+    PurposeVP vp = {
+      s = infVP vp (Ag Masc Sg P3)
+      } ;
+
+    ComplBareVS = ComplVS ;
+
+    AdjAsCN ap = {
+      s =\\n => ap.s ! (genNum2Aform Masc n) ;
+      g = Masc
+      } ;
+
+    AdjAsNP ap = heavyNP {
+      s = \\_c => ap.s ! ASg Masc APred ;
+      a = Ag Masc Sg P3
+      } ;
+
+  oper
+    pastPartAP : VPSlash -> Str -> AP ;
+    pastPartAP vps agent = lin AP {
+      s = \\af => vps.comp ! (aform2aagr af ** {p = P3}) ++ vps.s.s ! VPart (aform2gender af) (aform2number af) ++ agent ;
+      isPre = False ;
+      copTyp = serCopula
+      } ;
+
+    passVPSlash : VPSlash -> Str -> VP ;
+    passVPSlash vps agent = let
+      auxvp = predV auxPassive
+      in
+      vps ** {
+        s = auxvp.s ;
+        agr = auxvp.agr ;
+        comp  = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ;
+      } ;
+
+  lin
+    CompoundN noun noun2 = { -- order is different because that's needed for correct translation from english
+      s = \\n => noun2.s ! n
+        ++ variants {"de" ; genForms "do" "da" ! noun.g}
+        ++ noun.s ! Sg ;
+      g = noun2.g
+      } ;
+
+    CompoundAP noun adj = {
+      s = \\af => case (aform2aagr af) of {
+        {n = n} => adj.s ! Posit ! (genNum2Aform noun.g n) ++ "de" ++ noun.s ! n
+        } ;
+      isPre = adj.isPre ;
+      copTyp = adj.copTyp
+      } ;
+
+    GerundCN vp = {
+      s = \\n => gerVP vp {g = Masc ; n = n ; p = P3} ;
+      g = Masc
+      } ;
+
+    GerundNP vp = let
+      neutrAgr = Ag Masc Sg P3
+      in heavyNP {
+        s = \\_ => gerVP vp neutrAgr ;
+        a = neutrAgr
+      } ;
+
+    GerundAdv vp = {
+      s = gerundStr vp
+      } ;
+
+    WithoutVP vp = {
+      s = "sin" ++ infStr vp
+      } ;
+
+    ByVP vp = {
+      s = gerundStr vp
+      } ;
+
+    InOrderToVP vp = {
+      s = "para" ++ infStr vp
+      } ;
+
+    ApposNP np1 np2 = np1 ** {
+      s = \\c => {
+        c1 = (np1.s ! c).c1  ++ (np2.s ! c).c1 ;
+        c2 = (np1.s ! c).c2 ++ (np2.s ! c).c2 ;
+        comp = (np1.s ! c).comp ++ (np2.s ! c).comp ;
+        ton = (np1.s ! c).ton ++ (np2.s ! c).ton
+        } ;
+      } ;
+
+    AdAdV aa av = {
+      s = aa.s ++ av.s
+      } ;
+
+    UttAdV av = av ;
+
+    PositAdVAdj a = {
+      s = a.s ! Posit ! AA
+      } ;
+
+    --TODO: actually use ant
+    CompVP ant p vp = let
+      neg = negation ! p.p
+      in {
+        s = \\agr => ant.s ++ p.s ++ "de" ++ neg.p1 ++ infVP vp agr ;
+        cop = serCopula
+      } ;
+
+    UttVPShort = UttVP ;
+
+    ComplSlashPartLast = ComplSlash ;
+
+  oper
+    gerundStr : VP -> Str ;
+    gerundStr vp = gerVP vp (Ag Masc Sg P3) ;
+    infStr : VP -> Str ;
+    infStr vp = infVP vp (Ag Masc Sg P3) ;
+
+  lin
+    UncontractedNeg = {s = [] ; p = RNeg False} ;
 
     }