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

concrete SwadeshLexSwe of SwadeshLex = CategoriesSwe 
  ** open ResourceSwe, SyntaxSwe, ParadigmsSwe, VerbsSwe, 
          BasicSwe 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 = mkDeterminerPl "få" IndefP ;
    other_Det = mkDeterminerPl "andra" IndefP ;


    -- Adverbs

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

    -- not : Adv ; -- ?


    -- 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 "riktig" ;
    dirty_ADeg = dirty_ADeg ;
    dry_ADeg = regADeg "torr" ;
    dull_ADeg = regADeg "slö" ;
    far_ADeg = regADeg "avlägsen" ;
    full_ADeg = regADeg "full" ;
    good_ADeg = good_ADeg ;
    green_ADeg = green_ADeg ;
    heavy_ADeg = irregADeg "tung" "tyngre" "tyngst" ;
    long_ADeg = long_ADeg ;
    narrow_ADeg = narrow_ADeg ;
    near_ADeg = mkADeg "nära" "nära" "nära" "nära" 
                       "närmare" "närmast" "närmaste" ;
    new_ADeg = new_ADeg ;
    old_ADeg = old_ADeg ;
    red_ADeg = red_ADeg ;
    rotten_ADeg = mk3ADeg "rutten" "ruttet" "ruttna" ;

    round_ADeg = regADeg "rund" ;
    sharp_ADeg = regADeg "vass" ;
    short_ADeg = short_ADeg ;
    small_ADeg = small_ADeg ;
    smooth_ADeg = regADeg "slät" ;
    straight_ADeg = regADeg "rak" ;
    thick_ADeg = thick_ADeg ;
    thin_ADeg = thin_ADeg ;
    warm_ADeg = warm_ADeg ;
    wet_ADeg = regADeg "våt" ;
    white_ADeg = white_ADeg ;
    wide_ADeg = mk2ADeg "bred" "brett" ;
    yellow_ADeg = yellow_ADeg ;

--    left_A = regA "" ; -- FIXME: wtf
--    right_A = regA "" ; -- FIXME: wtf

    -- Nouns

    animal_N = regN "djur" neutrum ;
    ashes_N = regN "aska" utrum ;
    back_N = regN "rygg" utrum ;
    bark_N = regN "bark" utrum ;
    belly_N = regN "mage" utrum ;
    bird_N = bird_N;
    blood_N = regN "blod" neutrum ;
    bone_N = regN "ben" neutrum ;
    breast_N = regN "bröst" neutrum ;
    child_N = child_N ;
    cloud_N = regN "moln" neutrum ;
    day_N = regN "dag" utrum ;
    dog_N = dog_N ;
    dust_N = regN "damm" neutrum ;
    ear_N = regN "öra" neutrum ;
    earth_N = regN "jord" utrum ;
    egg_N = regN "ägg" neutrum ;
    eye_N = regN "öga" neutrum;
    fat_N = regN "fett" neutrum ;
--    father_N = UseN2 father_N2 ;
    feather_N = regN "fjäder" utrum ;
    fingernail_N = regN "nagel" utrum ;
    fire_N = regN "eld" utrum ;
    fish_N = fish_N ;
    flower_N = regN "blomma" utrum ;
    fog_N = regN "dimma" utrum ;
    foot_N = mk2N "fot" "fötter" ;
    forest_N = regN "skog" utrum ;
    fruit_N = fruit_N ;
    grass_N = regN "gräs" neutrum ;
    guts_N = regN "inälva" utrum ; -- FIXME: plural only?
    hair_N = regN "hår" neutrum ;
    hand_N = regN "hand" utrum ;
    head_N = regN "huvud" neutrum ;
    heart_N = regN "hjärta" neutrum ;
    horn_N = regN "horn" neutrum ;
    husband_N = mascN (regN "make" utrum) ;
    ice_N = regN "is" utrum ;
    knee_N = regN "knä" neutrum ;
    lake_N = lake_N ;
    leaf_N = mk2N "löv" "löv" ;
    leg_N = mk2N "ben" "ben" ;
    liver_N = regN "lever" utrum ;
    louse_N = mk2N "lus" "löss" ;
    man_N = man_N ;
    meat_N = meat_N ;
    moon_N = moon_N ;
