forked from GitHub/gf-core
35 lines
873 B
Plaintext
35 lines
873 B
Plaintext
--# -path=.:prelude
|
|
|
|
concrete FoodsEng of Foods = open Prelude, MorphoEng in {
|
|
|
|
lincat
|
|
S, Quality = SS ;
|
|
Kind = {s : Number => Str} ;
|
|
Item = {s : Str ; n : Number} ;
|
|
|
|
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" ;
|
|
QKind quality kind = {s = \\n => quality.s ++ kind.s ! n} ;
|
|
Wine = regNoun "wine" ;
|
|
Cheese = regNoun "cheese" ;
|
|
Fish = mkNoun "fish" "fish" ;
|
|
Very = prefixSS "very" ;
|
|
Fresh = ss "fresh" ;
|
|
Warm = ss "warm" ;
|
|
Italian = ss "Italian" ;
|
|
Expensive = ss "expensive" ;
|
|
Delicious = ss "delicious" ;
|
|
Boring = ss "boring" ;
|
|
|
|
oper
|
|
det : Number -> Str -> Noun -> {s : Str ; n : Number} = \n,d,cn -> {
|
|
s = d ++ cn.s ! n ;
|
|
n = n
|
|
} ;
|
|
|
|
}
|
|
|