From 6baa2205dae73b724aab970f11d17002d9fabe7b Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 7 Apr 2005 13:37:37 +0000 Subject: [PATCH] Italian Swadesh complete --- lib/resource/french/MorphoFre.gf | 2 +- lib/resource/italian/BeschIta.gf | 62 +++++++++++++++++++++++++++ lib/resource/italian/SwadeshLexIta.gf | 56 ++++++++++++------------ 3 files changed, 91 insertions(+), 29 deletions(-) diff --git a/lib/resource/french/MorphoFre.gf b/lib/resource/french/MorphoFre.gf index e6daedfed..29ae4d39e 100644 --- a/lib/resource/french/MorphoFre.gf +++ b/lib/resource/french/MorphoFre.gf @@ -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" ; diff --git a/lib/resource/italian/BeschIta.gf b/lib/resource/italian/BeschIta.gf index 94f29f397..81ecb6d71 100644 --- a/lib/resource/italian/BeschIta.gf +++ b/lib/resource/italian/BeschIta.gf @@ -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 { diff --git a/lib/resource/italian/SwadeshLexIta.gf b/lib/resource/italian/SwadeshLexIta.gf index 203e2fb57..2bbd6feac 100644 --- a/lib/resource/italian/SwadeshLexIta.gf +++ b/lib/resource/italian/SwadeshLexIta.gf @@ -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" ; -} \ No newline at end of file +}