(FILECREATED " 5-Sep-86 14:40:51" {QV}<NOTECARDS>1.3K>NEXT>FGHPATCH110.;1
 2451   

      changes to:  (VARS FGHPATCH110COMS)
		   (FNS NCLocalDevice.PutHashArray))


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

(PRETTYCOMPRINT FGHPATCH110COMS)

(RPAQQ FGHPATCH110COMS
 ((* * Fixes bug in NCLocalDevice.PutHashArray -- FROM NCLOCALDEVICE)
			  (FNS NCLocalDevice.PutHashArray)))
(* * Fixes bug in NCLocalDevice.PutHashArray -- FROM NCLOCALDEVICE)


(DEFINEQ

(NCLocalDevice.PutHashArray

  (LAMBDA (NoteFile InterestedWindow AllActiveCardsFlg OperationMsg QuietFlg)
                                                             (* fgh: " 5-Sep-86 14:39")


          (* * Write down the hash array's contents to the notefile.)




          (* * kirk 27Nov85 Added AllActiveCardsFlg for use by the compactor.)




          (* * fgh 5/26/86 Adapted from NC.PutHashArray with minor changes.)




          (* * fgh 9/1/86 Reimplemented QuietFlg.)




          (* * fgh 9/5/86 Put in check for HARRAYP of NoteFile's HashArray becuase MAPHASH of NIL will map hash down an 

	  arbitrary array.)



    (if
 (
HARRAYP
 (fetch
 (NoteFile HashArray) of
 NoteFile))
	then
 (LET ((CardTotal (
SUB1
 (fetch
 (NoteFile NextIndexNum) of
 NoteFile)))
		     (Num 0))
		    (
OR
 QuietFlg (
NC.PrintMsg
 InterestedWindow T (
OR
 OperationMsg "")
						  "Putting index array."
						  (
CHARACTER
 13)
						  "Processing item number " 1 " out of " CardTotal 
						  "."
						  (
CHARACTER
 13)))
		    (NC.MapCards NoteFile (
FUNCTION
 (LAMBDA (Card)
				     (
OR
 QuietFlg (
PROGN
 (
SETQ
 Num (
ADD1
 Num))
							     (
AND
 (
ZEROP
 (
IREMAINDER
 Num 100))
								    (
NC.PrintMsg
 InterestedWindow
										   (
OR
 OperationMsg 
											 "")
										   T 
									   "Putting index array."
										   (
CHARACTER

										     13)
										   
									"Processing item number "
										   Num " out of " 
										   CardTotal "."
										   (
CHARACTER

										     13)))))
				     (
AND
 (if
 AllActiveCardsFlg
						then
 (
EQ
 (fetch
 (Card Status) of
 Card)
							     (
QUOTE
 ACTIVE))
					      else
 (fetch
 (Card IndexDirtyFlg) of
 Card))
					    (
NCLocalDevice.PutIndexEntry
 Card)))))))))
)
(PUTPROPS FGHPATCH110 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (483 2369 (NCLocalDevice.PutHashArray 493 . 2367)))))
STOP