diff options
Diffstat (limited to 'examples/stoneage')
| -rw-r--r-- | examples/stoneage/StoneageIta.gf | 242 | ||||
| -rw-r--r-- | examples/stoneage/StoneageResIta.gf | 25 |
2 files changed, 267 insertions, 0 deletions
diff --git a/examples/stoneage/StoneageIta.gf b/examples/stoneage/StoneageIta.gf new file mode 100644 index 000000000..03c0ccaf1 --- /dev/null +++ b/examples/stoneage/StoneageIta.gf @@ -0,0 +1,242 @@ +--# -path=.:../../lib/resource/romance:../../lib/resource/abstract:../../lib/resource/italian:../../lib/prelude + +concrete StoneageIta of Stoneage + = open SyntaxIta, RulesIta, StructuralIta, ParadigmsIta, SwadeshLexIta, + StoneageResIta in { + +flags + startcat=S; optimize=share; + +lincat + S = Phr ; + NP = NP ; + N = N; + CN = CN ; + +lin + + -- Sentence conjunction + +-- AndS s1 s2 = { s = s1.s ++ and_Conj.s ++ s2.s } ** { lock_Phr = <> } ; + + -- NP conjunction + +-- AndNP n1 n2 = ConjNP and_Conj (TwoNP n1 n2); + + + Drink = PresV2 (dirV2 drink_V) ; + Eat = PresV2 (dirV2 eat_V) ; + Bite = PresV2 (dirV2 bite_V) ; + Suck = PresV2 (dirV2 suck_V) ; + See = PresV2 (dirV2 see_V) ; + Hear = PresV2 (dirV2 hear_V) ; + Know = PresV2 (dirV2 know_V) ; + Smell = PresV2 (dirV2 smell_V) ; + Fear = PresV2 (dirV2 fear_V) ; + Kill = PresV2 (dirV2 kill_V) ; + Fight = PresV2 (dirV2 fight_V) ; + Hunt = PresV2 (dirV2 hunt_V) ; + Hit = PresV2 (dirV2 hit_V) ; + Cut = PresV2 (dirV2 cut_V) ; + Split = PresV2 (dirV2 split_V) ; + Stab = PresV2 (dirV2 stab_V) ; + Scratch = PresV2 (dirV2 scratch_V) ; + Hold = PresV2 (dirV2 hold_V) ; + Squeeze = PresV2 (dirV2 squeeze_V) ; + Rub = PresV2 (dirV2 rub_V) ; + Wash = PresV2 (dirV2 wash_V) ; + Wipe = PresV2 (dirV2 wipe_V) ; + Pull = PresV2 (dirV2 pull_V) ; + Push = PresV2 (dirV2 push_V) ; + Throw = PresV2 (dirV2 throw_V) ; + Tie = PresV2 (dirV2 tie_V) ; + Count = PresV2 (dirV2 count_V) ; + + Think = PresV think_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 = PresReflV lie_V ; + Sit = PresReflV sit_V ; + Stand = PresReflV 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 ; + + Give = PresV3 (dirV3 give_V dative) ; + +-- Say = ; + + The_One = DefOneNP ; + The_Many = DefNumNP NoNum ; + A = IndefOneNP ; + This = DetNP this_Det ; + That = DetNP that_Det ; + 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 = UseN mother_N ; + Father = UseN father_N ; + 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 (mkN2 mother_N genitive) ; + FatherOf = AppN2 (mkN2 father_N genitive) ; + + 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) ; + +}
\ No newline at end of file diff --git a/examples/stoneage/StoneageResIta.gf b/examples/stoneage/StoneageResIta.gf new file mode 100644 index 000000000..d8b025004 --- /dev/null +++ b/examples/stoneage/StoneageResIta.gf @@ -0,0 +1,25 @@ +resource StoneageResIta = open RulesIta, SyntaxIta, ParadigmsIta in { + +oper + PresV : V -> NP -> Phr = \v,s -> PresCl (mkSats s v) ; + PresV2 : V2 -> NP -> NP -> Phr = \v,s,o -> + PresCl (mkSatsObject s v o) ; + PresV3 : V3 -> NP -> NP -> NP -> Phr = \v,s,o,r -> + PresCl (insertObject (mkSatsObject s v o) v.c3 v.s3 r) ; + PresVasV2 : V -> NP -> NP -> Phr = \ v -> PresV2 (dirV2 v) ; + + PresReflV : V -> NP -> Phr = \v,s -> + PresCl (insertObject (mkSats s v) accusative.p1 [] + (reflPronNounPhrase (pgen2gen s.g) s.n s.p)) ; + + PresCl : Sats -> Phr = \c -> + {s = (UseCl (PosTP TPresent ASimul) + (sats2clause c ** {lock_Cl = <>}) + ).s ! Ind ; + lock_Phr = <> + } ; + + ModPosA : ADeg -> CN -> CN = \a -> ModAP (PositADeg a) ; + ModA : A -> CN -> CN = \a -> ModAP (UseA a) ; + +}
\ No newline at end of file |