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.