diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-08-16 20:12:45 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-08-16 20:12:45 +0000 |
| commit | 3737b9926696b70bdecdef3d38d1a1f9399c734a (patch) | |
| tree | 990d796fecc00d46608f9a1070256d40ca313e3b /doc/tutorial/FoodsEng.gf | |
| parent | f109a7089d9ed422d34aaacc064388e4d5fb1d3c (diff) | |
foods example moved and completed
Diffstat (limited to 'doc/tutorial/FoodsEng.gf')
| -rw-r--r-- | doc/tutorial/FoodsEng.gf | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/doc/tutorial/FoodsEng.gf b/doc/tutorial/FoodsEng.gf deleted file mode 100644 index ee3857166..000000000 --- a/doc/tutorial/FoodsEng.gf +++ /dev/null @@ -1,36 +0,0 @@ ---# -path=.:resource: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" ; - These = det Pl "these" ; - Those = det Pl "those" ; - QKind quality kind = {s = \\n => quality.s ++ kind.s ! n} ; - Wine = regNoun "wine" ; - Cheese = regNoun "cheese" ; - Fish = mkNoun "fish" "fish" ; - Pizza = regNoun "pizza" ; - 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 |
