added sds operators, timing and task deletion

[mTask.git] / mTaskInterpret.dcl

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 2648cb9..0939ab4 100644 (file)
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -8,6 +8,10 @@ import mTask
        = BCNop
        | BCPush Int
        | BCPop
+       //SDS functions
+       | BCSdsStore Int
+       | BCSdsFetch Int
+       | BCSdsPublish Int
        //Unary ops
        | BCNot
        //Binary Int ops
@@ -48,6 +52,14 @@ import mTask
                a::()
        }
 
+class toByteCode a :: a -> [Char]
+instance toByteCode Int
+instance toByteCode Bool
+instance toByteCode Char
+instance toByteCode String
+instance toByteCode Long
+instance toByteCode Button
+
 toByteVal :: BC -> [Char]
 toReadableByteVal :: BC -> String