'\0' = MTEmpty
'\n' = MTEmpty
'm' = MTMessage x
+ 't' = MTTaskAdded (from16bit (x % (1,3)))
'u' = MTPub (from16bit (x % (1,3))) (x % (3,5))
_ = MTMessage x//abort ("Didn't understand message: " +++ join " " [toString (toInt c)\\c<-: x] +++ "\n")
instance toString MTaskMSGRecv where
toString (MTPub i v) = "Publish id: " +++ toString i
+++ " value " +++ safePrint v
+ toString (MTTaskAdded i) = "Task added with id: " +++ toString i
toString MTEmpty = "Empty message"
bclength :: BC -> Int
bclength (BCAnalogWrite _) = 2
bclength (BCDigitalRead _) = 2
bclength (BCDigitalWrite _) = 2
+bclength (BCLedOn _) = 2
+bclength (BCLedOff _) = 2
bclength (BCJmp i) = 2
bclength (BCJmpT i) = 2
bclength (BCJmpF i) = 2
toByteVal :: BC -> [Char]
toByteVal b
-# bt = toChar $ consIndex{|*|} b + 1
+# bt = toChar $ consIndex{|*|} b
= [bt:case b of
(BCPush i) = i
(BCLab i) = [toChar i]
(BCAnalogWrite i) = [toChar i]
(BCDigitalRead i) = [toChar i]
(BCDigitalWrite i) = [toChar i]
+ (BCLedOn i) = i
+ (BCLedOff i) = i
(BCJmp i) = [toChar i]
(BCJmpT i) = [toChar i]
(BCJmpF i) = [toChar i]
instance toByteCode Char where toByteCode c = [c]
instance toByteCode String where toByteCode s = undef
instance toByteCode Button where toByteCode s = [toChar $ consIndex{|*|} s]
+instance toByteCode UserLED where toByteCode s = [toChar $ consIndex{|*|} s]
instance toChar Pin where
toChar (Digital p) = toChar $ consIndex{|*|} p
toChar (Analog p) = toChar $ consIndex{|*|} p
derive gPrint BC, AnalogPin, Pin, DigitalPin
-derive consIndex BC, Pin, Button
+derive consIndex BC, Pin, Button, UserLED
derive consName BC, Pin, Button
instance arith ByteCode where
b <++> retrn [BCJmpF else] <++> t
<++> retrn [BCJmp endif,BCLab else] <++> e <++> retrn [BCLab endif]
-instance noOp ByteCode where noOp = mempty
+instance noOp ByteCode where noOp = retrn [BCNop]
withLabel :: (Int -> (ByteCode b q)) -> ByteCode b q
withLabel f = BC \s->let [fresh:fs] = s.freshl
serialRead = retrn [BCSerialRead]
serialParseInt = retrn [BCSerialParseInt]
+instance userLed ByteCode where
+ ledOn l = retrn [BCLedOn $ toByteCode l]
+ ledOff l = retrn [BCLedOff $ toByteCode l]
+
instance zero BCState where
zero = {freshl=[1..], freshs=[1..], sdss=[]}
# (bc, gtmap) = computeGotos bc 0
= (join "\n" $ map readable (map (implGotos gtmap) bc), st)
-//Start :: String
-//Start = toReadableByteCode bc
-// where
-// bc :: ByteCode Int Expr
-// bc = (lit 36 +. lit 42) +. lit 44
toMessages :: Int (String, BCState) -> ([MTaskMSGSend], BCState)
toMessages interval (bytes, st=:{sdss}) = ([MTSds i (toString b)\\(i,b)<-sdss] ++ [MTTask interval bytes], st)
toSDSUpdate i v = [MTUpd i (to16bit v)]
Start = toMessages 500 $ toRealByteCode (unMain bc)
-//Start = fst $ toReadableByteCode $ unMain bc
where
bc = sds \x=5 In
sds \y=4 In
{main = If (y ==. lit 0) (pub x) (x =. x *. y :. y =. y -. lit 1)}
-//pub :: (ByteCode a b) -> ByteCode a b
-//pub x = fmp makePub x
-
to16bit :: Int -> String
to16bit i = toString (toChar (i/256)) +++ toString (toChar (i rem 256))