;;; -*- Mode:LISP; Package:SYSTEM-INTERNALS; Base:10 -*-


(DEFUN COMPILE-P (FILENAME)
  (LET ((SOURCE (OPEN (SEND (FS:PARSE-PATHNAME FILENAME) :NEW-TYPE :LISP)
		      :DIRECTION NIL))
	(OBJECT (OPEN (SEND (FS:PARSE-PATHNAME FILENAME) :NEW-TYPE :QFASL)
		      :DIRECTION NIL
		      :ERROR NIL)))
    (OR (ERRORP OBJECT)
	(> (GET SOURCE :CREATION-DATE)
	   (GET OBJECT :CREATION-DATE)))))

(DEFUN LOAD-P (FILENAME)
  (LET ((OBJECT (OPEN (SEND (FS:PARSE-PATHNAME FILENAME) :NEW-TYPE :QFASL) :DIRECTION NIL))
	(LOADED (GET-FILE-LOADED-ID (FS:PARSE-PATHNAME FILENAME) NIL)))
    (OR (NULL LOADED)
	(> (GET OBJECT :CREATION-DATE) (CDR LOADED)))))

(DEFUN COMPILE-AND-LOAD (&REST FILES)
  (DOLIST (FILE FILES)
    (WHEN (COMPILE-P FILE)
      (FORMAT T "~&Compiling ~S" FILE)
      (COMPILE-FILE FILE :SET-DEFAULT-PATHNAME NIL))
    (IF (LOAD-P FILE)
	(LOAD FILE :SET-DEFAULT-PATHNAME NIL))))


(COMPILE-AND-LOAD "DJ:GJC.UPDATE;PATCH-UTIL")

(SETQ *PATCHUP-UTILITY-DIR* (fs:parse-pathname "DJ:GJC.UPDATE;"))
(SETQ *LOG-FILE-PREPEND* "RELEASE-3P0-PATCH")

(COMMENT 

(SETQ *SYSTEMS-TO-CONSIDER* '
      (:%MICROCODE-VERSION-NUMBER
       "window-maker"
       "Sited"
       "MEDIUM-RESOLUTION-COLOR"
       "KERMIT"
       "Tiger"
       "MagTape"
       "FILE-Server"
       "Local-File"
       "Unix-Interface"
       "ZMail"
       "System"))

)


(SETQ *patch-report-from* "Helen Baker")
(SETQ *patch-report-to* "Jerry Duffy")
(SETQ *patch-report-about* "Release 3.0 Lisp Software Update Tape")