X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=7ddff193c068c1f3082fdc3f267201c5c7cb4d32;hb=09b207a39b7791098daafd7d87c3ad9d3db3e19f;hp=84c1e3f02253849013f025b78c8d315779b70727;hpb=ee38806680e1706a4aea577d1ed699860f1fb0e8;p=mTask.git diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl index 84c1e3f..7ddff19 100644 --- a/mTaskInterpret.dcl +++ b/mTaskInterpret.dcl @@ -23,8 +23,8 @@ from Generics.gCons import class gCons, generic conses, generic consName, generi :: MTaskMSGSend = MTTask MTaskInterval String | MTTaskDel Int - | MTSds Int String - | MTUpd Int String + | MTSds Int BCValue + | MTUpd Int BCValue | MTSpec :: MTaskInterval @@ -150,8 +150,7 @@ instance assign ByteCode instance seq ByteCode instance serial ByteCode -toMessages :: MTaskInterval (String, BCState) -> ([MTaskMSGSend], BCState) -toSDSUpdate :: Int Int -> [MTaskMSGSend] +toMessages :: MTaskInterval (Main (ByteCode a b)) BCState -> ([MTaskMSGSend], BCState) toByteVal :: BC -> String toReadableByteCode :: (ByteCode a b) BCState -> (String, BCState)