From d9f7697f7a9f8fb44fa2ead3eecf6ca3c3cad19f Mon Sep 17 00:00:00 2001 From: "john.j.camilleri" Date: Mon, 17 Oct 2011 16:01:07 +0000 Subject: Added Eclipse contents --- eclipse/examples/functors/FoodsI.gf | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 eclipse/examples/functors/FoodsI.gf (limited to 'eclipse/examples/functors/FoodsI.gf') diff --git a/eclipse/examples/functors/FoodsI.gf b/eclipse/examples/functors/FoodsI.gf new file mode 100644 index 000000000..a01da068f --- /dev/null +++ b/eclipse/examples/functors/FoodsI.gf @@ -0,0 +1,28 @@ +-- Functor +-- (a module that opens one or more interfaces) +incomplete concrete FoodsI of Foods = open Syntax, LexFoods in { +lincat + Phrase = Cl ; + Item = NP ; + Kind = CN ; + Quality = AP ; +lin + Is item quality = mkCl item quality ; + This kind = mkNP this_Det kind ; + That kind = mkNP that_Det kind ; + These kind = mkNP these_Det kind ; + Those kind = mkNP those_Det kind ; + QKind quality kind = mkCN quality kind ; + Very quality = mkAP very_AdA quality ; + + Wine = mkCN wine_N ; + Pizza = mkCN pizza_N ; + Cheese = mkCN cheese_N ; + Fish = mkCN fish_N ; + Fresh = mkAP fresh_A ; + Warm = mkAP warm_A ; + Italian = mkAP italian_A ; + Expensive = mkAP expensive_A ; + Delicious = mkAP delicious_A ; + Boring = mkAP boring_A ; +} -- cgit v1.2.3