summaryrefslogtreecommitdiff
path: root/doc/tutorial/FoodsEng.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2005-12-19 16:31:40 +0000
committeraarne <aarne@cs.chalmers.se>2005-12-19 16:31:40 +0000
commitbfbe2e3d47e5f1904846609c80058f0561d76ede (patch)
treee41e9d1f35e48afa7049b0d05362d10df7078ae6 /doc/tutorial/FoodsEng.gf
parent7878cd5e0ad8d8097a1f7a6b9885b4825fc47686 (diff)
resource examples
Diffstat (limited to 'doc/tutorial/FoodsEng.gf')
-rw-r--r--doc/tutorial/FoodsEng.gf11
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" ;