DEFINITION MODULE AMScan;
(*$ NameChk:=FALSE *)
(* 26.8.88 / ms *)

TYPE
 ReadProc=PROCEDURE(VAR CHAR);

(*
 * ScanString calls the read procedure supplied until a
 * valid string is read. Spaces, tabs, linefeeds,
 * endOfFile and nul are terminators for such a string.
 * Spaces and tabs may be inserted into the string if the
 * complete string is surrounded with double quotes. The
 * result is TRUE whenever a string is read. If no string
 * is read the result will be FALSE. An empty string is
 * a valid result if "" is scanned.
 *)
PROCEDURE ScanString(read: ReadProc;
                     VAR st: ARRAY OF CHAR;
                     VAR len: INTEGER;
                     VAR termCh: CHAR): BOOLEAN;

END AMScan.
