From 4279b1776270d813a68bb762d16bad6e8bc4e324 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 4 Dec 2007 15:01:01 +0000
Subject: printing new source format

---
 src/GF/Devel/TestGF3.hs | 31 +++++++++++--------------------
 1 file changed, 11 insertions(+), 20 deletions(-)

(limited to 'src/GF/Devel/TestGF3.hs')

diff --git a/src/GF/Devel/TestGF3.hs b/src/GF/Devel/TestGF3.hs
index d8aad44d1..5d869de14 100644
--- a/src/GF/Devel/TestGF3.hs
+++ b/src/GF/Devel/TestGF3.hs
@@ -1,30 +1,21 @@
 module Main where
 
-import GF.Devel.Grammar.LexGF
-import GF.Devel.Grammar.ParGF
----- import GF.Devel.Grammar.PrintGF
-import GF.Devel.Grammar.Modules
+import GF.Devel.Compile.Compile
 
-import GF.Devel.Grammar.SourceToGF
-
-import qualified GF.Devel.Grammar.ErrM as GErr ----
 import GF.Data.Operations
+import GF.Infra.Option ----
 
-import Data.Map
 import System (getArgs)
 
 main = do
-  f:_ <- getArgs
-  s   <- readFile f
-  let tt = myLexer s
-  case pGrammar tt of
-    GErr.Bad s -> putStrLn s
-    GErr.Ok g -> compile g
+  xx <- getArgs
+  mainGFC xx
 
-compile g = do
-  let eg = transGrammar g
-  case eg of
-    Ok gr -> print (length (assocs (gfmodules gr))) >> putStrLn "OK"
-    Bad s -> putStrLn s
-  return ()
 
+mainGFC :: [String] -> IO ()
+mainGFC xx = do
+  let (opts,fs) = getOptions "-" xx
+  case opts of
+    _ -> do
+      mapM_ (batchCompile opts) (map return fs)
+      putStrLn "Done."
-- 
cgit v1.2.3