tools/PascalUnitSyntaxTree.hs
changeset 7323 8490a4f439a5
parent 7317 3534a264b27a
child 7333 520a16a14747
equal deleted inserted replaced
7321:57bd4f201401 7323:8490a4f439a5
    28     | RecordType [TypeVarDeclaration] (Maybe [[TypeVarDeclaration]])
    28     | RecordType [TypeVarDeclaration] (Maybe [[TypeVarDeclaration]])
    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     | VoidType
       
    35     | VarParamType TypeDecl -- this is a hack
    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            | RangeInfinite
    39            | RangeInfinite
    39     deriving Show
    40     deriving Show
   111     | BTUnresolved String
   112     | BTUnresolved String
   112     | BTSet BaseType
   113     | BTSet BaseType
   113     | BTEnum [String]
   114     | BTEnum [String]
   114     | BTVoid
   115     | BTVoid
   115     | BTUnit
   116     | BTUnit
       
   117     | BTVarParam BaseType
   116     deriving Show
   118     deriving Show