X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=63778bd54c8bffbd84b02e4f5e6cdf14523f310f;hb=d963745f754d618bd6a729633050c24831e727e0;hp=922b4459ebc636184254bb94f8bf7dd12eec39e0;hpb=61dffbc509a02622642a6eb7c17cb20b46b93619;p=mTask.git diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl index 922b445..63778bd 100644 --- a/mTaskInterpret.dcl +++ b/mTaskInterpret.dcl @@ -11,7 +11,7 @@ from GenPrint import generic gPrint from Generics.gCons import class gCons, generic conses, generic consName, generic consIndex, generic consNum :: MTaskMSGRecv - = MTTaskAck Int + = MTTaskAck Int Int | MTTaskDelAck Int | MTSDSAck Int | MTSDSDelAck Int @@ -21,7 +21,7 @@ from Generics.gCons import class gCons, generic conses, generic consName, generi | MTEmpty :: MTaskMSGSend - = MTTask MTaskInterval String + = MTTask MTaskInterval Char String | MTTaskDel Int | MTSds Int BCValue | MTUpd Int BCValue @@ -67,6 +67,7 @@ decode :: String -> MTaskMSGRecv //Binary Bool ops | BCAnd | BCOr + //Binary ops | BCEq | BCNeq | BCLes @@ -91,7 +92,8 @@ decode :: String -> MTaskMSGRecv | BCAnalogWrite Pin | BCDigitalRead Pin | BCDigitalWrite Pin - | BCTest AnalogPin + //Return + | BCReturn derive gPrint BCValue, MTaskDeviceSpec derive consIndex BCValue @@ -143,6 +145,7 @@ instance If ByteCode Stmt e Stmt instance If ByteCode x y Stmt instance IF ByteCode instance noOp ByteCode +instance retrn ByteCode instance sds ByteCode instance assign ByteCode