forked from GitHub/gf-core
34 lines
915 B
Plaintext
34 lines
915 B
Plaintext
--# -path=.:present
|
|
|
|
concrete DShoppingEng of DShopping = open SyntaxEng, ParadigmsEng in {
|
|
|
|
lincat
|
|
Comment = Cl ;
|
|
Item = NP ;
|
|
Kind = CN ;
|
|
Quality = AP ;
|
|
lin
|
|
Pred _ item quality = mkCl item quality ;
|
|
This _ kind = mkNP this_QuantSg kind ;
|
|
That _ kind = mkNP that_QuantSg kind ;
|
|
Mod _ quality kind = mkCN quality kind ;
|
|
Very _ quality = mkAP very_AdA quality ;
|
|
|
|
Shirt = mkCN (mkN "shirt") ;
|
|
Jacket = mkCN (mkN "jacket") ;
|
|
Wine = mkCN (mkN "wine") ;
|
|
Cheese = mkCN (mkN "cheese") ;
|
|
Fish = mkCN (mkN "fish" "fish") ;
|
|
Fresh = mkAP (mkA "fresh") ;
|
|
Warm = mkAP (mkA "warm") ;
|
|
Italian _ = mkAP (mkA "Italian") ;
|
|
Expensive _ = mkAP (mkA "expensive") ;
|
|
Elegant _ = mkAP (mkA "elegant") ;
|
|
Delicious = mkAP (mkA "delicious") ;
|
|
Boring = mkAP (mkA "boring") ;
|
|
Comfortable = mkAP (mkA "comfortable") ;
|
|
|
|
DFood, DCloth = {s = []} ;
|
|
|
|
}
|