(FILECREATED "16-May-87 01:16:24" ("compiled on " {QV}1.3K>NEXT>RHTPATCH262.;8) "12-Nov-85 14:59:23" recompiled changes: NC.CheckForExpandIndex NC.FindNextCardPart NC.CopyCardPartInPlaceToEOF NC.UpdateIndexLocIfNeeded NC.ExpandIndexInPlace NC.CopyCardPart NCLocalDevice.NewCardUID NC.CompactNoteFileInPlace NC.CompactNoteFileToTarget in "LOOPS/KOTO 12-May-87 ..." dated "12-May-87 19:40:54") (FILECREATED "16-May-87 01:16:05" {QV}1.3K>NEXT>RHTPATCH262.;8 31742 changes to: (VARS RHTPATCH262COMS) (FNS NC.ExpandIndexInPlace NC.CheckForExpandIndex NC.FindNextCardPart NC.CompactNoteFileInPlace NC.CompactNoteFileToTarget NC.CopyCardPartInPlaceToEOF NC.UpdateIndexLocIfNeeded NC.CopyCardPart NCLocalDevice.NewCardUID) (RECORDS CardPartRecord) previous date: "15-May-87 15:15:02" {QV}1.3K>NEXT>RHTPATCH262.;1) (NC.LoadFileFromDirectories (QUOTE NCCOMPACT)) NC.CheckForExpandIndex D1 (P 21Q IndexFullFlg P 20Q ActualNumNewSlots P 17Q NewNum P 16Q NumNewSlots P 15Q NewIndexSize P 14Q PercentFullMessage P 13Q IndexNum P 12Q PromptWindow P 11Q Menu P 4 NumUsed P 3 PercentUsed P 2 IndexNumsFreeList P 1 IndexSize P 0 NextIndexNum I 2 InterestedWindow I 1 QuietFlg I 0 NoteFile) 8B@ b@ @@$cHJ k\Ildj[``dhdodi dkdkdkd`` l _gl g dM$dg dgjdndhdN d OB `rId`j__ILh_"-@oLoIol _Oo0@oKoLoIol _OoBiO BhoOol OO O _Ok dgv@hdBol @OhB _ &` O"hio 1io 'OO !` hioO oOoh Bi OdgBi hdgBi &gohddi _3 OjIO__(1033Q RNUMBER 1004Q ERROR! 1000Q NC.ClearMsg 762Q NC.ClearMsg 743Q NC.ClearMsg 735Q NC.PrintMsg 705Q FLASHW 666Q NC.PrintMsg 654Q ERROR! 650Q NC.PrintMsg 632Q FLASHW 620Q NC.ExpandIndexInPlace 607Q NC.CheckpointNoteFile 603Q CONCAT 600Q CHARACTER 553Q MENU 550Q CREATEPOSITION 530Q WINDOWREGION 522Q WINDOWREGION 512Q NC.PrintMsg 507Q CONCAT 504Q CHARACTER 462Q NC.PrintMsg 434Q CONCAT 430Q CHARACTER 354Q CONCAT 350Q CHARACTER 261Q NC.AttachPromptWindow 173Q FONTCREATE 152Q FONTHEIGHT 42Q LENGTH 5 NC.CoerceToInterestedWindow) (1012Q Change% Num 770Q Cancel 752Q No 702Q PROMPTWINDOW 627Q PROMPTWINDOW 557Q Yes 444Q MENU 376Q NoteFile 364Q MENU 323Q NoteFile 276Q NC.IndexFractionToExpandBy 266Q PROMPTWINDOW 244Q MENU 214Q DEFAULTMENUHELDFN 205Q CLRPROMPT 170Q BOLD 163Q HELVETICA 147Q NC.MenuFont 141Q NC.MenuFont 73Q MENUTYPE# 61Q NC.IndexPercentUsedThreshold 30Q NoteFile 22Q NoteFile 14Q NoteFile) ( 1023Q "Number of new cards to add" 730Q " requested." 722Q " new cards out of " 714Q "Only able to make room for " 663Q "Couldn't expand index." 645Q "Couldn't expand index. Card creation operation canceled." 573Q "Expanding notefile index" 477Q " new cards?" 471Q "Okay to checkpoint notefile and make room for " 450Q ((Yes (QUOTE Yes) "Go ahead and expand index to make room for new cards.") (No (QUOTE No) "Continue without expanding index.") (Change% Num (QUOTE Change% Num) "Change the number of new cards to expand index by.")) 423Q " cards used)." 416Q " out of " 411Q "%% full (" 404Q " is " 370Q ((Yes (QUOTE Yes) "Go ahead and expand index to make room for new cards.") (Cancel (QUOTE Cancel) "Cancel creation of new card.") (Change% Num (QUOTE Change% Num) "Change the number of new cards to expand index by.")) 343Q " cards used)." 336Q " out of " 331Q " is full (" 106Q " Expand notefile index? ") NC.FindNextCardPart D1 (P 7 CardPartTypeNum P 6 CardPartLength P 5 UID P 4 IdentifierAtom P 3 IdentifierAndVersionNum P 2 CardPartPtr P 1 EndPtr P 0 Stream I 1 StartPtr I 0 NoteFile) @qH YHA ZH lH lH ^ZJNISH [LkKH i?H ]8K\d`j`kLd`l`l_JMONhHJl Zh(204Q NC.SearchFor### 103Q NC.RobustReadUID 73Q NC.RobustReadDate 57Q NC.RobustReadItemIdentifier 22Q NC.SearchFor### 14Q GETEOFPTR) (151Q NC.PropsIdentifier 140Q NC.TitlesIdentifier 126Q NC.LinksIdentifier 115Q NC.ItemIdentifier 3 NoteFile) () NC.CopyCardPartInPlaceToEOFA0001 D1 (NAME ERRORSET P 2 Length P 1 EOFPtr P 0 Stream F 3 NoteFile F 4 TempStream F 5 FromPtr F 6 InterestedWindow F 7 RESETY F 10Q UID F 11Q CardPartTypeNum) BS hi S!H HTUjV THjIV SWWUI IJci(67Q NC.UpdateIndexLocIfNeeded 52Q NC.CopyCardPart 40Q NC.CopyCardPart 26Q GETEOFPTR 10Q OBTAIN.MONITORLOCK 3 NC.FetchMonitor) (15Q NoteFile) () NC.CopyCardPartInPlaceToEOF D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 CardPartTypeNum P 1 UID P 0 FromPtr I 3 InterestedWindow I 2 TempStream I 1 CardPartRecord I 0 NoteFile F 6 LISPXHIST F 7 RESETVARSLST) /AAAV!Wog hg] ML(52Q ERROR! 45Q RESETRESTORE 33Q NC.CopyCardPartInPlaceToEOFA0001) (41Q ERROR 30Q INTERNAL) ( 25Q (NC.CopyCardPartInPlaceToEOFA0001)) NC.UpdateIndexLocIfNeeded D1 (P 0 Card I 4 NewLoc I 3 OldLoc I 2 CardPartTypeNum I 1 UID I 0 NoteFile) A@ HBdjH CHD DikH CkHD DPBdlHCNHDD3lHC4HDD` hiol hHkkjh(223Q NC.PrintMsg 220Q CHARACTER 204Q FLASHW 4 NC.CardFromUID) (233Q CardObject 201Q PROMPTWINDOW 167Q CardObject 155Q CardObject 135Q CardObject 123Q CardObject 100Q CardObject 66Q CardObject 47Q CardObject 31Q CardObject) ( 213Q "Bad NoteFile. Please Inspect and Repair.") NC.ExpandIndexInPlace D1 (P 21Q NewHashArray P 20Q OldFileLoc P 16Q FileName P 15Q AutoloadFnEntry P 14Q ToPtr P 13Q CardPartRecord P 7 CTR P 5 TotalNewIndexEntries P 4 FileLoc P 3 CardPartFileLocs P 2 NewTotalIndexSize P 1 OldTotalIndexSize P 0 Stream I 4 OperationMsg I 3 InterestedWindow I 2 TempStream I 1 NewIndexSize I 0 NoteFile) Dol bBggho b@@ A CCiDol okol JH HJ I\kQ g @Llg)g Ooogo _MO\JDOld^jN(N "CiDol oOol @OBC _O[LIl]kM@Mb@ChD @A@ KOA @O" @O"M_O g @Llg5ooOog @O LdOԼ_OOh__Ok_O&__ 3+O H !HO Hj!Hj!Hj!Hj!Hj!Hj!O_7h(726Q SETFILEPTR 714Q GETEOFPTR 622Q NC.PutCheckptPtr 611Q CONCAT 550Q \DEFINEDP 541Q NC.LoadFileFromDirectories 505Q REHASH 467Q NC.CreateUIDHashArray 445Q NC.PutNoteFileHeader 432Q NCLocalDevice.PutHashArray 361Q NC.CopyCardPartInPlaceToEOF 350Q NC.PrintMsg 344Q CHARACTER 325Q CHARACTER 307Q \FZEROP 247Q NC.ReportError 244Q CONCAT 207Q NC.LookupAutoloadFnFile 165Q \DEFINEDP 156Q BLOCK 144Q SETFILEPTR 135Q GETEOFPTR 130Q NC.PrintMsg 124Q CHARACTER 106Q CHARACTER 67Q NC.TotalIndexSize 63Q NC.TotalIndexSize 41Q OPENSTREAM 15Q CONCAT 12Q CHARACTER) (606Q NC.FindNextCardPart 560Q NC.FindNextCardPart 545Q NC.FindNextCardPart 534Q AutoloadFnEntry 523Q AutoloadFnEntry 512Q NoteFile 476Q NoteFile 436Q NoteFile 415Q NoteFile 235Q NC.FindNextCardPart 204Q NC.FindNextCardPart 175Q NC.FindNextCardPart 162Q NC.FindNextCardPart 56Q NoteFile 50Q NoteFile 31Q BOTH 26Q {NODIRCORE}) ( 603Q ", but still no definition of " 575Q "Loaded file " 571Q "NC.AutoloadApply*" 337Q "." 331Q "Moving card part " 320Q "Making room for expanded index." 241Q " in table of autoloadable functions." 232Q "No definition of " 226Q "NC.AutoloadApply*" 117Q "." 112Q "Moving card part " 101Q "Making room for expanded index." 36Q ((TYPE BINARY)) 5 "Expanding Index") NC.CopyCardPartA0001 D1 (NAME ERRORSET F 0 FromStream F 1 ToStream F 2 FromPtr F 3 EndPtr) PQRS jh(6 COPYBYTES) NIL () NC.CopyCardPart D1 (P 1 EndPtr P 0 Length I 4 InterestedWindow I 3 ToPtr I 2 FromPtr I 1 ToStream I 0 FromStream)  @B AC @ l@ l@ 3 XVBHYoi HlookIBn oAg Ag ol o  D Diol h(205Q NC.PrintMsg 202Q CHARACTER 167Q FLASHW 160Q ERROR 155Q CONCAT 145Q CHARACTER 134Q FILENAMEFIELD 125Q FILENAMEFIELD 112Q MAX 62Q ERRORN 53Q NC.CopyCardPartA0001 14Q SETFILEPTR 7 SETFILEPTR) (131Q DIRECTORY 122Q HOST) ( 175Q "Bad NoteFile. Please Inspect and Repair." 151Q "Then click here, type OK, and hit RETURN" 140Q "." 116Q " pages in " 77Q "Try freeing at least " 73Q "Trouble copying card." 47Q (NC.CopyCardPartA0001)) NCLocalDevice.NewCardUID D1 (P 7 NumUsed P 6 PercentUsed P 5 IndexNum P 4 IndexNumsFreeList P 3 NextIndexNum P 2 NoteFile P 0 \NF I 0 Card) @Hd`@H YIQJ J [J$\ddLJL$KJKk @M @kkjh@`@@(174Q NC.MakeUID 131Q NC.NoteFileLocFromIndexNum 47Q NC.CheckForExpandIndex 32Q NC.NoteFileFromNoteFileUID) (171Q CardObject 163Q UIDTYPE# 155Q CardObject 137Q CardObject 125Q CardObject 113Q NoteFile 101Q NoteFile 62Q NoteFile 53Q NoteFile 26Q CardObject 16Q NoteFileTYPE# 3 CardObject) () NC.CompactNoteFileInPlaceA0001 D1 (NAME ERRORSET P 6 NumBytesSaved P 5 OperationMsg P 4 OriginalLengthOfFile P 3 ToPtr P 2 FullFileName P 1 BufferStream P 0 SourceStream F 7 NoteFile F 10Q InterestedWindow F 11Q RESETVARSLST F 12Q RESETY F 13Q NC.DatabaseFileNameSuggestion) LgWhhhWcWggho W3oJol H W hW IH WM [WK WioJo WWiM JgK WhoJol Wiol Wi LKjN+hiJol oN oN Lldjo"iJol oNoNLldjol ghgJ c` hioJo ci(505Q NC.PrintMsg 465Q FLASHW 453Q PACKFILENAME 437Q NC.PrintMsg 433Q CHARACTER 401Q CHARACTER 351Q MINUS 341Q MINUS 331Q CHARACTER 301Q NC.ClearMsg 272Q NC.PrintMsg 267Q CHARACTER 251Q NC.PrintMsg 245Q CHARACTER 222Q SETFILEINFO 211Q NCLocalDevice.PutHashArray 177Q NC.PrintMsg 156Q NC.PutCheckptPtr 143Q NC.CopySortedCardParts 134Q GETEOFPTR 127Q NC.TotalIndexSize 114Q NC.SortIndexEntries 106Q GETEOFPTR 101Q CONCAT 76Q CHARACTER 46Q OPENSTREAM) (462Q PROMPTWINDOW 447Q BODY 443Q VERSION 216Q LENGTH 122Q NoteFile 53Q NoteFile 36Q BOTH 33Q {NODIRCORE} 26Q NoteFile 2 NC.ForceDatabaseClose) ( 501Q " cancelled." 474Q "Compact of " 426Q "%%)" 412Q " bytes (" 405Q "Recovered " 374Q " compacted in place." 364Q "%%)" 345Q " bytes (" 335Q "Increased by " 324Q " compacted in place." 262Q "Done." 240Q "." 233Q "Couldn't truncate " 173Q " ..." 166Q "Truncating file " 71Q " in place." 64Q "Compacting " 43Q ((TYPE BINARY))) NC.CompactNoteFileInPlace D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 InterestedWindow I 0 NoteFile F 3 LISPXHIST F 4 RESETVARSLST) 7@d3hidhdiddA b"S!Tog hgZ JI(62Q ERROR! 55Q RESETRESTORE 43Q NC.CompactNoteFileInPlaceA0001 20Q NC.OpenNoteFile) (51Q ERROR 40Q INTERNAL) ( 35Q (NC.CompactNoteFileInPlaceA0001)) 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) j @hiddhiddBhddi bo@l YA@IihiB hiddddddB XU!Vog hg\ LK(145Q ERROR! 140Q RESETRESTORE 126Q NC.CompactNoteFileToTargetA0001 106Q NC.OpenNoteFile 71Q NC.CreateDatabaseFile 50Q CONCAT 45Q CHARACTER 24Q NC.OpenNoteFile) (134Q ERROR 123Q INTERNAL 56Q NoteFile 36Q NoteFile) ( 120Q (NC.CompactNoteFileToTargetA0001) 32Q "Compacting ") (PRETTYCOMPRINT RHTPATCH262COMS) (RPAQQ RHTPATCH262COMS ((DECLARE: FIRST (P (NC.LoadFileFromDirectories (QUOTE NCCOMPACT)))) (* * This changes the behavior of new card creation when the index is nearly or completely full. Now it performs an ExpandIndexInPlace after getting user confirmation rather than printing a warning message. The compactor no longer ever does ExpandIndexInPlace.) (* * New stuff for NCDATABASE) (GLOBALVARS NC.IndexPercentUsedThreshold NC.IndexFractionToIncreaseBy) (INITVARS (NC.IndexPercentUsedThreshold 90) (NC.IndexFractionToExpandBy .5)) (RECORDS CardPartRecord) (FNS NC.CheckForExpandIndex NC.FindNextCardPart NC.CopyCardPartInPlaceToEOF NC.UpdateIndexLocIfNeeded) (P (NC.StoreAutoloadFnFile (FUNCTION NC.FindNextCardPart) (QUOTE NCREPAIR) (QUOTE NOTECARDSDIRECTORIES))) (* * These functions should be moved from coms of NCCOMPACT to coms of NCDATABASE.) (FNS NC.ExpandIndexInPlace NC.CopyCardPart) (* * Change to NCLOCALDEVICE) (FNS NCLocalDevice.NewCardUID) (* * Changes to NCCOMPACT) (FNS NC.CompactNoteFileInPlace NC.CompactNoteFileToTarget) (* * The function NC.CopySortedCardPartInPlaceToEOF should be removed from NCCOMPACT.))) (RPAQ? NC.IndexPercentUsedThreshold 90) (RPAQ? NC.IndexFractionToExpandBy .5) (RECORD CardPartRecord (FileLoc UID CardPartTypeNum CardPartLength)) (NC.StoreAutoloadFnFile (FUNCTION NC.FindNextCardPart) (QUOTE NCREPAIR) (QUOTE NOTECARDSDIRECTORIES)) (PUTPROPS RHTPATCH262 COPYRIGHT ("Xerox Corporation" 1987)) NIL