From 10f621045a53c3a2b75195f355e362537ac6f08b Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 6 Sep 2007 11:34:53 +0000
Subject: ExtFoods for book

---
 examples/tutorial/resource-foods/ExtFoods.gf | 34 ++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 examples/tutorial/resource-foods/ExtFoods.gf

(limited to 'examples/tutorial/resource-foods/ExtFoods.gf')

diff --git a/examples/tutorial/resource-foods/ExtFoods.gf b/examples/tutorial/resource-foods/ExtFoods.gf
new file mode 100644
index 000000000..fa417190e
--- /dev/null
+++ b/examples/tutorial/resource-foods/ExtFoods.gf
@@ -0,0 +1,34 @@
+abstract ExtFoods = Foods ** {
+
+  flags startcat=Move ;
+
+  cat
+    Move ;
+    Verb ;
+    Guest ;
+    GuestKind ;
+
+  fun
+    MAssert : Phrase -> Move ;    
+    MDeny : Phrase -> Move ;    
+    MAsk : Phrase -> Move ;
+
+    PVerb : Guest -> Verb -> Item -> Phrase ;
+    PVerbWant : Guest -> Verb -> Item -> Phrase ;
+
+    WhichVerb : Kind -> Guest -> Verb -> Move ;
+    WhichVerbWant : Kind -> Guest -> Verb -> Move ;
+    WhichIs : Kind -> Quality -> Move ;
+
+    Do : Verb -> Item -> Move ;
+    DoPlease : Verb -> Item -> Move ;
+
+    I, You, We : Guest ;
+
+    GThis, GThat, GThese, GThose : GuestKind -> Guest ;
+    
+    Eat, Drink, Pay : Verb ;
+
+    Lady, Gentleman : GuestKind ;
+    
+}
-- 
cgit v1.2.3