summaryrefslogtreecommitdiff
path: root/examples/big/MAP/MkBig.hs
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-25 16:54:35 +0000
commite9e80fc389365e24d4300d7d5390c7d833a96c50 (patch)
treef0b58473adaa670bd8fc52ada419d8cad470ee03 /examples/big/MAP/MkBig.hs
parentb96b36f43de3e2f8b58d5f539daa6f6d47f25870 (diff)
changed names of resource-1.3; added a note on homepage on release
Diffstat (limited to 'examples/big/MAP/MkBig.hs')
-rw-r--r--examples/big/MAP/MkBig.hs42
1 files changed, 0 insertions, 42 deletions
diff --git a/examples/big/MAP/MkBig.hs b/examples/big/MAP/MkBig.hs
deleted file mode 100644
index 0ea4e0b18..000000000
--- a/examples/big/MAP/MkBig.hs
+++ /dev/null
@@ -1,42 +0,0 @@
-module Main where
-
-import TransBig
-
-import IO ( stdin, hGetContents )
-import System ( getArgs, getProgName )
-
-import LexLisp
-import ParLisp
-import SkelLisp
-import PrintLisp
-import AbsLisp
-import ErrM
-
-type ParseFun a = [Token] -> Err a
-
-myLLexer = myLexer
-
-type Verbosity = Int
-
-putStrV :: Verbosity -> String -> IO ()
-putStrV v s = if v > 1 then putStrLn s else return ()
-
-runFile :: Verbosity -> ParseFun Prog -> FilePath -> IO ()
-runFile v p f = putStrLn f >> readFile f >>= run v p
-
-run :: Verbosity -> ParseFun Prog -> String -> IO ()
-run v p s = let ts = myLLexer s in case p ts of
- Bad s -> do putStrLn "\nParse Failed...\n"
- putStrV v "Tokens:"
- putStrV v $ show ts
- putStrLn s
- Ok tree -> do putStrLn "\nParse Successful!"
- transTree tree
-
-
-
-main :: IO ()
-main = do
- runFile 0 pProg infile
-
-infile = "bigwordlist.en"