Merge pull request #221 from inariksit/spanish

remove variants {} from IrregSpa + misc. small fixes

src/spanish/DictSpa.gf

@@ -20577,7 +20577,7 @@ lin grasoso_A = mkA "grasoso" ;
 lin gratificación_N = mkN "gratificación" ;
 lin gratificante_A = mkA "gratificante" ;
 lin gratificar_V = mkV "gratificar" ;
-lin gratis_A = mkA "gratis" ;
+lin gratis_A = invarA "gratis" ;
 lin gratis_Adv = mkAdv "gratis" ;
 lin gratitud_N = mkN "gratitud" ;
 lin grato_A = mkA "grato" ;
@@ -34182,7 +34182,7 @@ lin reembolsar_V = mkV "reembolsar" ;
 lin reembolso_N = mkN "reembolso" ;
 lin reemplazable_A = mkA "reemplazable" ;
 lin reemplazar_V = mkV "reemplazar" ;
-lin reencender_V = mkV "reencender" ;
+lin reencender_V = mkV "reencender" "reenciendo" ;
 lin reencontrarse_V = reflV reencontrar_V ;
 lin reensamblaje_N = mkN "reensamblaje" ;
 lin reensamblar_V = mkV "reensamblar" ;
@@ -42669,7 +42669,7 @@ lin resfrío_N = mkN "resfrío" ;
 lin coyuntura_N = mkN "coyuntura" ;
 lin uroflujometría_N = mkN "uroflujometría" ;
 lin flanco_N = mkN "flanco" ;
-lin merendar_V = mkV "merendar" ;
+lin merendar_V = mkV "merendar" "meriendo" ;
 lin mal_A = mkA "mal" ;
 lin involucrado_A = mkA "involucrado" ;
 lin tembloroso_A = mkA "tembloroso" ;

src/spanish/DiffSpa.gf

@@ -197,7 +197,7 @@ instance DiffSpa of DiffRomance - [iAdvQuestionInv,otherInv,partAgr,stare_V,vpAg
         <_,Pl,P1> => cases "nos" "nosotras" ; --- nosotros
         <_,Pl,P2> => cases "vos" "vosotras" ; --- vosotros
         <Fem,Sg,P3> => cases3 "la" "le" "ella" ;
-        <_,  Sg,P3> => cases3 "lo" "le" "èl" ;
+        <_,  Sg,P3> => cases3 "lo" "le" "él" ;
         <Fem,Pl,P3> => cases3 "las" "les" "ellas" ;
         <_,  Pl,P3> => cases3 "los" "les" "ellos"
         } ;

src/spanish/MakeStructuralSpa.gf

@@ -55,17 +55,14 @@ oper
   mkDet = overload {
     -- Does not inflect for number
     mkDet : Str -> Number -> Det = \piu,n -> lin Det {
-      s,sp = \\_,_ => piu ;
+      s,sp = \\_,c => prepCase c ++ piu ;
       n = n ;
       s2 = [] ;
       isNeg = False
     } ;
     -- Inflects for number
     mkDet : Str -> Str -> Number -> Det = \alcuni,alcune,n -> lin Det {
-      s,sp = table {
-        Masc => \\_ => alcuni ;
-        Fem  => \\_ => alcune
-      } ;
+      s,sp = \\g,c => prepCase c ++ genForms alcuni alcune ! g ;
       n = n ;
       s2 = [] ;
       isNeg = False