Commit dbdf82204162bbc3eb093ca0092bdc7d9783e2cf - Mascarpone

Support for injecting IO functions. Chris Pressey 3 years ago

1 changed file(s) with 9 addition(s) and 7 deletion(s). Raw diff Collapse all Expand all

-7

src/Language/Mascarpone.hs less more

642	642	(Intrinsic ' ' opNop)
643	643	NoInterp
644	644
645		runWith string dbgr =
646		let
647		initialState = State{ stack=(Stack []), interpreter=NoInterp, debugger=dbgr, getCh=getChar, putCh=putChar }
648		in
649		execute (Program string initialInterpreter) initialState
	645	initialState = State{ stack=(Stack []), interpreter=NoInterp, debugger=nullDebugger, getCh=getChar, putCh=putChar }
	646
	647	runWith string state =
	648	execute (Program string initialInterpreter) state
650	649
651	650	mascarpone string =
652		runWith string nullDebugger
	651	runWith string initialState
	652
	653	mascarponeWithIO getCh putCh string =
	654	runWith string initialState{ getCh=getCh, putCh=putCh }
653	655
654	656	debug string =
655		runWith string stdDebugger
	657	runWith string initialState{ debugger=stdDebugger }
656	658
657	659
658	660	-----------------------------------------------------------------------