diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-08-16 14:10:06 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-08-16 14:10:06 +0000 |
| commit | 5f0e8a16ecbf06a6dad344ce2ef0974692ffc581 (patch) | |
| tree | 6611d0e8cfeb65f67530267e2f51bc58594893ad /doc/tutorial/resource/TestEng.gf | |
| parent | 1f342b2c25a5b3026de101028a56b3ff17e04e5b (diff) | |
improving mini res morpho
Diffstat (limited to 'doc/tutorial/resource/TestEng.gf')
| -rw-r--r-- | doc/tutorial/resource/TestEng.gf | 32 |
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" ; } |
