TP3/shell/CompilerLex.def

DEFINITION MODULE CompilerLex ;

(* Lexical layer and string-literal pool.  The pool is exported because the
   expression/declaration code reads literal bytes from it. *)

VAR
   strPool : ARRAY [0..4095] OF CHAR ;
   strOff  : ARRAY [0..255] OF CARDINAL ;
   strLen  : ARRAY [0..255] OF CARDINAL ;
   strTop  : CARDINAL ;
   strCnt  : CARDINAL ;
   rdStrX  : CARDINAL ;

PROCEDURE InitKeys () ;
PROCEDURE IsBlank (ch : CHAR) : BOOLEAN ;
PROCEDURE Skip () ;
PROCEDURE GetWord () ;
PROCEDURE WddTok () : CARDINAL ;
PROCEDURE DeclaresProc () : BOOLEAN ;
PROCEDURE KwAhead (word : ARRAY OF CHAR) : BOOLEAN ;
PROCEDURE PeekKw (VAR tok : CARDINAL) ;
PROCEDURE MatchKey (VAR tok : CARDINAL) : BOOLEAN ;
PROCEDURE MatchDelim (ch : CHAR) : BOOLEAN ;
PROCEDURE MatchAssign () : BOOLEAN ;
PROCEDURE MatchRange () : BOOLEAN ;
PROCEDURE ExpectDelim (ch : CHAR ; n : CARDINAL) ;
PROCEDURE HexVal (ch : CHAR) : CARDINAL ;
PROCEDURE RdIntConst (VAR v : LONGINT) ;
PROCEDURE StrNew (first : CARDINAL ; hasFirst : BOOLEAN ) : CARDINAL ;
PROCEDURE StrPut (x : CARDINAL ) ;
PROCEDURE RdConst (VAR v : LONGINT ; VAR cls : CARDINAL ;
                   VAR isStr : BOOLEAN) ;

END CompilerLex.