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

(FILECREATED "15-Jan-88 16:48:46" {QV}<NOTECARDS>1.3LNEXT>RGPATCH073.;2
 4590   

      changes to%:  (VARS RGPATCH073COMS)
                    (FNS NC.SetStandardConfigProps)

      previous date%: "15-Jan-88 16:46:42" {QV}<NOTECARDS>1.3LNEXT>RGPATCH073.;1)


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

(PRETTYCOMPRINT RGPATCH073COMS)

(RPAQQ RGPATCH073COMS
 (
          
          (* ;; "rg 1/15/88 fixes some glitches in config machinery")

                       
          
          (* ;; "changes to NCCONFIG")

                       (FNS NC.FixFileDates NC.SetStandardConfigProps)
                       (PROP (FILETYPE MAKEFILE-ENVIRONMENT)
                             RGPATCH073)))



(* ;; "rg 1/15/88 fixes some glitches in config machinery")





(* ;; "changes to NCCONFIG")


(DEFINEQ

(NC.FixFileDates

  [LAMBDA (Files)                                     (* ; "Edited 14-Jan-88 16:48 by Randy.Gobbel")
          
          (* ;; "rg 10/29/86: Created")
          
          (* ;; 
      "rg 6/19/87 now uses config machinery, smashes all necessary info, not just filedates property")
          
          (* ;; "rg 7/21/87 tweaks for robustness, added NC.SourceAccessFlg")
          
          (* ;; "if NC.SourceAccessFlg is non-nil, AND all needed info is available, smash props and FILELST to make Interlisp think the file wasn't SYSLOADed, so we can get to the sources")
          
          (* ;; "rg 1/14/88 now doesn't smash things if NC.InstallFlg set")

    (DECLARE
 (GLOBALVARS NC.SourceAccessFlg NC.InstallFlg FILELST))
    (if
 (AND NC.SourceAccessFlg (NOT NC.InstallFlg))
        then
 (for
 file in
 (MKLIST Files)
                do
 (LET ((rootName (FILENAMEFIELD file 'NAME))
                         FileDate SourceFile InitialFile FileComs)
                        (AND (SETQ FileDate (GETPROP rootName 'FileDate))
                             (SETQ SourceFile (GETPROP rootName 'SourceFile))
                             (SETQ InitialFile (GETPROP rootName 'InitialFile))
                             (SETQ FileComs (GETPROP rootName 'FileComs))
                             (UNINTERRUPTABLY
                                 (PUTPROP rootName 'FILEDATES (LIST (CONS FileDate SourceFile)))
                                 (PUTPROP rootName 'FILE InitialFile)
                                 (SET (FILECOMS rootName)
                                      FileComs)
                                 (pushnew
 FILELST rootName))])

(NC.SetStandardConfigProps

  [LAMBDA (File)                                      (* ; "Edited 15-Jan-88 16:45 by Randy.Gobbel")
          
          (* ;; "rg 7/8/87 add necessary config props for a standard NoteCards component file")
          
          (* ;; "rg 1/15/88 set CDR of FILEDATES to LOADFNS, so source access works right")

    (PUTPROP File 'ConfigProps '(COPYRIGHT MAKEFILE-ENVIRONMENT FILETYPE
                                       [SourceFile (LAMBDA (File Directory)
                                                     (FINDFILE File T
                                                            (OR (EVAL (GETPROP File 'Directories))
                                                                (LIST Directory]
                                       [CompiledFile (LAMBDA (File Directory)
                                                       (FINDFILE (PACKFILENAME 'BODY File
                                                                        'EXTENSION COMPILE.EXT)
                                                              T
                                                              (OR (EVAL (GETPROP File 'Directories))
                                                                  (LIST Directory]
                                       [FileDate (LAMBDA (File)
                                                   (CAAR (GETPROP File 'FILEDATES]
                                       [InitialFile (LAMBDA (File)
                                                      (LIST (CONS (FILECOMS File)
                                                                  'LOADFNS]
                                       (FileComs (LAMBDA (File)
                                                   (EVAL (FILECOMS File])
)

(PUTPROPS RGPATCH073 FILETYPE
 :TCOMPL)

(PUTPROPS RGPATCH073 MAKEFILE-ENVIRONMENT
 (:PACKAGE "IL" :READTABLE "INTERLISP" :BASE 10))
(PUTPROPS RGPATCH073 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (901 4368 (NC.FixFileDates 911 . 2601) (NC.SetStandardConfigProps 2603 . 4366)))))
STOP