From 23b8136af27b0baaa8fcb5272a613d5f2ee447fa Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 17 Jun 2008 13:16:15 +0000 Subject: started examples-3.0 with examples that are tested to work --- examples-3.0/tutorial/resource-foods/FoodsEng.gf | 27 ++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 examples-3.0/tutorial/resource-foods/FoodsEng.gf (limited to 'examples-3.0/tutorial/resource-foods/FoodsEng.gf') diff --git a/examples-3.0/tutorial/resource-foods/FoodsEng.gf b/examples-3.0/tutorial/resource-foods/FoodsEng.gf new file mode 100644 index 000000000..90ae07f01 --- /dev/null +++ b/examples-3.0/tutorial/resource-foods/FoodsEng.gf @@ -0,0 +1,27 @@ +--# -path=.:../foods:present:prelude + +concrete FoodsEng of Foods = open SyntaxEng,ParadigmsEng in { + lincat + Phrase = Cl ; + Item = NP ; + Kind = CN ; + Quality = AP ; + lin + Is item quality = mkCl item quality ; + This kind = mkNP this_QuantSg kind ; + That kind = mkNP that_QuantSg kind ; + These kind = mkNP these_QuantPl kind ; + Those kind = mkNP those_QuantPl kind ; + QKind quality kind = mkCN quality kind ; + Wine = mkCN (mkN "wine") ; + Pizza = mkCN (mkN "pizza") ; + Cheese = mkCN (mkN "cheese") ; + Fish = mkCN (mkN "fish" "fish") ; + Very quality = mkAP very_AdA quality ; + Fresh = mkAP (mkA "fresh") ; + Warm = mkAP (mkA "warm") ; + Italian = mkAP (mkA "Italian") ; + Expensive = mkAP (mkA "expensive") ; + Delicious = mkAP (mkA "delicious") ; + Boring = mkAP (mkA "boring") ; +} -- cgit v1.2.3