tools/PascalUnitSyntaxTree.hs
changeset 7550 3c4b4cb40f40
parent 7513 39866eb9e4a6
equal deleted inserted replaced
7508:763d3961400b 7550:3c4b4cb40f40
    17     deriving Show
    17     deriving Show
    18 data TypesAndVars = TypesAndVars [TypeVarDeclaration]
    18 data TypesAndVars = TypesAndVars [TypeVarDeclaration]
    19     deriving Show
    19     deriving Show
    20 data TypeVarDeclaration = TypeDeclaration Identifier TypeDecl
    20 data TypeVarDeclaration = TypeDeclaration Identifier TypeDecl
    21     | VarDeclaration Bool Bool ([Identifier], TypeDecl) (Maybe InitExpression)
    21     | VarDeclaration Bool Bool ([Identifier], TypeDecl) (Maybe InitExpression)
    22     | FunctionDeclaration Identifier TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase))
    22     | FunctionDeclaration Identifier Bool TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase))
    23     | OperatorDeclaration String Identifier TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase))
    23     | OperatorDeclaration String Identifier Bool TypeDecl [TypeVarDeclaration] (Maybe (TypesAndVars, Phrase))
    24     deriving Show
    24     deriving Show
    25 data TypeDecl = SimpleType Identifier
    25 data TypeDecl = SimpleType Identifier
    26     | RangeType Range
    26     | RangeType Range
    27     | Sequence [Identifier]
    27     | Sequence [Identifier]
    28     | ArrayDecl (Maybe Range) TypeDecl
    28     | ArrayDecl (Maybe Range) TypeDecl