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

@@ -1,9 +1,9 @@
 --# -path=.:../romance:../common:../abstract:../../prelude
 
-concrete LexiconSpa of Lexicon = CatSpa ** open 
+concrete LexiconSpa of Lexicon = CatSpa ** open
   (M=MorphoSpa), ParadigmsSpa, (D = DiffSpa), BeschSpa in {
 
-flags 
+flags
     coding=utf8 ;
   optimize=values ;
 
@@ -12,7 +12,7 @@ lin
    answer_V2S = mkV2S (regV "responder") dative ;
    apartment_N = regN "apartamento" ;
    apple_N = regN "manzana" ;
-   art_N = regN "arte" ;	
+   art_N = regN "arte" ;
    ask_V2Q = mkV2Q (regV "preguntar") dative ;
    baby_N = regN "bebé" ;		-- can be used for both fem. & masc.
    bad_A = prefA (mkADeg (regA "malo") (regA "peor")) ;
@@ -70,7 +70,7 @@ lin
    eat_V2 = dirV2 (regV "comer") ;
    empty_A = regADeg "vacío" ;
    enemy_N = regN "enemigo" ;		-- enemiga
-   factory_N = regN "fábrica" ;	
+   factory_N = regN "fábrica" ;
    father_N2 = deN2 (regN "padre") ;
    fear_VS = mkVS (regV "temer") ;
    find_V2 = dirV2 (verboV (encontrar_38 "encontrar")) ;
@@ -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" ;
@@ -126,7 +126,7 @@ lin
    music_N = mkN "música" ;
    narrow_A = regADeg "estrecho" ;
    new_A = prefA (regADeg "nuevo") ;
-   newspaper_N = mkN "periódico" ;		-- diario  
+   newspaper_N = mkN "periódico" ;		-- diario
    oil_N = mkN "aceite" ;
    old_A =  prefA (regADeg "viejo") ;
    open_V2 = dirV2 (special_ppV (regV "abrir") "abierto") ;
@@ -140,7 +140,7 @@ lin
    play_V2 = dirV2 (verboV (jugar_47 "jugar")) ;
    policeman_N = mkN "policía" masculine ;	-- fem refers to the institution
    priest_N = mkN "cura" masculine ;		-- masc
-   probable_AS = mkAS (regA "probable") ;	
+   probable_AS = mkAS (regA "probable") ;
    queen_N = mkN "reina" ;
    question_N = mkN "pregunta" ;
    radio_N = mkN "radio" feminine ;
@@ -158,7 +158,7 @@ lin
    say_VS = mkVS (verboV (decir_28 "decir")) ;
    school_N = regN "escuela" ;
    science_N = regN "ciencia" ;
-   sea_N = regN "mar" ;			-- masc & fem 
+   sea_N = regN "mar" ;			-- masc & fem
    seek_V2 = dirV2 (regV "buscar") ;
    see_V2 = dirV2 (verboV (ver_83 "ver")) ;
    sell_V3 = dirV3 (regV "vender") dative ;
@@ -182,10 +182,10 @@ lin
    stove_N = regN "horno" ;		-- estufa
    student_N = regN "estudiante" ;	-- used both for fem & masc
    stupid_A = regADeg "estúpido" ;
-   sun_N = regN "sol" ;	
+   sun_N = regN "sol" ;
    switch8off_V2 = dirV2 (regV "apagar") ;
    switch8on_V2 = dirV2 (regV "prender") ;
-   table_N = regN "mesa" ; 
+   table_N = regN "mesa" ;
    talk_V3 = mkV3 (regV "hablar") dative genitive ;
    teacher_N = regN "maestro" ;		-- maestra
    teach_V2 = dirV2 (regV "enseñar") ;
@@ -205,7 +205,7 @@ lin
    warm_A = regADeg "caliente" ;
    war_N = mkN "guerra" ;
    watch_V2 = dirV2 (regV "mirar") ;		-- ver
-   water_N = mkN "agua" ; 
+   water_N = mkN "agua" ;
    white_A = compADeg (regA "blanco") ;
    window_N = regN "ventana" ;
    wine_N = regN "vino" ;
@@ -215,7 +215,7 @@ lin
    wood_N = regN "madera" ;
    write_V2 = dirV2 (special_ppV (regV "escribir") "escrito") ;
    yellow_A = regADeg "amarillo" ;
-   young_A = prefA (mkA "joven" "joven" "jóvenes" "jóvenes" "jovenamente") ; 
+   young_A = prefA (mkA "joven" "joven" "jóvenes" "jóvenes" "jovenamente") ;
 
    do_V2 =  dirV2 (verboV (hacer_44 "hacer")) ;
    now_Adv = mkAdv "ahora" ;
@@ -224,7 +224,7 @@ lin
    add_V3 = dirV3 (regV "sumar") dative ;
    number_N = regN "número" ;
    put_V2 = dirV2 (verboV (poner_60 "poner")) ;
-   stop_V = regV "parar" ; 
+   stop_V = regV "parar" ;
    jump_V = regV "saltar" ;
 
   left_Ord = M.mkOrd (regA "izquierda") ;