From cf3552505f613aded9d5c5e10cc00dbd2ef2272b Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 22 May 2005 09:12:09 +0000 Subject: [PATCH] Spanish lexica --- lib/resource/doc/gf-resource.html | 17 +- lib/resource/french/SyntaxFre.gf | 2 + lib/resource/italian/CountryIta.gf | 2 +- lib/resource/italian/SyntaxIta.gf | 2 + lib/resource/romance/RulesRomance.gf | 2 +- lib/resource/romance/SyntaxRomance.gf | 3 + lib/resource/spanish/AllResourceSpa.gf | 2 - lib/resource/spanish/BasicSpa.gf | 232 +++++++++++++++++++++++ lib/resource/spanish/CountrySpa.gf | 25 +++ lib/resource/spanish/LangSpa.gf | 22 +++ lib/resource/spanish/SwadeshLexSpa.gf | 248 +++++++++++++++++++++++++ lib/resource/spanish/SyntaxSpa.gf | 2 + lib/resource/spanish/TimeSpa.gf | 32 ++++ 13 files changed, 583 insertions(+), 8 deletions(-) delete mode 100644 lib/resource/spanish/AllResourceSpa.gf create mode 100644 lib/resource/spanish/BasicSpa.gf create mode 100644 lib/resource/spanish/CountrySpa.gf create mode 100644 lib/resource/spanish/LangSpa.gf create mode 100644 lib/resource/spanish/SwadeshLexSpa.gf create mode 100644 lib/resource/spanish/TimeSpa.gf diff --git a/lib/resource/doc/gf-resource.html b/lib/resource/doc/gf-resource.html index da97b8f7c..72269ddfb 100644 --- a/lib/resource/doc/gf-resource.html +++ b/lib/resource/doc/gf-resource.html @@ -693,17 +693,26 @@ English

Finnish

-French: no inverted questions +French: +no inverted questions; +some verbs in Basic should be reflexive

German

-Italian: no omission of unstressed subject pronouns +Italian: +no omission of unstressed subject pronouns; +some verbs in Basic should be reflexive

-Norwegian +Norwegian: +possessives bilen min not included

Russian

-Spanish: no omission of unstressed subject pronouns +Spanish: +no omission of unstressed subject pronouns; +no switch to dative case for human objects; +some verbs in Basic should be reflexive +

