diff options
| author | krasimir <krasimir@chalmers.se> | 2010-02-17 11:07:24 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-02-17 11:07:24 +0000 |
| commit | f7f0112256b738a7c640c37d5bcbfc8a33bdb307 (patch) | |
| tree | e75a57edda742cbda74326331655cdf31e943649 /examples/SUMO/MergeFre.gf | |
| parent | a4d41ef3e32af4f5e2fb2f5e97ff7024aa4dd068 (diff) | |
added examples/SUMO
Diffstat (limited to 'examples/SUMO/MergeFre.gf')
| -rw-r--r-- | examples/SUMO/MergeFre.gf | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/examples/SUMO/MergeFre.gf b/examples/SUMO/MergeFre.gf new file mode 100644 index 000000000..9beb73c35 --- /dev/null +++ b/examples/SUMO/MergeFre.gf @@ -0,0 +1,51 @@ +--# -path=.:french:romance:abstract:prelude:common
+concrete MergeFre of Merge = BasicFre ** open DictLangFre, ParadigmsFre, ResFre, LexiconFre, ExtraLexiconFre, ParamBasic,StructuralFre in {
+
+lin
+-- single instances
+
+
+
+-- subclass declarations :
+
+Animal = UseN animal_N ;
+AnimalLanguage = ApposCN (UseN animal_N) (MassNP (UseN language_N)) ;
+Blood = UseN blood_N ;
+Bone = UseN bone_N ;
+Book = UseN book_N ;
+Buying = UseN2 (VerbToNounV2 buy_V2) ;
+Day = UseN day_N ;
+Eating = UseN2 (VerbToNounV2 eat_V2) ;
+Egg = UseN egg_N ;
+House = UseN house_N ;
+Man = UseN man_N ;
+Meat = UseN meat_N ;
+WaterCloud = ApposCN (UseN water_N) (MassNP (UseN cloud_N)) ;
+Wind = UseN wind_N ;
+Woman = UseN woman_N ;
+Worm = UseN worm_N ;
+Year = UseN year_N ;
+
+-- unary functions
+FloorFn ob = AdvNP (DetCN (DetQuant DefArt NumSg) (UseN floor_N)) (PrepNP part_Prep ob) ;
+YearFn ob = AdvCN (UseN year_N) (PrepNP part_Prep ob) ;
+SquareRootFn ob = AdvNP (DetCN (DetQuant DefArt NumSg) (AdjCN (PositA square_A) (UseN root_N))) (PrepNP part_Prep ob) ;
+RoundFn ob = AdvNP (DetCN (DetQuant DefArt NumSg) (AdjCN (PositA round_A) (UseN value_N))) (PrepNP possess_Prep ob) ;
+
+-- binary functions
+
+
+DayFn ob1 ob2 = AdvCN (ApposCN (UseN day_N) ob1) (PrepNP part_Prep (MassNP ob2)) ;
+
+
+
+knows ob1 ob2 = mkPolSent (PredVP ob1 (ComplSlash (SlashV2a know_V2) (sentToNoun ob2))) ;
+smaller ob1 ob2 = mkPolSent (PredVP ob1 (UseComp (CompAP (ComparA small_A ob2)))) ;
+husband ob1 ob2 = mkPolSent (PredVP ob1 (AdvVP (UseComp (CompNP (DetCN (DetQuant DefArt NumSg) (UseN husband_N)))) (PrepNP part_Prep ob2))) ;
+wife ob1 ob2 = mkPolSent (PredVP ob1 (AdvVP (UseComp (CompNP (DetCN (DetQuant DefArt NumSg) (UseN wife_N)))) (PrepNP part_Prep ob2))) ;
+sister ob1 ob2 = mkPolSent (PredVP ob1 (AdvVP (UseComp (CompNP (DetCN (DetQuant DefArt NumSg) (UseN sister_N)))) (PrepNP part_Prep ob2))) ;
+
+-- ternary predicate
+
+
+};
\ No newline at end of file |