20 lines
361 B
Modula-2
20 lines
361 B
Modula-2
DEFINITION MODULE Lexer;
|
|
|
|
FROM FIO IMPORT File;
|
|
|
|
TYPE
|
|
PLexerBuffer = POINTER TO CHAR;
|
|
Lexer = RECORD
|
|
Input: File;
|
|
Buffer: PLexerBuffer;
|
|
Size: CARDINAL;
|
|
Length: CARDINAL
|
|
END;
|
|
PLexer = POINTER TO Lexer;
|
|
|
|
PROCEDURE LexerInitialize(ALexer: PLexer; Input: File);
|
|
PROCEDURE LexerDestroy(ALexer: PLexer);
|
|
PROCEDURE LexerLex(ALexer: PLexer);
|
|
|
|
END Lexer.
|