merging Lexicon with Swadesh

1 files changed, 259 insertions, 0 deletions

diff --git a/examples/bronzeage/old/SwadeshFre.gf b/examples/bronzeage/old/SwadeshFre.gf
new file mode 100644
index 000000000..a7c326ca4
--- /dev/null
+++ b/examples/bronzeage/old/SwadeshFre.gf
@@ -0,0 +1,259 @@
+--# -path=.:../french:../common:../abstract:../../prelude:../romance
+
+concrete SwadeshFre of Swadesh = CatFre
+  ** open PhonoFre, MorphoFre, LangFre, ParadigmsFre, IrregFre, Prelude in {
+
+  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 "tous" "toutes" ! g ++ "les" ;
+      n = Pl
+      } ;
+    many_Det = many_Det ;
+    some_Det = someSg_Det ;
+    few_Det  = {s = \\g,c => prepCase c ++ "peu" ++ elisDe ; n = Pl} ;
+    other_Det = {
+      s = \\g,c => prepCase c ++ "d'autres" ;   -- de d'autres
+      n = Pl
+      } ;
+
+    left_Ord = mkOrd (regA "gauche") ;
+    right_Ord = mkOrd (regA "droite") ;
+
+  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 "loin" ;
+
+    -- 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 "correct" ;
+    dirty_A = dirty_A ;
+    dry_A = (mkA "sec" "sèche" "secs" "sèches") ;
+    dull_A = regA "émoussé" ;
+    full_A = regA "plein" ;
+    good_A = good_A ;
+    green_A = green_A ;
+    heavy_A = regA "lourd" ;
+    long_A = long_A ;
+    narrow_A = narrow_A ;
+    near_A = regA "proche" ;
+    new_A = new_A ;
+    old_A = old_A ;
+    red_A = red_A ;
+    rotten_A = regA "pourri" ;
+    round_A = regA "rond" ;
+    sharp_A = regA "tranchant" ;
+    short_A = short_A ;
+    small_A = small_A ;
+    smooth_A = regA "lisse" ;
+    straight_A = regA "droite" ;
+    thick_A = thick_A ;
+    thin_A = thin_A ;
+    warm_A = warm_A ;
+    wet_A = regA "mouillé" ;
+    white_A = white_A ;
+    wide_A = regA "large" ;
+    yellow_A = yellow_A ;
+
+    -- Nouns
+
+    animal_N = regN "animal" ;
+    ashes_N = regGenN "cendre" masculine ;
+    back_N = regN "dos" ;
+    bark_N = regN "écorce" ; 
+    belly_N = regGenN "ventre"  masculine ;
+    bird_N = bird_N;
+    blood_N = regN "sang" ;
+    bone_N = regN "os" ;
+    breast_N = regN "sein" ; --- poitrine
+    child_N = child_N ;
+    cloud_N = regGenN "nuage"  masculine ;
+    day_N = regN "jour" ;
+    dog_N = dog_N ;
+    dust_N = regN "poussière" ;
+    ear_N = regN "oreille" ;
+    earth_N = regN "terre" ;
+    egg_N = regN "oeuf" ;
+    eye_N = mkN "oeil" "yeux" masculine ;
+    fat_N = regN "graisse" ;
+    father_N = UseN2 father_N2 ;
+    feather_N = regN "plume" ;
+    fingernail_N = regGenN "ongle" masculine ;
+    fire_N = regN "feu" ;
+    fish_N = fish_N ;
+    flower_N = regGenN "fleur" feminine ;
+    fog_N = regN "brouillard" ;
+    foot_N = regN "pied" ;
+    forest_N = regGenN "forêt" feminine ;
+    fruit_N = fruit_N ;
+    grass_N = regN "herbe" ;
+    guts_N = regN "entraille" ;
+    hair_N = regN "cheveu" ;
+    hand_N = regGenN "main" feminine ;
+    head_N = regN "tête" ;
+    heart_N = regN "coeur" ;
+    horn_N = regGenN "corne"  masculine ;
+    husband_N = regN "mari" ;
+    ice_N = regN "glace" ;
+    knee_N = regN "genou" ;
+    lake_N = lake_N ;
+    leaf_N = regN "feuille" ;
+    leg_N = regN "jambe" ;
+    liver_N = regGenN "foie"  masculine ;
+    louse_N = regN "pou" ;
+    man_N = man_N ;
+    meat_N = meat_N ;
+    moon_N = moon_N ;
+    mother_N = UseN2 mother_N2 ;
+    mountain_N = mountain_N ;
+    mouth_N = regN "bouche" ;
+    name_N = regN "nom" ;
+    neck_N = mkN "cou" "cous" masculine ;
+    night_N = regGenN "nuit" feminine ;
+    nose_N = regN "nez" ;
+    person_N = regN "personne" ;
+    rain_N = regN "pluie" ;
+    river_N = river_N ;
+    road_N = regN "route" ;
+    root_N = regN "racine" ;
+    rope_N = regN "corde" ;
+    salt_N = regN "sel" ;
+    sand_N = regGenN "sable"  masculine ;
+    sea_N = sea_N ;
+    seed_N = regN "graine" ;
+    skin_N = regN "peau" ;
+    sky_N = mkN "ciel" "cieux" masculine ; 
+    smoke_N = regN "fumée" ;
+    snake_N = snake_N ;
+    snow_N = regN "neige" ;
+    star_N = star_N ;
+    stick_N = regN "bâton" ;
+    stone_N = stone_N ;
+    sun_N = sun_N ;
+    tail_N = regN "queue" ;
+    tongue_N = regN "langue" ;
+    tooth_N = regGenN "dent" feminine ;
+    tree_N = tree_N ;
+    water_N = water_N ;
+    wife_N = regN "femme" ;
+    wind_N = regN "vent" ;
+    wing_N = regN "aile" ;
+    woman_N = woman_N ;
+    worm_N = regN "ver" ; 
+    year_N = regN "an" ; --- année
+
+    -- Verbs
+
+    bite_V = ( mordre_V2) ;
+    blow_V = regV "souffler" ;
+    breathe_V2 = dirV2 (regV "respirer") ;
+    burn_V = regV "brûler" ;
+    come_V = venir_V ;
+    count_V2 = dirV2 (regV "conter") ;
+    cut_V2 = dirV2 (regV "tailler") ;
+    die_V = mourir_V ;
+    dig_V = regV "creuser" ;
+    drink_V = ( boire_V2) ;
+    eat_V2 = dirV2 (regV "manger") ;
+    fall_V = regV "tomber" ;
+    fear_V = ( craindre_V2) ;
+    fight_V2 = dirV2 (regV "lutter") ;
+    float_V = regV "flotter" ;
+    flow_V = regV "couler" ;
+    fly_V = regV "voler" ;
+    freeze_V = reg3V "geler" "gèle" "gèlera" ;
+    give_V = dirdirV3 (regV "donner") ;
+    hear_V = ( entendre_V2) ;
+    hit_V2 = dirV2 (regV "frapper") ;
+    hold_V = ( tenir_V2) ;
+    hunt_V2 = dirV2 (regV "chasser") ;
+    kill_V2 = dirV2 (regV "tuer") ;
+    know_V = ( connaître_V2) ;
+    laugh_V =  rire_V2 ;
+    lie_V = reflV étendre_V2 ;
+    live_V = vivre_V2 ;
+    play_V = regV "jouer" ;
+    pull_V2 = dirV2 (regV "tirer") ;
+    push_V2 = dirV2 (regV "pousser") ;
+    rub_V2 = dirV2 (regV "frotter") ;
+    say_V = dire_V2 ;
+    scratch_V2 = dirV2 (regV "gratter") ;
+    see_V = ( voir_V2) ;
+    sew_V = coudre_V2 ;
+    sing_V = regV "chanter" ;
+    sit_V = reflV asseoir_V2 ;
+    sleep_V = dormir_V2 ;
+    smell_V = v2V ( sentir_V2) ;
+    spit_V = regV "cracher" ;
+    split_V = ( fendre_V2) ;
+    squeeze_V2 = dirV2 (regV "serrer") ;
+    stab_V2 = dirV2 (regV "poignarder") ;
+    stand_V = reflV (reg3V "lever" "lève" "lèvera") ;
+    suck_V2 = dirV2 (regV "sucer") ;
+    swell_V = regV "gonfler" ;
+    swim_V = regV "nager" ;
+    think_V = regV "penser" ;
+    throw_V2 = dirV2 (regV "jeter") ;
+    tie_V2 = dirV2 (regV "lier") ;
+    turn_V = regV "tourner" ;
+    vomit_V = regV "vomir" ;
+    walk_V = regV "marcher" ;
+    wash_V2 = dirV2 (regV "laver") ;
+    wipe_V2 = dirV2 (regV "essuyer") ;
+
+}