From 6398140d0ac21ad05a0c595b77007631cd5e1265 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sun, 18 Dec 2005 21:26:21 +0000
Subject: new tutorial example

---
 doc/tutorial/FoodsEng.gf | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 doc/tutorial/FoodsEng.gf

(limited to 'doc/tutorial/FoodsEng.gf')

diff --git a/doc/tutorial/FoodsEng.gf b/doc/tutorial/FoodsEng.gf
new file mode 100644
index 000000000..1899c0e96
--- /dev/null
+++ b/doc/tutorial/FoodsEng.gf
@@ -0,0 +1,35 @@
+--# -path=.:prelude
+
+concrete FoodsEng of Foods = open Prelude, MorphoEng in {
+
+  lincat
+    S, Quality = SS ; 
+    Kind = {s : Number => Str} ; 
+    Item = {s : Str ; n : Number} ; 
+
+  lin
+    Is item quality = ss (item.s ++ (mkVerb "are" "is").s ! item.n ++ quality.s) ;
+    This = det Sg "this" ;
+    That = det Sg "that" ;
+    All  = det Pl "all" ;
+    Most = det Pl "most" ;
+    QKind quality kind = {s = \\n => quality.s ++ kind.s ! n} ;
+    Wine = regNoun "wine" ;
+    Cheese = regNoun "cheese" ;
+    Fish = mkNoun "fish" "fish" ;
+    Very = prefixSS "very" ;
+    Fresh = ss "fresh" ;
+    Warm = ss "warm" ;
+    Italian = ss "Italian" ;
+    Expensive = ss "expensive" ;
+    Delicious = ss "delicious" ;
+    Boring = ss "boring" ;
+
+  oper
+    det : Number -> Str -> Noun -> {s : Str ; n : Number} = \n,d,cn -> {
+      s = d ++ cn.s ! n ;
+      n = n
+      } ;
+
+}
+    
\ No newline at end of file
-- 
cgit v1.2.3