From 192f55e2f579d5f736f442287cc237da353a6991 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 20 Oct 2007 09:51:26 +0000 Subject: semantics extended to questions --- examples/tutorial/semantics/Answer.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'examples/tutorial/semantics/Answer.hs') diff --git a/examples/tutorial/semantics/Answer.hs b/examples/tutorial/semantics/Answer.hs index b874b8bd2..08a76c5f1 100644 --- a/examples/tutorial/semantics/Answer.hs +++ b/examples/tutorial/semantics/Answer.hs @@ -12,9 +12,10 @@ main = do 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 + 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