repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add back device specific capabilities
[mTask.git]
/
Tasks
/
Examples.icl
diff --git
a/Tasks/Examples.icl
b/Tasks/Examples.icl
index
9404274
..
103862c
100644
(file)
--- a/
Tasks/Examples.icl
+++ b/
Tasks/Examples.icl
@@
-6,6
+6,9
@@
import mTask
import Devices.mTaskDevice
import iTasks._Framework.Serialization
import Devices.mTaskDevice
import iTasks._Framework.Serialization
+count :: Main (ByteCode () Stmt)
+count = sds \x=0 In {main = x =. x +. lit 1 :. pub x :. noOp}
+
countAndLed :: Main (ByteCode () Stmt)
countAndLed = sds \x=1 In sds \pinnetje=1 In {main =
IF (digitalRead D3) (
countAndLed :: Main (ByteCode () Stmt)
countAndLed = sds \x=1 In sds \pinnetje=1 In {main =
IF (digitalRead D3) (
@@
-63,4
+66,5
@@
allmTasks = 'DM'.fromList
,("readDPin", pinSelection @ readDPin)
,("blink", ledSelection @ blink)
,("blinkShare", treturn blinkShare)
,("readDPin", pinSelection @ readDPin)
,("blink", ledSelection @ blink)
,("blinkShare", treturn blinkShare)
+ ,("count", treturn count)
]
]