forked from GitHub/gf-core
28 lines
824 B
Plaintext
28 lines
824 B
Plaintext
--# -path=.:../foods:minimal:present
|
|
|
|
concrete FoodsEng of Foods = open SyntaxEng,ParadigmsEng in {
|
|
lincat
|
|
Phrase = Cl ;
|
|
Item = NP ;
|
|
Kind = CN ;
|
|
Quality = AP ;
|
|
lin
|
|
Is item quality = mkCl item quality ;
|
|
This kind = mkNP this_Det kind ;
|
|
That kind = mkNP that_Det kind ;
|
|
These kind = mkNP these_Det kind ;
|
|
Those kind = mkNP those_Det kind ;
|
|
QKind quality kind = mkCN quality kind ;
|
|
Wine = mkCN (mkN "wine") ;
|
|
Pizza = mkCN (mkN "pizza") ;
|
|
Cheese = mkCN (mkN "cheese") ;
|
|
Fish = mkCN (mkN "fish" "fish") ;
|
|
Very quality = mkAP very_AdA quality ;
|
|
Fresh = mkAP (mkA "fresh") ;
|
|
Warm = mkAP (mkA "warm") ;
|
|
Italian = mkAP (mkA "Italian") ;
|
|
Expensive = mkAP (mkA "expensive") ;
|
|
Delicious = mkAP (mkA "delicious") ;
|
|
Boring = mkAP (mkA "boring") ;
|
|
}
|