From b183a0a7bc6944e9cfbbb240673c9b7387e5ff69 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 9 Nov 2004 18:12:51 +0000
Subject: [PATCH] Test.hs

---
 examples/gfcc/compiler/ParImperC.hs  |  2 +-
 examples/gfcc/compiler/TestImperC.hs | 46 ++++++++++++++++++++++++++++
 2 files changed, 47 insertions(+), 1 deletion(-)
 create mode 100644 examples/gfcc/compiler/TestImperC.hs

diff --git a/examples/gfcc/compiler/ParImperC.hs b/examples/gfcc/compiler/ParImperC.hs
index 7880a1627..c37222bd1 100644
--- a/examples/gfcc/compiler/ParImperC.hs
+++ b/examples/gfcc/compiler/ParImperC.hs
@@ -655,7 +655,7 @@ happyError ts =
 
 myLexer = tokens
 {-# LINE 1 "GenericTemplate.hs" #-}
--- $Id: ParImperC.hs,v 1.1 2004/11/08 10:22:38 aarne Exp $
+-- $Id: ParImperC.hs,v 1.2 2004/11/09 19:12:51 aarne Exp $
 
 
 
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."