33 lines
883 B
Modula-2
33 lines
883 B
Modula-2
DEFINITION MODULE Parser;
|
|
|
|
TYPE
|
|
AstConstantDeclaration = RECORD
|
|
END;
|
|
PAstConstantDeclaration = POINTER TO AstConstantDeclaration;
|
|
PPAstConstantDeclaration = POINTER TO PAstConstantDeclaration;
|
|
|
|
AstTypeExpression = RECORD
|
|
END;
|
|
PAstTypeExpression = POINTER TO AstTypeExpression;
|
|
|
|
AstTypeDeclaration = RECORD
|
|
identifier: ARRAY[1..256] OF CHAR;
|
|
type_expression: PAstTypeExpression
|
|
END;
|
|
PAstTypeDeclaration = POINTER TO AstTypeDeclaration;
|
|
PPAstTypeDeclaration = POINTER TO PAstTypeDeclaration;
|
|
|
|
AstVariableDeclaration = RECORD
|
|
END;
|
|
PAstVariableDeclaration = POINTER TO AstVariableDeclaration;
|
|
PPAstVariableDeclaration = POINTER TO PAstVariableDeclaration;
|
|
|
|
AstModule = RECORD
|
|
constants: PPAstConstantDeclaration;
|
|
types: PPAstTypeDeclaration;
|
|
variables: PPAstVariableDeclaration
|
|
END;
|
|
PAstModule = POINTER TO AstModule;
|
|
|
|
END Parser.
|