Files
gf-core/examples/bronzeage/old/SwadeshSpa.gf
2006-03-07 18:26:47 +00:00

263 lines
7.5 KiB
Plaintext

--# -path=.:../spanish:../common:../abstract:../../prelude:../romance
concrete SwadeshSpa of Swadesh = CatSpa
** open PhonoSpa, MorphoSpa, LangSpa, ParadigmsSpa, BeschSpa, Prelude in {
-- words contributed by Ana Bove, May 2005
lincat
MassN = N ;
lin
-- Pronouns
i_NP = i_Pron ;
youSg_NP = youSg_Pron ;
he_NP = he_Pron ;
we_NP = we_Pron ;
youPl_NP = youPl_Pron ;
they_NP = they_Pron ;
whoPl_IP = whoPl_IP ;
whoSg_IP = whoSg_IP ;
whatPl_IP = whatPl_IP ;
whatSg_IP = whatSg_IP ;
-- Determiners
this_Det = DetSg (SgQuant this_Quant) NoOrd ;
that_Det = DetSg (SgQuant that_Quant) NoOrd ;
all_Det = {
s = \\g,c => prepCase c ++ genForms ["todos los"] ["todas las"] ! g ;
n = Pl
} ;
many_Det = many_Det ;
some_Det = someSg_Det ;
few_Det = {s = \\g,c => prepCase c ++ genForms "pocos" "pocas" ! g ; n = Pl} ;
other_Det = {
s = \\g,c => prepCase c ++ genForms "otros" "otras" ! g ;
n = Pl
} ;
left_Ord = mkOrd (regA "izquierda") ;
right_Ord = mkOrd (regA "derecha") ;
oper
mkOrd : A -> Ord ;
mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ;
lin
-- Adverbs
here_Adv = here_Adv;
there_Adv = there_Adv;
where_IAdv = where_IAdv;
when_IAdv = when_IAdv;
how_IAdv = how_IAdv;
far_Adv = mkAdv "lejos" ; ----?
-- not : Adv ; -- ?
-- Conjunctions
and_Conj = and_Conj ;
-- Prepositions
at_Prep = dative ;
in_Prep = in_Prep ;
with_Prep = with_Prep ;
-- Numerals
one_Det = DetSg one_Quant NoOrd ;
two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
-- Adjectives
bad_A = bad_A ;
big_A = big_A ;
black_A = black_A ;
cold_A = cold_A ;
correct_A = regA "correcto" ;
dirty_A = dirty_A ;
dry_A = regA "seco" ;
dull_A = regA "desafilado" ;
full_A = regA "lleno" ;
good_A = good_A ;
green_A = green_A ;
heavy_A = regA "pesado" ;
long_A = long_A ;
narrow_A = narrow_A ;
near_A = regA "cerca" ;
new_A = new_A ;
old_A = old_A ;
red_A = red_A ;
rotten_A = regA "podrido" ;
round_A = regA "redondo" ;
sharp_A = regA "filoso" ; -- afilado, puntiagudo
short_A = short_A ;
small_A = small_A ;
smooth_A = regA "liso" ; -- suave
straight_A = regA "directo" ;
thick_A = thick_A ;
thin_A = thin_A ;
warm_A = warm_A ;
wet_A = regA "mojado" ;
white_A = white_A ;
wide_A = regA "ancho" ; -- extenso
yellow_A = yellow_A ;
-- 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 = mkN "corazón" "corazones" masculine ;
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 = mkN "bastón" "bastones" masculine ; -- 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 = regN "ala" ;
woman_N = woman_N ;
worm_N = regN "gusano" ; -- lombriz (fem)
year_N = regN "año" ;
-- Verbs
bite_V2 = dirV2 (verboV (morder_50b "morder")) ;
blow_V = regV "soplar" ;
breathe_V2 = dirV2 (regV "respirar") ;
burn_V = regV "quemar" ;
come_V = come_V ;
count_V2 = dirV2 (verboV (contar_38b "contar")) ;
cut_V2 = dirV2 (regV "cortar") ;
die_V = die_V ;
dig_V = regV "escarbar" ;
drink_V2 = dirV2 (regV "tomar") ;
eat_V2 = dirV2 (regV "comer") ;
fall_V = verboV (caer_20 "caer") ;
fear_V2 = dirV2 (fear_VS) ;
fight_V2 = dirV2 (regV "pelear") ;
float_V = regV "flotar" ;
flow_V = verboV (influir_45 "fluir") ; -- circular
fly_V = regV "volar" ;
freeze_V = regV "congelar" ;
give_V = dirdirV3 (verboV (dar_27 "dar")) ;
hear_V2 = dirV2 (hear_V2) ;
hit_V2 = dirV2 (regV "golpear") ;
hold_V2 = dirV2 (verboV (tener_4 "tener")) ;
hunt_V2 = dirV2 (regV "cazar") ;
kill_V2 = dirV2 (regV "matar") ;
know_V2 = dirV2 (know_V2) ;
laugh_V = regV "reir" ; ----V reír_67
lie_V = reflV (regV "acostar") ; -- "acostarse"
live_V = live_V ;
play_V = regV "jugar" ;
pull_V2 = dirV2 (regV "tirar") ;
push_V2 = dirV2 (regV "empujar") ;
rub_V2 = dirV2 (regV "resfregar") ;
say_V = say_VS ;
scratch_V2 = dirV2 (regV "rascar") ;
see_V2 = dirV2 (see_V2) ;
sew_V = regV "coser" ;
sing_V = regV "cantar" ;
sit_V = reflV (regV "sentar") ;
sleep_V = sleep_V ;
smell_V = verboV (oler_52 "oler") ;
spit_V = regV "escupir" ;
split_V2 = dirV2 (regV "separar") ; -- dividir,) ;
squeeze_V2 = dirV2 (regV "exprimir") ;
stab_V2 = dirV2 (regV "apuñalar") ;
stand_V = verboV (estar_2 "estar") ; ---- "estar de pie" ;
suck_V2 = dirV2 (regV "chupar") ;
swell_V = regV "tragar" ;
swim_V = regV "nadar" ;
think_V = regV "pensar" ;
throw_V2 = dirV2 (regV "tirar") ;
tie_V2 = dirV2 (regV "atar") ;
turn_V = regV "doblar" ;
vomit_V = regV "vomitar" ;
walk_V = regV "caminar" ;
wash_V2 = dirV2 (regV "lavar") ;
wipe_V2 = dirV2 (regV "secar") ;
}