msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Merge pull request #216 from inariksit/spanish

Browse Source 
Spanish lexicon
This commit is contained in:
Inari Listenmaa
2019-04-04 20:58:51 +02:00
committed by GitHub
parent bb178fc2c8 bc06abe350
commit 98998cb1ae
4 changed files with 473 additions and 303 deletions
Download Patch File Download Diff File Expand all files Collapse all files

657
src/spanish/DictSpa.gf
View File

File diff suppressed because it is too large Load Diff

87
src/spanish/DictSpaAbs.gf
View File

@@ -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 ;
}

6
src/spanish/ExtendSpa.gf
View File

@@ -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
} ;

26
src/spanish/LexiconSpa.gf
View File

@@ -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") ;