--# -path=.:../abstract:../../prelude:../romance

concrete SwadeshLexFre of SwadeshLex = CategoriesFre 
  ** open StructuralFre, RulesFre, SyntaxFre, ParadigmsFre, VerbsFre, 
          BasicFre, Prelude in {

  lin

    -- Pronouns

    i_NP = i_NP ;
    thou_NP = thou_NP ;
    he_NP = he_NP ;
    we_NP = we_NP ;
    you_NP = you_NP ;
    they_NP = they_NP ;
    who8many_IP = who8many_IP ;
    who8one_IP = who8one_IP ;
    what8many_IP = what8many_IP ;
    what8one_IP = what8one_IP ;

    -- Determiners

    this_Det = this_Det ;
    that_Det = that_Det ;
    all_NDet = all_NDet ;
    many_Det = many_Det ;
    some_Det = some_Det ;
    few_Det = mkDeterminer1 Pl ("peu" ++ elisDe) ;
    other_Det = mkDeterminer1 Pl ["d'autres"] ;


    -- Adverbs

    here_Adv = here_Adv;
    there_Adv = there_Adv;
    where_IAdv = where_IAdv;
    when_IAdv = when_IAdv;
    how_IAdv = how_IAdv;

    -- not : Adv ; -- ?

    -- Conjunctions

    and_Conj = and_Conj ;

    -- Prepositions

    at_Prep = justCase dative.p1 ;
    in_Prep = StructuralFre.in_Prep ;
    with_Prep = StructuralFre.with_Prep ;

    -- Numerals

    one_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 pot01)))) ;
    two_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
    three_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
    four_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
    five_Num = UseNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;

    -- Adjectives

    bad_ADeg = bad_ADeg ;
    big_ADeg = big_ADeg ;
    black_ADeg = black_ADeg ;
    cold_ADeg = cold_ADeg ;
    correct_ADeg = regADeg "correct" ;
    dirty_ADeg = dirty_ADeg ;
    dry_ADeg = compADeg (mkA "sec" "sèche" "secs" "sèches") ;
    dull_ADeg = regADeg "émoussé" ;
    far_ADeg = regADeg "lointain" ;
    full_ADeg = regADeg "plein" ;
    good_ADeg = good_ADeg ;
    green_ADeg = green_ADeg ;
    heavy_ADeg = regADeg "lourd" ;
    long_ADeg = long_ADeg ;
    narrow_ADeg = narrow_ADeg ;
    near_ADeg = regADeg "proche" ;
    new_ADeg = new_ADeg ;
    old_ADeg = old_ADeg ;
    red_ADeg = red_ADeg ;
    rotten_ADeg = regADeg "pourri" ;
    round_ADeg = regADeg "rond" ;
    sharp_ADeg = regADeg "tranchant" ;
    short_ADeg = short_ADeg ;
    small_ADeg = small_ADeg ;
    smooth_ADeg = regADeg "lisse" ;
    straight_ADeg = regADeg "droite" ;
    thick_ADeg = thick_ADeg ;
    thin_ADeg = thin_ADeg ;
    warm_ADeg = warm_ADeg ;
    wet_ADeg = regADeg "mouillé" ;
    white_ADeg = white_ADeg ;
    wide_ADeg = regADeg "large" ;
    yellow_ADeg = yellow_ADeg ;

    left_A = regA "gauche" ;
    right_A = regA "droite" ;

    -- Nouns

    animal_N = regN "animal" masculine ;
    ashes_N = regN "cendre" masculine ;
    back_N = regN "dos" masculine ;
    bark_N = regN "écorce" feminine ; 
    belly_N = regN "ventre" masculine ;
    bird_N = bird_N;
    blood_N = regN "sang" masculine ;
    bone_N = regN "os" masculine ;
    breast_N = regN "sein" masculine ; --- poitrine
    child_N = child_N ;
    cloud_N = regN "nuage" masculine ;
    day_N = regN "jour" masculine ;
    dog_N = dog_N ;
    dust_N = regN "poussière" feminine ;
    ear_N = regN "oreille"  feminine ;
    earth_N = regN "terre" feminine ;
    egg_N = regN "oeuf" masculine ;
    eye_N = mkN "oeil" "yeux" masculine ;
    fat_N = regN "graisse" feminine ;
    father_N = UseN2 father_N2 ;
    feather_N = regN "plume" feminine ;
    fingernail_N = regN "ongle" masculine ;
    fire_N = regN "feu" masculine ;
    fish_N = fish_N ;
    flower_N = regN "fleur" feminine ;
    fog_N = regN "brouillard" masculine ;
    foot_N = regN "pied" masculine ;
    forest_N = regN "forêt" feminine ;
    fruit_N = fruit_N ;
    grass_N = regN "herbe" feminine ;
    guts_N = regN "entraille" feminine ;
    hair_N = regN "cheveu" masculine ;
    hand_N = regN "main" feminine ;
    head_N = regN "tête" feminine ;
    heart_N = regN "coeur" masculine ;
    horn_N = regN "corne" masculine ;
    husband_N = regN "mari" masculine ;
    ice_N = regN "glace" feminine ;
    knee_N = regN "genou" masculine ;
    lake_N = lake_N ;
    leaf_N = regN "feuille" feminine ;
    leg_N = regN "jambe" feminine ;
    liver_N = regN "foie" masculine ;
    louse_N = regN "pou" masculine ;
    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" feminine ;
    name_N = regN "nom" masculine ;
    neck_N = mkN "cou" "cous" masculine ;
    night_N = regN "nuit" feminine ;
    nose_N = regN "nez" masculine ;
    person_N = regN "personne" feminine ;
    rain_N = regN "pluie" feminine ;
    river_N = river_N ;
    road_N = regN "route" feminine ;
    root_N = regN "racine" feminine ;
    rope_N = regN "corde" feminine ;
    salt_N = regN "sel" masculine ;
    sand_N = regN "sable" masculine ;
    sea_N = sea_N ;
    seed_N = regN "graine" feminine ;
    skin_N = regN "peau" masculine ;
    sky_N = mkN "ciel" "cieux" masculine ; 
    smoke_N = regN "fumée" feminine ;
    snake_N = snake_N ;
    snow_N = regN "neige" feminine ;
    star_N = star_N ;
    stick_N = regN "bâton" masculine ;
    stone_N = stone_N ;
    sun_N = sun_N ;
    tail_N = regN "queue" feminine ;
    tongue_N = regN "langue" feminine ;
    tooth_N = regN "dent" feminine ;
    tree_N = tree_N ;
    water_N = water_N ;
    wife_N = regN "femme" feminine ;
    wind_N = regN "vent" masculine ;
    wing_N = regN "aile" feminine ;
    woman_N = woman_N ;
    worm_N = regN "ver" masculine ; 
    year_N = regN "an" masculine ; --- année

    -- Verbs

    bite_V = UseV2 mordre_V2 ;
    blow_V = regV "souffler" ;
    breathe_V = regV "respirer" ;
    burn_V = regV "brûler" ;
    come_V = venir_V ;
    count_V = regV "conter" ;
    cut_V = regV "tailler" ;
    die_V = mourir_V ;
    dig_V = regV "creuser" ;
    drink_V = UseV2 boire_V2 ;
    eat_V = regV "manger" ;
    fall_V = regV "tomber" ;
    fear_V = UseV2 craindre_V2 ;
    fight_V = regV "lutter" ;
    float_V = regV "flotter" ;
    flow_V = regV "couler" ;
    fly_V = regV "voler" ;
    freeze_V = reg3V "geler" "gèle" "gèlera" ;
    give_V = regV "donner" ;
    hear_V = UseV2 entendre_V2 ;
    hit_V = regV "frapper" ;
    hold_V = UseV2 tenir_V2 ;
    hunt_V = regV "chasser" ;
    kill_V = regV "tuer" ;
    know_V = UseV2 savoir_V2 ; --- connaître
    laugh_V = UseV2 rire_V2 ;
    lie_V = UseV2 étendre_V2 ; ---- reflexive
    live_V = UseV2 vivre_V2 ;
    play_V = regV "jouer" ;
    pull_V = regV "tirer" ;
    push_V = regV "pousser" ;
    rub_V = regV "frotter" ;
    say_V = UseV2 dire_V2 ;
    scratch_V = regV "gratter" ;
    see_V = UseV2 voir_V2 ;
    sew_V = UseV2 coudre_V2 ;
    sing_V = regV "chanter" ;
    sit_V = UseV2 asseoir_V2 ; --- refl
    sleep_V = UseV2 dormir_V2 ;
    smell_V = UseV2 sentir_V2 ;
    spit_V = regV "cracher" ;
    split_V = UseV2 fendre_V2 ;
    squeeze_V = regV "serrer" ;
    stab_V = regV "poignarder" ;
    stand_V = reg3V "lever" "lève" "lèvera" ; ---- refl ----
    suck_V = regV "sucer" ;
    swell_V = regV "gonfler" ;
    swim_V = regV "nager" ;
    think_V = regV "penser" ;
    throw_V = regV "jeter" ;
    tie_V = regV "lier" ;
    turn_V = regV "tourner" ;
    vomit_V = regV "vomir" ;
    walk_V = regV "marcher" ;
    wash_V = regV "laver" ;
    wipe_V = regV "essuyer" ;

}