(FILECREATED "14-Mar-87 02:28:55" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH216.;4 26912
changes to: (VARS RHTPATCH216COMS)
(FNS NCLocalDevice.InspectAndRepairNoteFile NC.FileBrowserOpen
NC.TotalCardsInNoteFile)
previous date: "14-Mar-87 01:27:52" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH216.;1)
(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)
(PRETTYCOMPRINT RHTPATCH216COMS)
(RPAQQ RHTPATCH216COMS ((* * Fixes bug reported by Ramana whereby number of cards claimed by
inspector is too high. Also fixes minor interface bugs.)
(* * New function for NCDATABASE)
(FNS NC.TotalCardsInNoteFile)
(* * Change to NCLOCALDEVICE)
(FNS NCLocalDevice.PutHashArray)
(* * Change to NCREPAIR)
(FILES (FROM NOTECARDS)
NCREPAIR)
(FNS NC.ScavengerPhase1 NC.CardInspectorAttachedMenuWhenSelectedFn)
(* * Change to NCINTERFACE)
(* * Be sure that the FILEBROWSER record has been loaded before recompiling
the following function.)
(FNS NC.FileBrowserOpen)))
(* * Fixes bug reported by Ramana whereby number of cards claimed by inspector is too high.
Also fixes minor interface bugs.)
(* * New function for NCDATABASE)
(DEFINEQ
(NC.TotalCardsInNoteFile
(LAMBDA (NoteFile) (* rht: "14-Mar-87 01:11")
(* * Return the total number of cards in NoteFile. NoteFile should be open.)
(if (NC.NoteFileOpenP NoteFile)
then (DIFFERENCE (SUB1 (fetch (NoteFile NextIndexNum) of NoteFile))
(LENGTH (fetch (NoteFile IndexNumsFreeList) of NoteFile))))))
)
(* * Change to NCLOCALDEVICE)
(DEFINEQ
(NCLocalDevice.PutHashArray
(LAMBDA (NoteFile InterestedWindow AllCardsFlg OperationMsg QuietFlg)
(* rht: "14-Mar-87 01:00")
(* * Write down the hash array's contents to the notefile.)
(* * kirk 27Nov85 Added AllCardsFlg 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.)
(* * rht 3/13/87: Fixed the "TPutting" print msg. Changed AllActiveCardsFlg to be AllCardsFlg.
This allows cards with Deleted status to be written down with Free status.)
(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 T
(OR OperationMsg
"")
"Putting index array."
(CHARACTER
13)
"Processing item number "
Num " out of "
CardTotal "."
(CHARACTER
13)))))
(* Turn deleted slots into free ones.)
(if (AND AllCardsFlg (NEQ (fetch (Card Status)
of Card)
(QUOTE ACTIVE)))
then (replace (Card Status) of Card
with (QUOTE FREE)))
(if (OR AllCardsFlg (fetch (Card IndexDirtyFlg)
of Card))
then (NCLocalDevice.PutIndexEntry Card)))))))))
)
(* * Change to NCREPAIR)
(FILESLOAD (FROM NOTECARDS)
NCREPAIR)
(DEFINEQ
(NC.ScavengerPhase1
(LAMBDA (FileNameOrNoteFile ReadSubstancesFlg ScavengerInteractionWin RecheckBadCardsFlg
InterestedWindow) (* rht: "14-Mar-87 01:11")
(* * This is the first phase of the scavenger. Runs over entire data portion of the notefile, accumulating pointers
to healthy parts of cards. Then runs over index array asking user what to do with bad or outdated pointers.
If ReadSubstancesFlg is non-nil then it'll do robust gets of the substances. This slows things down, but makes
checking more comprehensive.)
(* * rht 12/7/85: Updated to handle new notefile and card object formats.)
(* * rht 3/22/86: No longer hangs bad cards off proplist of Reason atoms. Uses local var ReasonsHashArray instead.
NC.ScavengerPhase1 no longer hanging on completion of phase 3)
(* * rht 7/7/86: Now passes non-nil Don'tCheckOperationInProgress flg to NC.OpenDatabaseFile.)
(* * rht 7/16/86: Added InterestedWindow arg.)
(* * rht 9/16/86: Changed call to NC.OpenDatabaseFile so that it won't try to get special cards.)
(* * rht 10/31/86: Changed call from NC.OpenDatabaseFile to NC.OpenNoteFile. Now returns non-nil if successful.)
(* * rht 11/13/86: Now passes non-nil Don'tCreateFlg to NC.OpenNoteFile.)
(* * rht 2/18/87: Added SPAWN.MOUSE call.)
(* * rht 3/14/87: Now calls new function NC.TotalCardsInNoteFile to compute the total number of cards.)
(DECLARE (GLOBALVARS NC.ScavengerAttachedMenuFont NC.ScavengerInteractionWinRegion))
(PROG (FileName NoteFile UnknownCardTypesList ReasonsList ReasonsHashArray CardsToDelete Menu
MenuItems LinkLabelsNews CardTotal BadNewsList BadBoxes ExtraBadNews
FirstTimeFlg InspectorPendingEvent NoteFileMenu NoteFileOpsMenuItem
CanDoPhase3Flg NoteFileStream)
(* * First, take care of opening notefile if needed.)
(SPAWN.MOUSE)
(if (AND (type? NoteFile FileNameOrNoteFile)
(SETQ NoteFileStream (fetch (NoteFile Stream) of FileNameOrNoteFile))
(OPENP NoteFileStream))
then (* This notefile is already open For when we do
recursive call.)
(SETQ NoteFile FileNameOrNoteFile)
else (* Get file name and open the file if conditions are
okay.)
(SETQ FileName FileNameOrNoteFile)
(AND (NULL FileName)
(NULL (SETQ FileName (NC.DatabaseFileName
"What is the name of the NoteFile to Inspect&Repair? "
NIL T NIL NIL
InterestedWindow)))
(RETURN NIL))
(AND (NULL (SETQ NoteFile
(NC.OpenNoteFile FileName NIL T T NIL NIL NIL T T
InterestedWindow NIL NIL NIL NIL T)))
(NC.PrintMsg InterestedWindow NIL "Couldn't open " FileName "."
(CHARACTER 13)
"Repair aborted.")
(RETURN NIL))
(NC.ClearMsg InterestedWindow T))
(SETQ CardTotal (NC.TotalCardsInNoteFile NoteFile))
(* Build a window for talking to the user if one
wasn't passed in.)
(if (WINDOWP ScavengerInteractionWin)
then (CLEARW ScavengerInteractionWin)
else (SETQ ScavengerInteractionWin (CREATEW NC.ScavengerInteractionWinRegion
"Inspect&Repair Interaction Window"
NIL T))
(* This flg indicates that we're in the first call to
the scavenger.)
(SETQ FirstTimeFlg T)
(WINDOWADDPROP ScavengerInteractionWin (QUOTE CLOSEFN)
(FUNCTION NC.MessageWinCloseFn)
T)) (* Stash InterestedWindow for calls to phase 3 under
menu whenselected fn.)
(OR (WINDOWPROP ScavengerInteractionWin (QUOTE INTERESTEDWINDOW))
(WINDOWPROP ScavengerInteractionWin (QUOTE INTERESTEDWINDOW)
InterestedWindow)) (* Get all relevant info about the data area of the
notefile onto the cards' prop lists.)
(if (OR (NOT FirstTimeFlg)
(EQ (NC.GetScavengerInfo NoteFile ReadSubstancesFlg
ScavengerInteractionWin InterestedWindow)
(QUOTE SUCCESS)))
then (WINDOWPROP ScavengerInteractionWin (QUOTE NOTEFILE)
NoteFile)
(WINDOWPROP ScavengerInteractionWin (QUOTE CARDTOTAL)
CardTotal)
else (* Something's wrong. Couldn't get scavenger info.
Bail out.)
(NC.ScavengerCleanup ScavengerInteractionWin InterestedWindow)
(CLOSEW ScavengerInteractionWin)
(RETURN NIL))
(* * Check the list of card types that are undefined to see if user has loaded a definition since the last time we
checked. If he has, then go try to read the substance card parts for those newly defined card types.)
(NC.CheckUnknownCardTypes NoteFile ReadSubstancesFlg ScavengerInteractionWin)
(* * Next step is to run down the in-core index and find those cards having pointers to bad items in the data area.
We also need to look for undefined card types and for pointers past the checkpoint pointer.
However, we can reuse old bad news list if nothing has changed.)
(if (OR FirstTimeFlg RecheckBadCardsFlg (WINDOWPROP ScavengerInteractionWin
(QUOTE NEEDCHECKPOINT)))
then (WINDOWPROP ScavengerInteractionWin (QUOTE ORIGINALBADNEWSLIST)
(SETQ BadNewsList (NC.BuildBadCardsList NoteFile
ScavengerInteractionWin
FirstTimeFlg
InterestedWindow)))
else (SETQ BadNewsList (WINDOWPROP ScavengerInteractionWin (QUOTE
ORIGINALBADNEWSLIST))))
(* * Okay, now all the troublesome IDs and the reasons for their troubles are recorded in BadNewsList.
We next need to get directives from the user as to what to do for each problem card.)
(NC.RepositionWindowIfNeeded ScavengerInteractionWin)
(* If there's bad news for link labels then take off
list and store in a local var.)
(if (SETQ LinkLabelsNews (for BadCardEntry in BadNewsList
bind (LinkLabelsCard ←(fetch (NoteFile LinkLabelsCard)
of NoteFile))
eachtime (BLOCK) when (NC.SameCardP
LinkLabelsCard
(CAR
BadCardEntry))
do (RETURN BadCardEntry)))
then (SETQ BadNewsList (DREMOVE LinkLabelsNews BadNewsList)))
(* Accumulate general statistics on the problems.)
(SETQ ReasonsHashArray (HASHARRAY 100))
(for BadNews in BadNewsList bind Card Type eachtime (BLOCK)
unless (FMEMB (CADR BadNews)
(QUOTE (DELETED FREE)))
do (SETQ Card (CAR BadNews))
(for Reason in (CDDDR BadNews) eachtime (BLOCK)
do (PUTHASH Reason (CONS Card (GETHASH Reason ReasonsHashArray))
ReasonsHashArray)
(if (NOT (FMEMB Reason ReasonsList))
then (SETQ ReasonsList (CONS Reason ReasonsList)))
(if (EQ Reason (QUOTE UNKNOWNCARDTYPE))
then (* Accumulate the list of unknown card types for
nondeleted cards.)
(if (NOT (FMEMB (SETQ Type (
NC.FetchTypeFromScavengerInfo
Card))
UnknownCardTypesList))
then (push UnknownCardTypesList Type)))))
(* Build the menu entries that we know will be present
regardless of which cards are bad.)
(SETQ MenuItems (QUOTE ((Abort (QUOTE Abort)
"Quit this Inspect&Repair operation.")
(Recheck% Bad% Cards (QUOTE Recheck% Bad% Cards)
"Recompute bad cards list. Useful if you've just loaded some card type definitions.")
(Inspect% Cards (QUOTE Inspect% Cards)
"Bring up the cards inspector menu."
(SUBITEMS (Include% Deleted% Cards
(QUOTE Include% Deleted% Cards)
"Throw in deleted cards as well.")))))
) (* Print a message if news on link labels is worse
than just past checkpoint.)
(if (AND LinkLabelsNews (NOT (EQUAL (CDDDR LinkLabelsNews)
(QUOTE (MAINDATAPASTCHKPT)))))
then (push ExtraBadNews LinkLabelsNews)
(NC.PrintMsg ScavengerInteractionWin NIL "The link types are bad."
(CHARACTER 13)
"If you don't back them up to a previous version, then phase 3 of Inspect&Repair will rebuild them."
(CHARACTER 13))
(WINDOWPROP ScavengerInteractionWin (QUOTE NEEDLINKSCAVENGE)
T)) (* Collect any fileboxes that have bad substances.)
(if (SETQ BadBoxes (LET (Boxes)
(SETQ BadNewsList
(for News in BadNewsList bind Box eachtime
(BLOCK)
unless (if (AND (EQ (
NC.FetchTypeFromScavengerInfo
(SETQ Box (CAR News)))
(QUOTE FileBox))
(FMEMB (QUOTE BADMAINDATA)
(CDDDR News)))
then (push Boxes Box)
(* If nothing else is wrong with those boxes, then
take off bad news list.)
(EQ (LENGTH (CDDDR News))
1)
else NIL)
collect News))
Boxes))
then (NC.PrintMsg ScavengerInteractionWin NIL "Fileboxes "
(for Box in BadBoxes collect (
NC.FetchTitleFromScavengerInfo
Box))
" have bad substance(s)."
(CHARACTER 13)
"If you don't delete them or back up to a previous version, then phase 3 of Inspect&Repair will rebuild their contents."
(CHARACTER 13))
(WINDOWPROP ScavengerInteractionWin (QUOTE NEEDLINKSCAVENGE)
T)) (* Print out totals of active and deleted cards.)
(LET ((ActivesTotal 0)
(DeletedsTotal 0))
(NC.MapCards NoteFile (FUNCTION (LAMBDA (Card)
(SELECTQ (NC.FetchStatus Card)
(ACTIVE (SETQ ActivesTotal (ADD1 ActivesTotal)))
(DELETED (SETQ DeletedsTotal (ADD1 DeletedsTotal)))
NIL))))
(NC.PrintMsg ScavengerInteractionWin NIL "Out of " CardTotal " cards:"
(CHARACTER 13)
"there are " ActivesTotal " active cards and " DeletedsTotal
" deleted cards."
(CHARACTER 13)))
(if ReasonsList
then (* Print out messages for bad cards.)
(NC.PrintMsg ScavengerInteractionWin NIL "Of the non-deleted ones,"
(CHARACTER 13))
(for Reason in ReasonsList eachtime (BLOCK)
do (NC.PrintMsg ScavengerInteractionWin NIL (LENGTH (GETHASH Reason
ReasonsHashArray))
" have "
(GETPROP Reason (QUOTE ReasonString))
(CHARACTER 13))
(if (EQ Reason (QUOTE UNKNOWNCARDTYPE))
then (NC.PrintMsg ScavengerInteractionWin NIL
"The unknown types are: "
UnknownCardTypesList "." (CHARACTER 13))))
else (NC.PrintMsg ScavengerInteractionWin NIL "All non-deleted cards look okay."
(CHARACTER 13)))
(* Only allow continuation to phase 3 of repair, links rebuilding, if there's no bad news that can't be fixed.
We can fix bad proplist, titles or links. We can also fix even bad substances if they're for fileboxes.)
(if (for News in BadNewsList eachtime (BLOCK)
unless (FMEMB (CADR News)
(QUOTE (DELETED FREE)))
unless (EQ (NC.FetchTypeFromScavengerInfo (CAR News))
(QUOTE FileBox))
never (INTERSECTION (CDDDR News)
(QUOTE (BADMAINDATA UNKNOWNCARDTYPE))))
then (* Add the appropriate menu items.)
(if (NOT (WINDOWPROP ScavengerInteractionWin (QUOTE NEEDLINKSCAVENGE)))
then (SETQ MenuItems (CONS (QUOTE (End% Inspect&Repair
(QUOTE End% Inspect&Repair)
"This exits Inspect&Repair normally, closing the notefile."))
MenuItems)))
(SETQ CanDoPhase3Flg T)
(SETQ MenuItems (CONS (QUOTE (Continue% Repair (QUOTE Continue% Repair)
"Complete Inspect&Repair by rebuilding the links."))
MenuItems)))
(* Make sure a checkpoint will happen before
continuing to phase 3 if there are any card parts
beyond the checkpt pointer.)
(if (INTERSECTION ReasonsList (QUOTE (MAINDATAPASTCHKPT LINKSPASTCHKPT
TITLEPASTCHKPT
PROPLISTPASTCHKPT)))
then (AND CanDoPhase3Flg (NC.PrintMsg ScavengerInteractionWin NIL
"'Continue Repair' will integrate any card part versions beyond chkpt pointer."
(CHARACTER 13)))
(WINDOWPROP ScavengerInteractionWin (QUOTE NEEDCHECKPOINT)
T)) (* Ugliness! Have to cache all these vars on window so
that attached menu's whenselectedfn will be able to
grab them.)
(WINDOWPROP ScavengerInteractionWin (QUOTE BADNEWSLIST)
BadNewsList)
(WINDOWPROP ScavengerInteractionWin (QUOTE EXTRABADNEWS)
ExtraBadNews)
(WINDOWPROP ScavengerInteractionWin (QUOTE LINKSLABELSNEWS)
LinkLabelsNews)
(WINDOWPROP ScavengerInteractionWin (QUOTE BADBOXES)
BadBoxes)
(ATTACHMENU (create MENU
ITEMS ← MenuItems
WHENSELECTEDFN ←(FUNCTION
NC.MessageWinAttachedMenuWhenSelectedFn)
MENUFONT ← NC.ScavengerAttachedMenuFont)
ScavengerInteractionWin
(QUOTE RIGHT)
(QUOTE TOP))
(RETURN NoteFile))))
(NC.CardInspectorAttachedMenuWhenSelectedFn
(LAMBDA (Item Menu MouseKey) (* rht: "14-Mar-87 01:20")
(* * Called when leaving the main cards inspector menu. User is either aborting the scavenge or absorbing changes
and continuing. In latter case, we need to recompute scavenger array to check for if she has fixed whatever
problems there were. If so, then continue with link scavenge.)
(* * rht 12/8/85: Modified to reflect new card and notefile object formats.)
(* * kirk 23Jan86 Changed to use NC.AskYesOrNo)
(* * rht 3/24/86: Added call to NC.CloseInspectorWindows.)
(* * rht 7/16/86: Added NC.AttachPromptWindow calls. String search is now case INsensitive.)
(* * rht 1/22/87: Now calls NC.AskYesOrNo instead of NC.AskUser.)
(* * rht 3/14/87: Fixed minor attachwindow bug in call to NC.ScavengerPhase1.)
(DECLARE (GLOBALVARS NC.OffScreenPosition))
(LET ((MainWin (MAINWINDOW (WFROMMENU Menu)))
(Operation (CAR Item))
MessageWin NoteFile InspectorWins NextWin MenuWindows SearchString)
(SETQ MessageWin (MAINWINDOW MainWin))
(SETQ MenuWindows (WINDOWPROP MessageWin (QUOTE MENUWINDOWS)))
(if (AND (OR (NEQ Operation (QUOTE Abort))
(NC.AskYesOrNo
"Do you really want to abort the Inspect & Repair process? "
NIL
(QUOTE Yes)
T
(NC.AttachPromptWindow MessageWin)
NIL NIL))
(OR (NOT (FMEMB Operation (QUOTE (Abort Done))))
(for Win in (SETQ InspectorWins (WINDOWPROP MessageWin
(QUOTE
INSPECTORWINDOWS)))
never (OPENWP Win))
(PROG2 (NC.PrintMsg (NC.AttachPromptWindow MessageWin)
T "There are open card inspector windows.")
(if (NC.AskYesOrNo "Want to close them? " NIL "Yes" NIL
(NC.AttachPromptWindow MessageWin))
then (for Win in InspectorWins when (OPENWP Win)
do (CLOSEW Win))
T))))
then (SETQ NoteFile (WINDOWPROP MainWin (QUOTE NOTEFILE)))
(SELECTQ Operation
(Abort (WINDOWDELPROP MainWin (QUOTE CLOSEFN)
(FUNCTION NC.CardInspectorCloseFn))
(NC.CardInspectorCloseFn MainWin T)
(CLOSEW MainWin))
(Done (DETACHWINDOW MainWin)
(WINDOWDELPROP MainWin (QUOTE CLOSEFN)
(FUNCTION NC.CardInspectorCloseFn))
(NC.CloseInspectorWindows MessageWin)
(for MenuWin in (WINDOWPROP MessageWin (QUOTE
MENUWINDOWS))
unless (EQ MenuWin MainWin)
do (WINDOWDELPROP MenuWin (QUOTE CLOSEFN)
(FUNCTION NC.CardInspectorCloseFn))
(CLOSEW MenuWin))
(if (WINDOWPROP MainWin (QUOTE MADECHANGES))
then (WINDOWPROP MessageWin (QUOTE NEEDCHECKPOINT)
T))
(WINDOWPROP MessageWin (QUOTE NEEDLINKSCAVENGE)
(OR (WINDOWPROP MessageWin (QUOTE
NEEDLINKSCAVENGE))
(WINDOWPROP MainWin (QUOTE
NEEDLINKSCAVENGE))))
(CLOSEW MainWin)
(* This "recursive" call will check to make sure everything is okay before invoking link scavenge.
I'm calling with ReadSubstancesFlg off, even if this call had it on. That's because we don't want it to be so slow
on the second go-around.)
(NC.ScavengerPhase1 NoteFile NIL MessageWin NIL))
(Search
(* Simple-minded search for titles of cards containing the given search string. User is asked for string in the
prompt window, but answer appears in MessageWin for easy access.)
(SETQ SearchString (NC.AskUser "Search string? " NIL NIL T
(NC.AttachPromptWindow
MessageWin)
T T NIL))
(NC.PrintMsg (NC.AttachPromptWindow MessageWin)
T "Searching ... ")
(NC.PrintMsg MessageWin NIL
"Card titles containing string '"
SearchString "': "
(NC.MapCards
NoteFile
(FUNCTION (LAMBDA (Card PredicateResult)
PredicateResult))
(FUNCTION (LAMBDA (Card)
(LET ((Title (
NC.FetchTitleFromScavengerInfo
Card)))
(if (STRPOS (U-CASE
SearchString)
(U-CASE Title))
then (CONCAT (
NC.FetchSlotNum
Card)
": " Title)
else NIL)))))
(CHARACTER 13))
(NC.ClearMsg (NC.AttachPromptWindow MessageWin)
T))
(Previous% Page (* Get previous menu window by accessing list of
windows cached on MessageWin.)
(DETACHWINDOW MainWin)
(MOVEW MainWin NC.OffScreenPosition)
(ATTACHWINDOW (SETQ NextWin
(if (EQ MainWin (CAR
MenuWindows))
then (CAR (LAST
MenuWindows))
else (CAR (NLEFT
MenuWindows 1
(FMEMB MainWin
MenuWindows)))))
MessageWin
(QUOTE BOTTOM)
(QUOTE LEFT)))
(Next% Page (* Get next menu window by accessing list of windows
cached on MessageWin.)
(DETACHWINDOW MainWin)
(MOVEW MainWin NC.OffScreenPosition)
(ATTACHWINDOW (SETQ NextWin
(if (EQ MainWin (CAR (LAST
MenuWindows)
))
then (CAR MenuWindows)
else (CADR (FMEMB MainWin
MenuWindows))))
MessageWin
(QUOTE BOTTOM)
(QUOTE LEFT)))
(First% Page (* Get first menu window by accessing list of windows
cached on MessageWin.)
(if (EQ MainWin (SETQ NextWin (CAR MenuWindows)))
then (FLASHW MainWin)
else (DETACHWINDOW MainWin)
(MOVEW MainWin NC.OffScreenPosition)
(ATTACHWINDOW NextWin MessageWin (QUOTE
BOTTOM)
(QUOTE LEFT))))
NIL)))))
)
(* * Change to NCINTERFACE)
(* * Be sure that the FILEBROWSER record has been loaded before recompiling the following
function.)
(DEFINEQ
(NC.FileBrowserOpen
(LAMBDA (Browser Key Item Menu Access) (* rht: "14-Mar-87 02:06")
(* * Function called from file browser menu for notefile open.)
(* * rht 7/4/86: Added Access arg.)
(* * rht 3/14/87: Changed to call NC.OpenNoteFile.)
(for FileObject in (FB.SELECTEDFILES Browser) bind FileName
do (NC.OpenNoteFile (SETQ FileName (U-CASE (MKATOM (FB.FETCHFILENAME FileObject))))
NIL NIL NIL NIL NIL NIL NIL NIL (if (NOT (NC.NoteFileFromFileName
FileName))
then (fetch (FILEBROWSER
PROMPTWINDOW)
of Browser))
NIL NIL NIL Access))))
)
(PUTPROPS RHTPATCH216 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
(FILEMAP (NIL (1225 1666 (NC.TotalCardsInNoteFile 1235 . 1664)) (1703 3989 (NCLocalDevice.PutHashArray
1713 . 3987)) (4063 25907 (NC.ScavengerPhase1 4073 . 19196) (
NC.CardInspectorAttachedMenuWhenSelectedFn 19198 . 25905)) (26050 26830 (NC.FileBrowserOpen 26060 .
26828)))))
STOP