(FILECREATED "17-Mar-87 15:15:26" ("compiled on " {QV}1.3K>NEXT>RHTPATCH217.;1) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "17-Mar-87 15:14:49" {QV}1.3K>NEXT>RHTPATCH217.;1 21110 changes to: (VARS RHTPATCH217COMS)) NC.ScavengeDatabaseFileA0001A0002 D1 (P 6 Link P 0 Card I 1 Key I 0 Value F 7 NoteCardNumber F 10Q ReconstructLinks F 11Q ReconstructGlobalLinks F 12Q InterestedWindow F 13Q CardTotal F 14Q ListOfBoxesToReconstruct F 15Q ListOfCardsNeedingGlobalLinksReconstructed) @Wkcdl YjI)I #Wiol oWoWo Hg H Hg )Hg HgH HgH Hi H H H gjHgH AJ[KHg HgH H Hg HgH WH MPWH MfHi N gN`HN NLMh\[JZtM&\N Ng NWcM]N Ng NWcM]v(562Q NC.FetchUserDataProp 544Q NC.GlobalLinkP 537Q BLOCK 515Q NC.FetchUserDataProp 477Q NC.ChildLinkP 472Q BLOCK 436Q NC.DelReferencesToCard 414Q NC.FetchStatus 402Q BLOCK 374Q NC.DeactivateCard 357Q NC.FetchFromLinks 340Q NC.FetchFromLinks 330Q NC.SetUserDataProp 325Q NC.FetchGlobalLinks 314Q NC.FetchUserDataProp 305Q NC.SetUserDataProp 302Q \NCONC2 277Q NC.FetchGlobalLinks 272Q NC.SetUserDataProp 267Q NC.FetchGlobalLinks 255Q NC.FetchUserDataProp 234Q NC.CollectReferences 216Q NC.FetchStatus 212Q NC.ActivateCard 206Q NC.GetMainCardData 201Q NC.DeactivateCard 173Q NC.SetUserDataProp 170Q NC.FetchGlobalLinks 157Q NC.SetUserDataProp 154Q NC.FetchGlobalLinks 142Q NC.FetchUserDataProp 131Q NC.FetchUserDataProp 121Q NC.GetLinks 114Q NC.FetchUserDataProp 104Q NC.PrintMsg 60Q CHARACTER 42Q \FZEROP 25Q REMAINDER 11Q BLOCK 2 BLOCK) (557Q NeedsGlobalLinksReconstructedFlg 552Q Link 512Q NeedsReconstructingFlg 505Q Link 426Q LinkTYPE# 417Q ACTIVE 407Q Link 321Q ScavengerGlobalLinks 311Q NeedsGlobalLinksReconstructedFlg 263Q ScavengerGlobalLinks 252Q NeedsGlobalLinksReconstructedFlg 230Q ScavengerToLinks 221Q ACTIVE 164Q ScavengerGlobalLinks 150Q ScavengerToLinks 137Q NeedsGlobalLinksReconstructedFlg 126Q NeedsReconstructingFlg 111Q NeedsGlobalLinksReconstructedFlg) ( 100Q "." 72Q " out of " 64Q "Collecting Links for item " 53Q "Rebuilding notefile links.") NC.ScavengeDatabaseFileA0001A0004 D1 (P 5 LinkLabel P 4 DestinationCard P 3 Link P 0 Card I 1 Key I 0 Value F 6 NoteCardNumber F 7 DiscoveredLinkLabels F 10Q InterestedWindow F 11Q CardTotal) @Vkc dld YjI(I "Wiol oVoWo H gHg 1JhK\gKLg  K]WMWcJZ(166Q NC.SetUserDataProp 162Q NC.FetchUserDataProp 137Q BLOCK 121Q NC.FetchUserDataProp 104Q NC.FetchStatus 77Q NC.PrintMsg 54Q CHARACTER 36Q \FZEROP 21Q REMAINDER 2 BLOCK) (173Q Link 157Q ScavengerFromLinks 152Q ScavengerFromLinks 144Q Link 116Q ScavengerToLinks 107Q ACTIVE) ( 73Q "." 65Q " out of " 60Q "Inverting links for item " 47Q "Repairing NoteFile.") NC.ScavengeDatabaseFileA0001A0006 D1 (P 0 Card I 1 Key I 0 Value F 2 NoteCardNumber F 3 ToBeFiledCards F 4 InterestedWindow F 5 CardTotal) @Rkcdl YjI&I Tiol oRoUo H g7Hdg Hdg Hdg H HScHi Hi H (211Q NC.SetUserDataPropList 205Q NC.DeactivateCard 177Q NC.PutLinks 163Q NC.CardNeedsFilingP 156Q NC.SetFromLinks 153Q NC.FetchUserDataProp 142Q NC.SetToLinks 137Q NC.FetchUserDataProp 126Q NC.SetGlobalLinks 123Q NC.FetchUserDataProp 105Q NC.FetchStatus 100Q NC.PrintMsg 56Q CHARACTER 41Q \FZEROP 24Q REMAINDER 11Q BLOCK 2 BLOCK) (150Q ScavengerFromLinks 134Q ScavengerToLinks 120Q ScavengerGlobalLinks 110Q ACTIVE) ( 74Q "." 67Q " out of " 62Q "Rewriting links for item " 51Q "Repairing NoteFile.") NC.ScavengeDatabaseFileA0001 D1 (NAME ERRORSET P 30Q ToLink P 26Q GlobalLink P 24Q Link P 17Q SourceCard P 16Q ThisCardsGlobalLinks P 15Q ThisCardsToLinks P 14Q Link P 12Q BoxToReconstruct P 10Q Box P 7 Card P 6 ToBeFiledCards P 5 ReconstructGlobalLinks P 4 ReconstructLinks P 3 DiscoveredLinkLabels P 2 OldLinkLabels P 1 NoteCardNumber P 0 CardTotal F 31Q NoteFile F 32Q InterestedWindow F 33Q RESETVARSLST F 34Q ListOfBoxesToReconstruct F 35Q RESETY F 36Q BadLinkLabelsFlg F 37Q ListOfCardsNeedingGlobalLinksReconstructed F 40Q FileName) gW2hhhW6c6pWdOgi W8dOgi W2 kٸW4iol okoHo jW2g W8 OMAO]W4iol okoHo jW2g W4iol okoHo jW2g N"W4ioN o NW2 KJ W2KJ W2i W4ioW@ o N:W4hoN o *_gW2oihO OgOg LAO !O" O Oi O__(OO( O(O _&O$O&h_$_"O _ O&&_$_O_g _O*>iOgOO Og _O.5iOgOO O_E_,OO, hO*_*_0OO0 hO._.W4i c:i(1220Q NC.ClearMsg 1177Q NC.SameLinkP 1167Q BLOCK 1145Q NC.SameLinkP 1135Q BLOCK 1115Q NC.SetUserDataProp 1063Q NC.FetchUserDataProp 1052Q NC.SetUserDataProp 1020Q NC.FetchUserDataProp 1000Q BLOCK 732Q NC.MakeChildLink 714Q NC.SameCardP 677Q BLOCK 657Q NC.DeactivateCard 650Q NC.PutMainCardData 642Q NC.SetUserDataProp 637Q \APPEND2 620Q NC.FetchUserDataProp 602Q NC.MakeNoteCard 560Q BLOCK 546Q NC.PrintMsg 536Q LENGTH 515Q NC.PrintMsg 505Q FULLNAME 470Q NC.CheckpointDatabase 461Q NC.StoreLinkLabels 456Q UNION 446Q LDIFFERENCE 440Q NCP.FileCards 424Q NC.PrintMsg 414Q LENGTH 375Q MAPHASH 355Q NC.PrintMsg 333Q CHARACTER 316Q MAPHASH 276Q NC.PrintMsg 254Q CHARACTER 202Q MAPHASH 162Q NC.PrintMsg 140Q CHARACTER 105Q NC.SetUserDataProp 57Q NC.SetUserDataProp 35Q NC.RetrieveLinkLabels) (1105Q ScavengerToLinks 1060Q ScavengerToLinks 1042Q ScavengerGlobalLinks 1015Q ScavengerGlobalLinks 1006Q Link 723Q Link 707Q Link 615Q ScavengerToLinks 610Q ScavengerToLinks 564Q FileBox 433Q NoteFile 372Q NC.ScavengeDatabaseFileA0001A0006 365Q NoteFile 313Q NC.ScavengeDatabaseFileA0001A0004 306Q NoteFile 177Q NC.ScavengeDatabaseFileA0001A0002 172Q NoteFile 117Q NoteFile 101Q NeedsReconstructingFlg 53Q NeedsGlobalLinksReconstructedFlg 2 NC.ForceDatabaseClose) ( 572Q "Untitled: Reconstructed during repair" 542Q " cards in ToBeFiled box." 532Q "Filed " 511Q "." 500Q "Repair Completed for " 420Q " cards in ToBeFiled box ..." 410Q "Filing " 351Q "." 344Q " out of " 337Q "Rewriting links for item " 326Q "Repairing NoteFile." 272Q "." 265Q " out of " 260Q "Inverting links for item " 247Q "Repairing NoteFile." 156Q "." 151Q " out of " 144Q "Collecting Links for item " 133Q "Rebuilding notefile links.") NC.ScavengeDatabaseFile D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 FileName P 0 NoteFile I 4 InterestedWindow I 3 ListOfCardsNeedingGlobalLinksReconstructed I 2 ListOfBoxesToReconstruct I 1 BadLinkLabelsFlg I 0 NoteFileOrFileName F 5 LISPXHIST F 6 RESETVARSLST) j @d`XYd .IhihdddidhD XDhoIol o hU!Vog hg\ Lh(146Q ERROR! 137Q RESETRESTORE 125Q NC.ScavengeDatabaseFileA0001 104Q NC.PrintMsg 74Q CHARACTER 51Q NC.OpenNoteFile 30Q NC.NoteFileOpenP 5 SPAWN.MOUSE) (133Q ERROR 122Q INTERNAL 21Q NoteFile 13Q NoteFileTYPE#) ( 117Q (NC.ScavengeDatabaseFileA0001) 100Q "Repair aborted." 67Q "." 62Q "Couldn't open ") NC.CompactNoteFileToTargetA0001 D1 (NAME ERRORSET P 4 BytesRecovered P 3 TargetFileLength P 2 FromFileLength P 1 TargetStream P 0 OriginalStream F 5 ToNoteFile F 6 FromNoteFile F 7 RESETVARSLST F 10Q InterestedWindow F 11Q OperationMsg F 12Q RESETY) gVhhhWcgUhhhWcVU2UV IU V UhddWW H VIVWiW VHUI [UVU JKռhiVoUl oLoLJldjol Wi Uci(334Q NC.ClearMsg 325Q NC.PrintMsg 321Q CHARACTER 267Q CHARACTER 233Q NC.PutNoteFileHeader 206Q GETEOFPTR 165Q NCLocalDevice.PutHashArray 143Q GETEOFPTR 133Q NC.CopySortedCardParts 117Q NC.SortIndexEntries 112Q SETFILEPTR 107Q NC.TotalIndexSize) (260Q NoteFile 246Q NoteFile 222Q NoteFile 216Q NoteFile 202Q NoteFile 172Q NoteFile 150Q NoteFile 102Q NoteFile 70Q NoteFile 64Q NoteFile 53Q NoteFile 45Q NoteFile 23Q NC.ForceDatabaseClose 2 NC.ForceDatabaseClose) ( 314Q "%%)" 300Q " bytes (" 273Q "Recovered " 254Q " compacted to ") NC.CompactNoteFileToTarget D1 (P 4 RESETZ P 3 RESETY P 2 LISPXHIST P 1 OperationMsg P 0 ToNoteFile I 2 InterestedWindow I 1 ToFileName I 0 FromNoteFile F 5 LISPXHIST F 6 RESETVARSLST) p @hiddhiddBhddi bo@l YA@ @IihiB hiddddddB XU!Vog hg\ LK(153Q ERROR! 146Q RESETRESTORE 134Q NC.CompactNoteFileToTargetA0001 114Q NC.OpenNoteFile 77Q NC.CreateDatabaseFile 56Q NC.ComputeNewDatabaseIndexSize 50Q CONCAT 45Q CHARACTER 24Q NC.OpenNoteFile) (142Q ERROR 131Q INTERNAL 64Q NoteFile 36Q NoteFile) ( 126Q (NC.CompactNoteFileToTargetA0001) 32Q "Compacting ") (PRETTYCOMPRINT RHTPATCH217COMS) (RPAQQ RHTPATCH217COMS ((* * Fixes bug #375: 3rd phase of inspector closes notefile when aborted. Can't do the RESETLST thing for 1st phase, but hopefully no breaks should occur during phase1. Also recovers Kirk's lost fix from KIRKPATCH033. Also stops removing notefiles from Notefiles hash array at the end of compacting.) (FILES (FROM NOTECARDS) NCREPAIR NCCOMPACT) (* * Changes to NCREPAIR) (FNS NC.ScavengeDatabaseFile) (* * Changes to NCCOMPACT) (FNS NC.CompactNoteFileToTarget))) (FILESLOAD (FROM NOTECARDS) NCREPAIR NCCOMPACT) (PUTPROPS RHTPATCH217 COPYRIGHT ("Xerox Corporation" 1987)) NIL