From 648708abc1efd3a0bfb416bbbf1a8dff6362ecae Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Fri, 30 Jan 2009 10:25:15 +0100 Subject: [PATCH] Add a a new function "stateless". This function converts a stateless circuit into a stateful one (with an empty state), so it can be simulated. --- Sim.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Sim.hs b/Sim.hs index 3848508..5a8fe2d 100644 --- a/Sim.hs +++ b/Sim.hs @@ -1,4 +1,4 @@ -module Sim (simulate, SCircuit, Circuit, simulateIO) where +module Sim (simulate, SCircuit, Circuit, simulateIO, stateless) where import Data.Typeable simulate f input s = do @@ -50,4 +50,10 @@ printOutput (i, o, s) = do putStr "\nNew State: " putStr $ show s putStr "\n\n" + +-- Takes a stateless circuit and turns it into a stateful circuit (with an +-- empty state) so it can be used in simulation +stateless :: Circuit i o -> SCircuit i () o +stateless f = \i s -> (s, f i) + -- vim: set ts=8 sw=2 sts=2 expandtab: -- 2.30.2