(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")

(FILECREATED "19-Oct-88 11:28:59" {QV}<NOTECARDS>1.3LNEXT>RARPATCH043.;1
 4351   

      changes to%:  (VARS RARPATCH043COMS)
                    (FNS NC.ProcessNoteFileNotFoundError)

      previous date%: "19-Oct-88 10:18:26" {QV}<ROGERS>LISP>RARPATCH043.;1)


(* "
Copyright (c) 1988 by Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT RARPATCH043COMS)

(RPAQQ RARPATCH043COMS
 (
                        (* ;; " rar. 10/19/88 Changes to NCDATABASE:  Changed NC.ProcessNoteFileNotFoundError so that if the Don'tCreateFlg  is NIL, then the notefile is created  regardless of the state of the quiet flag. ")


                        (FNS NC.ProcessNoteFileNotFoundError)))



(* ;; 
" rar. 10/19/88 Changes to NCDATABASE:  Changed NC.ProcessNoteFileNotFoundError so that if the Don'tCreateFlg  is NIL, then the notefile is created  regardless of the state of the quiet flag. "
)


(DEFINEQ

(NC.ProcessNoteFileNotFoundError

  [LAMBDA (NoteFile Don'tCacheTypesAndTitlesFlg Don'tCreateFlg Convertw/oConfirmFlg 
                 Don'tCreateArrayFlg Can'tTruncateFlg Don'tCreateInterfaceFlg Don'tGetSpecialCardsFlg
                 InterestedWindow PublicOrPrivate MenuPosition QuietFlg ReadOnlyFlg 
                 Don'tCheckForTruncationFlg)
                 (* ; "Edited 19-Oct-88 10:17 by RAR")


         (* * NoteFile couldnot be found when an attempt was made to open it.

         Find out if the user wants to create it.)


         (* * fgh |5/23/86| First created.)


         (* * fgh |9/1/86| Updated args to match NC.OpenNoteFIle.)


         (* * rht 10/31/86%: Added Don'tCheckForTruncationFlg arg.)


         (* * pmi 5/28/87%: Removed NoteFilesHashArray argument.)


         (* * dsj. |11/5/87.| Now correctly passes a multitude of args to 

         NC.CreateNoteFile.)


    (* ;; "rar: 10/19/88 Added check so that we can create the NF silently when it doesn't exist.")


    (LET (NewFileName)

         (* * Notify user of the error if we're not gagged)


         (OR QuietFlg (NC.PrintMsg InterestedWindow T "Could not find NoteFile " (fetch
 (NoteFile
                                                                                         FullFileName
                                                                                         )
                                                                                    of
 NoteFile)
                             (CHARACTER 13)))

         (* * If the user wants to create the file, then create it and try the open again.)


         (* ;; 

   "If the quiet flg is true, then go ahead and create the notefile without asking for confirmation.")


         (if
 (AND (NULL Don'tCreateFlg)
                  (OR QuietFlg (NC.AskYesOrNo (CONCAT "Do you want to create " (fetch
 (NoteFile
                                                                                       FullFileName)
                                                                                  of
 NoteFile))
                                      " -- " "Y" NIL InterestedWindow T NIL)))
             then
 (if
 [CAR (ERSETQ (SETQ NewFileName (NC.CreateNoteFile NoteFile NIL NIL 
                                                            InterestedWindow (CONCAT 
                                                                                   "Opening NoteFile"
                                                                                    (CHARACTER 13))
                                                            QuietFlg PublicOrPrivate NIL ReadOnlyFlg
                                                            Don'tCreateInterfaceFlg MenuPosition]
                      then
 (NC.OpenNoteFile NoteFile Don'tCacheTypesAndTitlesFlg Don'tCreateFlg 
                                  Convertw/oConfirmFlg Don'tCreateArrayFlg Can'tTruncateFlg 
                                  Don'tCreateInterfaceFlg Don'tGetSpecialCardsFlg InterestedWindow 
                                  PublicOrPrivate MenuPosition QuietFlg ReadOnlyFlg 
                                  Don'tCheckForTruncationFlg))
           else
 'NoteFileNotFound])
)
(PUTPROPS RARPATCH043 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (971 4268 (NC.ProcessNoteFileNotFoundError 981 . 4266)))))
STOP