encode (MTSds i v) = "s" +++ to16bit i +++ toByteCode v +++ "\n"
encode (MTUpd i v) = "u" +++ to16bit i +++ toByteCode v +++ "\n"
encode (MTSpec) = "c\n"
+encode (MTShutdown) = "h\n"
import StdDebug
decode :: String -> MTaskMSGRecv
toString (MTTaskDel i) = "Task delete request: " +++ toString i
toString (MTUpd i v) = "Update id: " +++ toString i
+++ " value " +++ safePrint v
+ toString (MTSpec) = "Spec request"
+ toString (MTShutdown) = "Shutdown request"
instance toString MTaskMSGRecv where
toString (MTTaskAck i mem) = "Task added with id: " +++ toString i
ledOff (BC l) = BC $ l >>| tell [BCLedOff]
instance retrn ByteCode where
- retrn (BC l) = tell` [BCReturn]
+ retrn = tell` [BCReturn]
instance zero BCState where
zero = {freshl=[1..], freshs=[1..], sdss=[]}