X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=0939ab45a7c1b15cf042ffdeb2a5e4faf4ce0a8c;hb=73d6866bdbab8f393b53c9951b05b62005a5423a;hp=2648cb9314c48fb9d31fbbc2a2871a9b089a64a5;hpb=e62ff4107298a5c69667b10ab807cf932b2c8d9a;p=mTask.git

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 2648cb9..0939ab4 100644
--- 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