From d7f76c6d62ec9bd2a20b3111176e64cca82f5c95 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Tue, 13 Jul 2010 08:04:53 +0000
Subject: for some reason the concrete syntax for MidLevelOntology was not in
 darcs

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

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

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))) ;
+
+ };
-- 
cgit v1.2.3