(FILECREATED " 8-Jun-86 03:05:28" {QV}<NOTECARDS>1.3K>FGHPATCH069.;1
 2016   

      changes to:  (VARS FGHPATCH069COMS)
		   (FNS NC.ReadIdentifier))


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

(PRETTYCOMPRINT FGHPATCH069COMS)

(RPAQQ FGHPATCH069COMS
 ((* * fix to bug %#16 -- PEEKC and READC)
			  (FNS NC.ReadIdentifier)))
(* * fix to bug %#16 -- PEEKC and READC)


(DEFINEQ

(NC.ReadIdentifier

  (LAMBDA (NoteFileOrStream Identifier)                      (* fgh: " 8-Jun-86 03:04")

                                                             (* Return T if next item on databaseStream is the 

							     identifier specified by Identifier)


          (* * rht 2/4/85: A horrible hack for the case of titles identifier. This is because a previous typo was causing 

	  NOBIND to get written for titles identifiers.)




          (* * rht 7/9/85: Now checks for new data format. This is indicated by identifiers with the last two %#'s clipped 

	  off. Then comes the one-byte version number of the data format. If identifier is not clipped then it's old style 

	  and there is no version number. Return version number if there is one, 0 if old style, and NIL if can't match 

	  identifier.)




          (* * fkr 11/8/85 Changed to handle NoteFile object.)




          (* * rht 11/24/85: No longer worries about the screwy NOBIND Titles identifier. Also assumes Identifier is already 

	  clipped.)




          (* * rht 1/23/86: Now takes notefile or stream as arg.)



    (LET ((Stream (
NC.CoerceToNoteFileStream
 NoteFileOrStream)))
         (if
 (
AND
 (
EQ
 (
READ
 Stream NC.OrigReadTable)
			    Identifier)
		      (
NUMBERP
 (
PROGN
                    (* First char is separator.

							     Next is one-byte version number.)

					  (
BIN
 Stream)
					  (NC.ReadPtr Stream 1))))
	   else
 NIL))))
)
(PUTPROPS FGHPATCH069 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (406 1934 (NC.ReadIdentifier 416 . 1932)))))
STOP