mirror of
https://github.com/GrammaticalFramework/comp-syntax-gu-mlt.git
synced 2026-05-25 07:58:56 -06:00
lecture 6 code
This commit is contained in:
31
lectures/lecture06/FoodsEng.gf
Normal file
31
lectures/lecture06/FoodsEng.gf
Normal file
@@ -0,0 +1,31 @@
|
||||
concrete FoodsEng of Foods = open ParadigmsEng, SyntaxEng, LexiconEng in {
|
||||
lincat
|
||||
Quality = AP;
|
||||
Kind = CN;
|
||||
Item = NP ;
|
||||
Comment = S ;
|
||||
|
||||
lin
|
||||
Pred item quality = mkS presentTense positivePol (mkCl item quality);
|
||||
PredNeg item quality = mkS presentTense negativePol (mkCl item quality);
|
||||
That kind = mkNP that_Det kind ;
|
||||
Those kind = mkNP those_Det kind ;
|
||||
These kind = mkNP these_Det kind ;
|
||||
This kind = mkNP this_Det kind ;
|
||||
Mod quality kind = mkCN quality kind ;
|
||||
Very quality = mkAP very_AdA quality ;
|
||||
|
||||
Wine = mkCN wine_N;
|
||||
SparklingWine = mkCN (mkA "sparkling") wine_N ;
|
||||
Cheese = mkCN cheese_N ;
|
||||
Fish = mkCN fish_N ;
|
||||
Pizza = mkCN (mkN "pizza") ;
|
||||
|
||||
Fresh = mkAP (mkA "fresh");
|
||||
Warm = mkAP warm_A;
|
||||
Italian = mkAP (mkA "Italian");
|
||||
Expensive = mkAP (mkA "expensive");
|
||||
Delicious = mkAP (mkA "delicious");
|
||||
Boring = mkAP (mkA "boring");
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user