repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update a lot, try to type shares
[mTask.git]
/
mTaskInterpret.dcl
diff --git
a/mTaskInterpret.dcl
b/mTaskInterpret.dcl
index
24dc6a6
..
f476232
100644
(file)
--- a/
mTaskInterpret.dcl
+++ b/
mTaskInterpret.dcl
@@
-63,8
+63,8
@@
decode :: String -> MTaskMSGRecv
| BCJmpT Int
| BCJmpF Int
//UserLED
| BCJmpT Int
| BCJmpF Int
//UserLED
- | BCLedOn
UserLED
- | BCLedOff
UserLED
+ | BCLedOn
+ | BCLedOff
//Serial
| BCSerialAvail
| BCSerialPrint
//Serial
| BCSerialAvail
| BCSerialPrint
@@
-78,7
+78,6
@@
decode :: String -> MTaskMSGRecv
| BCDigitalWrite Pin
| BCTest AnalogPin
| BCDigitalWrite Pin
| BCTest AnalogPin
-derive gPrint BC
derive class gCons BC
:: ByteCode a p = BC (RWS () [BC] BCState ())
derive class gCons BC
:: ByteCode a p = BC (RWS () [BC] BCState ())