+ 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 =
+ IF (digitalRead D3 ==. lit True) (
+ x =. x +. lit 1 :.
+ pub x
+ ) (
+ noOp
+ ) :.
+ IF (pinnetje ==. lit 1) (
+ digitalWrite D0 (lit True) :.
+ digitalWrite D1 (lit False) :.
+ digitalWrite D2 (lit False)
+ ) (
+ IF (pinnetje ==. lit 2) (
+ digitalWrite D0 (lit False) :.
+ digitalWrite D1 (lit True) :.
+ digitalWrite D2 (lit False)
+ ) (
+ digitalWrite D0 (lit False) :.
+ digitalWrite D1 (lit False) :.
+ digitalWrite D2 (lit True)
+ )
+ )}
+// 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, ms ("mTaskSDS-" +++ toString i) 1):makeShares {s & sdss=xs}]
+ where
+ ms name i = sdsFocus name (memoryStore name (Just i))
+
+sendMsg :: [MTaskMSGSend] (Shared ([MTaskMSGRecv],Bool,[MTaskMSGSend],Bool)) -> Task ()
+sendMsg m ch = upd (\(r,rs,s,ss)->(r,rs,s ++ m,ss)) ch @! ()
+
+syncSerialChannel :: String TTYSettings (String -> m) (n -> String) (Shared ([m],Bool,[n],Bool)) -> Task () | iTask m & iTask n
+syncSerialChannel dev opts decodeFun encodeFun rw = Task eval
+ where
+ eval event evalOpts tree=:(TCInit taskId ts) iworld=:{IWorld|world}
+ = case TTYopen dev opts world of
+ (False, _, world)
+ # (err, world) = TTYerror world
+ = (ExceptionResult (exception err), {iworld & world=world})
+ (True, tty, world)
+ # iworld = {iworld & world=world, resources=Just (TTYd tty)}
+ = case addBackgroundTask 42 (BackgroundTask (serialDeviceBackgroundTask rw decodeFun encodeFun)) iworld of
+ (Error e, iworld) = (ExceptionResult (exception "h"), iworld)
+ (Ok _, iworld) = (ValueResult NoValue {TaskEvalInfo|lastEvent=ts,removedTasks=[],refreshSensitive=True} NoRep (TCBasic taskId ts JSONNull False), iworld)
+
+ eval _ _ tree=:(TCBasic _ ts _ _) iworld
+ = (ValueResult NoValue {TaskEvalInfo|lastEvent=ts,removedTasks=[],refreshSensitive=False} NoRep tree, iworld)