mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-22 11:19:32 -06:00
improving mini res morpho
This commit is contained in:
@@ -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" ;
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user