diff options
| author | aarne <aarne@cs.chalmers.se> | 2005-12-19 16:31:40 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2005-12-19 16:31:40 +0000 |
| commit | bfbe2e3d47e5f1904846609c80058f0561d76ede (patch) | |
| tree | e41e9d1f35e48afa7049b0d05362d10df7078ae6 /doc/tutorial/FoodsEng.gf | |
| parent | 7878cd5e0ad8d8097a1f7a6b9885b4825fc47686 (diff) | |
resource examples
Diffstat (limited to 'doc/tutorial/FoodsEng.gf')
| -rw-r--r-- | doc/tutorial/FoodsEng.gf | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/doc/tutorial/FoodsEng.gf b/doc/tutorial/FoodsEng.gf index 1899c0e96..ee3857166 100644 --- a/doc/tutorial/FoodsEng.gf +++ b/doc/tutorial/FoodsEng.gf @@ -1,4 +1,4 @@ ---# -path=.:prelude +--# -path=.:resource:prelude concrete FoodsEng of Foods = open Prelude, MorphoEng in { @@ -9,14 +9,15 @@ concrete FoodsEng of Foods = open Prelude, MorphoEng in { 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" ; + 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" ; |
