changed names of resource-1.3; added a note on homepage on release

This commit is contained in:
aarne
2008-06-25 16:54:35 +00:00
parent 7d721eb16e
commit c5c6d13546
1729 changed files with 113 additions and 32 deletions

View File

@@ -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