diff options
Diffstat (limited to 'doc/tutorial/resource-food/FoodFre.gf')
| -rw-r--r-- | doc/tutorial/resource-food/FoodFre.gf | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/doc/tutorial/resource-food/FoodFre.gf b/doc/tutorial/resource-food/FoodFre.gf new file mode 100644 index 000000000..fe9e22a40 --- /dev/null +++ b/doc/tutorial/resource-food/FoodFre.gf @@ -0,0 +1,30 @@ +--# -path=present:prelude + +concrete FoodFre of Food = open SyntaxFre,ParadigmsFre in { + + lincat + S = Utt ; + Item = NP ; + Kind = CN ; + Quality = AP ; + + lin + Is item quality = mkUtt (mkCl item quality) ; + This kind = SyntaxFre.mkNP (mkDet this_Quant) kind ; + That kind = SyntaxFre.mkNP (mkDet that_Quant) kind ; + All kind = SyntaxFre.mkNP all_Predet (SyntaxFre.mkNP defPlDet kind) ; + QKind quality kind = mkCN quality kind ; + Wine = mkCN (mkN "vin") ; + Beer = mkCN (mkN "bière") ; + Pizza = mkCN (mkN "pizza" feminine) ; + Cheese = mkCN (mkN "fromage" masculine) ; + Fish = mkCN (mkN "poisson") ; + Very quality = mkAP very_AdA quality ; + Fresh = mkAP (mkA "frais" "fraîche") ; + Warm = mkAP (mkA "chaud") ; + Italian = mkAP (mkA "italien") ; + Expensive = mkAP (mkA "cher") ; + Delicious = mkAP (mkA "délicieux") ; + Boring = mkAP (mkA "ennuyeux") ; + +} |