final_review/demo.listing

   1 main = sds \x=1 In sds \pin=1 In
   2   { main =
   3     IF (digitalRead D3) (
   4       x =. x +. lit 1 :.  pub x
   5     ) ( noOp
   6     ) :.
   7     IF (pinnetje ==. lit 1) (
   8       digitalWrite D0 (lit True)
   9     ) ( IF (pinnetje ==. lit 2) (
  10         digitalWrite D1 (lit True)
  11       ) ( digitalWrite D2 (lit True)
  12       )) }
  13
  14 ledOn :: DigitalPin -> Main (ByteCode () Stmt)
  15 ledOn d = { main = digitalWrite d (lit True) :. noOp }
  16
  17 ledOff :: DigitalPin -> Main (ByteCode () Stmt)
  18 ledOff d = { main = digitalWrite d (lit False) :. noOp }