git @ Cat's Eye Technologies Mascarpone / master src / Main.hs
master

Tree @master (Download .tar.gz)

Main.hs @master — raw · history · blame 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
module Main where

import System.Environment
import Language.Mascarpone (mascarpone, debug, getStack)

main = do
    args <- getArgs
    case args of
        [fileName] -> do
            c <- readFile fileName
            mascarpone c
            return ()
        ["-d", fileName] -> do
            c <- readFile fileName
            debug c
            return ()
        ["-r", fileName] -> do
            c <- readFile fileName
            r <- mascarpone c
            putStrLn $ show $ getStack r
        _ -> do
            putStrLn "Usage: mascarpone [-d|-r] <filename.mascarpone>"