diff --git a/examples/stoneage/StoneageEng.gf b/examples/stoneage/StoneageEng.gf index 8b8d6b0b2..2bfa91e90 100644 --- a/examples/stoneage/StoneageEng.gf +++ b/examples/stoneage/StoneageEng.gf @@ -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 ; diff --git a/lib/resource/swedish/SwadeshLexSwe.gf b/lib/resource/swedish/SwadeshLexSwe.gf new file mode 100644 index 000000000..a5e6b9de2 --- /dev/null +++ b/lib/resource/swedish/SwadeshLexSwe.gf @@ -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" ; + +} \ No newline at end of file