-sendMsg :: [MTaskMessage] (Shared ([MTaskMessage],Bool,[MTaskMessage],Bool)) -> Task ()
+ bc :: Main (ByteCode () Stmt)
+ bc = sds \x=1 In sds \pinnetje=1 In {main =
+ x =. x +. lit 1 :.
+ pub x :.
+ IF (pinnetje ==. lit 1) (
+ analogWrite A0 (lit 1) :.
+ analogWrite A1 (lit 0) :.
+ analogWrite A2 (lit 0)
+ ) (
+ IF (pinnetje ==. lit 2) (
+ analogWrite A0 (lit 0) :.
+ analogWrite A1 (lit 1) :.
+ analogWrite A2 (lit 0)
+ ) (
+ analogWrite A0 (lit 0):.
+ analogWrite A1 (lit 0):.
+ analogWrite A2 (lit 1)
+ )
+ )}
+// bc :: Main (ByteCode Int Stmt)
+// bc = sds \x=1 In {main =
+// If (x ==. lit 3)
+// (x =. lit 1)
+// (x =. x +. lit 1) :. pub x}
+
+makeShares :: BCState -> [(Int, Shared Int)]
+makeShares {sdss=[]} = []
+makeShares s=:{sdss=[(i,d):xs]} =
+ [(i, sharedStore ("mTaskSDS-" +++ toString i) 0):makeShares {s & sdss=xs}]
+
+sendMsg :: [MTaskMSGSend] (Shared ([MTaskMSGRecv],Bool,[MTaskMSGSend],Bool)) -> Task ()