DEFINITION MODULE CompilerSource ;

(* Source-buffer cursor and include expansion.  The exported include state is
   reset by Compiler.Inittur and used by the lexer's lookahead. *)

VAR
   srcLen     : CARDINAL ;
   inclEnd    : CARDINAL ;
   inclActive : BOOLEAN ;

PROCEDURE CurCh () : CHAR ;
PROCEDURE GetCh () : CHAR ;
PROCEDURE PeekAhead (k : CARDINAL) : CHAR ;
PROCEDURE Upper (ch : CHAR) : CHAR ;
PROCEDURE SetSourcePath (path : ARRAY OF CHAR) ;
PROCEDURE ExpandIncludes () ;

END CompilerSource.