tools/PascalUnitSyntaxTree.hs
changeset 6489 e1f0058cfedd
parent 6467 090269e528df
child 6512 0df7f6697939
equal deleted inserted replaced
6488:c356ddebab84 6489:e1f0058cfedd
     9     deriving Show
     9     deriving Show
    10 data Interface = Interface Uses TypesAndVars
    10 data Interface = Interface Uses TypesAndVars
    11     deriving Show
    11     deriving Show
    12 data Implementation = Implementation Uses TypesAndVars
    12 data Implementation = Implementation Uses TypesAndVars
    13     deriving Show
    13     deriving Show
    14 data Identifier = Identifier String
    14 data Identifier = Identifier String BaseType
    15     deriving Show
    15     deriving Show
    16 data TypesAndVars = TypesAndVars [TypeVarDeclaration]
    16 data TypesAndVars = TypesAndVars [TypeVarDeclaration]
    17     deriving Show
    17     deriving Show
    18 data TypeVarDeclaration = TypeDeclaration Identifier TypeDecl
    18 data TypeVarDeclaration = TypeDeclaration Identifier TypeDecl
    19     | VarDeclaration Bool ([Identifier], TypeDecl) (Maybe InitExpression)
    19     | VarDeclaration Bool ([Identifier], TypeDecl) (Maybe InitExpression)
    90     | InitAddress InitExpression
    90     | InitAddress InitExpression
    91     | InitNull
    91     | InitNull
    92     | InitRange Range
    92     | InitRange Range
    93     | InitTypeCast Identifier InitExpression
    93     | InitTypeCast Identifier InitExpression
    94     deriving Show
    94     deriving Show
       
    95 
       
    96 data BaseType = Unknown
       
    97     | BTChar
       
    98     | BTString
       
    99     | BTInt
       
   100     | BTRecord
       
   101     | BTArray
       
   102     | BTFunction
       
   103     | BTPointerTo BaseType
       
   104     | BTSet
       
   105     | BTEnum [String]
       
   106     | Void
       
   107     deriving Show
       
   108