diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-27 11:59:03 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-27 11:59:03 +0000 |
| commit | 73e401cee21fa61dcf9900d8d2b40ddd39f4e612 (patch) | |
| tree | c5569db477fd0281162fd7ba29cf8e60d24b364e /devel/compiler/Top.hs | |
| parent | 64d2a981a99c8f48f85c4efd0cecd1db1e5ce93a (diff) | |
updated synopsis, removed GF/devel/
Diffstat (limited to 'devel/compiler/Top.hs')
| -rw-r--r-- | devel/compiler/Top.hs | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/devel/compiler/Top.hs b/devel/compiler/Top.hs deleted file mode 100644 index 64a8a6f70..000000000 --- a/devel/compiler/Top.hs +++ /dev/null @@ -1,34 +0,0 @@ -module Main where - -import IO ( stdin, hGetContents ) -import System ( getArgs, getProgName ) - -import LexSrc -import ParSrc -import SkelSrc -import PrintSrc -import AbsSrc - -import Compile -import PrEnv - -import ErrM - -type ParseFun a = [Token] -> Err a - -myLLexer = myLexer - -runFile :: ParseFun Grammar -> FilePath -> IO () -runFile p f = readFile f >>= run p - -run :: ParseFun Grammar -> String -> IO () -run p s = let ts = myLLexer s in case p ts of - Bad s -> do putStrLn "Parse Failed...\n" - putStrLn s - Ok tree -> prEnv $ compile tree - -main :: IO () -main = do args <- getArgs - case args of - fs -> mapM_ (runFile pGrammar) fs - |