forked from GitHub/gf-core
245 lines
6.7 KiB
Plaintext
245 lines
6.7 KiB
Plaintext
--# -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 = say_V ;
|
|
scratch_V = regV "scratch" ;
|
|
see_V = see_V ;
|
|
sew_V = sew_V ;
|
|
sing_V = sing_V ;
|
|
sit_V = sit_V ;
|
|
sleep_V = sleep_V ;
|
|
smell_V = regV "smell" ;
|
|
spit_V = spit_V ;
|
|
split_V = split_V ;
|
|
squeeze_V = regV "squeeze" ;
|
|
stab_V = regDuplV "stab" ;
|
|
stand_V = stand_V ;
|
|
suck_V = regV "suck" ;
|
|
swell_V = swell_V ;
|
|
swim_V = swim_V ;
|
|
think_V = think_V ;
|
|
throw_V = throw_V ;
|
|
tie_V = regV "tie" ;
|
|
turn_V = regV "turn" ;
|
|
vomit_V = regV "vomit" ;
|
|
walk_V = walk_V ;
|
|
wash_V = regV "wash" ;
|
|
wipe_V = regV "wipe" ;
|
|
|
|
give_V3 = dirV3 give_V "to" ;
|
|
|
|
} |