From: Mart Lubbers <mart@martlubbers.net>
Date: Tue, 20 Jun 2017 17:02:50 +0000 (+0200)
Subject: multibackend example'
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=ccf50ec9be06bc1b418b25225ca76d6e6ce743ac;p=mTask.git

multibackend example'
---

diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl
index 2d2005a..3f82f97 100644
--- a/mTaskInterpret.icl
+++ b/mTaskInterpret.icl
@@ -365,15 +365,13 @@ toMessages interval x s
 instance == BCShare where (==) a b = a.sdsi == b.sdsi
 
 //Start = toMessages (OnInterval 500) $ toRealByteCode (unMain bc) zero
-Start = fst $ toReadableByteCode (unMain $ bc) zero
-//Start = fst $ toReadableByteCode (unMain $ blink LED1) zero
-//Start = let (bcs, st) = toReadableByteCode (unMain bc) zero
-//		in (bcs, st.sdss)
+Start = [fst $ toReadableByteCode (unMain $ p0) zero
+		,'Text'.concat $ compile p0
+		]
 	where
-//		bc = {main = ledOn (lit LED1)}
-//		bc = sds \x=5 In 
-//			sds \y=4 In
-//			{main = If (y ==. lit 0) (pub x) (x =. x *. y :. y =. y -. lit 1)}
+		p0 :: (Main (a Int Expr)) | assign a & arith a & sds a
+		p0 = sds \x = 6 In {main = x =. x *. lit 7}
+
 		bc  = {main =
 			IF (analogRead A0 >. lit 50)
 			  ( digitalWrite D0 (lit True)  )