changed mTaskInterpret to output a real task

[mTask.git] / mTaskInterpret.dcl

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index fa5d1d2..2648cb9 100644 (file)
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -6,7 +6,7 @@ import mTask
 
 :: BC
        = BCNop
-       | BCPush String
+       | BCPush Int
        | BCPop
        //Unary ops
        | BCNot
@@ -35,8 +35,11 @@ import mTask
        | BCSerialRead
        | BCSerialParseInt
        //Pins
-       | BCAnalogRead AnalogPin
-       | BCAnalogWrite AnalogPin
+       | BCAnalogRead Pin
+       | BCAnalogWrite Pin
+       | BCDigitalRead Pin
+       | BCDigitalWrite Pin
+       | BCTest AnalogPin
 
 //:: ByteCode a p = BC (BCState -> ([BC], BCState))
 :: ByteCode a p = BC [BC]
@@ -45,7 +48,7 @@ import mTask
                a::()
        }
 
-toByteVal :: BC -> String
+toByteVal :: BC -> [Char]
 toReadableByteVal :: BC -> String
 
 //instance toCode Pin