(FILECREATED " 9-Jan-85 01:03:04" {PHYLUM}<NOTECARDS>RELEASE1.1>FGHNEW.;1
 1543   

      changes to:  (VARS FGHNEWCOMS)
		   (FNS NC.RebuildIndex))


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

(PRETTYCOMPRINT FGHNEWCOMS)

(RPAQQ FGHNEWCOMS
 ((FNS NC.RebuildIndex)))
(DEFINEQ

(NC.RebuildIndex

  (LAMBDA (Stream)                                           (* fgh: " 9-Jan-85 01:02")


          (* * Rebuild the index from the data on database Stream)



    (
PROG
 (Pos Identifier ID)
          (
SETFILEPTR
 Stream 0)
          (while
 (
FILEPOS
 "###" Stream)
	     do
 (
SETQ
 Pos (
GETFILEPTR
 Stream))
		(
SETQ
 Identifier (
READ
 Stream))
		(
SETQ
 ID (
READ
 Stream))
		(
COND

		  ((NC.IDP ID)
		    (
SETFILEPTR
 Stream (NC.IndexFromID ID))
		    (NC.GetStatus Stream)
		    (
COND

		      ((
EQ
 Identifier NC.ItemIdentifier)
			(NC.PutPtr Stream Pos))
		      ((
EQ
 Identifier NC.LinksIdentifier)
			(NC.GetPtr Stream)
			(NC.PutPtr Stream Pos))
		      ((
EQ
 Identifier NC.TitlesIdentifier)
			(NC.GetPtr Stream)
			(NC.GetPtr Stream)
			(NC.PutPtr Stream Pos))
		      ((
EQ
 Identifier NC.PropsIdentifier)
			(NC.GetPtr Stream)
			(NC.GetPtr Stream)
			(NC.GetPtr Stream)
			(NC.PutPtr Stream Pos))
		      ((
EQ
 Identifier NC.LinkLabelsIdentifier)
			(NC.PutPtr Stream Pos)))))
		(
SETFILEPTR
 Stream (
ADD1
 Pos)))
          (
RETURN
 (
QUOTE
 Done)))))
)
(PUTPROPS FGHNEW COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (299 1466 (NC.RebuildIndex 309 . 1464)))))
STOP