two versions of semantics (the Logic version incomplete)

1 files changed, 20 insertions, 0 deletions

diff --git a/examples/tutorial/semantics/Answer.hs b/examples/tutorial/semantics/Answer.hs
new file mode 100644
index 000000000..b874b8bd2
--- /dev/null
+++ b/examples/tutorial/semantics/Answer.hs
@@ -0,0 +1,20 @@
+module Main where
+
+import GSyntax
+import AnswerBase
+import GF.GFCC.API
+
+main :: IO ()
+main = do
+  gr <- file2grammar "base.gfcc"
+  loop gr
+
+loop :: MultiGrammar -> IO ()
+loop gr = do
+  s <- getLine
+  let t:_ = parse gr "BaseEng" "S" s
+  putStrLn $ showTree t
+  let p = iS $ fg t
+  putStrLn $ show p
+  loop gr
+