(FILECREATED "27-Jan-86 23:12:01" {QV}<NOTECARDS>RELEASE1.2I>FGHPATCHXXX.;1
 1115   

      changes to:  (VARS FGHPATCHXXXCOMS)
		   (FNS NC.SkipWhiteSpace))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT FGHPATCHXXXCOMS)

(RPAQQ FGHPATCHXXXCOMS
 ((FNS NC.SkipWhiteSpace)))
(DEFINEQ

(NC.SkipWhiteSpace

  (LAMBDA (Stream EofPtr SkipNullsFlg)                       (* fgh: "27-Jan-86 21:53")


          (* * Skip over all separator characters. There seem to be nulls at the end of the file sometimes 

	  (char code = 0) so SkipNullsFlg = T calls them white space.)



    (
PROG
 ((CurPtr (
GETFILEPTR
 Stream))
	     (SeprChars (
GETSEPR
)))
	    (
OR
 EofPtr (
SETQ
 EofPtr (
GETEOFPTR
 Stream)))
	    (if
 SkipNullsFlg
		then
 (
SETQ
 SeprChars (
CONS
 0 SeprChars)))
	    (for
 Ptr from
 CurPtr while
 (
AND
 (
LESSP
 Ptr EofPtr)
						    (
FMEMB
 (
\PEEKBIN
 Stream)
							     SeprChars))
	       do
 (
BIN
 Stream)))))
)
(PUTPROPS FGHPATCHXXX COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (320 1033 (NC.SkipWhiteSpace 330 . 1031)))))
STOP