mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-04 16:52:50 -06:00
gf-book web page index and toc
This commit is contained in:
33
gf-book/examples/chapter6/DShoppingEng.gf
Normal file
33
gf-book/examples/chapter6/DShoppingEng.gf
Normal file
@@ -0,0 +1,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 = []} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user