forked from GitHub/gf-core
Added half-finished swedish swadesh lexicon.
This commit is contained in:
bringert
@@ -1,6 +1,6 @@
|
|||||||
--# -path=.:../../lib/resource/abstract:../../lib/prelude:../../lib/resource/english
|
--# -path=.:../../lib/resource/abstract:../../lib/prelude:../../lib/resource/english
|
||||||
concrete StoneageEng of Stoneage
|
concrete StoneageEng of Stoneage
|
||||||
= open SyntaxEng, ResourceEng, SwadeshLexEng, StoneageResEng in {
|
= open SyntaxEng, ResourceEng, SwadeshLexEng, StoneageRes in {
|
||||||
|
|
||||||
lincat
|
lincat
|
||||||
S = S ;
|
S = S ;
|
||||||
@@ -9,34 +9,34 @@ lincat
|
|||||||
CN = CN ;
|
CN = CN ;
|
||||||
|
|
||||||
lin
|
lin
|
||||||
Drink = PresVasV2 drink_V ;
|
Drink = PresV (dirV2 drink_V) ;
|
||||||
Eat = PresVasV2 eat_V ;
|
Eat = PresV (dirV2 eat_V) ;
|
||||||
Bite = PresVasV2 bite_V ;
|
Bite = PresV (dirV2 bite_V) ;
|
||||||
Suck = PresVasV2 suck_V ;
|
Suck = PresV (dirV2 suck_V) ;
|
||||||
See = PresVasV2 see_V ;
|
See = PresV (dirV2 see_V) ;
|
||||||
Hear = PresVasV2 hear_V ;
|
Hear = PresV (dirV2 hear_V) ;
|
||||||
Know = PresVasV2 know_V ;
|
Know = PresV (dirV2 know_V) ;
|
||||||
Think = PresVasV2 think_V ;
|
Think = PresV (dirV2 think_V) ;
|
||||||
Smell = PresVasV2 smell_V ;
|
Smell = PresV (dirV2 smell_V) ;
|
||||||
Fear = PresVasV2 fear_V ;
|
Fear = PresV (dirV2 fear_V) ;
|
||||||
Kill = PresVasV2 kill_V ;
|
Kill = PresV (dirV2 kill_V) ;
|
||||||
Fight = PresVasV2 fight_V ;
|
Fight = PresV (dirV2 fight_V) ;
|
||||||
Hunt = PresVasV2 hunt_V ;
|
Hunt = PresV (dirV2 hunt_V) ;
|
||||||
Hit = PresVasV2 hit_V ;
|
Hit = PresV (dirV2 hit_V) ;
|
||||||
Cut = PresVasV2 cut_V ;
|
Cut = PresV (dirV2 cut_V) ;
|
||||||
Split = PresVasV2 split_V ;
|
Split = PresV (dirV2 split_V) ;
|
||||||
Stab = PresVasV2 stab_V ;
|
Stab = PresV (dirV2 stab_V) ;
|
||||||
Scratch = PresVasV2 scratch_V ;
|
Scratch = PresV (dirV2 scratch_V) ;
|
||||||
Hold = PresVasV2 hold_V ;
|
Hold = PresV (dirV2 hold_V) ;
|
||||||
Squeeze = PresVasV2 squeeze_V ;
|
Squeeze = PresV (dirV2 squeeze_V) ;
|
||||||
Rub = PresVasV2 rub_V ;
|
Rub = PresV (dirV2 rub_V) ;
|
||||||
Wash = PresVasV2 wash_V ;
|
Wash = PresV (dirV2 wash_V) ;
|
||||||
Wipe = PresVasV2 wipe_V ;
|
Wipe = PresV (dirV2 wipe_V) ;
|
||||||
Pull = PresVasV2 pull_V ;
|
Pull = PresV (dirV2 pull_V) ;
|
||||||
Push = PresVasV2 push_V ;
|
Push = PresV (dirV2 push_V) ;
|
||||||
Throw = PresVasV2 throw_V ;
|
Throw = PresV (dirV2 throw_V) ;
|
||||||
Tie = PresVasV2 tie_V ;
|
Tie = PresV (dirV2 tie_V) ;
|
||||||
Count = PresVasV2 count_V ;
|
Count = PresV (dirV2 count_V) ;
|
||||||
|
|
||||||
Spit = PresV spit_V ;
|
Spit = PresV spit_V ;
|
||||||
Vomit = PresV vomit_V ;
|
Vomit = PresV vomit_V ;
|
||||||
|
|||||||
245
lib/resource/swedish/SwadeshLexSwe.gf
Normal file
245
lib/resource/swedish/SwadeshLexSwe.gf
Normal 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" ;
|
||||||
|
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user