1 module mTaskMakeSymbols
4 import gdynamic, gCons, GenEq, StdMisc, StdArray, GenBimap
17 from Data.Func import $
19 from Text import class Text(join,toUpperCase), instance Text String
21 derive consIndex BC, Pin
22 derive consName BC, Pin
23 derive conses BC, AnalogPin, DigitalPin, Pin
25 (<+) infixr 5 :: a b -> String | toString a & toString b
26 (<+) a b = toString a +++ toString b
28 toDefine :: Int BC -> String
29 toDefine i b = "#define " <+ toUpperCase (consName{|*|} b) <+ " " <+ i
33 # io = io <<< "#ifndef MTASK_H\n#define MTASK_H\n"
34 # io = io <<< join "\n" (zipWith toDefine [0..] conses{|*|})
35 # (ok, w) = fclose (io <<< "\n#endif\n") w
36 | not ok = abort "Couldn't close stdio"