blob: 3dc3a2cc2d69238350fd4a46068be1a6c6af9090 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
--# -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 = []} ;
}
|
