From 5c713d8f027a9b6be687ee3f7e917e8bd2115773 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 27 Jun 2008 09:18:50 +0000 Subject: took away old-examples --- old-examples/gfcc/compiler/TestImperC.hs | 46 -------------------------------- 1 file changed, 46 deletions(-) delete mode 100644 old-examples/gfcc/compiler/TestImperC.hs (limited to 'old-examples/gfcc/compiler/TestImperC.hs') diff --git a/old-examples/gfcc/compiler/TestImperC.hs b/old-examples/gfcc/compiler/TestImperC.hs deleted file mode 100644 index a32777a5d..000000000 --- a/old-examples/gfcc/compiler/TestImperC.hs +++ /dev/null @@ -1,46 +0,0 @@ --- 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." -- cgit v1.2.3