+CrByte in collectV

Ignore-this: 5d707bf538ea3efa3cb9418b69667b86

darcs-hash:20101115150941-09b00-3043a0276a36f3f80688d8d41c0cd52232307b4a

Core.hs

@@ -139,7 +139,8 @@ collectV (CrApp e0 e1)=collectV e0 `S.union` collectV e1
 collectV (CrLet _ bs e)=S.unions $ map collectV $ e:map snd bs
 collectV (CrCase e cs)=S.unions $ map collectV $ e:map thr3 cs
 collectV (CrLm as e)=collectV e
-
+collectV (CrByte _)=S.empty
+collectV e=error $ "collectV: "++show e
 
 
 

Main.hs

@@ -51,7 +51,7 @@ data Option=Option
 
 -- | Parse arguments to 'Command'. Note this is a total function.
 parseArgs :: [String] -> Command
-parseArgs []=ShowMessage version
+parseArgs []=ShowMessage $ version++"\n"++help
 parseArgs ("-v":_)=ShowMessage version
 parseArgs ("--version":_)=ShowMessage version
 parseArgs ("-h":_)=ShowMessage $ version++"\n"++help
@@ -102,7 +102,7 @@ execCommand (Compile opt from)=partialChain opt from $
     where f g=runProcessWithIO (putStr . g)
 
 partialChain opt from (c0,c1,g0,g1,s0,s1,b)=do
-    dir<-liftM takeDirectory $ Paths_hs2bf.getDataFileName "Prelude.hs"
+    dir<-Paths_hs2bf.getDataDir
     let (mod,env)=analyzeName from dir
     xs<-Front.collectModules env mod
     let cr  =xs   >>= Front.compile
@@ -142,7 +142,7 @@ help=unlines $
     ,"  -Sgr: to GMachine (simplified)"
     ,"  -Ss : to SAM"
     ,"  -Ssf: to SAM (most simplified)"
-    ,"  -Sr : to SCGR"
+--    ,"  -Sr : to SCGR" -- not implemented
     ,"  -Sb : to BF"
     ,"  --addr n : use n byte for pointer arithmetic"
     ,"  --debug : include detailed error message (this will make the program a LOT larger)"

SCGR.hs

@@ -1,4 +1,4 @@
--- | Super-cool-graph-representation
+-- | Super-cool-graph-representation (this module is not used now)
 --
 -- There are 3 goals in optimization:
 --

hs2bf.cabal

@@ -1,17 +1,19 @@
 name:            hs2bf
 cabal-version:   >=1.2
-version:         0.5
+version:         0.6
 author:          xanxys
 maintainer:      [email protected]
 synopsis:        Haskell to Brainfu*k compiler
 license:         BSD3
 license-File:    LICENSE
 category:        Compiler
-description:     Haskell to Brainfu*k compiler.
+description:
+    Proof of concept implementation of Haskell to Brainfu*k compiler.
+    You can find examples of compilable codes at http://www.xanxys.net/public/hs2bf-demo/
 build-type:      Simple
 data-files:      Prelude.hs
 data-dir:        test
-tested-with:     GHC==6.10.4
+tested-with:     GHC==6.10.4,GHC==6.12.1
 extra-source-files:
     Front.hs Core.hs GMachine.hs SAM.hs SCGR.hs Brainfuck.hs
     Util.hs SRuntime.hs