--    mother_N = UseN2 mother_N2 ;
    mountain_N = mountain_N ;
    mouth_N = mk2N "mun" "munnar" ;
    name_N = mk2N "namn" "namn" ;
    neck_N = regN "nacke" utrum ;
    night_N = regN "natt" utrum ;
    nose_N = regN "näsa" utrum ;
    person_N = regN "person" utrum;
    rain_N = regN "regn" neutrum ;
    river_N = river_N ;
    road_N = regN "väg" utrum ;
    root_N = regN "rot" utrum ;
    rope_N = regN "rep" neutrum ;
    salt_N = regN "salt" neutrum ;
    sand_N = regN "sand" utrum ;
    sea_N = sea_N ;
    seed_N = regN "frö" neutrum ;
    skin_N = regN "skinn" neutrum ;
    sky_N = regN "himmel" "himlar" ; 
    smoke_N = regN "rök" utrum ;
    snake_N = snake_N ;
    snow_N = regN "snö" utrum ;
    star_N = star_N ;
    stick_N = regN "pinne" utrum ;
    stone_N = stone_N ;
    sun_N = sun_N ;
    tail_N = regN "svans" utrum ;
    tongue_N = regN "tunga" utrum ;
    tooth_N = mk2N "tand" "tänder" ;
    tree_N = tree_N ;
    water_N = water_N ;
    wife_N = regN "fru" utrum ;
    wind_N = regN "vind" utrum ;
    wing_N = regN "vinge" utrum ;
    woman_N = woman_N ;
    worm_N = regN "mask" utrum ;
    year_N = regN "år" neutrum ;

    name_N2 = mkN2 (regN "namn") "på" ;
    mother_N2 = mother_N2 ;
    father_N2 = father_N2 ;

    -- Verbs

    bite_V = bita_V ;
    blow_V = regV "blåsa" ;
--    breathe_V = -- FIXME
    burn_V = brinna_V ; -- FIXME: bränna?
    come_V = komma_V ;
    count_V = regV "räkna" ;
    cut_V = skära_V ;
    die_V = dö_V ;
    dig_V = mk2V "gräva" "gräver" ;
    drink_V = drink_V ;
    eat_V = äta_V ;
    fall_V = falla_V ;
    fear_V = regV "frukta" ;
--    fight_V = _V ; -- FIXME
    float_V = flyta_V ;
    flow_V = rinna_V ;
    fly_V = flyga_V ;
    freeze_V = frysa_V ;
    give_V = giva_V ;
    hear_V = mk2V "höra" "hör" ;
    hit_V = slå_V;
    hold_V = hålla_V ;
    hunt_V = regV "jaga" ;
    kill_V = regV "döda" ;
    know_V = kunna_V ; -- FIXME: känna? veta?
    laugh_V = regV "skratta" ;
    lie_V = ljuga_V ;
    live_V = mk2V "leva" "levde" ;
    play_V = mk2V "leka" "lekte" ;
    pull_V = dra_V ;
    push_V = mk2V "trycka" "tryckte" ;
    rub_V = smörja_V ;
    say_V = säga_V ;
    scratch_V = regV "klia" ;
    see_V = se_V ;
    sew_V = sy_V ;
    sing_V = sjunga_V ;
    sit_V = sitta_V ;
    sleep_V = sova_V ;
    smell_V = regV "lukta" ;
    spit_V = regV "spotta" ;
    split_V = klyva_V ;
    squeeze_V = regV "krama" ;
    stab_V = hugga_V ;
    stand_V = stå_V ;
    suck_V = suga_V ;
    swell_V = mk2V "svälla" "svällde" ;
    swim_V = regV "simma" ;
    think_V = mk2V "tänka" "tänkte" ;
    throw_V = regV "kasta" ;
    tie_V = knyta_V ;
    turn_V = mk2V "vända" "vände" ;
    vomit_V = mk2V "spy" "spydde" ;
    walk_V = gå_V ;
    wash_V = regV "tvätta" ;
    wipe_V = regV "torka" ;

    give_V3 = dirV3 give_V "to" ;

}