(FILECREATED " 9-Jan-85 17:39:02" {PHYLUM}<NOTECARDS>RELEASE1.1>FGHNEW.;2
 1709   

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

      previous date: " 9-Jan-85 01:03:04" {PHYLUM}<NOTECARDS>RELEASE1.1>FGHNEW.;1)


(* 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 17:38")


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



    (
PROG
 (Pos Identifier ID)
          (
SETFILEPTR
 Stream 0)
          (while
 (
AND
 (
FILEPOS
 "###" Stream)
		      (
ILESSP
 (
GETFILEPTR
 Stream)
			      1400000))
	     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 (
IPLUS
 Pos 7)))
          (
RETURN
 (
QUOTE
 Done)))))
)
(PUTPROPS FGHNEW COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (382 1632 (NC.RebuildIndex 392 . 1630)))))
STOP