diff options
| author | krasimir <krasimir@chalmers.se> | 2010-07-13 08:04:53 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-07-13 08:04:53 +0000 |
| commit | d7f76c6d62ec9bd2a20b3111176e64cca82f5c95 (patch) | |
| tree | 1fbec60ba3992f7c6d5f1932fd06f6a4d8b16bdd /examples/SUMO/MidLevelOntologyFre.gf | |
| parent | 3c10d0ce44e1ae5772dc4f5f67eb7a3717f14335 (diff) | |
for some reason the concrete syntax for MidLevelOntology was not in darcs
Diffstat (limited to 'examples/SUMO/MidLevelOntologyFre.gf')
| -rw-r--r-- | examples/SUMO/MidLevelOntologyFre.gf | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/examples/SUMO/MidLevelOntologyFre.gf b/examples/SUMO/MidLevelOntologyFre.gf new file mode 100644 index 000000000..d3d31e524 --- /dev/null +++ b/examples/SUMO/MidLevelOntologyFre.gf @@ -0,0 +1,42 @@ +--# -path=.:french:romance:abstract:prelude:common
+concrete MidLevelOntologyFre of MidLevelOntology = MergeFre ** open DictLangFre, ParadigmsFre, LexiconFre, ExtraLexiconFre in {
+
+lin
+
+-- individual instances :
+
+Student = MassNP (UseN student_N) ;
+Teacher = MassNP (UseN teacher_N) ;
+
+
+-- subclasses
+Apple = UseN apple_N ;
+ArtSchool = ApposCN (UseN art_N) (MassNP (UseN school_N)) ;
+Beer = UseN beer_N ;
+BirdEgg = ApposCN (UseN bird_N) (MassNP (UseN egg_N)) ;
+Boy = UseN boy_N ;
+Closing = UseN2 (VerbToNounV2 close_V2) ;
+DaySchool = ApposCN (UseN day_N) (MassNP (UseN school_N)) ;
+Eye = UseN eye_N ;
+Girl = UseN girl_N ;
+Grass = UseN grass_N ;
+Head = UseN head_N ;
+Heart = UseN heart_N ;
+Knee = UseN knee_N ;
+Milk = UseN milk_N ;
+Restaurant = UseN restaurant_N ;
+
+-- unary functions :
+
+FirstFn ob = AdvNP (DetCN (DetQuantOrd DefArt NumSg (OrdNumeral (num (pot2as3 (pot1as2 (pot0as1 pot01)))))) (UseN element_N)) (PrepNP part_Prep ob) ;
+
+
+--bespeak_V2
+speaksLanguage ob1 ob2 = mkPolSent (PredVP ob1 (ComplSlash (SlashV2a speak_V2) (DetCN (DetQuant DefArt NumSg) (ApposCN (UseN language_N) ob2)))) ;
+student ob1 ob2 = mkPolSent (PredVP ob1 (AdvVP (UseComp (CompNP (DetCN (DetQuant DefArt NumSg) (UseN student_N)))) (PrepNP part_Prep ob2))) ;
+teacher ob1 ob2 = mkPolSent (PredVP ob1 (AdvVP (UseComp (CompNP (DetCN (DetQuant DefArt NumSg) (UseN teacher_N)))) (PrepNP part_Prep ob2))) ;
+friend ob1 ob2 = mkPolSent (PredVP ob1 (AdvVP (UseComp (CompNP (DetCN (DetQuant DefArt NumSg) (UseN friend_N)))) (PrepNP part_Prep ob2))) ;
+cousin ob1 ob2 = mkPolSent (PredVP ob1 (AdvVP (UseComp (CompNP (DetCN (DetQuant DefArt NumSg) (UseN cousin_N)))) (PrepNP part_Prep ob2))) ;
+fears ob1 ob2 = mkPolSent (PredVP ob1 (ComplSlash (SlashV2a fear_V2) (sentToNoun ob2))) ;
+
+ };
|