(FILECREATED "19-Feb-87 17:52:59" ("compiled on " {QV}1.3K>NEXT>RHTPATCH204.;5) "12-Nov-85 14:59:23" recompiled changes: NC.ProcessTruncationRequest NCLocalDevice.TruncateNoteFile NCLocalDevice.SaveInformationPastCheckpoint in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "19-Feb-87 17:52:48" {QV}1.3K>NEXT>RHTPATCH204.;5 8196 changes to: (VARS RHTPATCH204COMS) (FNS NCLocalDevice.SaveInformationPastCheckpoint NCLocalDevice.TruncateNoteFile NC.ProcessTruncationRequest) previous date: "19-Feb-87 10:58:01" {QV}1.3K>NEXT>RHTPATCH204.;1) NC.ProcessTruncationRequestA0001 D1 (NAME ERRORSET F 0 NoteFile F 1 PromptWindow F 2 TruncationFn F 3 ReturnValue) PQlRchNIL NIL () NC.ProcessTruncationRequestA0002 D1 (NAME ERRORSET F 0 NoteFile F 1 ReturnValue) hoPoQo  i(32Q NC.ReportError 27Q CONCAT) (10Q NoteFile) ( 23Q "." 16Q " because " 4 "NoteFile truncation failed for NoteFile ") NC.ProcessTruncationRequest D1 (P 1 ReturnValue P 0 TruncationFn I 16Q ReadOnlyFlg I 15Q QuietFlg I 14Q MenuPosition I 13Q Don'tCheckOperationsInProgressFlg I 12Q PublicOrPrivate I 11Q PromptWindow I 10Q Don'tGetSpecialCardsFlg I 7 Don'tCreateInterfaceFlg I 6 Don'tTruncateFlg I 5 Don'tCreateArrayFlg I 4 Convertw/oConfirmFlg I 3 Don'tCreateFlg I 2 Don'tCacheTypesAndTitlesFlg I 1 NoteFilesHashArray I 0 NoteFile) P@*$oi `@ABCDEFGGGGiGGG Iggoi g(112Q NC.ProcessTruncationRequestA0002 67Q NC.OpenNoteFile 25Q NC.ProcessTruncationRequestA0001) (115Q NoteFileTruncationFailed 101Q NoteFileTruncationAborted 74Q NoteFileTruncationAborted 32Q NoteFileTYPE# 10Q NoteFileDevice 3 NoteFile) ( 106Q (NC.ProcessTruncationRequestA0002) 21Q (NC.ProcessTruncationRequestA0001)) NCLocalDevice.TruncateNoteFileA0001 D1 (NAME ERRORSET F 0 FullFileName F 1 NoteFile) PgQ h(14Q SETFILEINFO) (7 NoteFile 3 LENGTH) () NCLocalDevice.TruncateNoteFile D1 (P 3 ReturnValue P 2 SaveStream P 1 NoteFileStream P 0 FullFileName I 1 PromptWindow I 0 NoteFile) @@"A hbI@A~ooohAhi 0@A [`#AioKol g gA7l oHo oohAhi QAAioHo oi AAiol @AAhoHol l gg(322Q NC.PrintMsg 316Q CHARACTER 311Q CHARACTER 264Q NC.PrintMsg 261Q CHARACTER 241Q NCLocalDevice.TruncateNoteFileA0001 230Q NC.PrintMsg 205Q NC.AskYesOrNo 165Q CONCAT 151Q CHARACTER 133Q OPENP 124Q NC.PrintMsg 120Q CHARACTER 70Q NCLocalDevice.SaveInformationPastCheckpoint 61Q NC.AskYesOrNo 22Q WINDOWP) (331Q NoteFileTruncationAborted 325Q NoteFileTruncationFailed 140Q NoteFileAlreadyOpen 127Q NoteFileTruncationFailed 75Q NoteFileTYPE# 11Q NoteFile 3 NoteFile) ( 304Q "." 277Q "Couldn't truncate " 254Q "Done." 235Q (NCLocalDevice.TruncateNoteFileA0001) 224Q " ..." 217Q "Truncating file " 175Q "No" 171Q "--" 162Q "? " 155Q "Are you sure you want to truncate " 113Q "." 106Q "Attempt to save information failed because " 51Q "Yes" 45Q "--" 41Q "Want to save info beyond checkpoint to a file? ") NCLocalDevice.SaveInformationPastCheckpointA0001 D1 (NAME ERRORSET F 0 FullFileName F 1 NoteFileStream) Pggo ch(15Q OPENSTREAM) (6 OLD 3 INPUT) ( 12Q ((TYPE BINARY))) NCLocalDevice.SaveInformationPastCheckpointA0002 D1 (NAME ERRORSET F 0 SaveFile F 1 SaveStream) Pdgho ch(15Q OPENSTREAM) (5 OUTPUT) ( 12Q ((TYPE BINARY))) NCLocalDevice.SaveInformationPastCheckpointA0003 D1 (NAME ERRORSET F 0 PromptWindow F 1 NoteFileStream F 2 SaveStream F 3 SaveFile F 4 NoteFile) 7PioSo QRT R Q Phol i(63Q NC.PrintMsg 60Q CHARACTER 44Q CLOSEF 37Q CLOSEF 32Q COPYBYTES 16Q NC.PrintMsg) (25Q NoteFile) ( 53Q "Done." 12Q " ..." 5 "Saving extra info to ") NCLocalDevice.SaveInformationPastCheckpoint D1 (P 3 SaveFile P 2 SaveStream P 1 NoteFileStream P 0 FullFileName I 1 PromptWindow I 0 NoteFile) Z@1oi gl o hddAi [oi goi J J I g@(122Q CLOSEF? 115Q DELFILE 110Q CLOSEF? 102Q NCLocalDevice.SaveInformationPastCheckpointA0003 64Q NCLocalDevice.SaveInformationPastCheckpointA0002 53Q NC.AskUser 42Q CONCAT 33Q CHARACTER 20Q NCLocalDevice.SaveInformationPastCheckpointA0001) (125Q CopyToSaveFileFailed 71Q CouldNotOpenSaveFile 25Q CouldNotOpenNoteFile 3 NoteFile) ( 76Q (NCLocalDevice.SaveInformationPastCheckpointA0003) 60Q (NCLocalDevice.SaveInformationPastCheckpointA0002) 37Q "File to save info in: " 14Q (NCLocalDevice.SaveInformationPastCheckpointA0001)) (PRETTYCOMPRINT RHTPATCH204COMS) (RPAQQ RHTPATCH204COMS ((* * Fix to bug #407: Truncate option when opening bad notefile once again allows saving data past checkpoint to a file.) (* * Changes to NCDATABASE) (FNS NC.ProcessTruncationRequest) (* * Changes to NCLOCALDEVICE) (FNS NCLocalDevice.TruncateNoteFile NCLocalDevice.SaveInformationPastCheckpoint))) (PUTPROPS RHTPATCH204 COPYRIGHT ("Xerox Corporation" 1987)) NIL