Merge pull request #216 from inariksit/spanish

Spanish lexicon

src/spanish/DictSpaAbs.gf

@@ -14958,6 +14958,7 @@ fun doctrina_judicial_N : N ;
 fun doctrinal_A : A ;
 fun documentación_N : N ;
 fun documentación_de_software_N : N ;
+fun documentado_A : A ;
 fun documental_A : A ;
 fun documental_N : N ;
 fun documentar_V : V ;
@@ -27589,6 +27590,7 @@ fun moho_mucilaginoso_verdadero_N : N ;
 fun mohoso_A : A ;
 fun mohria_N : N ;
 fun mohín_N : N ;
+fun mojado_A : A ;
 fun mojar_V : V ;
 fun mojave_N : N ;
 fun mojiganga_N : N ;
@@ -30610,7 +30612,9 @@ fun parroquia_N : N ;
 fun parsec_N : N ;
 fun parsimonia_N : N ;
 fun parsismo_N : N ;
-fun parte_N : N ;
+fun parte_N : N ; -- parte_1_N is more common, this is an alias for it
+fun parte_1_N : N ; -- part, section, portion
+fun parte_2_N : N ; -- message, report, dispatch
 fun parte_alícuota_A : A ;
 fun parte_anterior_N : N ;
 fun parte_del_cuerpo_N : N ;
@@ -35254,6 +35258,7 @@ fun reproductivo_A : A ;
 fun reproductor_A : A ;
 fun reproductor_N : N ;
 fun reproductor_de_casetes_N : N ;
+fun reprogramar_V : V ;
 fun repromulgar_V : V ;
 fun reptil_A : A ;
 fun reptil_N : N ;
@@ -42562,5 +42567,85 @@ fun entumecimiento_N : N ;
 fun extractor_N : N ;
 fun glóbulo_N : N ;
 fun ante_Prep : Prep ;
+fun traducido_A : A ;
+fun irritado_A : A ;
+fun mareo_A : A ;
+fun web_N : N ;
+fun almohadilla_N : N ;
+fun descansa_N : N ;
+fun aparencia_N : N ;
+fun urocultivo_N : N ;
+fun esterilla_N : N ;
+fun puja_N : N ;
+fun asir_N : N ;
+fun ulcerado_A : A ;
+fun coser_A : A ;
+fun hinchazón_N : N ;
+fun hinchado_A : A ;
+fun capota_N : N ;
+fun estresado_A : A ;
+fun agrietado_A : A ;
+fun tranquilizante_N : N ;
+fun legaña_A : A ;
+fun letargo_A : A ;
+fun mucosa_N : N ;
+fun girarse_V : V ;
+fun esqueleto_N : N ;
+fun electroencefalógrafo_N : N ;
+fun sonrosado_A : A ;
+fun miedo_A : A ;
+fun enrojecimiento_N : N ;
+fun policlínica_N : N ;
+fun pigmentado_A : A ;
+fun animoso_A : A ;
+fun observador_A : A ;
+fun pielonefritis_N : N ;
+fun translucencia_N : N ;
+fun sospecha_A : A ;
+fun descontento_A : A ;
+fun milimetro_N : N ;
+fun milia_N : N ;
+fun disuelto_A : A ;
+fun liviano_A : A ;
+fun calma_A : A ;
+fun logopeda_N : N ;
+fun fotosensibilidad_N : N ;
+fun micción_N : N ;
+fun admitido_A : A ;
+fun inmunización_N : N ;
+fun hemorroide_N : N ;
+fun andador_N : N ;
+fun túrbido_A : A ;
+fun aprobado_A : A ;
+fun brechar_V : V ;
+fun sorprendido_A : A ;
+fun engrandecido_A : A ;
+fun resfrío_N : N ;
+fun coyuntura_N : N ;
+fun uroflujometría_N : N ;
+fun flanco_N : N ;
+fun merendar_V : V ;
+fun mal_A : A ;
+fun involucrado_A : A ;
+fun tembloroso_A : A ;
+fun sangrado_N : N ;
+fun azulado_A : A ;
+fun antihipertensivo_A : A ;
+fun palidecer_V : V ;
+fun relajante_N : N ;
+fun audiólogo_N : N ;
+fun apuntado_A : A ;
+fun anamnesis_N : N ;
+fun lactancia_N : N ;
+fun emergencia_A : A ;
+fun acrocianosis_N : N ;
+fun cribado_N : N ;
+fun bastoncillo_N : N ;
+fun de_verdad_Adv : Adv ;
+fun monitoreo_N : N ;
+fun monitorear_V : V ;
+fun levemente_Adv : Adv ;
+fun amamantamiento_N : N ;
+fun inducción_N : N ;
 
 }

src/spanish/ExtendSpa.gf

@@ -70,12 +70,12 @@ concrete ExtendSpa of Extend = CatSpa ** ExtendRomanceFunctor -
       Fem Pl P3 ;
 
     ICompAP ap = {
-      s =\\a => "que tan" ++ ap.s ! (genNum2Aform a.g a.n) ;
+      s =\\a => "qué tan" ++ ap.s ! (genNum2Aform a.g a.n) ;
       cop = serCopula
       } ;
 
     IAdvAdv adv = {
-      s = "que tan" ++ adv.s
+      s = "qué tan" ++ adv.s
       } ;
 
     ExistsNP np =
@@ -85,7 +85,7 @@ concrete ExtendSpa of Extend = CatSpa ** ExtendRomanceFunctor -
 
     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}
+        ++ variants {"de" ; genForms "del" "de la" ! noun.g}
         ++ noun.s ! Sg ;
       g = noun2.g
       } ;

src/spanish/LexiconSpa.gf

@@ -85,7 +85,7 @@ lin
    girl_N = regN "niña" ;
    glove_N = regN "guante" ;
    gold_N = regN "oro" ;
-   good_A = prefA (mkADeg (regA "bueno") (regA "mejor")) ; ---- adv?
+   good_A = prefA (mkA (mkA "buen" "bueno" "buena" "buena" "buenos" "buenas" "bien") (mkA "mejor")) ;
    go_V = (verboV (ir_46 "ir")) ;
    green_A = regADeg "verde" ;
    harbour_N = regN "puerto" ;