refactoors

[mTask.git] / mTaskMakeSymbols.icl

diff --git a/mTaskMakeSymbols.icl b/mTaskMakeSymbols.icl
index b505ee8..fc1fe5e 100644 (file)
--- a/mTaskMakeSymbols.icl
+++ b/mTaskMakeSymbols.icl
@@ -1,9 +1,11 @@
 module mTaskMakeSymbols
 
 //import iTasks
-import gdynamic, gCons, GenEq, StdMisc, StdArray, GenBimap
+import Generics.gCons
+import GenEq, StdMisc, StdArray, GenBimap
 import GenPrint
 import mTask
+import mTaskInterpret
 import StdEnum
 
 import StdFile
@@ -18,9 +20,8 @@ from Data.Func import $
 import Data.List
 from Text import class Text(join,toUpperCase), instance Text String
 
-derive consIndex BC, Pin
-derive consName BC, Pin
-derive conses BC, AnalogPin, DigitalPin, Pin
+derive consName BC
+derive conses BC
 
 (<+) infixr 5 :: a b -> String | toString a & toString b
 (<+) a b = toString a +++ toString b
@@ -31,7 +32,7 @@ toDefine i b = "#define " <+ toUpperCase (consName{|*|} b) <+ " " <+ i
 Start w
 # (io, w) = stdio w
 # io = io <<< "#ifndef MTASK_H\n#define MTASK_H\n"
-# io = io <<< join "\n" (zipWith toDefine [1..] conses{|*|})
+# io = io <<< join "\n" (zipWith toDefine [0..] conses{|*|})
 # (ok, w) = fclose (io <<< "\n#endif\n") w
 | not ok = abort "Couldn't close stdio"
 = w