63 lines
1.9 KiB
Modula-2
63 lines
1.9 KiB
Modula-2
DEFINITION MODULE Parser;
|
|
|
|
FROM Common IMPORT Identifier, PIdentifier;
|
|
FROM Lexer IMPORT PLexer;
|
|
|
|
TYPE
|
|
AstConstantDeclaration = RECORD
|
|
END;
|
|
PAstConstantDeclaration = POINTER TO AstConstantDeclaration;
|
|
PPAstConstantDeclaration = POINTER TO PAstConstantDeclaration;
|
|
|
|
AstFieldDeclaration = RECORD
|
|
field_name: Identifier;
|
|
field_type: PAstTypeExpression
|
|
END;
|
|
PAstFieldDeclaration = POINTER TO AstFieldDeclaration;
|
|
|
|
AstTypeExpressionKind = (
|
|
astTypeExpressionKindNamed,
|
|
astTypeExpressionKindRecord,
|
|
astTypeExpressionKindEnumeration,
|
|
astTypeExpressionKindArray,
|
|
astTypeExpressionKindPointer,
|
|
astTypeExpressionKindProcedure
|
|
);
|
|
AstTypeExpression = RECORD
|
|
CASE kind: AstTypeExpressionKind OF
|
|
astTypeExpressionKindNamed: name: Identifier |
|
|
astTypeExpressionKindEnumeration: cases: PIdentifier |
|
|
astTypeExpressionKindPointer: target: PAstTypeExpression |
|
|
astTypeExpressionKindRecord: fields: PAstFieldDeclaration |
|
|
astTypeExpressionKindArray:
|
|
base: PAstTypeExpression;
|
|
length: CARDINAL |
|
|
astTypeExpressionKindProcedure: parameters: PPAstTypeExpression
|
|
END
|
|
END;
|
|
PAstTypeExpression = POINTER TO AstTypeExpression;
|
|
PPAstTypeExpression = POINTER TO PAstTypeExpression;
|
|
|
|
AstTypeDeclaration = RECORD
|
|
identifier: Identifier;
|
|
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;
|
|
|
|
PROCEDURE parse_type_expression(lexer: PLexer): PAstTypeExpression;
|
|
|
|
END Parser.
|