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

Sats

Browse Source
This commit is contained in:
aarne
2005-03-02 13:42:41 +00:00
parent 91df538537
commit 7dae55f362
2 changed files with 49 additions and 226 deletions
Download Patch File Download Diff File Expand all files Collapse all files

226
examples/stoneage/StoneageEng.gf
View File

@@ -1,226 +0,0 @@
--# -path=.:../../lib/resource/abstract:../../lib/prelude:../../lib/resource/english
concrete StoneageEng of Stoneage
= open SyntaxEng, ResourceEng, SwadeshLexEng, StoneageRes in {
lincat
S = S ;
NP = NP ;
N = N;
CN = CN ;
lin
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 ;
Blow = PresV blow_V ;
Breathe = PresV breathe_V ;
Laugh = PresV laugh_V ;
Sleep = PresV sleep_V ;
Live = PresV live_V ;
Die = PresV die_V ;
Dig = PresV dig_V ;
Swim = PresV swim_V ;
Fly = PresV fly_V ;
Walk = PresV walk_V ;
Come = PresV come_V ;
Lie = PresV lie_V ;
Sit = PresV sit_V ;
Stand = PresV stand_V ;
Turn = PresV turn_V ;
Fall = PresV fall_V ;
Sing = PresV sing_V ;
Sew = PresV sew_V ;
Play = PresV play_V ;
Float = PresV float_V ;
Flow = PresV flow_V ;
Freeze = PresV freeze_V ;
Swell = PresV swell_V ;
Burn = PresV burn_V ;
-- Say = ;
-- Give = giveV3 ;
The = DefOneNP;
A = IndefOneNP ;
-- This : CN -> NP ;
-- That : CN -> NP ;
All = NDetNP all_NDet NoNum ;
Many = DetNP many_Det ;
Some_One = DetNP some_Det ;
Some_Many = NDetNP some_NDet NoNum ;
Few = DetNP few_Det ;
Other = DetNP other_Det ;
One = IndefNumNP one_Num ;
Two = IndefNumNP two_Num ;
Three = IndefNumNP three_Num ;
Four = IndefNumNP four_Num ;
Five = IndefNumNP five_Num ;
-- Pronouns
I = i_NP ;
You_One = thou_NP ;
He = he_NP ;
We = we_NP ;
You_Many = you_NP ;
They = they_NP ;
-- Nouns
Woman = UseN woman_N ;
Man = UseN man_N ;
Person = UseN person_N ;
Child = UseN child_N ;
Wife = UseN wife_N ;
Husband = UseN husband_N ;
Mother = UseN2 mother_N2 ;
Father = UseN2 father_N2 ;
Animal = UseN animal_N ;
Fish = UseN fish_N ;
Bird = UseN bird_N ;
Dog = UseN dog_N ;
Louse = UseN louse_N ;
Snake = UseN snake_N ;
Worm = UseN worm_N ;
Tree = UseN tree_N ;
Forest = UseN forest_N ;
Stick = UseN stick_N ;
Fruit = UseN fruit_N ;
Seed = UseN seed_N ;
Leaf = UseN leaf_N ;
Root = UseN root_N ;
Bark = UseN bark_N ;
Flower = UseN flower_N ;
Grass = UseN grass_N ;
Rope = UseN rope_N ;
Skin = UseN skin_N ;
Meat = UseN meat_N ;
Blood = UseN blood_N ;
Bone = UseN bone_N ;
Fat = UseN fat_N ;
Egg = UseN egg_N ;
Horn = UseN horn_N ;
Tail = UseN tail_N ;
Feather = UseN feather_N ;
Hair = UseN hair_N ;
Head = UseN head_N ;
Ear = UseN ear_N ;
Eye = UseN eye_N ;
Nose = UseN nose_N ;
Mouth = UseN mouth_N ;
Tooth = UseN tooth_N ;
Tongue = UseN tongue_N ;
Fingernail = UseN fingernail_N ;
Foot = UseN foot_N ;
Leg = UseN leg_N ;
Knee = UseN knee_N ;
Hand = UseN hand_N ;
Wing = UseN wing_N ;
Belly = UseN belly_N ;
Guts = UseN guts_N ;
Neck = UseN neck_N ;
Back = UseN back_N ;
Breast = UseN breast_N ;
Heart = UseN heart_N ;
Liver = UseN liver_N ;
Sun = UseN sun_N ;
Moon = UseN moon_N ;
Star = UseN star_N ;
Water = UseN water_N ;
Rain = UseN rain_N ;
River = UseN river_N ;
Lake = UseN lake_N ;
Sea = UseN sea_N ;
Salt = UseN salt_N ;
Stone = UseN stone_N ;
Sand = UseN sand_N ;
Dust = UseN dust_N ;
Earth = UseN earth_N ;
Cloud = UseN cloud_N ;
Fog = UseN fog_N ;
Sky = UseN sky_N ;
Wind = UseN wind_N ;
Snow = UseN snow_N ;
Ice = UseN ice_N ;
Smoke = UseN smoke_N ;
Fire = UseN fire_N ;
Ashes = UseN ashes_N ;
Road = UseN road_N ;
Mountain = UseN mountain_N ;
Night = UseN night_N ;
Day = UseN day_N ;
Year = UseN year_N ;
Name = UseN name_N ;
-- NameOf = AppN2 name_N2 ;
MotherOf = AppN2 mother_N2 ;
FatherOf = AppN2 father_N2 ;
Big = ModPosA big_ADeg ;
Long = ModPosA long_ADeg ;
Wide = ModPosA wide_ADeg ;
Thick = ModPosA thick_ADeg ;
Heavy = ModPosA heavy_ADeg ;
Small = ModPosA small_ADeg ;
Short = ModPosA short_ADeg ;
Narrow = ModPosA narrow_ADeg ;
Thin = ModPosA thin_ADeg ;
Red = ModPosA red_ADeg ;
Green = ModPosA green_ADeg ;
Yellow = ModPosA yellow_ADeg ;
White = ModPosA white_ADeg ;
Black = ModPosA black_ADeg ;
Warm = ModPosA warm_ADeg ;
Cold = ModPosA cold_ADeg ;
Full = ModPosA full_ADeg ;
New = ModPosA new_ADeg ;
Old = ModPosA old_ADeg ;
Good = ModPosA good_ADeg ;
Bad = ModPosA bad_ADeg ;
Rotten = ModPosA rotten_ADeg ;
Dirty = ModPosA dirty_ADeg ;
Straight = ModPosA straight_ADeg ;
Round = ModPosA round_ADeg ;
Sharp = ModPosA sharp_ADeg ;
Dull = ModPosA dull_ADeg ;
Smooth = ModPosA smooth_ADeg ;
Wet = ModPosA wet_ADeg ;
Dry = ModPosA dry_ADeg ;
Correct = ModPosA correct_ADeg ;
Near = ModPosA near_ADeg ;
-- Far = ModPosA far_ADeg ;
Right = ModAP (UseA right_A) ;
Left = ModAP (UseA left_A) ;
}

