Commit 82e9bb7e5ddd564b77ad726d705cd8850789140e - ZOWIE

Hello, world! At least that. That, at least. Chris Pressey 3 years ago

2 changed file(s) with 5 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all

-1

impl/ZOWIE.hs/src/Language/ZOWIE/Registers.hs less more

0	0	module Language.ZOWIE.Registers where
1	1
	2	import Data.Char (chr)
	3
2	4	import Language.ZOWIE.State
	5
3	6
4	7	data Register = TtyRegister
5	8	\| BeginTransactionRegister

41	44	writeAddr state@State{ mem=mem } addr payload =
42	45	case mapRegister addr of
43	46	TtyRegister -> do
44		print payload
	47	putChar $ chr $ fromIntegral payload
45	48	return state
46	49	BeginTransactionRegister ->
47	50	return $ beginTransaction state

-1

impl/ZOWIE.hs/src/Main.hs less more

19	19	text <- readFile fileName
20	20	let prog = Parser.parseZOWIE text
21	21	result <- Machine.loadAndRun prog
22		putStrLn $ show $ result
	22	-- putStrLn $ show $ result
23	23	return ()
24	24	_ -> do
25	25	abortWith "Usage: zowie (parse\|run) <zowie-program-filename>"