tools/PascalUnitSyntaxTree.hs
changeset 7317 3534a264b27a
parent 7070 8d4189609e90
child 7323 8490a4f439a5
equal deleted inserted replaced
7315:59b5b19e6604 7317:3534a264b27a
    15 data Identifier = Identifier String BaseType
    15 data Identifier = Identifier String BaseType
    16     deriving Show
    16     deriving Show
    17 data TypesAndVars = TypesAndVars [TypeVarDeclaration]
    17 data TypesAndVars = TypesAndVars [TypeVarDeclaration]
    18     deriving Show
    18     deriving Show
    19 data TypeVarDeclaration = TypeDeclaration Identifier TypeDecl
    19 data TypeVarDeclaration = TypeDeclaration Identifier TypeDecl
    20     | VarDeclaration Bool ([Identifier], TypeDecl) (Maybe InitExpression)
    20     | VarDeclaration Bool Bool ([Identifier], TypeDecl) (Maybe InitExpression)
    21     | FunctionDeclaration Identifier TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase))
    21     | FunctionDeclaration Identifier TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase))
    22     | OperatorDeclaration String Identifier TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase))
    22     | OperatorDeclaration String Identifier TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase))
    23     deriving Show
    23     deriving Show
    24 data TypeDecl = SimpleType Identifier
    24 data TypeDecl = SimpleType Identifier
    25     | RangeType Range
    25     | RangeType Range