From f2d0c1bed695fbe6c6ff9af1d5f06795f73df391 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 23 Jul 2014 02:02:54 +1000 Subject: putc instruction added, needs debugging --- src/Grasp/Interpreter.hs | 37 ++++++++++++++++++++++++++++++++++++- 1 file changed, 36 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/Grasp/Interpreter.hs b/src/Grasp/Interpreter.hs index f100d77..3e822ac 100644 --- a/src/Grasp/Interpreter.hs +++ b/src/Grasp/Interpreter.hs @@ -335,7 +335,42 @@ getcI g ip = do putcI :: GraspProgram -> IP -> IO (GraspProgram, IP) -putcI g ip = return (g,ip) +putcI g ip = do + let node = fst . head $ ip + edges = Graph.out g node + + inL = targetLabels g (getByLabel "in" edges) + fhL = targetLabels g (getByLabel "fh" edges) + nextLN = targetLNodes g (getByLabel "next" edges) + + r <- getStdRandom (randomR (0, length inL)) + + c <- case inL of + x | length x == 0 -> + error ("Instruction " ++ (show node) ++ + " must have at least one in edge") + + x | not (isFloat $ inL!!r) -> + error ("Randomly chosen in edge to " ++ (show node) ++ + " does not contain a number") + + x -> return . chr . read $ inL!!r + + fh <- case fhL of + x | length x == 0 -> return stdout + + x | length x == 1 -> openFile (head fhL) AppendMode + + x -> error ("Instruction " ++ (show node) ++ + " may only have one file handle") + + hPutChar fh c + + ip' <- updateIP ip nextLN + + return (g,ip') + + getsI :: GraspProgram -> IP -> IO (GraspProgram, IP) getsI g ip = return (g,ip) -- cgit