diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-08-28 20:44:41 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-08-28 20:44:41 +0000 |
| commit | 5a6d513a0eceba7320f9ecd868ccaf67572193ae (patch) | |
| tree | ccebe13d78eeca238ec7081fae9aac33fb3290a7 /examples/tutorial/syntax/TestEng.gf | |
| parent | 8747b745240b047ed1f69d12351d8ade89fafdd6 (diff) | |
chap on syntax and morpho
Diffstat (limited to 'examples/tutorial/syntax/TestEng.gf')
| -rw-r--r-- | examples/tutorial/syntax/TestEng.gf | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/examples/tutorial/syntax/TestEng.gf b/examples/tutorial/syntax/TestEng.gf index 4099753f1..cb5dc8da3 100644 --- a/examples/tutorial/syntax/TestEng.gf +++ b/examples/tutorial/syntax/TestEng.gf @@ -3,21 +3,21 @@ concrete TestEng of Test = SyntaxEng ** open Prelude, MorphoEng in { lin - 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" ; + wine_N = mkN "wine" ; + cheese_N = mkN "cheese" ; + fish_N = mkN "fish" "fish" ; + pizza_N = mkN "pizza" ; + waiter_N = mkN "waiter" ; + customer_N = mkN "customer" ; + fresh_A = mkA "fresh" ; + warm_A = mkA "warm" ; + italian_A = mkA "Italian" ; + expensive_A = mkA "expensive" ; + delicious_A = mkA "delicious" ; + boring_A = mkA "boring" ; + stink_V = mkV "stink" ; + eat_V2 = mkV2 (mkV "eat") ; + love_V2 = mkV2 (mkV "love") ; + talk_V2 = mkV2 (mkV "talk") "about" ; } |