+ viewSh :: [(Int, Shared Int)] (Shared ([MTaskMSGRecv],Bool,[MTaskMSGSend],Bool)) -> Task ()
+ viewSh [] ch = return ()
+ viewSh [(i, sh):xs] ch
+ # sharename = "SDS-" +++ toString i
+ = (
+ viewSharedInformation ("SDS-" +++ toString i) [] sh ||-
+ forever (
+ enterInformation sharename []
+ >>* [OnAction ActionOk
+ (ifValue (\j->j>=1 && j <= 3)
+ (\c->set c sh
+ >>= \_->sendMsg (toSDSUpdate i c) ch
+ @! ()
+ )
+ )]
+ )
+ ) ||- viewSh xs ch
+
+ sdsShares = makeShares st
+
+ (msgs, st) = toMessages 500 (toRealByteCode (unMain bc))
+
+ 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 ()
+sendMsg m ch = upd (\(r,rs,s,ss)->(r,rs,s ++ m,ss)) ch @! ()
+
+syncNetworkChannel :: String Int String (String -> m) (n -> String) (Shared ([m],Bool,[n],Bool)) -> Task () | iTask m & iTask n