repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add debug
[mTask.git]
/
mTaskCode.icl
diff --git
a/mTaskCode.icl
b/mTaskCode.icl
index
410e05e
..
cca5a67
100644
(file)
--- a/
mTaskCode.icl
+++ b/
mTaskCode.icl
@@
-1,7
+1,11
@@
implementation module mTaskCode
implementation module mTaskCode
-import iTasks
-import gdynamic, gCons, GenEq, StdMisc, StdArray
+import Generics.gdynamic
+import Generics.gCons
+import StdEnv
+
+//import iTasks
+import GenEq, StdMisc, StdArray
import mTask
instance toCode MTask where toCode (MTask x) = "Task " + toCode x
import mTask
instance toCode MTask where toCode (MTask x) = "Task " + toCode x
@@
-619,4
+623,8
@@
instance toCode AnalogPin where toCode x = consName{|*|} x
instance toCode Pin where
toCode (Digital p) = toCode p
toCode (Analog p) = toCode p
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