summaryrefslogtreecommitdiff
path: root/doc/tutorial/resource/TestEng.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2007-08-16 14:10:06 +0000
committeraarne <aarne@cs.chalmers.se>2007-08-16 14:10:06 +0000
commit5f0e8a16ecbf06a6dad344ce2ef0974692ffc581 (patch)
tree6611d0e8cfeb65f67530267e2f51bc58594893ad /doc/tutorial/resource/TestEng.gf
parent1f342b2c25a5b3026de101028a56b3ff17e04e5b (diff)
improving mini res morpho
Diffstat (limited to 'doc/tutorial/resource/TestEng.gf')
-rw-r--r--doc/tutorial/resource/TestEng.gf32
1 files changed, 16 insertions, 16 deletions
diff --git a/doc/tutorial/resource/TestEng.gf b/doc/tutorial/resource/TestEng.gf
index 3bfe52dfd..4099753f1 100644
--- a/doc/tutorial/resource/TestEng.gf
+++ b/doc/tutorial/resource/TestEng.gf
@@ -3,21 +3,21 @@
concrete TestEng of Test = SyntaxEng ** open Prelude, MorphoEng in {
lin
- Wine = regNoun "wine" ;
- Cheese = regNoun "cheese" ;
- Fish = mkNoun "fish" "fish" ;
- Pizza = regNoun "pizza" ;
- Waiter = regNoun "waiter" ;
- Customer = regNoun "customer" ;
- Fresh = ss "fresh" ;
- Warm = ss "warm" ;
- Italian = ss "Italian" ;
- Expensive = ss "expensive" ;
- Delicious = ss "delicious" ;
- Boring = ss "boring" ;
- Stink = regVerb "stink" ;
- Eat = regVerb "eat" ** {c = []} ;
- Love = regVerb "love" ** {c = []} ;
- Talk = regVerb "talk" ** {c = "about"} ;
+ Wine = mkN "wine" ;
+ Cheese = mkN "cheese" ;
+ Fish = mkN "fish" "fish" ;
+ Pizza = mkN "pizza" ;
+ Waiter = mkN "waiter" ;
+ Customer = mkN "customer" ;
+ Fresh = mkA "fresh" ;
+ Warm = mkA "warm" ;
+ Italian = mkA "Italian" ;
+ Expensive = mkA "expensive" ;
+ Delicious = mkA "delicious" ;
+ Boring = mkA "boring" ;
+ Stink = mkV "stink" ;
+ Eat = mkV2 (mkV "eat") ;
+ Love = mkV2 (mkV "love") ;
+ Talk = mkV2 (mkV "talk") "about" ;
}