mTaskMakeSymbols.icl

   1 module mTaskMakeSymbols
   2
   3 //import iTasks
   4 import gdynamic, gCons, GenEq, StdMisc, StdArray, GenBimap
   5 import GenPrint
   6 import mTask
   7 import StdEnum
   8
   9 import StdFile
  10 import StdString
  11
  12 from StdFunc import o
  13 import StdBool
  14 import StdTuple
  15 import Data.Tuple
  16 import StdList
  17 from Data.Func import $
  18 from Text import class Text(join,toUpperCase), instance Text String
  19
  20 derive consIndex BC
  21 derive consName BC
  22 derive gconses BC, AnalogPin
  23
  24 (<+) infixr 5 :: a b -> String | toString a & toString b
  25 (<+) a b = toString a +++ toString b
  26
  27 toDefine :: Int BC -> String
  28 toDefine i b = "#define " <+ toUpperCase (consName{|*|} b) <+ " " <+ i
  29
  30 Start w
  31 # (io, w) = stdio w
  32 # io = io <<< "#ifndef MTASK_H\n#define MTASK_H\n"
  33 # io = io <<< join "\n" (map (uncurry toDefine) (zip2 [1..] conses))
  34 # (ok, w) = fclose (io <<< "\n#endif\n") w
  35 | not ok = abort "Couldn't close stdio"
  36 = w