| 123456789101112131415161718 |
- 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.
|