test for new GF source format

1 files changed, 29 insertions, 0 deletions

diff --git a/src/GF/Devel/TestGF3.hs b/src/GF/Devel/TestGF3.hs
new file mode 100644
index 000000000..3f3b9f358
--- /dev/null
+++ b/src/GF/Devel/TestGF3.hs
@@ -0,0 +1,29 @@
+module Main where
+
+import GF.Devel.Grammar.LexGF
+import GF.Devel.Grammar.ParGF
+---- import GF.Devel.Grammar.PrintGF
+import GF.Devel.Grammar.AbsGF
+
+import GF.Devel.Grammar.SourceToGF
+
+import qualified GF.Devel.Grammar.ErrM as GErr ----
+import GF.Data.Operations
+
+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
+
+compile g = do
+  let eg = transGrammar g
+  case eg of
+    Ok _ -> putStrLn "OK"
+    Bad s -> putStrLn s
+  return ()
+