repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update submodule
[mTask.git]
/
mTaskInterpret.dcl
diff --git
a/mTaskInterpret.dcl
b/mTaskInterpret.dcl
index
70dc6ad
..
0105944
100644
(file)
--- a/
mTaskInterpret.dcl
+++ b/
mTaskInterpret.dcl
@@
-8,6
+8,7
@@
import mTask
:: MTaskMSGRecv
= MTPub Int String
| MTMessage String
:: MTaskMSGRecv
= MTPub Int String
| MTMessage String
+ | MTTaskAdded Int
| MTEmpty
:: MTaskMSGSend
| MTEmpty
:: MTaskMSGSend
@@
-49,6
+50,9
@@
decode :: String -> MTaskMSGRecv
| BCJmp Int
| BCJmpT Int
| BCJmpF Int
| BCJmp Int
| BCJmpT Int
| BCJmpF Int
+ //UserLED
+ | BCLedOn [Char]
+ | BCLedOff [Char]
//Serial
| BCSerialAvail
| BCSerialPrint
//Serial
| BCSerialAvail
| BCSerialPrint
@@
-80,12
+84,14
@@
instance toByteCode Char
instance toByteCode String
instance toByteCode Long
instance toByteCode Button
instance toByteCode String
instance toByteCode Long
instance toByteCode Button
+instance toByteCode UserLED
instance toChar Pin
instance arith ByteCode
instance boolExpr ByteCode
instance analogIO ByteCode
instance digitalIO ByteCode
instance toChar Pin
instance arith ByteCode
instance boolExpr ByteCode
instance analogIO ByteCode
instance digitalIO ByteCode
+instance userLed ByteCode
//instance If ByteCode Stmt Stmt Stmt
//instance If ByteCode e Stmt Stmt
//instance If ByteCode Stmt e Stmt
//instance If ByteCode Stmt Stmt Stmt
//instance If ByteCode e Stmt Stmt
//instance If ByteCode Stmt e Stmt