repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove traces
[mTask.git]
/
miTask.icl
diff --git
a/miTask.icl
b/miTask.icl
index
56a36f3
..
2634ce8
100644
(file)
--- a/
miTask.icl
+++ b/
miTask.icl
@@
-98,7
+98,8
@@
mTaskTask = let (msgs, sdsShares) = makeMsgs 1000 bc in
# (msgs, st) = toMessages timeout (toRealByteCode (unMain bc))
= (msgs, map f st.sdss)
where
# (msgs, st) = toMessages timeout (toRealByteCode (unMain bc))
= (msgs, map f st.sdss)
where
- f (i,d) = (i, sharedStore ("mTaskSDS-" +++ toString i) 0)
+ f (i,d) = (i, sharedStore ("mTaskSDS-" +++ toString i) (dd d))
+ dd [x,y] = toInt x*265 + toInt y
updateSDSs :: [(Int, Shared Int)] (Shared [String]) MTaskMSGRecv -> Task ()
updateSDSs _ m (MTMessage s) = upd (\l->take 20 [s:l]) m @! ()
updateSDSs :: [(Int, Shared Int)] (Shared [String]) MTaskMSGRecv -> Task ()
updateSDSs _ m (MTMessage s) = upd (\l->take 20 [s:l]) m @! ()
@@
-167,7
+168,6
@@
serialDeviceBackgroundTask rw iworld
(False, tty) = ([], tty)
(_, tty)
# (l, tty) = TTYreadline tty
(False, tty) = ([], tty)
(_, tty)
# (l, tty) = TTYreadline tty
- | not (trace_tn ("recv: '" +++ l +++ "'")) = undef
= ([decode l], tty)
# iworld = {iworld & resources=Just (TTYd tty)}
= case write (r++ml,[],False) rw iworld of
= ([decode l], tty)
# iworld = {iworld & resources=Just (TTYd tty)}
= case write (r++ml,[],False) rw iworld of