(FILECREATED "16-Oct-86 00:25:29" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH120.;1
 3435   

      changes to:  (VARS RHTPATCH120COMS))


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

(PRETTYCOMPRINT RHTPATCH120COMS)

(RPAQQ RHTPATCH120COMS
 ((* * These changes fix bug #246 on calling inspect&repair from filebrowser.)
			  (* * Changes to NCREPAIR)
			  (FNS NC.InspectAndRepairNoteFile)
			  (* * Changes to NCLOCALDEVICE)
			  (FNS NCLocalDevice.InspectAndRepairNoteFile)))
(* * These changes fix bug #246 on calling inspect&repair from filebrowser.)


(* * Changes to NCREPAIR)


(DEFINEQ

(NC.InspectAndRepairNoteFile

  (LAMBDA (NoteFileOrFileName ReadSubstancesFlg InterestedWindow)
                                                             (* rht: "15-Oct-86 23:42")


          (* * Check to be sure file is closed before calling real inspect and repair.)




          (* * rht 7/16/86: Added InterestedWindow arg. Removed call to NC.OpenDatabaseFile.)




          (* * rht 7/17/86: Now works with file name args as well as notefile args. Took out reopen'ing of notefile, because 

	  you don't know how it was originally opened.)




          (* * fgh 9/1/86 Now just a wrapper for the device specific inspect & repair fn. Old functionality is in 

	  NCLocalDevice.InspectAndRepairNoteFile.)




          (* * rht 10/15/86: Trivial messing with syntax and strings.)



    (LET ((NoteFileName (
COND

			  ((
NULL
 NoteFileOrFileName)
			    (
PROG1
 (
NC.DatabaseFileName
 
						     "Name of NoteFile to be inspect&repair'ed: "
							    " -- " T NIL NIL InterestedWindow)
				     (
NC.ClearMsg
 InterestedWindow)))
			  ((type?
 NoteFile NoteFileOrFileName)
			    (fetch
 (NoteFile FullFileName) of
 NoteFileOrFileName))
			  (T NoteFileOrFileName))))

          (* * Apply the device specific repair notefile fn for the file's host.)



         (
APPLY*
 (fetch
 (NoteFileDevice RepairNoteFileFn) of
 (
NC.DeviceVectorForHost

								     (
FILENAMEFIELD
 NoteFileName
										      (
QUOTE
 HOST))
								     (
QUOTE
 PRIVATE)))
		   NoteFileOrFileName ReadSubstancesFlg InterestedWindow))))
)
(* * Changes to NCLOCALDEVICE)


(DEFINEQ

(NCLocalDevice.InspectAndRepairNoteFile

  (LAMBDA (NoteFileOrFileName ReadSubstancesFlg InterestedWindow)
                                                             (* rht: "15-Oct-86 23:58")


          (* * Check to be sure file is closed before calling real inspect and repair.)




          (* * rht 7/16/86: Added InterestedWindow arg. Removed call to NC.OpenDatabaseFile.)




          (* * rht 7/17/86: Now works with file name args as well as notefile args. Took out reopen'ing of notefile, because 

	  you don't know how it was originally opened.)




          (* * rht 10/15/86: Now only calls NC.NoteFileOpenP on real notefile objects.)



    (LET ((NoteFile (if
 (type?
 NoteFile NoteFileOrFileName)
			then
 NoteFileOrFileName
		      else
 (
NC.NoteFileFromFileName
 NoteFileOrFileName))))
         (if
 (
AND
 NoteFile (
NC.NoteFileOpenP
 NoteFile))
	     then
 (
NC.CloseDatabaseFile
 NoteFile InterestedWindow))
         (
NC.ScavengerPhase1
 NoteFileOrFileName ReadSubstancesFlg NIL NIL InterestedWindow))))
)
(PUTPROPS RHTPATCH120 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (613 2221 (NC.InspectAndRepairNoteFile 623 . 2219)) (2259 3353 (
NCLocalDevice.InspectAndRepairNoteFile 2269 . 3351)))))
STOP