Test.hs

1 files changed, 46 insertions, 0 deletions

diff --git a/examples/gfcc/compiler/TestImperC.hs b/examples/gfcc/compiler/TestImperC.hs
new file mode 100644
index 000000000..a32777a5d
--- /dev/null
+++ b/examples/gfcc/compiler/TestImperC.hs
@@ -0,0 +1,46 @@
+-- automatically generated by BNF Converter
+module Main where
+
+
+import Trees
+import Profile
+import IO ( stdin, hGetContents )
+import System ( getArgs, getProgName )
+
+import LexImperC
+import ParImperC
+import ErrM
+
+type ParseFun = [Token] -> Err CFTree
+
+myLLexer = myLexer
+
+runFile :: ParseFun -> FilePath -> IO ()
+runFile p f = readFile f >>= run p
+
+run :: ParseFun -> String -> IO ()
+run p s = do
+  let ts = myLLexer s
+  let etree = p ts
+  case etree of
+    Ok tree -> do
+      case postParse tree of
+        Bad s    -> do
+          putStrLn "\nParse Failed... CFTree:\n"
+          putStrLn $ prCFTree tree
+          putStrLn s
+        Ok  tree -> do
+          putStrLn "\nParse Successful!"
+          putStrLn $ "\n[Abstract Syntax]\n\n" ++ prt tree
+    Bad s -> do
+      putStrLn s
+      putStrLn "\nParse failed... tokenization:"
+      print ts
+
+main :: IO ()
+main = do args <- getArgs
+          case args of
+            []  -> hGetContents stdin >>= run pProgram
+            [f] -> runFile pProgram f
+            _   -> do progName <- getProgName
+                      putStrLn $ progName ++ ": excess arguments."