49
lib/resource/abstract/Sats.gf Normal file
View File

@@ -0,0 +1,49 @@
--1 Topological structure of Scandinavian sentences.
--
-- This is an alternative, more 'native' analysis than $Clause$ and
-- $Verbphrase$, due to Diderichsen.
--
-- Sources:
-- N. Jörgensen & J. Svensson, "Nusvensk grammatik" (Gleerups, 2001);
-- R. Zola Christensen, "Dansk grammatik for svenskere"
-- (Studentlitteratur 1999).
abstract Sats = Categories ** {
-- Idea: form primarily a $Sats$, which can then be lifted to a $Cl$
-- and used elsewhere in grammar.
cat Sats ;
fun
ClSats : Sats -> Cl ;
-- There will be $Sats$-forming functions for all subcategorization
-- patterns of verbs.
SatsV : NP -> V -> Sats ;
SatsV2 : NP -> V2 -> NP -> Sats ;
SatsV3 : NP -> V3 -> NP -> NP -> Sats ;
SatsReflV2 : NP -> V2 -> Sats ;
SatsVS : NP -> VS -> S -> Sats ;
SatsVQ : NP -> VQ -> QS -> Sats ;
SatsV2S : NP -> V2S -> NP -> S -> Sats ;
SatsV2Q : NP -> V2Q -> NP -> QS -> Sats ;
SatsAP : NP -> AP -> Sats ;
SatsCN : NP -> CN -> Sats ;
SatsNP : NP -> NP -> Sats ;
SatsAdv : NP -> Adv -> Sats ;
-- To a $Sats$, you can insert a sentence adverbial ($AdV$, e.g. "ändå") or
-- 'TSR' adverbial ($Adv$, e.g. "nu"; the name TSR is from Jörgensen
-- and Svensson).
AdVSats : Sats -> AdV -> Sats ;
AdvSats : Sats -> Adv -> Sats ;
-- We can also insert a verb-complement verb.
VVSats : Sats -> VV -> Sats ;
}