codegenbug/test.icl

   1 module test
   2
   3 import Data.GenC
   4
   5 derive gToCType T, E, G, List, G2
   6 ////derive gToCValue BCPeripheral, Pin, DHTtype, APin, DPin, T, E, G, List, G2, UInt8
   7 derive gPotentialInf T, E, G, List, G2
   8
   9 :: E = E1 | E2 | E3
  10 :: T
  11         = A Int Bool
  12         | E T
  13 :: G = {field1 :: Real, test :: Bool, bork :: Int, g2 :: G2}
  14 :: G2 = {f1 :: Int, f2 :: Bool}
  15
  16 :: List a = Nil | Cons a (List a)
  17
  18 //CPeripherals :: Structmaker BCPeripheral
  19 //CPeripherals = generateCInfo
  20 //CPeripherals :: Structmaker (List Int)
  21 CPeripherals :: Structmaker [Int]
  22 CPeripherals = gToCType{|*|}
  23
  24 Start = runStructMaker CPeripherals