GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

Spanish lexica

Browse Source
This commit is contained in:
aarne
2005-05-22 09:12:09 +00:00
parent 04c166ed40
commit cf3552505f
13 changed files with 583 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/resource/doc/gf-resource.html
View File

@@ -693,17 +693,26 @@ English
<p>
Finnish
<p>
French: no inverted questions
French:
no inverted questions;
some verbs in Basic should be reflexive
<p>
German
<p>
Italian: no omission of unstressed subject pronouns
Italian:
no omission of unstressed subject pronouns;
some verbs in Basic should be reflexive
<p>
Norwegian
Norwegian:
possessives <i>bilen min</i> not included
<p>
Russian
<p>
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
<p>
Swedish

2
lib/resource/french/SyntaxFre.gf
View File

@@ -328,4 +328,6 @@ oper
negNe = elisNe ; negPas = "pas" ;
predVerb0 rain = predVerbClause (pronNounPhrase pronImpers) rain (complVerb rain) ;
}

2
lib/resource/italian/CountryIta.gf
View File

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

2
lib/resource/italian/SyntaxIta.gf
View File

@@ -275,5 +275,7 @@ oper
negNe = "non" ; negPas = [] ;
predVerb0 rain = predVerbClause (mkNameNounPhrase [] Masc) rain (complVerb rain) ;
}

2
lib/resource/romance/RulesRomance.gf
View File

@@ -48,7 +48,7 @@ lin
SuperlADeg = superlAdjPhrase ;
PredAS = predAdjSent ;
PredV0 rain = predVerbClause (pronNounPhrase pronImpers) rain (complVerb rain) ;
PredV0 rain = predVerb0 rain ;
-- Partial saturation.

3
lib/resource/romance/SyntaxRomance.gf
View File

@@ -1566,4 +1566,7 @@ negNe, negPas : Str ;
in
{s = \\b,f,_ => cl.s ! b ! f} ;
predVerb0 : Verb -> Clause ;
}

2
lib/resource/spanish/AllResourceSpa.gf
View File

@@ -1,2 +0,0 @@
concrete AllResourceSpa of AllResource = RulesSpa, StructuralSpa ** {} ;

232
lib/resource/spanish/BasicSpa.gf Normal file
View File

@@ -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á"] ;
} ;

25
lib/resource/spanish/CountrySpa.gf Normal file
View File

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

22
lib/resource/spanish/LangSpa.gf Normal file
View File

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

248
lib/resource/spanish/SwadeshLexSpa.gf Normal file
View File

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

2
lib/resource/spanish/SyntaxSpa.gf
View File

@@ -358,5 +358,7 @@ oper
negNe = "no" ; negPas = [] ;
predVerb0 rain = predVerbClause (mkNameNounPhrase [] Masc) rain (complVerb rain) ;
}

32
lib/resource/spanish/TimeSpa.gf Normal file
View File

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