merged gfc and gfi to one binary, and a shell script for gfc

1 files changed, 28 insertions, 0 deletions

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)