diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-10-20 09:51:26 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-10-20 09:51:26 +0000 |
| commit | 192f55e2f579d5f736f442287cc237da353a6991 (patch) | |
| tree | 42368c7ca4f716e997e140685b4e63273b0bc399 /examples/tutorial/semantics/Answer.hs | |
| parent | e86db4d8c8287790a90955fefec10b7a64988ff8 (diff) | |
semantics extended to questions
Diffstat (limited to 'examples/tutorial/semantics/Answer.hs')
| -rw-r--r-- | examples/tutorial/semantics/Answer.hs | 9 |
1 files changed, 5 insertions, 4 deletions
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 |