(FILECREATED "25-Jun-87 14:20:14" ("compiled on " {QV}1.3K>NEXT>PMIPATCH048.;3) "12-Nov-85 14:59:23" recompiled changes: NC.CreateNoteFile NC.CompactNoteFileToTarget in "INTERLISP-D 12-Jun-87 ..." dated "12-Jun-87 10:12:34") (FILECREATED "25-Jun-87 14:19:17" {QV}1.3K>NEXT>PMIPATCH048.;3 36137 changes to: (FNS NC.CompactNoteFileToTarget NC.CreateNoteFile) (VARS PMIPATCH048COMS) previous date: "24-Jun-87 17:54:47" {QV}1.3K>NEXT>PMIPATCH048.;1) (NC.LoadFileFromDirectories (QUOTE NCCOMPACT)) NC.CreateNoteFileA0003 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 SizeInCards F 3 QuietFlg F 4 InterestedWindow F 5 OperationMsg) Q*QRTUSlHhNIL (10Q NoteFileDevice 3 NoteFile) () NC.CreateNoteFileA0005 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 SizeInCards F 3 QuietFlg F 4 InterestedWindow F 5 OperationMsg) Q* QRTUSlHhNIL (10Q NoteFileDevice 3 NoteFile) () NC.CreateNoteFile D1 (P 3 ReturnValue P 2 NoteFileFullName P 1 NoteFileName P 0 NoteFile I 12Q MenuPosition I 11Q Don'tCreateInterfaceFlg I 10Q ReadOnlyFlg I 7 OpenFlg I 6 PublicOrPrivate I 5 QuietFlg I 4 OperationMsg I 3 InterestedWindow I 2 Don'tCreateSpecialCards I 1 SizeInCards I 0 NoteFileOrFileName) q @d`ooidhC Ydgg qIg ZeCioJol ghgJ g oJo oohCi +Chol ` Ci gIIg @`@J ``dL*XdHg HJHh(Hl HF ECiDooJo oi [`4BHk H HEiCD oi [`EChol Ci HddMHdNH_dOH*_dO*dh(dh&dh$dh"dh dhdhdhdhdhdhdhdjdj djdj djdhhGGHGC H GHhihddGhCFGEGhi ghgH HooK KooKo K(1155Q NC.ReportError 1152Q CONCAT 1130Q NC.ReportError 1125Q CONCAT 1104Q PACKFILENAME 1063Q NC.OpenNoteFile 1030Q NC.NoticeNoteFile 1023Q NC.SetUpNoteFileInterface 554Q NC.ClearMsg 546Q NC.PrintMsg 543Q CHARACTER 512Q NC.CreateNoteFileA0005 501Q NC.CheckpointNoteFile 467Q NC.InitializeSpecialCards 436Q NC.CreateNoteFileA0003 425Q NC.PrintMsg 374Q NC.InstallDeviceVectorInNoteFile 365Q NC.CreateUIDHashArray 334Q CREATE.MONITORLOCK 320Q NC.MakeUID 270Q NC.NoteFileFromFileName 251Q FULLNAME 234Q NC.ClearMsg 226Q DISMISS 217Q NC.PrintMsg 214Q CHARACTER 177Q NC.AskYesOrNo 160Q CONCAT 143Q FULLNAME 135Q PACKFILENAME 121Q NC.PrintMsg 115Q CHARACTER 72Q FULLNAME 61Q FILENAMEFIELD 43Q NC.DatabaseFileName) (1107Q NC.DatabaseFileNameSuggestion 1077Q NoteFile 1073Q BODY 1067Q VERSION 634Q NoteFile 615Q NoteFile 601Q NoteFile 571Q NoteFile 562Q NoteFile 520Q NoteFileTYPE# 457Q NoteFile 444Q NoteFileTYPE# 360Q NoteFile 351Q NoteFile 342Q NoteFile 331Q Creating% NoteFile 326Q NoteFile 315Q NoteFile 301Q NoteFileDeviceTYPE# 275Q NoteFileTYPE# 257Q NoteFileTYPE# 246Q NEW 237Q CreateCancelled 223Q NC.MsgDelay 140Q NEW 131Q BODY 125Q VERSION 67Q OLD 56Q VERSION 52Q CreateCancelled 15Q NoteFile 10Q NoteFileTYPE#) ( 1147Q " error." 1142Q "Could not create NoteFile due to " 1136Q "NC.CreateNoteFile" 1121Q "Could not close notefile after it was created because: " 1115Q "NC.CreateNoteFile" 536Q "Done!" 506Q (NC.CreateNoteFileA0005) 432Q (NC.CreateNoteFileA0003) 421Q ". Please wait... " 414Q "Creating NoteFile " 410Q "" 207Q "Create cancelled." 170Q "N" 164Q " -- " 155Q " (next available version)?" 150Q "Do you want to create " 110Q " already exists." 103Q "NoteFile " 33Q " -- " 27Q "What is the name of the file to be created?") NC.OpenNoteFileA0003A0004 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 InterestedWindow F 3 Don'tCheckForTruncationFlg F 4 ReturnValue) Q*QRSlHciNIL (10Q NoteFileDevice 3 NoteFile) () NC.OpenNoteFileA0003A0006 D1 (NAME ERRORSET F 0 NoteFile) hPo h(20Q NC.ReportError 15Q CONCAT) (4 NoteFile) ( 12Q " is already open for exclusive access. Open failed.") NC.OpenNoteFileA0003A0007 D1 (NAME ERRORSET F 0 NoteFile) hoPo h(24Q NC.ReportError 21Q CONCAT) (10Q NoteFile) ( 16Q " failed for unknown reason." 4 "Open of ") NC.OpenNoteFileA0003A0008 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) hoPoQo  h(32Q NC.ReportError 27Q CONCAT) (10Q NoteFile) ( 23Q ". Contact a NoteCards wizard." 16Q " is bad: " 4 "Header of NoteFile ") NC.OpenNoteFileA0003A0009 D1 (NAME ERRORSET F 0 ReturnValue F 1 FileName) hoPoQ h(20Q NC.ReportError 15Q CONCAT) NIL ( 11Q ") returned by OpenNoteFileFn for NoteFile " 4 "Unknown error code (") NC.OpenNoteFileA0003A0010 D1 (NAME ERRORSET L (0 NIL) F 1 NoteFile F 2 QuietFlg F 3 InterestedWindow F 4 ReturnValue) .Q*QRSoQl lHci(42Q CONCAT 37Q CHARACTER) (30Q NoteFile 10Q NoteFileDevice 3 NoteFile) ( 24Q "Opening NoteFile ") NC.OpenNoteFileA0003A0012 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) hoPoQ i(25Q NC.ReportError 22Q CONCAT) (10Q NoteFile) ( 16Q " because " 4 "Build Hash Array failed for NoteFile ") NC.OpenNoteFileA0003 D1 (NAME ERRORSET P 3 NF P 2 Function P 0 OpInProgress F 4 NoteFile F 5 InterestedWindow F 6 ReturnValue F 7 FileName F 10Q QuietFlg F 11Q RESETVARSLST F 12Q PublicOrPrivate F 13Q ReadOnlyFlg F 14Q CriticalUIDs F 15Q Don'tCacheTypesAndTitlesFlg F 16Q Don'tCreateArrayFlg F 17Q Don'tCreateInterfaceFlg F 20Q Don'tGetSpecialCardsFlg F 21Q MenuPosition F 22Q Don'tCreateFlg F 23Q ConvertNoConfirmFlg F 24Q Can'tTruncateFlg F 25Q Don'tCheckForTruncationFlg F 26Q NC.LockLock F 27Q NC.NoteFileBusyList F 30Q NC.NoteFilesHashArray F 31Q RESETY) W, T HdgTgTg hTgo hWcgTgTg hTg hWcoW.c.hWcW, HHgTW TW(WUioWol `I7hYU UhoWol ` Ui h\ZdgWTgUlJgJiIYoi gc VlnVchc WW0[rTKaK Y` `ioWl oKol o TUi hVdg0T U c TWW$W&WW(WW UWW"WWW* dg$TWW$W&WW(WW UWW"WWW* dg#TWW$W&WW(WW UWW"WWW* Wdgoi Fdgoi 5dgdgdgdgdgoi oi Vc d`ɿU %UhoWol ` Ui VTWT W=WUioWl ol oi V`oi hKTW W TWUoTl WTgTh "WTW"U Tc `f`IWTgUlJg+W#UioWl ol Ui TIYU T oH gc2i(1655Q NC.PrintOperationInProgressMsg 1645Q NC.CoerceToInterestedWindow 1637Q OPENWP 1622Q NC.ClearMsg 1614Q NC.PrintMsg 1610Q CHARACTER 1577Q CHARACTER 1477Q NC.SetUpNoteFileInterface 1462Q ADD.PROCESS 1437Q NC.GetSpecialCards 1434Q CONCAT 1431Q CHARACTER 1401Q NC.InstallCriticalUIDsInNoteFile 1367Q NC.OpenNoteFileA0003A0012 1347Q NC.OpenNoteFileA0003A0010 1336Q NC.PrintMsg 1332Q CHARACTER 1321Q CHARACTER 1273Q NC.NoticeNoteFile 1247Q NC.ClearMsg 1241Q DISMISS 1232Q NC.PrintMsg 1226Q CHARACTER 1203Q WINDOWP 1157Q NC.OpenNoteFileA0003A0009 1145Q NC.OpenNoteFileA0003A0008 1072Q NC.OpenNoteFileA0003A0007 1051Q NC.OpenNoteFileA0003A0006 1030Q NC.ProcessNoteFileNeedsTruncationError 757Q NC.ProcessNoteFileNeedsConversionError 706Q NC.ProcessNoteFileNotFoundError 645Q NC.CoerceToInterestedWindow 640Q NC.RemoveAccessToNoteFile 616Q NC.CloseNoteFile 607Q NC.PrintMsg 577Q CHARACTER 554Q CHARACTER 534Q FLASHW 522Q NC.NoteFileOpenP 431Q NC.OpenNoteFileA0003A0004 346Q NC.ClearMsg 340Q DISMISS 331Q NC.PrintMsg 325Q CHARACTER 276Q WINDOWP 253Q NC.PrintMsg 247Q CHARACTER 210Q NC.InstallDeviceVectorInNoteFile 166Q RELEASE.MONITORLOCK 143Q THIS.PROCESS 123Q NC.NoteFileProp 120Q THIS.PROCESS 104Q NC.NoteFileProp 55Q NC.NoteFileProp 35Q NC.NoteFileProp 11Q NC.NoteFileCheckOpInProgress 4 OBTAIN.MONITORLOCK) (1661Q DON'T 1552Q DON'T 1541Q AFTER 1520Q NC.OpenNoteFileFns 1512Q NoteFileTYPE# 1504Q NC.LastNoteFileOpened 1453Q NC.CacheTypesAndTitles 1450Q NoteFile 1422Q NoteFile 1355Q NoteFileTYPE# 1261Q NoteFile 1236Q NC.MsgDelay 1171Q NoteFileTYPE# 1132Q BadNextLinkNum 1124Q BadCheckptPtr 1116Q BadHashArraySize 1107Q BadNextIndexNum 1100Q NoteFileHeaderBad 1057Q NoteFileOpenFailed 1036Q NoteFileAlreadyOpen 766Q NoteFileNeedsTruncation 715Q NoteFileNeedsConversion 630Q NoteFileNotFound 564Q NoteFile 540Q PROMPTWINDOW 531Q PROMPTWINDOW 507Q NoteFile 501Q NoteFile 435Q NoteFileOpenFailed 404Q DON'T 373Q BEFORE 361Q DON'T 335Q NC.MsgDelay 257Q NC.OpenNoteFileFns 215Q NoteFile 175Q US 115Q ProcessInProgress 101Q ProcessInProgress 75Q ProcessInProgress 71Q NC.NoteFileProp 46Q OperationInProgress 32Q OperationInProgress 26Q OperationInProgress 22Q NC.NoteFileProp) ( 1651Q "Open NoteFile" 1603Q "Done." 1570Q "Opening NoteFile: " 1416Q "Opening NoteFile: " 1363Q (NC.OpenNoteFileA0003A0012) 1343Q (NC.OpenNoteFileA0003A0010) 1325Q "Building index array ..." 1312Q "Opening NoteFile: " 1221Q "." 1213Q "Open canceled for NoteFile " 1153Q (NC.OpenNoteFileA0003A0009) 1141Q (NC.OpenNoteFileA0003A0008) 1066Q (NC.OpenNoteFileA0003A0007) 1045Q (NC.OpenNoteFileA0003A0006) 603Q "and has the same UID." 572Q " is already open " 560Q "because " 545Q "Couldn't open " 425Q (NC.OpenNoteFileA0003A0004) 320Q "." 312Q "Open canceled for NoteFile " 242Q " ..." 234Q "Opening NoteFile: " 140Q (SETQ NC.NoteFileBusyList (DREMOVE (THIS.PROCESS) NC.NoteFileBusyList)) 52Q "Open NoteFile") NC.OpenNoteFile D1 (P 14Q RESETZ P 13Q RESETY P 12Q LISPXHIST P 10Q CriticalUIDs P 7 ReturnValue P 6 NoteFileMenu P 5 NewVersion P 4 OldVersion P 3 NewerFileName P 2 FileName P 1 NoteFile P 0 TempInterestedWindow I 16Q Don'tCheckVersionFlg I 15Q Don'tCheckForTruncationFlg I 14Q ReadOnlyFlg I 13Q QuietFlg I 12Q MenuPosition I 11Q PublicOrPrivate I 10Q InterestedWindow I 7 Don'tGetSpecialCardsFlg I 6 Don'tCreateInterfaceFlg I 5 Can'tTruncateFlg I 4 Don'tCreateArrayFlg I 3 ConvertNoConfirmFlg I 2 Don'tCreateFlg I 1 Don'tCacheTypesAndTitlesFlg I 0 NoteFileOrFileName F 15Q LISPXHIST F 16Q RESETVARSLST) d G@  @d`ooihdH Zdgg g?J 9GiJol oJo oohGi Gi hJ FJ GH Hi hG$Jg \ghgJ [g ] @`R@fLHioJol oKo oohHi KZ bJ ^@N J ``_dO*YdJGI bW! Wog hg_ OO(536Q ERROR! 530Q RESETRESTORE 515Q NC.OpenNoteFileA0003 471Q NC.CoerceToInterestedWindow 427Q NC.NoteFileFromFileName 420Q NC.SetNoteFileMenu 410Q NC.GetNoteFileMenu 401Q NC.NoteFileFromFileName 372Q NC.AskYesOrNo 353Q CONCAT 336Q NC.PrintMsg 332Q CHARACTER 270Q FILENAMEFIELD 261Q FULLNAME 256Q PACKFILENAME 240Q FILENAMEFIELD 223Q NC.ClearMsg 215Q NC.SetUpNoteFileInterface 207Q NC.NoteFileFromFileName 177Q NC.NoteFileOpenP 171Q NC.ClearMsg 162Q NC.AskYesOrNo 142Q CONCAT 125Q NC.PrintMsg 121Q CHARACTER 102Q NC.NoteFileNoticedP 70Q U-CASE 65Q FILENAMEFIELD 53Q NC.DatabaseFileName 7 NC.CoerceToInterestedWindow) (523Q ERROR 512Q INTERNAL 457Q NoteFile 440Q NoteFileDeviceTYPE# 434Q NoteFileTYPE# 300Q NoteFileTYPE# 265Q VERSION 252Q BODY 246Q VERSION 235Q VERSION 73Q NOTEFILE 62Q EXTENSION 25Q NoteFile 20Q NoteFileTYPE#) ( 507Q (NC.OpenNoteFileA0003) 363Q "No" 357Q " -- " 350Q " instead? (Highest version)" 343Q "Open " 325Q " exists." 320Q "A higher version of " 152Q "No" 146Q " -- " 137Q " as a NoteFile?" 132Q "Are you sure you want to open " 114Q " does not have a .NOTEFILE extension." 43Q " -- " 37Q "Name of NoteFile to open:") NC.CompactNoteFileToTargetA0001 D1 (NAME ERRORSET P 4 BytesRecovered P 3 TargetFileLength P 2 FromFileLength P 1 TargetStream P 0 OriginalStream F 5 FromNoteFile F 6 ToNoteFile F 7 RESETVARSLST F 10Q InterestedWindow F 11Q OperationMsg F 12Q RESETY) gUhhhWcgVhhhWcUV2VU IV U VhddWW H UIUWiW UHVI [VUV JKռU V hiUoVl oLoLJldjol Wi ci(350Q NC.ClearMsg 341Q NC.PrintMsg 335Q CHARACTER 303Q CHARACTER 253Q NC.NoticeNoteFile 246Q NC.NoticeNoteFile 235Q NC.PutNoteFileHeader 210Q GETEOFPTR 167Q NCLocalDevice.PutHashArray 145Q GETEOFPTR 133Q NC.CopySortedCardParts 117Q NC.SortIndexEntries 112Q SETFILEPTR 107Q NC.TotalIndexSize) (274Q NoteFile 262Q NoteFile 224Q NoteFile 220Q NoteFile 204Q NoteFile 174Q NoteFile 152Q NoteFile 102Q NoteFile 70Q NoteFile 64Q NoteFile 53Q NoteFile 45Q NoteFile 23Q NC.ForceDatabaseClose 2 NC.ForceDatabaseClose) ( 330Q "%%)" 314Q " bytes (" 307Q "Recovered " 270Q " 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) ~ @iddhdidBhddi bfo@l A@IihiBhdddi XdghiddddddBhddddi U!Vog hg\ LH(172Q ERROR! 164Q RESETRESTORE 152Q NC.CompactNoteFileToTargetA0001 132Q NC.OpenNoteFile 77Q NC.CreateDatabaseFile 51Q CONCAT 46Q CHARACTER 23Q NC.OpenNoteFile) (160Q ERROR 147Q INTERNAL 104Q CreateCancelled 57Q NoteFile 37Q NoteFile) ( 144Q (NC.CompactNoteFileToTargetA0001) 33Q "Compacting ") NCLocalDevice.CompactNoteFile D1 (P 3 FileName P 2 AutoloadFnEntry P 1 ToNoteFile P 0 FromFileName I 3 PromptWindow I 2 InPlaceFlg I 1 ToFileName I 0 FromNoteFile)  @ooihdC C `@@XB/ghgH AooihdC C bHBAHg X bH @ CioHo Bvg @HClgg Joogo t[J g @HClgooKog g @HAClg$g J"oogo YCi I[J g @HAClgooKog (600Q CONCAT 535Q \DEFINEDP 526Q NC.LoadFileFromDirectories 505Q NC.ClearMsg 474Q NC.ReportError 471Q CONCAT 441Q NC.LookupAutoloadFnFile 413Q \DEFINEDP 403Q CONCAT 341Q \DEFINEDP 332Q NC.LoadFileFromDirectories 310Q NC.ReportError 305Q CONCAT 255Q NC.LookupAutoloadFnFile 227Q \DEFINEDP 215Q NC.PrintMsg 175Q NC.CloseDatabaseFile 170Q OPENP 161Q NC.NoteFileFromFileName 155Q FULLNAME 126Q NC.ClearMsg 122Q NC.DatabaseFileName 73Q PACKFILENAME 70Q FULLNAME 31Q NC.ClearMsg 25Q NC.DatabaseFileName) (575Q NC.CompactNoteFileToTarget 551Q NC.CompactNoteFileToTarget 532Q NC.CompactNoteFileToTarget 521Q AutoloadFnEntry 512Q AutoloadFnEntry 462Q NC.CompactNoteFileToTarget 436Q NC.CompactNoteFileToTarget 427Q NC.CompactNoteFileToTarget 410Q NC.CompactNoteFileToTarget 400Q NC.CompactNoteFileInPlace 354Q NC.CompactNoteFileInPlace 336Q NC.CompactNoteFileInPlace 325Q AutoloadFnEntry 316Q AutoloadFnEntry 276Q NC.CompactNoteFileInPlace 252Q NC.CompactNoteFileInPlace 242Q NC.CompactNoteFileInPlace 224Q NC.CompactNoteFileInPlace 152Q OLD 76Q NC.DatabaseFileNameSuggestion 64Q BODY 60Q VERSION 45Q NoteFile 37Q NoteFileTYPE#) ( 572Q ", but still no definition of " 565Q "Loaded file " 561Q "NC.AutoloadApply*" 466Q " in table of autoloadable functions." 457Q "No definition of " 453Q "NC.AutoloadApply*" 375Q ", but still no definition of " 370Q "Loaded file " 364Q "NC.AutoloadApply*" 302Q " in table of autoloadable functions." 273Q "No definition of " 267Q "NC.AutoloadApply*" 211Q " ..." 204Q "Compacting " 112Q " -- " 106Q "Name of target of compaction:" 15Q " -- " 11Q "Name of NoteFile to be compacted:") (PRETTYCOMPRINT PMIPATCH048COMS) (RPAQQ PMIPATCH048COMS ((* * pmi 6/24/87: Fixes bug #620: Compact to target defaults to wrong version. It turns out that FULLNAME is buggy when you use if for file server files, so I had to do some version checking more carefully.) (DECLARE: FIRST (P (NC.LoadFileFromDirectories (QUOTE NCCOMPACT)))) (* * Changed in NCDATABASE) (FNS NC.CreateNoteFile NC.OpenNoteFile) (* * Changed in NCCOMPACT) (FNS NC.CompactNoteFileToTarget) (* * Changed in NCLOCALDEVICE) (FNS NCLocalDevice.CompactNoteFile))) (PUTPROPS PMIPATCH048 COPYRIGHT ("Xerox Corporation" 1987)) NIL