Italian Swadesh complete

This commit is contained in:
aarne
2005-04-07 13:37:37 +00:00
parent 0056186938
commit 6baa2205da
3 changed files with 91 additions and 29 deletions

View File

@@ -59,7 +59,7 @@ oper
mkNomReg : Str -> Gender -> CNom = \cas ->
let cass = case dp 2 cas of {
"al" => init cas ++ "ux" ;
"al" => init cas + "ux" ;
"au" => cas + "x" ;
"eu" => cas + "x" ;
"ou" => cas + "x" ;

View File

@@ -6212,6 +6212,68 @@ oper aprire_102 : Str -> Verbo = \aprire ->
} ;
oper cucire_103 : Str -> Verbo = \cucire ->
let cuc_ = Predef.tk 3 cucire in
{s = table {
Inf => cuc_ + "ire" ;
InfClit => cuc_ + "ir" ;
Indi Pres Sg P1 => cuc_ + "io" ;
Indi Pres Sg P2 => cuc_ + "i" ;
Indi Pres Sg P3 => cuc_ + "e" ;
Indi Pres Pl P1 => cuc_ + "iamo" ;
Indi Pres Pl P2 => cuc_ + "ite" ;
Indi Pres Pl P3 => cuc_ + "iono" ;
Indi Imperf Sg P1 => cuc_ + "ivo" ;
Indi Imperf Sg P2 => cuc_ + "ivi" ;
Indi Imperf Sg P3 => cuc_ + "iva" ;
Indi Imperf Pl P1 => cuc_ + "ivamo" ;
Indi Imperf Pl P2 => cuc_ + "ivate" ;
Indi Imperf Pl P3 => cuc_ + "ivano" ;
Pass Sg P1 => cuc_ + "ii" ;
Pass Sg P2 => cuc_ + "isti" ;
Pass Sg P3 => cuc_ + "ì" ;
Pass Pl P1 => cuc_ + "immo" ;
Pass Pl P2 => cuc_ + "iste" ;
Pass Pl P3 => cuc_ + "irono" ;
Fut Sg P1 => cuc_ + "irò" ;
Fut Sg P2 => cuc_ + "irai" ;
Fut Sg P3 => cuc_ + "irà" ;
Fut Pl P1 => cuc_ + "iremo" ;
Fut Pl P2 => cuc_ + "irete" ;
Fut Pl P3 => cuc_ + "iranno" ;
Cong Pres Sg P1 => cuc_ + "ia" ;
Cong Pres Sg P2 => cuc_ + "ia" ;
Cong Pres Sg P3 => cuc_ + "ia" ;
Cong Pres Pl P1 => cuc_ + "iamo" ;
Cong Pres Pl P2 => cuc_ + "iate" ;
Cong Pres Pl P3 => cuc_ + "iano" ;
Cong Imperf Sg P1 => cuc_ + "issi" ;
Cong Imperf Sg P2 => cuc_ + "issi" ;
Cong Imperf Sg P3 => cuc_ + "isse" ;
Cong Imperf Pl P1 => cuc_ + "issimo" ;
Cong Imperf Pl P2 => cuc_ + "iste" ;
Cong Imperf Pl P3 => cuc_ + "issero" ;
Cond Sg P1 => cuc_ + "irei" ;
Cond Sg P2 => cuc_ + "iresti" ;
Cond Sg P3 => cuc_ + "irebbe" ;
Cond Pl P1 => cuc_ + "iremmo" ;
Cond Pl P2 => cuc_ + "ireste" ;
Cond Pl P3 => cuc_ + "irebbero" ;
Imper SgP2 => cuc_ + "i" ;
Imper PlP1 => cuc_ + "iamo" ;
Imper PlP2 => cuc_ + "ite" ;
Ger => cuc_ + "endo" ;
Part PresP Masc Sg => cuc_ + "ente" ;
Part PresP Masc Pl => cuc_ + "enti" ;
Part PresP Fem Sg => cuc_ + "ente" ;
Part PresP Fem Pl => cuc_ + "enti" ;
Part PassP Masc Sg => cuc_ + "ito" ;
Part PassP Masc Pl => cuc_ + "iti" ;
Part PassP Fem Sg => cuc_ + "ita" ;
Part PassP Fem Pl => cuc_ + "ite"
}
} ;
oper fuggire_104 : Str -> Verbo = \fuggire ->
let fugg_ = Predef.tk 3 fuggire in
{s = table {

View File

@@ -2,7 +2,7 @@
concrete SwadeshLexIta of SwadeshLex = CategoriesIta
** open StructuralIta, RulesIta, SyntaxIta, ParadigmsIta,
BasicIta, Prelude in {
BasicIta, BeschIta, Prelude in {
lin
@@ -115,7 +115,7 @@ concrete SwadeshLexIta of SwadeshLex = CategoriesIta
dust_N = regN "polvere" ;
ear_N = regN "orecchio" ;
earth_N = regN "terra" ;
egg_N = regN "oeuf" ;--
egg_N = mkN "uovo" "uova" masculine ; -- fem in Pl
eye_N = regN "occhio" ;
fat_N = regN "grasso" ;
father_N = UseN2 father_N2 ;
@@ -186,51 +186,51 @@ concrete SwadeshLexIta of SwadeshLex = CategoriesIta
-- Verbs
-- bite_V = UseV2 mordre_V2 ;--
bite_V = verboV (esplodere_51 "mordere") ;
blow_V = regV "soffiare" ;
breathe_V = regV "respirare" ;
burn_V = regV "bruciare" ;
-- come_V = venir_V ;
come_V = BasicIta.come_V ;
count_V = regV "contare" ;
cut_V = regV "tagliare" ;
-- die_V = mourir_V ;
die_V = BasicIta.die_V ;
dig_V = regV "scavare" ;
-- drink_V = UseV2 boire_V2 ;--
drink_V = drink_V2 ;
eat_V = regV "mangiare" ;
-- fall_V = regV "cadere" ;--
-- fear_V = UseV2 craindre_V2 ;--
fall_V = essereV (verboV (cadere_28 "cadere")) ;
fear_V = fear_VS ;
fight_V = regV "lottare" ;
float_V = regV "galleggiare" ;
-- flow_V = regV "fluire" ;--
flow_V = verboV (finire_100 "fluire") ;
fly_V = regV "volare" ;
freeze_V = regV "gelare" ;
-- give_V = regV "dare" ;--
-- hear_V = UseV2 entendre_V2 ;--
give_V = verboV (dare_15 "dare") ;
hear_V = hear_V2 ;
hit_V = regV "colpire" ;
-- hold_V = UseV2 tenir_V2 ;--
hold_V = verboV (venire_110 "tenire") ;
hunt_V = regV "cacciare" ;
-- kill_V = regV "uccidere" ;--
-- know_V = UseV2 savoir_V2 ;--
-- laugh_V = UseV2 rire_V2 ;--
-- lie_V = UseV2 étendre_V2 ;--
-- live_V = UseV2 vivre_V2 ;--
kill_V = verboV (ridere_74 "uccidere") ;
know_V = know_V2 ;
laugh_V = verboV (ridere_74 "ridere") ;
lie_V = verboV (piacere_64 "giacere") ;
live_V = live_V ;
play_V = regV "giocare" ;
pull_V = regV "tirare" ;
-- push_V = regV "spingere" ;--
push_V = verboV (cingere_31 "spingere") ;
rub_V = regV "strofinare" ;
-- say_V = UseV2 dire_V2 ;--
say_V = say_VS ;
scratch_V = regV "graffiare" ;
-- see_V = UseV2 voir_V2 ;--
-- sew_V = cucire--
see_V = see_V2 ;
sew_V = verboV (cucire_103 "cucire") ;
sing_V = regV "cantare" ;
-- sit_V = UseV2 asseoir_V2 ;-- --- refl
-- sleep_V = UseV2 dormir_V2 ;--
-- smell_V = UseV2 sentir_V2 ;--
sit_V = verboV (sedere_84 "sedere") ; --- refl?
sleep_V = sleep_V ;
smell_V = verboV (sentire_99 "sentire") ;
spit_V = regV "sputare" ;
-- split_V = UseV2 dividere ;--
-- squeeze_V = regV "spremere" ;--
split_V = verboV (ridere_74 "dividere") ;
squeeze_V = verboV (temere_20 "spremere") ;
stab_V = regV "pugnalare" ;
-- stand_V = regV "stare" ;-- ---- in piedi
stand_V = verboV (stare_16 "stare") ; ---- in piedi
suck_V = regV "succhiare" ;
swell_V = regV "gonfiare" ;
swim_V = regV "nuotare" ;
@@ -243,4 +243,4 @@ concrete SwadeshLexIta of SwadeshLex = CategoriesIta
wash_V = regV "lavare" ;
wipe_V = regV "asciugare" ;
}
}