GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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

58
examples/stoneage/StoneageEng.gf
View File

@@ -1,6 +1,6 @@
--# -path=.:../../lib/resource/abstract:../../lib/prelude:../../lib/resource/english
concrete StoneageEng of Stoneage
= open SyntaxEng, ResourceEng, SwadeshLexEng, StoneageResEng in {
= open SyntaxEng, ResourceEng, SwadeshLexEng, StoneageRes in {
lincat
S = S ;
@@ -9,34 +9,34 @@ lincat
CN = CN ;
lin
Drink = PresVasV2 drink_V ;
Eat = PresVasV2 eat_V ;
Bite = PresVasV2 bite_V ;
Suck = PresVasV2 suck_V ;
See = PresVasV2 see_V ;
Hear = PresVasV2 hear_V ;
Know = PresVasV2 know_V ;
Think = PresVasV2 think_V ;
Smell = PresVasV2 smell_V ;
Fear = PresVasV2 fear_V ;
Kill = PresVasV2 kill_V ;
Fight = PresVasV2 fight_V ;
Hunt = PresVasV2 hunt_V ;
Hit = PresVasV2 hit_V ;
Cut = PresVasV2 cut_V ;
Split = PresVasV2 split_V ;
Stab = PresVasV2 stab_V ;
Scratch = PresVasV2 scratch_V ;
Hold = PresVasV2 hold_V ;
Squeeze = PresVasV2 squeeze_V ;
Rub = PresVasV2 rub_V ;
Wash = PresVasV2 wash_V ;
Wipe = PresVasV2 wipe_V ;
Pull = PresVasV2 pull_V ;
Push = PresVasV2 push_V ;
Throw = PresVasV2 throw_V ;
Tie = PresVasV2 tie_V ;
Count = PresVasV2 count_V ;
Drink = PresV (dirV2 drink_V) ;
Eat = PresV (dirV2 eat_V) ;
Bite = PresV (dirV2 bite_V) ;
Suck = PresV (dirV2 suck_V) ;
See = PresV (dirV2 see_V) ;
Hear = PresV (dirV2 hear_V) ;
Know = PresV (dirV2 know_V) ;
Think = PresV (dirV2 think_V) ;
Smell = PresV (dirV2 smell_V) ;
Fear = PresV (dirV2 fear_V) ;
Kill = PresV (dirV2 kill_V) ;
Fight = PresV (dirV2 fight_V) ;
Hunt = PresV (dirV2 hunt_V) ;
Hit = PresV (dirV2 hit_V) ;
Cut = PresV (dirV2 cut_V) ;
Split = PresV (dirV2 split_V) ;
Stab = PresV (dirV2 stab_V) ;
Scratch = PresV (dirV2 scratch_V) ;
Hold = PresV (dirV2 hold_V) ;
Squeeze = PresV (dirV2 squeeze_V) ;
Rub = PresV (dirV2 rub_V) ;
Wash = PresV (dirV2 wash_V) ;
Wipe = PresV (dirV2 wipe_V) ;
Pull = PresV (dirV2 pull_V) ;
Push = PresV (dirV2 push_V) ;
Throw = PresV (dirV2 throw_V) ;
Tie = PresV (dirV2 tie_V) ;
Count = PresV (dirV2 count_V) ;
Spit = PresV spit_V ;
Vomit = PresV vomit_V ;

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" ;
}