--# -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") ; }