Mercurial > repo

view interps/rhotor/Main.hs @ 7945:34fac2ce839a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<moon__> mkx bin/hfs//erro \'You have discovered an eerie cavern. The air aboe the dar kstone floor is alive ith vortices of purple light and dark, boiling clouds. Seemingly bottemless pits mark the surface. "$1" stand below\'
author HackBot
date Sat, 07 May 2016 18:36:03 +0000
parents 859f9b4339e6
children
line wrap: on
line source

module Main ()
where

import System.IO
import System.Environment
import System.Exit

import Misc
import Parser
import Evaluator



main	:: IO ()
main	= 	(hSetBuffering stdout NoBuffering) >> getArgs >>= \args ->
			if length args /= 1 then usage
			else readFile (head args) `catch` (\ _ -> putStr "Error: Couldn't open source file.\n" >> exitWith (ExitFailure 1))
				>>= \source ->
					interact (run source)
					
run					:: String -> String -> String
run source input	= nodeTreeToString (evaluate (apply (parse source) (stringToNodeTree input)))
				
						
				
usage	:: IO ()
usage	= putStr "Usage: rhotorhi sourcecode.rho\n"