24     | Sequence [Identifier]

    24     | Sequence [Identifier]

    25     | ArrayDecl (Maybe Range) TypeDecl

    25     | ArrayDecl (Maybe Range) TypeDecl

    26     | RecordType [TypeVarDeclaration] (Maybe [[TypeVarDeclaration]])

    26     | RecordType [TypeVarDeclaration] (Maybe [[TypeVarDeclaration]])

    27     | PointerTo TypeDecl

    27     | PointerTo TypeDecl

    28     | String

    28     | String

    29     | Set TypeDecl

    30     | Set TypeDecl

    30     | FunctionType TypeDecl [TypeVarDeclaration]

    31     | FunctionType TypeDecl [TypeVarDeclaration]

    31     | DeriveType InitExpression

    32     | DeriveType InitExpression

    32     | VoidType

    33     | VoidType

    33     | VarParamType TypeDecl -- this is a hack

    34     | VarParamType TypeDecl -- this is a hack

    98     deriving Show

    99     deriving Show

    99 

   100 

   100 data BaseType = BTUnknown

   101 data BaseType = BTUnknown

   101     | BTChar

   102     | BTChar

   102     | BTString

   103     | BTString

   103     | BTInt Bool -- second param indicates whether signed or not

   105     | BTInt Bool -- second param indicates whether signed or not

   104     | BTBool

   106     | BTBool

   105     | BTFloat

   107     | BTFloat

   106     | BTRecord String [(String, BaseType)]

   108     | BTRecord String [(String, BaseType)]

   107     | BTArray Range BaseType BaseType

   109     | BTArray Range BaseType BaseType