(FILECREATED " 3-Jun-87 14:24:02" ("compiled on " {QV}1.3K>NEXT>PMIPATCH043.;2) "12-Nov-85 14:59:23" recompiled ALL in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED " 3-Jun-87 14:22:35" {QV}1.3K>NEXT>PMIPATCH043.;2 19270 changes to: (VARS PMIPATCH043COMS) (FNS NC.OpenNoteFile NC.NoteFileNoticedP) previous date: " 2-Jun-87 12:37:03" {QV}1.3K>NEXT>PMIPATCH043.;1) 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) hoPo h(24Q NC.ReportError 21Q CONCAT) (10Q NoteFile) ( 16Q " is bad. Contact a NoteCards wizard." 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 MenuPosition F 15Q Don'tGetSpecialCardsFlg F 16Q CriticalUIDs F 17Q Don'tCacheTypesAndTitlesFlg F 20Q Don'tCreateArrayFlg F 21Q Don'tCreateInterfaceFlg F 22Q ConvertNoConfirmFlg F 23Q Don'tCreateFlg F 24Q Don'tCheckForTruncationFlg F 25Q Can'tTruncateFlg F 26Q NC.LockLock F 27Q NC.NoteFileBusyList F 30Q RESETY) W, T HdgTgTg hTgo hWcgTgTg hTg hWcoW.c.hWcW, HHgTW TW(WUioWol `I7hYU fUhoWol ` Ui h?ZdgWTgUlJgJiIYoi gc VloVchc W`[TTKCK ;` `ioWl oKol o TUi hVdg0T U c TWW&W$W W*W"WUWWWWW( dg#TWW&W$W W*W"WUWWWWW( bdg#TWW&W$W W*W"WUWWWWW( :dgoi )dgoi goi oi Vc d`ɿU %UhoWol ` Ui VTWT W =WUioWl ol oi V`oi hKTW WTWUoTl WTgTh "W"TWU Tc `q`IWTgUlJg+W#UioWl ol Ui T(IYU T c T oH gc0i(1633Q NC.PrintOperationInProgressMsg 1623Q NC.CoerceToInterestedWindow 1615Q OPENWP 1610Q NC.CoerceToInterestedWindow 1602Q OPENWP 1565Q NC.ClearMsg 1557Q NC.PrintMsg 1553Q CHARACTER 1542Q CHARACTER 1442Q NC.SetUpNoteFileInterface 1425Q ADD.PROCESS 1402Q NC.GetSpecialCards 1377Q CONCAT 1374Q CHARACTER 1344Q NC.InstallCriticalUIDsInNoteFile 1332Q NC.OpenNoteFileA0003A0012 1312Q NC.OpenNoteFileA0003A0010 1301Q NC.PrintMsg 1275Q CHARACTER 1264Q CHARACTER 1236Q NC.NoticeNoteFile 1212Q NC.ClearMsg 1204Q DISMISS 1175Q NC.PrintMsg 1171Q CHARACTER 1146Q WINDOWP 1122Q NC.OpenNoteFileA0003A0009 1111Q NC.OpenNoteFileA0003A0008 1072Q NC.OpenNoteFileA0003A0007 1051Q NC.OpenNoteFileA0003A0006 1030Q NC.ProcessNoteFileNeedsTruncationError 760Q NC.ProcessNoteFileNeedsConversionError 707Q NC.ProcessNoteFileNotFoundError 646Q NC.CoerceToInterestedWindow 641Q NC.RemoveAccessToNoteFile 617Q NC.CloseNoteFile 610Q NC.PrintMsg 600Q CHARACTER 555Q CHARACTER 535Q FLASHW 523Q 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) (1637Q DON'T 1515Q DON'T 1504Q AFTER 1463Q NC.OpenNoteFileFns 1455Q NoteFileTYPE# 1447Q NC.LastNoteFileOpened 1416Q NC.CacheTypesAndTitles 1413Q NoteFile 1365Q NoteFile 1320Q NoteFileTYPE# 1224Q NoteFile 1201Q NC.MsgDelay 1134Q NoteFileTYPE# 1077Q NoteFileHeaderBad 1057Q NoteFileOpenFailed 1036Q NoteFileAlreadyOpen 766Q NoteFileNeedsTruncation 716Q NoteFileNeedsConversion 631Q NoteFileNotFound 565Q NoteFile 541Q PROMPTWINDOW 532Q PROMPTWINDOW 510Q NoteFile 502Q NoteFile 470Q NC.NoteFilesHashArray 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) ( 1627Q "Open NoteFile" 1546Q "Done." 1533Q "Opening NoteFile: " 1361Q "Opening NoteFile: " 1326Q (NC.OpenNoteFileA0003A0012) 1306Q (NC.OpenNoteFileA0003A0010) 1270Q "Building index array ..." 1255Q "Opening NoteFile: " 1164Q "." 1156Q "Open canceled for NoteFile " 1116Q (NC.OpenNoteFileA0003A0009) 1105Q (NC.OpenNoteFileA0003A0008) 1066Q (NC.OpenNoteFileA0003A0007) 1045Q (NC.OpenNoteFileA0003A0006) 604Q "and has the same UID." 573Q " is already open " 561Q "because " 546Q "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 13Q RESETZ P 12Q RESETY P 11Q LISPXHIST P 7 CriticalUIDs P 6 ReturnValue P 5 NoteFileMenu P 4 NewVersion P 3 OldVersion P 2 NewerFileName P 1 FileName P 0 NoteFile 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 14Q LISPXHIST F 15Q RESETVARSLST) O @d`ooihdG Ydbg g8I 2GiIol oIo oohGi I FI GG Gi hIg [ghgI Zg \ @`W@kKGioIol oJo oohGi JY bIg]@MI ``_dO*XdIW! Wog hg_ OO(511Q ERROR! 503Q RESETRESTORE 470Q NC.OpenNoteFileA0003 414Q NC.NoteFileFromFileName 363Q NC.NoteFileFromFileName 354Q NC.AskYesOrNo 334Q CONCAT 317Q NC.PrintMsg 313Q CHARACTER 250Q FILENAMEFIELD 241Q FULLNAME 236Q PACKFILENAME 220Q FILENAMEFIELD 207Q NC.ClearMsg 200Q NC.SetUpNoteFileInterface 171Q NC.NoteFileFromFileName 161Q NC.NoteFileOpenP 153Q NC.AskYesOrNo 133Q CONCAT 116Q NC.PrintMsg 112Q CHARACTER 73Q NC.NoteFileNoticedP 61Q U-CASE 56Q FILENAMEFIELD 44Q NC.DatabaseFileName) (476Q ERROR 465Q INTERNAL 444Q NoteFile 425Q NoteFileDeviceTYPE# 421Q NoteFileTYPE# 402Q NoteFile 372Q Menu 260Q NoteFileTYPE# 245Q VERSION 232Q BODY 226Q VERSION 215Q VERSION 64Q NOTEFILE 53Q EXTENSION 15Q NoteFile 10Q NoteFileTYPE#) ( 462Q (NC.OpenNoteFileA0003) 344Q "N" 340Q " -- " 331Q " instead?" 324Q "Open " 306Q " exists." 301Q "A higher version of " 143Q "N" 137Q " -- " 130Q " as a NoteFile?" 123Q "Are you sure you want to open " 105Q " does not have a .NOTEFILE extension." 33Q " -- " 27Q "Name of NoteFile to open:") NC.NoteFileNoticedP D1 (P 1 NoteFile P 0 FullFileName I 0 NoteFileOrFileName) 1 @d`Y XI H`  Y(54Q NC.NoteFileFromFileName 50Q MEMBER 37Q MEMBER 34Q NC.ListOfNoteFiles 25Q FULLNAME) (45Q NC.NoticedNoteFileNames 16Q NoteFile 10Q NoteFileTYPE#) () (PRETTYCOMPRINT PMIPATCH043COMS) (RPAQQ PMIPATCH043COMS ((* * pmi 6/3/87: Fixes bug #557: NoteFile open gives amusing message if file is not really a notefile. Added check and warning for filenames which do not have the .notefile extension and have not yet been noticed (operated on) by NoteCards.) (* * Changed in NCDATABASE) (FNS NC.OpenNoteFile) (* * New for NCDATABASE) (FNS NC.NoteFileNoticedP))) (PUTPROPS PMIPATCH043 COPYRIGHT ("Xerox Corporation" 1987)) NIL