ExtFoods for book

2007-09-06 11:34:53 +00:00
parent eb173e4529
commit cd9dac84c2
13 changed files with 150 additions and 5 deletions
--- a/examples/tutorial/resource-foods/ExtFoods.gf
+++ 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 ;
+    
+}