tools/PascalUnitSyntaxTree.hs
changeset 6826 8fadeefdd352
parent 6816 572571ea945e
child 6827 a0e152e68337
equal deleted inserted replaced
6825:aca4a6807ecc 6826:8fadeefdd352
    29     | PointerTo TypeDecl
    29     | PointerTo TypeDecl
    30     | String Integer
    30     | String Integer
    31     | Set TypeDecl
    31     | Set TypeDecl
    32     | FunctionType TypeDecl [TypeVarDeclaration]
    32     | FunctionType TypeDecl [TypeVarDeclaration]
    33     | DeriveType InitExpression 
    33     | DeriveType InitExpression 
       
    34     | VoidType
    34     | UnknownType
    35     | UnknownType
    35     deriving Show
    36     deriving Show
    36 data Range = Range Identifier
    37 data Range = Range Identifier
    37            | RangeFromTo InitExpression InitExpression
    38            | RangeFromTo InitExpression InitExpression
    38     deriving Show
    39     deriving Show
    99     | BTChar
   100     | BTChar
   100     | BTString
   101     | BTString
   101     | BTInt
   102     | BTInt
   102     | BTBool
   103     | BTBool
   103     | BTFloat
   104     | BTFloat
   104     | BTRecord [(String, BaseType)]
   105     | BTRecord
   105     | BTArray BaseType BaseType
   106     | BTArray BaseType BaseType
   106     | BTFunction
   107     | BTFunction BaseType
   107     | BTPointerTo BaseType
   108     | BTPointerTo BaseType
   108     | BTSet BaseType
   109     | BTSet BaseType
   109     | BTEnum [String]
   110     | BTEnum [String]
   110     | BTVoid
   111     | BTVoid
   111     | BTUnit
   112     | BTUnit