diff options
| -rw-r--r-- | makefile | 9 | ||||
| -rw-r--r-- | src/grasp.hs | 30 |
2 files changed, 37 insertions, 2 deletions
@@ -6,13 +6,14 @@ EXECUTABLES = ${OUTPUTDIR}/test \ ${OUTPUTDIR}/fractran \ ${OUTPUTDIR}/thue \ ${OUTPUTDIR}/unlambda \ - ${OUTPUTDIR}/brainfuck + ${OUTPUTDIR}/brainfuck \ + ${OUTPUTDIR}/grasp SWITCHES = -XDeriveDataTypeable -all: testprog fractranprog thueprog unlambdaprog brainfuckprog +all: testprog fractranprog thueprog unlambdaprog brainfuckprog graspprog clean: @@ -43,3 +44,7 @@ unlambdaprog: brainfuckprog: cd ${SOURCEDIR}; \ ghc ${SWITCHES} --make brainfuck.hs -o ../${OUTPUTDIR}/brainfuck + +graspprog: + cd ${SOURCEDIR}; \ + ghc ${SWITCHES} --make grasp.hs -o ../${OUTPUTDIR}/grasp diff --git a/src/grasp.hs b/src/grasp.hs new file mode 100644 index 0000000..4b12abd --- /dev/null +++ b/src/grasp.hs @@ -0,0 +1,30 @@ + +import System.Environment( getArgs ) +import Control.Exception( ErrorCall(..), Handler(..), catches ) +import Grasp.Parser +import Grasp.Interpreter + + + + +usageString :: String +usageString = "Usage: grasp <program file>" + + + +program :: IO () +program = do + args <- getArgs + fileContents <- if (length args /= 1) + then error usageString + else readFile (head args) + + case (parseGrasp fileContents) of + Left x -> putStrLn (show x) + Right x -> grasp x >> return () + + + +main = catches program + [ Handler ((\e -> putStrLn . show $ e) :: ErrorCall -> IO ()) ] + |