started command interpreter for gfcc

1 files changed, 26 insertions, 0 deletions

diff --git a/src/GF/Command/Interpreter.hs b/src/GF/Command/Interpreter.hs
new file mode 100644
index 000000000..cebe4ef28
--- /dev/null
+++ b/src/GF/Command/Interpreter.hs
@@ -0,0 +1,26 @@
+module GF.Command.Interpreter where
+
+import GF.Command.AbsGFShell
+import GF.Command.ParGFShell
+import GF.GFCC.API
+
+import GF.Command.ErrM
+
+
+interpretCommandLine :: MultiGrammar -> CommandLine -> IO ()
+interpretCommandLine gr line = case line of
+  CEmpty -> return ()
+  CLine pipes -> mapM_ interPipe pipes
+ where
+   interPipe (PComm cs) = do
+     ts <- intercs [] cs
+     mapM_ (putStrLn . showTree) ts
+   intercs trees [] = return trees
+   intercs trees (c:cs) = do
+     trees2 <- interc trees c
+     intercs trees2 cs
+   interc = interpret gr
+
+interpret :: MultiGrammar -> [Tree] -> Command -> IO [Tree]
+interpret gr trees comm = case (trees,command comm) of
+  _ -> return trees ----