import Generics.gdynamic
import Generics.gCons
+import StdEnv
-import iTasks
+//import iTasks
import GenEq, StdMisc, StdArray
import mTask
in setCode Var +.+ c (type2string v + " " + name + " = " + toCode v +
";\n") +.+ setCode Setup +.+ unMain body}
con f = defCode f
- pub _ = undef
defCode :: ((Code t p) -> In t (Main (Code u q))) -> Main (Code u r) | type t
defCode f =
instance toCode Pin where
toCode (Digital p) = toCode p
toCode (Analog p) = toCode p
+instance toCode UserLED where
+ toCode LED1 = toCode 1
+ toCode LED2 = toCode 2
+ toCode LED3 = toCode 3