From b801149fbf5c9eb3f73477d3496cdfd92cb178a1 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 12 Nov 2007 09:17:02 +0000 Subject: merged gfc and gfi to one binary, and a shell script for gfc --- src/GF/Devel/GFCCInterpreter.hs | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 src/GF/Devel/GFCCInterpreter.hs (limited to 'src/GF/Devel/GFCCInterpreter.hs') diff --git a/src/GF/Devel/GFCCInterpreter.hs b/src/GF/Devel/GFCCInterpreter.hs new file mode 100644 index 000000000..b2b17dba7 --- /dev/null +++ b/src/GF/Devel/GFCCInterpreter.hs @@ -0,0 +1,28 @@ +module Main where + +import GF.Command.Interpreter +import GF.Command.Commands +import GF.GFCC.API +import System (getArgs) +import Data.Char (isDigit) + +-- Simple translation application built on GFCC. AR 7/9/2006 -- 19/9/2007 + +main :: IO () +main = do + file:_ <- getArgs + grammar <- file2grammar file + let env = CommandEnv grammar (allCommands grammar) + printHelp grammar + loop env + +loop :: CommandEnv -> IO () +loop env = do + s <- getLine + if s == "q" then return () else do + interpretCommandLine env s + loop env + +printHelp grammar = do + putStrLn $ "languages: " ++ unwords (languages grammar) + putStrLn $ "categories: " ++ unwords (categories grammar) -- cgit v1.2.3