summaryrefslogtreecommitdiff
path: root/old-examples/tutorial/resource-foods/ExtFoods.gf
diff options
context:
space:
mode:
Diffstat (limited to 'old-examples/tutorial/resource-foods/ExtFoods.gf')
-rw-r--r--old-examples/tutorial/resource-foods/ExtFoods.gf35
1 files changed, 35 insertions, 0 deletions
diff --git a/old-examples/tutorial/resource-foods/ExtFoods.gf b/old-examples/tutorial/resource-foods/ExtFoods.gf
new file mode 100644
index 000000000..22b65a3c0
--- /dev/null
+++ b/old-examples/tutorial/resource-foods/ExtFoods.gf
@@ -0,0 +1,35 @@
+abstract ExtFoods = Foods ** {
+
+ flags startcat=Move ;
+
+ cat
+ Move ; -- declarative, question, or imperative
+ Verb ; -- transitive verb
+ Guest ; -- guest in restaurant
+ GuestKind ; -- type of guest
+
+ fun
+ MAssert : Phrase -> Move ; -- This pizza is warm.
+ MDeny : Phrase -> Move ; -- This pizza isn't warm.
+ MAsk : Phrase -> Move ; -- Is this pizza warm?
+
+ PVerb : Guest -> Verb -> Item -> Phrase ; -- we eat this pizza
+ PVerbWant : Guest -> Verb -> Item -> Phrase ; -- we want to eat this pizza
+
+ WhichVerb : Kind -> Guest -> Verb -> Move ; -- Which pizza do you eat?
+ WhichVerbWant : Kind -> Guest -> Verb -> Move ;
+ -- Which pizza do you want to eat?
+ WhichIs : Kind -> Quality -> Move ; -- Which wine is Italian?
+
+ Do : Verb -> Item -> Move ; -- Pay this wine!
+ DoPlease : Verb -> Item -> Move ; -- Pay this wine please!
+
+ I, You, We : Guest ;
+
+ GThis, GThat, GThese, GThose : GuestKind -> Guest ;
+
+ Eat, Drink, Pay : Verb ;
+
+ Lady, Gentleman : GuestKind ;
+
+}