msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Added half-finished swedish swadesh lexicon.

Browse Source
This commit is contained in:
bringert
2005-02-25 17:01:02 +00:00
parent 8d2a8be819
commit b416bba047
2 changed files with 274 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

245
lib/resource/swedish/SwadeshLexSwe.gf Normal file
View File

@@ -0,0 +1,245 @@
--# -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" ;
}