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

(FILECREATED " 6-Oct-88 18:53:30" {QV}<IDE>1.4>DSJPATCH075.;5
 4022   

      changes to%:  (FNS NCP.SelectNoteFiles)

      previous date%: "30-Sep-88 15:40:11" {QV}<IDE>1.4>DSJPATCH075.;4)


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

(PRETTYCOMPRINT DSJPATCH075COMS)

(RPAQQ DSJPATCH075COMS
 [
                        (* ;; 

          "New fns that should be added to NCPROGINT in Notecards; if not, then NCNEWPROGINT in IDE.")


                        (FNS NCP.SelectNoteFiles)
                        (DECLARE%: DONTCOPY (PROPS (DSJPATCH075 MAKEFILE-ENVIRONMENT)
                                                   (DSJPATCH075 FILETYPE])



(* ;; "New fns that should be added to NCPROGINT in Notecards; if not, then NCNEWPROGINT in IDE.")


(DEFINEQ

(NCP.SelectNoteFiles

  [LAMBDA (PrintWindow MenuOperationString InterestedWindow DontCloseMainWindowFlg SingleNoteFileFlg
                 ReturnNoteFileNameFlg PrintStringDelimiter)
 (* ; "Edited  6-Oct-88 18:26 by DSJ")


    (* ;; "DSJ.  9/22/88.  Prompt user to select multiple notefiles.  ")


    (PROG (NF NoteFiles Stream (Delimiter (OR PrintStringDelimiter "
")))
          (OR PrintWindow (SETQ PrintWindow NC.NoteCardsIconWindow))

     (* ;; "Print greetings")


          (NCP.PrintMsg PrintWindow NIL "Select notefile"
                 (if
 SingleNoteFileFlg
                     then
 ":                              
"
                   else
 (if
 NCP.NoticedNoteFileNames
                            then
 "s (click outside menu to terminate) :    
"
                          else
 "s (type <CR> to terminate) :    
")))
          [if
 SingleNoteFileFlg
              then
 (SETQ NF (NCP.NoticedNoteFileNamesMenu T NIL InterestedWindow MenuOperationString)
                    ) 

                   (* ;; "User may have selected multiple nfs via %"other%", which returns concatted nf names in a single atom, so must pull names apart each time in case. ")


                   (SETQ Stream (OPENTEXTSTREAM (MKSTRING NF)))
                   (while
 (NOT (EOFP Stream)) do
 (if
 (NOT (MEMBER (SETQ NF (READ Stream))
                                                                 NoteFiles))
                                                     then
 (push
 NoteFiles NF)
                                                          (NCP.PrintMsg PrintWindow NIL
                                                                 (CONCAT NF Delimiter))
                                                          (BLOCK 100)))
            else
 (while
 (SETQ NF (NCP.NoticedNoteFileNamesMenu T NIL InterestedWindow 
                                        MenuOperationString))
                    do
 
                       (* ;; "User may have selected multiple nfs via %"other%", which returns concatted nf names in a single atom, so must pull names apart each time in case. ")


                       (SETQ Stream (OPENTEXTSTREAM (MKSTRING NF)))
                       (while
 (NOT (EOFP Stream))
                          do
 (if
 (NOT (MEMBER (SETQ NF (READ Stream))
                                             NoteFiles))
                                 then
 (push
 NoteFiles NF)
                                      (NCP.PrintMsg PrintWindow NIL (CONCAT NF Delimiter))
                                      (BLOCK 100]
          (OR DontCloseMainWindowFlg (NCP.ClearMsg PrintWindow T))
          (RETURN (if
 ReturnNoteFileNameFlg
                      then
 NoteFiles
                    else
 (DREMOVE NIL (for
 NF in
 NoteFiles collect
 (NCP.NoteFileFromFileName NF])
)
(DECLARE%: DONTCOPY 

(PUTPROPS DSJPATCH075
 MAKEFILE-ENVIRONMENT
 (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"))

(PUTPROPS DSJPATCH075
 FILETYPE
 :TCOMPL)
)
(PUTPROPS DSJPATCH075 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (857 3768 (NCP.SelectNoteFiles 867 . 3766)))))
STOP