(DEFINE-FILE-INFO PACKAGE "IL" READTABLE "INTERLISP" BASE 10)

(FILECREATED "22-Jan-88 17:55:17" {QV}<NOTECARDS>1.3LNEXT>RGPATCH078.;1
 6527   

      changes to%:  (VARS RGPATCH078COMS)
                    (FNS NC.PostGreet))


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

(PRETTYCOMPRINT RGPATCH078COMS)

(RPAQQ RGPATCH078COMS
 (
          
          (* ;; "rg 1/22/88 no sysloading if source access set")

                       
          
          (* ;; "changes to NOTECARDS")

                       (FNS NC.LoadFileFromDirectories NC.PostGreet)
                       (PROP (FILETYPE MAKEFILE-ENVIRONMENT)
                             RGPATCH078)))



(* ;; "rg 1/22/88 no sysloading if source access set")





(* ;; "changes to NOTECARDS")


(DEFINEQ

(NC.LoadFileFromDirectories

  [LAMBDA (FileName Directories QuietFlg TypeName)    (* ; "Edited 22-Jan-88 17:49 by Randy.Gobbel")
          
          (* ;; "Try to load FileName from Directories.  The latter can be a list in which case the elements should be directory paths.  It can be an atom in which case it should be a DIRECTORIES var.  Or it can be NIL in which case it defaults to the litatom NOTECARDSDIRECTORIES.")
          
          (* ;; "rg 9/4/87 now pushes file name onto NC.LoadedFiles for use by NC.PostGreet")
          
          (* ;; "rg 1/15/88 now checks rootified version of LOADEDFILELST, won't load any file that it finds there.  Net effect is that this fn will NEVER load a file that has been loaded in ANY version previously.  No longer calls NC.FixFileDates.")
          
          (* ;; "rg 1/22/88: doesn't SYSLOAD if NC.SourceAccessFlg set, returns full file name instead of NC.LoadedFiles.  Trimmed change log.")

    (DECLARE
 (GLOBALVARS NC.LoadedFiles))
    (RESETLST [RESETSAVE NIL (if
 (OPENWP (WFROMDS (TTYDISPLAYSTREAM)
                                                T))
                                 then
 (SETQ QuietFlg T)
                                      '(NILL)
                               else
 `(CLOSEW ,(WFROMDS (TTYDISPLAYSTREAM]
           [RESETSAVE NIL (if
 QuietFlg
                              then
 '(NILL)
                            else
 `(WINDOWPROP ,(WFROMDS (TTYDISPLAYSTREAM)) 'PAGEFULLFN
                                         ,(WINDOWPROP (WFROMDS (TTYDISPLAYSTREAM))
                                                 'PAGEFULLFN
                                                 'NILL]
           (LET [(Window (WFROMDS (TTYDISPLAYSTREAM)))
                 (FullName (NC.FindFile FileName TypeName TypeName NIL (OR (GETPROP FileName
                                                                                  'Directories)
                                                                           Directories]
                (if
 [AND FullName (NOT (FMEMB (SIMPLE-FILENAME FileName)
                                              (SIMPLE-LOADEDFILELST]
                    then
 (if
 (NOT QuietFlg)
                             then
 (CLEARW Window)
                                  (FLASHWINDOW Window)
                                  (if
 TypeName
                                      then
 (PRINTOUT Window "Card type " TypeName " not loaded." T))
                                  (PRINTOUT Window "Attempting to autoload " FileName T))
                         (PROG1 [APPLY #'FILESLOAD (if
 NC.SourceAccessFlg
                                                       then
 `(,FullName)
                                                     else
 `((SYSLOAD)
                                                            ,FullName]
                                (pushnew
 NC.LoadedFiles (FILENAMEFIELD FileName 'NAME])

(NC.PostGreet

  [LAMBDA NIL                                         (* ; "Edited 22-Jan-88 17:50 by Randy.Gobbel")
          
          (* ;; "called when loading NOTECARDS and after each greet (for NOTECARDS sysout users) Note this means you cannot put anything in here that should not be called twice!")
          
          (* ;; "rg 9/2/87 added (NC.FixFileDates NC.LoadedFiles)")
          
          (* ;; "rg 1/15/88 no longer calls NC.FixFileDates, sets up to use NEW-WHERE-IS database")
          
          (* ;; "rg 1/22/88: use database even if source access not turned on")

    (DECLARE
 (GLOBALVARS NC.SourceAccessFlg NC.CardTypes NC.CoreFiles NC.LoadedFiles NOTECARDTYPES 
                    NOTECARDTYPESTUBS NOTECARDSLIBRARYFILES NOTECARDSLISPUSERSFILES 
                    NCINITIALGLOBALPARAMS))
    [LET (FullFileName TypeName Type File)
         (for
 TypeName in
 NOTECARDTYPES unless
 (AND (SETQ Type (GETHASH TypeName NC.CardTypes))
                                                    (NOT (fetch
 (NoteCardType StubFlg) of
 Type)))
            do
 (NC.CardTypeLoader TypeName NIL T))
          
          (* ;; "in case new patches have been made since the sysout was made or the last greet")

         (COND
            ((SETQ FullFileName (NC.FindFile 'POSTRELEASEPATCHES))
             (NC.LoadFileFromDirectories
 FullFileName)))
         (for
 TypeName in
 NOTECARDTYPESTUBS unless
 (OR (NC.CardTypeRecord TypeName)
                                                       (MEMB TypeName NOTECARDTYPES)
                                                       (GETHASH TypeName NC.CardTypes))
            do
 (NC.CardTypeStubLoader TypeName))
          
          (* ;; "Load the library packages requested by the user's NOTECARDSLIBRARYFILES parameters")

         (for
 File in
 NOTECARDSLIBRARYFILES unless
 (GETPROP File 'FILEDATES)
            do
 (COND
                  ((SETQ FullFileName (NC.FindFile File))
                   (NC.LoadFileFromDirectories
 FullFileName))
                  (T (PRINT (CONCAT "NoteCards: Can't find library file: " File "."]
    (for
 File in
 NOTECARDSLISPUSERSFILES do
 (NC.LoadFileFromDirectories
 File 'LISPUSERSDIRECTORIES))
    (if
 (GETD 'START-TEDIT-KILLER)
        then
 (START-TEDIT-KILLER))
    (if
 (GETD 'XCL::ADD-WHERE-IS-DATABASE)
        then
 (XCL::ADD-WHERE-IS-DATABASE (NC.FindFile 'NOTECARDS.HASH NIL NIL T)))
    (NCP.NoteCardsParameters NCINITIALGLOBALPARAMS])
)

(PUTPROPS RGPATCH078 FILETYPE
 :TCOMPL)

(PUTPROPS RGPATCH078 MAKEFILE-ENVIRONMENT
 (:PACKAGE "IL" :READTABLE "INTERLISP" :BASE 10))
(PUTPROPS RGPATCH078 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (796 6305 (NC.LoadFileFromDirectories 806 . 3771) (NC.PostGreet 3773 . 6303)))))
STOP