diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Eval.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/Eval.hs b/src/Eval.hs index c9c784e..e0ad17a 100644 --- a/src/Eval.hs +++ b/src/Eval.hs @@ -231,8 +231,11 @@ runRepl = do usage :: IO () usage = do putStrLn "Invalid arguments. Use 'bruijn [option] path' instead" - putStrLn "-c\tcompile path to binary-BLC" - putStrLn "-C\tcompile path to ASCII-BLC" + putStrLn "-o\toptimize path" + putStrLn "-c\tcompress path to binary-BLC" + putStrLn "-C\tcompress path to ASCII-BLC" + putStrLn "-b\tcompile path to binary-BLC" + putStrLn "-B\tcompile path to ASCII-BLC" putStrLn "-e\texecute path as binary-BLC" putStrLn "-E\texecute path as ASCII-BLC" putStrLn "-*\tshow this help" @@ -243,10 +246,10 @@ evalMain = do args <- getArgs case args of [] -> runRepl - ["-c", path] -> evalFile path + ["-b", path] -> evalFile path (Byte.putStr . Bit.realizeBitStringStrict) (toBitString . toBinary) - ["-C", path] -> evalFile path putStrLn toBinary + ["-B", path] -> evalFile path putStrLn toBinary ["-e", path] -> exec path (try . Byte.readFile) (fromBitString . Bit.bitString) ["-E", path] -> exec path (try . readFile) id |