From f7f0112256b738a7c640c37d5bcbfc8a33bdb307 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 17 Feb 2010 11:07:24 +0000
Subject: added examples/SUMO

---
 examples/SUMO/MergeFre.gf | 51 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 examples/SUMO/MergeFre.gf

(limited to 'examples/SUMO/MergeFre.gf')

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
-- 
cgit v1.2.3