From 1aff0ee08a2ff7e752e2fec4c915852e8b6438f6 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 5 Jul 2007 20:52:56 +0000 Subject: resource-food example in tutorial --- doc/tutorial/resource-food/Food.gf | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 doc/tutorial/resource-food/Food.gf (limited to 'doc/tutorial/resource-food/Food.gf') diff --git a/doc/tutorial/resource-food/Food.gf b/doc/tutorial/resource-food/Food.gf new file mode 100644 index 000000000..66a23e4a9 --- /dev/null +++ b/doc/tutorial/resource-food/Food.gf @@ -0,0 +1,14 @@ +abstract Food = { + + cat + S ; Item ; Kind ; Quality ; + + fun + Is : Item -> Quality -> S ; + This, That, All : Kind -> Item ; + QKind : Quality -> Kind -> Kind ; + Wine, Cheese, Fish, Beer, Pizza : Kind ; + Very : Quality -> Quality ; + Fresh, Warm, Italian, Expensive, Delicious, Boring : Quality ; + +} -- cgit v1.2.3