Swedish diff --git a/lib/resource/french/SyntaxFre.gf b/lib/resource/french/SyntaxFre.gf index 309fd4cf5..f3dae1f5c 100644 --- a/lib/resource/french/SyntaxFre.gf +++ b/lib/resource/french/SyntaxFre.gf @@ -328,4 +328,6 @@ oper negNe = elisNe ; negPas = "pas" ; + predVerb0 rain = predVerbClause (pronNounPhrase pronImpers) rain (complVerb rain) ; + } diff --git a/lib/resource/italian/CountryIta.gf b/lib/resource/italian/CountryIta.gf index 88aea9128..de28f29a3 100644 --- a/lib/resource/italian/CountryIta.gf +++ b/lib/resource/italian/CountryIta.gf @@ -11,7 +11,7 @@ concrete CountryIta of Country = open CategoriesIta, ParadigmsIta in { Finland = mkPN "Finlandia" feminine ; France = mkPN "Francia" feminine ; Germany = mkPN "Germania" feminine ; - Italy = mkPN "Italie" feminine ; + Italy = mkPN "Italia" feminine ; Norway = mkPN "Norvegia" feminine ; Russia = mkPN "Russia" feminine ; Spain = mkPN "Spagna" feminine ; diff --git a/lib/resource/italian/SyntaxIta.gf b/lib/resource/italian/SyntaxIta.gf index 27c2ba2cc..d77c66daf 100644 --- a/lib/resource/italian/SyntaxIta.gf +++ b/lib/resource/italian/SyntaxIta.gf @@ -275,5 +275,7 @@ oper negNe = "non" ; negPas = [] ; + predVerb0 rain = predVerbClause (mkNameNounPhrase [] Masc) rain (complVerb rain) ; + } diff --git a/lib/resource/romance/RulesRomance.gf b/lib/resource/romance/RulesRomance.gf index 9e54abe88..19abcc3a9 100644 --- a/lib/resource/romance/RulesRomance.gf +++ b/lib/resource/romance/RulesRomance.gf @@ -48,7 +48,7 @@ lin SuperlADeg = superlAdjPhrase ; PredAS = predAdjSent ; - PredV0 rain = predVerbClause (pronNounPhrase pronImpers) rain (complVerb rain) ; + PredV0 rain = predVerb0 rain ; -- Partial saturation. diff --git a/lib/resource/romance/SyntaxRomance.gf b/lib/resource/romance/SyntaxRomance.gf index 1b43f3759..6e4778264 100644 --- a/lib/resource/romance/SyntaxRomance.gf +++ b/lib/resource/romance/SyntaxRomance.gf @@ -1566,4 +1566,7 @@ negNe, negPas : Str ; in {s = \\b,f,_ => cl.s ! b ! f} ; +predVerb0 : Verb -> Clause ; + + } diff --git a/lib/resource/spanish/AllResourceSpa.gf b/lib/resource/spanish/AllResourceSpa.gf deleted file mode 100644 index 9073a97c2..000000000 --- a/lib/resource/spanish/AllResourceSpa.gf +++ /dev/null @@ -1,2 +0,0 @@ -concrete AllResourceSpa of AllResource = RulesSpa, StructuralSpa ** {} ; - diff --git a/lib/resource/spanish/BasicSpa.gf b/lib/resource/spanish/BasicSpa.gf new file mode 100644 index 000000000..dc12a9014 --- /dev/null +++ b/lib/resource/spanish/BasicSpa.gf @@ -0,0 +1,232 @@ +--# -path=.:../romance:../abstract:../../prelude + +concrete BasicSpa of Basic = CategoriesSpa ** open ParadigmsSpa, BeschSpa in { + +-- words contributed by Ana Bove, May 2005 +---- TO CHECK: verb conjugations marked ----V + +flags + startcat=Phr ; lexer=textlit ; unlexer=text ; + optimize=values ; + +lin + airplane_N = regN "aeroplano" ; -- avión is masculine + answer_V2S = mkV2S (regV "responder") dative ; ----V + apartment_N = regN "apartamento" ; + apple_N = regN "manzana" ; + art_N = regN "arte" ; -- masculine + ask_V2Q = mkV2Q (regV "preguntar") dative ; + baby_N = regN "bebé" ; -- can be used for both fem. & masc. + bad_ADeg = prefADeg (mkADeg (regA "malo") (regA "peor")) ; + bank_N = regN "banco" ; + beautiful_ADeg = prefADeg (regADeg "bello") ; -- bella + become_VA = regV "conventir" ; --- convertirse en, volverse, ponerse + beer_N = regN "cerveza" ; + beg_V2V = mkV2V (regV "rogar") accusative dative ; -- pedir + big_ADeg = prefADeg (regADeg "grande") ; + bike_N = regN "bicicleta" ; + bird_N = regN "pájaro" ; + black_ADeg = regADeg "negro" ; -- negra + blue_ADeg = regADeg "azul" ; + boat_N = regN "bote" ; + book_N = regN "libro" ; + boot_N = regN "bota" ; + boss_N = regN "jefe" ; + boy_N = regN "niño" ; + bread_N = regN "pan" ; + break_V2 = dirV2 (regV "romper") ; ----V + broad_ADeg = regADeg "ancho" ; + brother_N2 = deN2 (regN "hermano") ; + brown_ADeg = regADeg "marrón" ; + butter_N = regN "manteca" ; + buy_V2 = dirV2 (regV "comprar") ; + camera_N = regN "cámara" ; -- ["máquina fotográfica"] + cap_N = regN "gorra" ; + car_N = regN "auto" ; + carpet_N = regN "alfombra" ; + cat_N = regN "gato" ; -- gata + ceiling_N = regN "techo" ; + chair_N = regN "silla" ; + cheese_N = regN "queso" ; + child_N = regN "niño" ; -- niña + church_N = regN "iglesia" ; + city_N = femN (regN "ciudad") ; -- fem + clean_ADeg = regADeg "limpio" ; + clever_ADeg = regADeg "inteligente" ; + close_V2 = dirV2 (regV "cerrar") ; + coat_N = regN "abrigo" ; + cold_ADeg = regADeg "frío" ; -- fría + come_V = verboV (venir_82 "venir") ; + computer_N = regN "computadora" ; -- also computador, ordenador in Spain + country_N = regN "país" ; -- masc + cousin_N = regN "primo" ; + cow_N = regN "vaca" ; + die_V = regV "morir" ; ----V verboV (morire_105 "morir") ; + dirty_ADeg = regADeg "sucio" ; + doctor_N = regN "médico" ; -- médica + dog_N = regN "perro" ; -- perra + door_N = regN "puerta" ; + drink_V2 = dirV2 (regV "tomar") ; -- beber + easy_A2V = mkA2V (regA "fácil") dative genitive ; + eat_V2 = dirV2 (regV "comer") ; ----V + enemy_N = regN "enemigo" ; -- enemiga + factory_N = regN "fábrica" ; + father_N2 = deN2 (regN "padre") ; + fear_VS = mkVS (regV "temer") ; ----V mkVS (verboV (temere_20 "temer")) ; + find_V2 = dirV2 (regV "encontrar") ; + fish_N = regN "pez" ; + floor_N = regN "suelo" ; -- piso + forget_V2 = dirV2 (regV "olvidar") ; + fridge_N = regN "heladera" ; + friend_N = regN "amigo" ; -- amiga + fruit_N = regN "fruta" ; + fun_AV = mkAV (regA "divertido") genitive ; -- entretenido + garden_N = regN "jardín" ; + girl_N = regN "niña" ; + glove_N = regN "guante" ; + gold_N = regN "oro" ; + good_ADeg = prefADeg (mkADeg (regA "bueno") (regA "mejor")) ; ---- adv? + go_V = (verboV (ir_46 "ir")) ; + green_ADeg = regADeg "verde" ; + harbour_N = regN "puerto" ; + hate_V2 = dirV2 (regV "odiar") ; + hat_N = regN "sombrero" ; + have_V2 = dirV2 (verboV (tener_4 "tener")) ; + hear_V2 = dirV2 (regV "oir") ; ----V -- escuchar + hill_N = regN "colina" ; + hope_VS = mkVS (regV "esperar") ; + horse_N = regN "caballo" ; + hot_ADeg = regADeg "caliente" ; + house_N = regN "casa" ; + important_ADeg = regADeg "importante" ; + industry_N = regN "industria" ; + iron_N = regN "fierro" ; + king_N = regN "rey" ; + know_V2 = dirV2 (verboV (saber_71 "saber")) ; -- conocer + lake_N = regN "lago" ; + lamp_N = regN "lámpara" ; + learn_V2 = dirV2 (regV "aprender") ; ----V + leather_N = regN "cuero" ; + leave_V2 = dirV2 (regV "partir") ; -- irse, dejar + like_V2 = dirV2 (regV "gustar") ; + listen_V2 = dirV2 (regV "escuchar") ; + live_V = verboV (vivir_7 "vivir") ; + long_ADeg = regADeg "largo" ; + lose_V2 = dirV2 (regV "perder") ; ----V + love_N = regN "amor" ; + love_V2 = dirV2 (regV "amar") ; + man_N = regN "hombre" ; -- masc + married_A2 = mkA2 (regA "casado") dative ; + meat_N = femN (regN "carne") ; + milk_N = femN (regN "leche") ; + moon_N = regN "luna" ; + mother_N2 = deN2 (femN (regN "madre")) ; -- fem + mountain_N = regN "montaña" ; + music_N = regN "música" ; + narrow_ADeg = regADeg "estrecho" ; + new_ADeg = prefADeg (regADeg "nuevo") ; + newspaper_N = regN "periódico" ; -- diario + oil_N = regN "aceite" ; + old_ADeg = prefADeg (regADeg "viejo") ; + open_V2 = dirV2 (regV "abrir") ; ----V + paint_V2A = mkV2A (regV "pintar") accusative ; + paper_N = regN "papel" ; + peace_N = femN (regN "paz") ; + pen_N = regN "lapicera" ; + planet_N = mascN (regN "planeta") ; + plastic_N = regN "plástico" ; + play_V2 = dirV2 (regV "jugar") ; + policeman_N = mascN (regN "policía") ; -- fem refers to the institution + priest_N = mascN (regN "cura") ; -- masc + probable_AS = mkAS (regA "probable") ; + queen_N = regN "reina" ; + radio_N = mkN "radio" "radio" feminine ; + rain_V0 = mkV0 (verboV (llover_89 "llover")) ; + read_V2 = dirV2 (regV "leer") ; ----V + red_ADeg = regADeg "rojo" ; + religion_N = femN (regN "religión") ; + restaurant_N = regN "restaurante" ; -- restorán, restaurán, masc + river_N = regN "río" ; + rock_N = regN "roca" ; + roof_N = regN "techo" ; + rubber_N = regN "goma" ; + run_V = regV "correr" ; ----V verboV (correre_38 "correr") ; + say_VS = mkVS (verboV (decir_28 "decir")) ; + school_N = regN "escuela" ; + science_N = regN "ciencia" ; + sea_N = regN "mar" ; -- masc & fem + seek_V2 = dirV2 (regV "buscar") ; + see_V2 = dirV2 (verboV (ver_83 "ver")) ; + sell_V3 = dirV3 (regV "vender") dative ; ----V + send_V3 = dirV3 (regV "mandar") dative ; + sheep_N = regN "oveja" ; + ship_N = femN (regN "nave") ; + shirt_N = regN "camisa" ; + shoe_N = regN "zapato" ; + shop_N = regN "negocio" ; + short_ADeg = regADeg "corto" ; --- breve + silver_N = regN "plata" ; + sister_N = regN "hermana" ; + sleep_V = verboV (dormir_35 "dormir") ; + small_ADeg = prefADeg (regADeg "pequeño") ; + snake_N = femN (regN "serpiente") ; -- fem + sock_N = regN "media" ; + speak_V2 = dirV2 (regV "hablar") ; + star_N = regN "estrella" ; + steel_N = regN "acero" ; + stone_N = regN "piedra" ; + stove_N = regN "horno" ; -- estufa + student_N = regN "estudiante" ; -- used both for fem & masc + stupid_ADeg = regADeg "estúpido" ; + sun_N = regN "sol" ; + switch8off_V2 = dirV2 (regV "apagar") ; + switch8on_V2 = dirV2 (regV "prender") ; ----V + table_N = regN "mesa" ; + talk_V3 = mkV3 (regV "hablar") dative genitive ; + teacher_N = regN "maestro" ; -- maestra + teach_V2 = dirV2 (regV "enseñar") ; + television_N = femN (regN "televisión") ; -- fem, televisor masc + thick_ADeg = regADeg "grueso" ; + thin_ADeg = regADeg "fino" ; -- delgado + train_N = regN "tren" ; + travel_V = regV "viajar" ; + tree_N = regN "árbol" ; + --- trousers_N = regN "pantalón" ; -- masc + ugly_ADeg = regADeg "feo" ; + understand_V2 = dirV2 (regV "entender") ; + university_N = femN (regN "universidad") ; + village_N = regN "pueblo" ; + wait_V2 = mkV2 (regV "esperar") dative ; + walk_V = regV "caminar" ; + warm_ADeg = regADeg "tibio" ; + war_N = regN "guerra" ; + watch_V2 = dirV2 (regV "mirar") ; -- ver + water_N = mascN (regN "agua") ; + white_ADeg = compADeg (regA "blanco") ; + window_N = regN "ventana" ; + wine_N = regN "vino" ; + win_V2 = dirV2 (regV "ganar") ; + woman_N = regN "mujer" ; -- fem + wonder_VQ = mkVQ (regV "preguntar") ; ---- preguntarse + wood_N = regN "madera" ; + write_V2 = dirV2 (regV "escribir") ; ----V + yellow_ADeg = regADeg "amarillo" ; + young_ADeg = prefADeg (regADeg "joven") ; + + do_V2 = dirV2 (verboV (hacer_44 "hacer")) ; + now_Adv = mkAdv "ahora" ; + already_Adv = mkAdv "ya" ; + song_N = femN (regN "canción") ; + add_V3 = dirV3 (regV "sumar") dative ; + number_N = regN "número" ; + put_V2 = dirV2 (verboV (poner_60 "poner")) ; + stop_V = regV "parar" ; + jump_V = regV "saltar" ; + here_Adv = mkAdv "aquí" ; -- acá + here7to_Adv = mkAdv ["para acá"] ; + here7from_Adv = mkAdv ["de acá"] ; + there_Adv = mkAdv "allí" ; -- allá + there7to_Adv = mkAdv ["para allá"] ; + there7from_Adv = mkAdv ["de allá"] ; + +} ; diff --git a/lib/resource/spanish/CountrySpa.gf b/lib/resource/spanish/CountrySpa.gf new file mode 100644 index 000000000..8701cfd61 --- /dev/null +++ b/lib/resource/spanish/CountrySpa.gf @@ -0,0 +1,25 @@ +concrete CountrySpa of Country = open CategoriesSpa, ParadigmsSpa in { + + lincat + Country = PN ; + Nationality = A ; + Language = N ; + + lin + Denmark = mkPN "Dinamarca" feminine ; + England = mkPN "Inglaterra" feminine ; + Finland = mkPN "Finlandia" feminine ; + France = mkPN "Francia" feminine ; + Germany = mkPN "Germania" feminine ; + Italy = mkPN "Italia" feminine ; + Norway = mkPN "Noruega" feminine ; + Russia = mkPN "Rusia" feminine ; + Spain = mkPN "España" feminine ; + Sweden = mkPN "Suecia" feminine ; + + Danish = regA "danés" ; + English = regA "inglés" ; + + DanishLang = regN "danés" ; + EnglishLang = regN "inglés" ; +} ; diff --git a/lib/resource/spanish/LangSpa.gf b/lib/resource/spanish/LangSpa.gf new file mode 100644 index 000000000..f580fd686 --- /dev/null +++ b/lib/resource/spanish/LangSpa.gf @@ -0,0 +1,22 @@ +--# -path=.:../romance:../abstract:../../prelude + +concrete LangSpa of Lang = + RulesSpa, + ClauseSpa, + StructuralSpa, + BasicSpa, + TimeSpa, + CountrySpa + + ** open Prelude, ParadigmsSpa in { + +lin + AdvDate d = prefixSS "el" d ; + AdvTime t = prefixSS ["a las"] t ; + NWeekday w = w ; + PNWeekday w = mkPN (w.s ! singular) w.g ; + + PNCountry x = x ; + ANationality x = x ; + NLanguage x = x ; +} diff --git a/lib/resource/spanish/SwadeshLexSpa.gf b/lib/resource/spanish/SwadeshLexSpa.gf new file mode 100644 index 000000000..371f86213 --- /dev/null +++ b/lib/resource/spanish/SwadeshLexSpa.gf @@ -0,0 +1,248 @@ +--# -path=.:../abstract:../../prelude:../romance + +concrete SwadeshLexSpa of SwadeshLex = CategoriesSpa + ** open StructuralSpa, RulesSpa, SyntaxSpa, ParadigmsSpa, + BasicSpa, BeschSpa, Prelude in { + +-- words contributed by Ana Bove, May 2005 + + lin + + -- Pronouns + + i_NP = i_NP ; + thou_NP = thou_NP ; + he_NP = he_NP ; + we_NP = we_NP ; + you_NP = you_NP ; + they_NP = they_NP ; + who8many_IP = who8many_IP ; + who8one_IP = who8one_IP ; + what8many_IP = what8many_IP ; + what8one_IP = what8one_IP ; + + -- Determiners + + this_Det = this_Det ; + that_Det = that_Det ; + all_NDet = all_NDet ; + many_Det = many_Det ; + some_Det = some_Det ; + few_Det = mkDeterminer Pl "pocos" "pocas" ; + other_Det = mkDeterminer Pl "otros" "otras" ; + + + -- Adverbs + + here_Adv = here_Adv; + there_Adv = there_Adv; + where_IAdv = where_IAdv; + when_IAdv = when_IAdv; + how_IAdv = how_IAdv; + + -- not : Adv ; -- ? + + -- Conjunctions + + and_Conj = and_Conj ; + + -- Prepositions + + at_Prep = justCase dative.p1 ; + in_Prep = StructuralSpa.in_Prep ; + with_Prep = StructuralSpa.with_Prep ; + + -- Numerals + + one_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 pot01)))) ; + two_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ; + three_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ; + four_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ; + five_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ; + + + -- Adjectives + + bad_ADeg = bad_ADeg ; + big_ADeg = big_ADeg ; + black_ADeg = black_ADeg ; + cold_ADeg = cold_ADeg ; + correct_ADeg = regADeg "correcto" ; + dirty_ADeg = dirty_ADeg ; + dry_ADeg = regADeg "seco" ; + dull_ADeg = regADeg "desafilado" ; + far_ADeg = regADeg "lejos" ; ----? + full_ADeg = regADeg "lleno" ; + good_ADeg = good_ADeg ; + green_ADeg = green_ADeg ; + heavy_ADeg = regADeg "pesado" ; + long_ADeg = long_ADeg ; + narrow_ADeg = narrow_ADeg ; + near_ADeg = regADeg "cerca" ; + new_ADeg = new_ADeg ; + old_ADeg = old_ADeg ; + red_ADeg = red_ADeg ; + rotten_ADeg = regADeg "podrido" ; + round_ADeg = regADeg "redondo" ; + sharp_ADeg = regADeg "filoso" ; -- afilado, puntiagudo + short_ADeg = short_ADeg ; + small_ADeg = small_ADeg ; + smooth_ADeg = regADeg "liso" ; -- suave + straight_ADeg = regADeg "directo" ; + thick_ADeg = thick_ADeg ; + thin_ADeg = thin_ADeg ; + warm_ADeg = warm_ADeg ; + wet_ADeg = regADeg "mojado" ; + white_ADeg = white_ADeg ; + wide_ADeg = regADeg "ancho" ; -- extenso + yellow_ADeg = yellow_ADeg ; + + left_A = regA "izquierda" ; + right_A = regA "derecha" ; + + -- Nouns + + animal_N = regN "animal" ; -- masc (sometimes fem when adj) + ashes_N = regN "ceniza" ; + back_N = regN "espalda" ; + bark_N = regN "corteza" ; + belly_N = regN "panza" ; -- barriga + bird_N = bird_N; + blood_N = femN (regN "sangre") ; + bone_N = regN "hueso" ; + breast_N = regN "seno" ; -- pecho + child_N = child_N ; + cloud_N = femN (regN "nube") ; + day_N = mascN (regN "día") ; + dog_N = dog_N ; + dust_N = regN "polvo" ; + ear_N = regN "oreja" ; + earth_N = regN "tierra" ; + egg_N = regN "huevo" ; + eye_N = regN "ojo" ; + fat_N = regN "grasa" ; + father_N = UseN2 father_N2 ; + feather_N = regN "pluma" ; + fingernail_N = regN "uña" ; + fire_N = regN "fuego" ; + fish_N = fish_N ; + flower_N = femN (regN "flor") ; + fog_N = regN "niebla" ; + foot_N = regN "pie" ; + forest_N = regN "bosque" ; + fruit_N = fruit_N ; + grass_N = regN "pasto" ; -- hierba, césped (masc) + guts_N = regN "tripa" ; -- gut=intestino ---- pl.t. tripas + hair_N = regN "cabello" ; -- pelo + hand_N = femN (regN "mano") ; + head_N = regN "cabeza" ; + heart_N = regN "corazón" ; + horn_N = regN "cuerno" ; + husband_N = regN "marido" ; -- esposo + ice_N = regN "hielo" ; + knee_N = regN "rodilla" ; + lake_N = lake_N ; + leaf_N = regN "hoja" ; + leg_N = regN "pierna" ; + liver_N = regN "hígado" ; + louse_N = regN "piojo" ; + man_N = man_N ; + meat_N = meat_N ; + moon_N = moon_N ; + mother_N = UseN2 mother_N2 ; + mountain_N = mountain_N ; + mouth_N = regN "boca" ; + name_N = regN "nombre" ; + neck_N = regN "cuello" ; + night_N = femN (regN "noche") ; + nose_N = femN (regN "nariz") ; + person_N = regN "persona" ; + rain_N = regN "lluvia" ; + river_N = river_N ; + road_N = femN (regN "calle") ; -- camino + root_N = femN (regN "raíz") ; + rope_N = regN "cuerda" ; + salt_N = femN (regN "sal") ; + sand_N = regN "arena" ; + sea_N = sea_N ; + seed_N = regN "semilla" ; + skin_N = femN (regN "piel") ; -- fem + sky_N = regN "cielo" ; + smoke_N = regN "humo" ; + snake_N = snake_N ; + snow_N = femN (regN "nieve") ; -- fem + star_N = star_N ; + stick_N = regN "bastón" ; -- palo + stone_N = stone_N ; + sun_N = sun_N ; + tail_N = regN "cola" ; + tongue_N = regN "lengua" ; + tooth_N = regN "diente" ; + tree_N = tree_N ; + water_N = water_N ; + wife_N = regN "esposa" ; + wind_N = regN "viento" ; + wing_N = mascN (regN "ala") ; -- masc, pl is fem + woman_N = woman_N ; + worm_N = regN "gusano" ; -- lombriz (fem) + year_N = regN "año" ; + + -- Verbs + + bite_V = regV "morder" ; ----V + blow_V = regV "soplar" ; + breathe_V = regV "respirar" ; + burn_V = regV "quemar" ; + come_V = BasicSpa.come_V ; + count_V = regV "contar" ; + cut_V = regV "cortar" ; + die_V = BasicSpa.die_V ; + dig_V = regV "escarbar" ; + drink_V = regV "tomar" ; + eat_V = regV "comer" ; + fall_V = verboV (caer_20 "caer") ; + fear_V = fear_VS ; + fight_V = regV "pelear" ; + float_V = regV "flotar" ; + flow_V = verboV (influir_45 "fluir") ; -- circular + fly_V = regV "volar" ; + freeze_V = regV "congelar" ; + give_V = verboV (dar_27 "dar") ; + hear_V = hear_V2 ; + hit_V = regV "golpear" ; -- pegar + hold_V = verboV (tener_4 "tener") ; -- agarrar + hunt_V = regV "cazar" ; + kill_V = regV "matar" ; + know_V = know_V2 ; + laugh_V = regV "reir" ; ----V verboV (ridere_74 "reir") ; + lie_V = regV "mentir" ; -- "acostarse" + live_V = live_V ; + play_V = regV "jugar" ; + pull_V = regV "tirar" ; + push_V = regV "empujar" ; + rub_V = regV "resfregar" ; -- frotar + say_V = say_VS ; + scratch_V = regV "rascar" ; + see_V = see_V2 ; + sew_V = regV "coser" ; ----V verboV (cucire_103 "coser") ; + sing_V = regV "cantar" ; + sit_V = regV "sentar" ; ----V verboV (sedere_84 "sentarse") ; + sleep_V = sleep_V ; + smell_V = verboV (oler_52 "oler") ; + spit_V = regV "escupir" ; + split_V = regV "separar" ; -- dividir, partir + squeeze_V = regV "exprimir" ; ----V verboV (temere_20 "exprimir") ; + stab_V = regV "apuñalar" ; + stand_V = verboV (estar_2 "estar") ; ---- "estar de pie" ; + suck_V = regV "chupar" ; + swell_V = regV "tragar" ; + swim_V = regV "nadar" ; + think_V = regV "pensar" ; + throw_V = regV "tirar" ; + tie_V = regV "atar" ; + turn_V = regV "doblar" ; + vomit_V = regV "vomitar" ; + walk_V = regV "caminar" ; + wash_V = regV "lavar" ; + wipe_V = regV "secar" ; +} diff --git a/lib/resource/spanish/SyntaxSpa.gf b/lib/resource/spanish/SyntaxSpa.gf index 5978710e1..f2c2abd43 100644 --- a/lib/resource/spanish/SyntaxSpa.gf +++ b/lib/resource/spanish/SyntaxSpa.gf @@ -358,5 +358,7 @@ oper negNe = "no" ; negPas = [] ; + predVerb0 rain = predVerbClause (mkNameNounPhrase [] Masc) rain (complVerb rain) ; + } diff --git a/lib/resource/spanish/TimeSpa.gf b/lib/resource/spanish/TimeSpa.gf new file mode 100644 index 000000000..2ba2bdad6 --- /dev/null +++ b/lib/resource/spanish/TimeSpa.gf @@ -0,0 +1,32 @@ +concrete TimeSpa of Time = NumeralsSpa ** + open Prelude, MorphoSpa, CategoriesSpa, ParadigmsSpa in { + +lincat +Date = SS ; +Weekday = N ; +Hour = SS ; +Minute = SS ; +Time = SS ; + +lin +DayDate day = ss (day.s ! singular) ; +DayTimeDate day time = ss (day.s ! singular ++ ["a las"] ++ time.s) ; --- a la una + +FormalTime h m = ss (["a las"] ++ h.s ++ "y" ++ m.s) ; +PastTime h m = ss (["a las"] ++ h.s ++ "y" ++ h.s) ; +ToTime h m = ss (["a las"] ++ h.s ++ "menos" ++ m.s) ; +ExactTime h = ss (h.s ++ "exactamente") ; + +NumHour n = ss (n.s ! feminine) ; +NumMinute n = ss (n.s ! feminine) ; + +monday = regN "lunes" ; +tuesday = regN "martes" ; +wednesday = regN "miércoles" ; +thursday = regN "jueves" ; +friday = regN "viernes" ; +saturday = regN "sábado" ; +sunday = regN "domingo" ; + + +} ;