blob: 7f3946f8c9b7dd232579eb2877ce15d9a8efc378 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
import System.Environment( getArgs )
import Data.Typeable
import qualified Control.Exception
import Fractran.Parser
import Fractran.Interpreter
data FractranException = FractranException { errString :: String }
deriving (Show, Typeable)
instance Control.Exception.Exception FractranException
usageString :: String
usageString = "Usage: fractran <program file>"
program :: IO ()
program = do
args <- getArgs
fileContents <- if (length args /= 1)
then Control.Exception.throw (FractranException usageString)
else readFile (head args)
case (parseFractran fileContents) of
Left x -> putStrLn (show x)
Right x -> putStrLn (show (fractran x))
main = Control.Exception.catch program handler
where
handler :: FractranException -> IO ()
handler err = putStrLn (errString err)
|