Italian Swadesh complete

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

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 {

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" ;--
+    fall_V = essereV (verboV (cadere_28 "cadere")) ;
---    fear_V = UseV2 craindre_V2 ;--
+    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" ;--
+    give_V = verboV (dare_15 "dare") ;
---    hear_V = UseV2 entendre_V2 ;--
+    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" ;--
+    kill_V = verboV (ridere_74 "uccidere") ;
---    know_V = UseV2 savoir_V2 ;--
+    know_V = know_V2 ;
---    laugh_V = UseV2 rire_V2 ;--
+    laugh_V = verboV (ridere_74 "ridere") ;
---    lie_V = UseV2 étendre_V2 ;--
+    lie_V = verboV (piacere_64 "giacere") ;
---    live_V = UseV2 vivre_V2 ;--
+    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 ;--
+    see_V = see_V2 ;
---    sew_V = cucire--
+    sew_V = verboV (cucire_103 "cucire") ;
     sing_V = regV "cantare" ;
---    sit_V = UseV2 asseoir_V2 ;--  --- refl
+    sit_V = verboV (sedere_84 "sedere") ;  --- refl?
---    sleep_V = UseV2 dormir_V2 ;--
+    sleep_V = sleep_V ;
---    smell_V = UseV2 sentir_V2 ;--
+    smell_V = verboV (sentire_99 "sentire") ;
     spit_V = regV "sputare" ;
---    split_V = UseV2 dividere ;--
+    split_V = verboV (ridere_74 "dividere") ;
---    squeeze_V = regV "spremere" ;--
+    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" ;
 
-}
+}