tools/PascalUnitSyntaxTree.hs
changeset 7513 39866eb9e4a6
parent 7429 fcf13e40d6b6
equal deleted inserted replaced
7511:1841d5cf899f 7513:39866eb9e4a6
    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