few more fixes in the NLG grammar

1 files changed, 23 insertions, 0 deletions

diff --git a/examples/nlg/LogicCnc.gf b/examples/nlg/LogicCnc.gf
new file mode 100644
index 000000000..b9a2013c9
--- /dev/null
+++ b/examples/nlg/LogicCnc.gf
@@ -0,0 +1,23 @@
+--# -path=present
+concrete LogicCnc of Logic = {
+
+lincat
+  Ind = {s : Str};
+  Prop = {s:Str};
+
+lin
+  john = {s="john"};
+  mary = {s="mary"};
+  boy x = {s="boy"++"("++x.s++")"};
+  smart x = {s="smart"++"("++x.s++")"};
+  love x y = {s="love"++"("++x.s++","++y.s++")"};
+  leave x = {s="leave"++"("++x.s++")"};
+  and  x y = {s=x.s++"&&"++y.s};
+  or   x y = {s=x.s++"||"++y.s};
+  impl x y = {s=x.s++"=>"++y.s};
+  forall f = {s="forall"++f.$0++"."++"("++f.s++")"};
+  exists f = {s="exists"++f.$0++"."++"("++f.s++")"};
+  not p = {s="not"++"("++p.s++")"};
+  eq x y = {s=x.s++"="++y.s};
+
+}