From e9e80fc389365e24d4300d7d5390c7d833a96c50 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 25 Jun 2008 16:54:35 +0000
Subject: changed names of resource-1.3; added a note on homepage on release

---
 old-examples/tutorial/semantics/Answer.hs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 old-examples/tutorial/semantics/Answer.hs

(limited to 'old-examples/tutorial/semantics/Answer.hs')

diff --git a/old-examples/tutorial/semantics/Answer.hs b/old-examples/tutorial/semantics/Answer.hs
new file mode 100644
index 000000000..08a76c5f1
--- /dev/null
+++ b/old-examples/tutorial/semantics/Answer.hs
@@ -0,0 +1,21 @@
+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
+  case parse gr "BaseEng" "Question" s of
+    [] -> putStrLn "no parse"
+    ts -> mapM_ answer ts
+  loop gr
+ where
+   answer t = putStrLn $ linearize gr "BaseEng" $ gf $ question2answer $ fg t
+
-- 
cgit v1.2.3