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


(FORMAT TERMINAL-IO "~%Setting up for distributing TCP system patches~%")

(LOAD "DJ:GJC.UPDATE;UTILITY")

(SETQ *LOG-FILE-PREPEND* "TCP-REL1-PATCH")

(SETQ *SYSTEMS-TO-CONSIDER* '
      ("TCP-KERNEL" "TCP-USER" "TCP-SERVER"))


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

(DEFUN TCP-STATUS-DUMP ()
  (DUMP-LOADED-PATCH-STATUS (MAKE-UTILITY-FILENAME "STATUS" :LISP))
  (SAVE-DIRECTORY-SNAPSHOT-AS-UPDATE-FILE "TCP:DIR;" "UPDATE"))

(DEFUN EXTRA-GOODIES-DUMP ()
  (SAVE-DIRECTORY-SNAPSHOT-AS-UPDATE-FILE "SYS:EXAMPLES;" "EXAMPLES")
  (SAVE-DIRECTORY-SNAPSHOT-AS-UPDATE-FILE "SYS:MULTIBUS;" "MULTIBUS"))

(DEFUN UTILITY-UPDATE-FILENAMES (&REST L)
  (MAPCAR #'(LAMBDA (L)
	      (LET ((*LOG-FILE-PREPEND* (CAR L)))
		(MAKE-UTILITY-FILENAME (CADR L) :LISP)))
	  L))

(DEFVAR *TCP-REL1-SPEC* '(("TCP-REL1-PATCH" "UPDATE")
			  ("RELEASE-2P0-PATCH-UPDATE" "TCPREL")
			  ("TCP-REL1-PATCH" "EXAMPLES")
			  ("TCP-REL1-PATCH" "MULTIBUS")))


(DEFUN MAKE-TCP-REL1-TAPE ()
  (APPLY 'MAKE-COMBINED-UPDATE-TAPE
	 (APPLY 'UTILITY-UPDATE-FILENAMES *TCP-REL1-SPEC*)))


(DEFUN VERIFY-TCP-REL1-TAPE ()
  (APPLY 'VERIFY-COMBINED-UPDATE-TAPE
	 (APPLY 'UTILITY-UPDATE-FILENAMES *TCP-REL1-SPEC*)))

(DEFUN MAKE-AS-TCP-REPORT ()
  ;; to make a report about changes to the tcp software
  (LET ((*LOG-FILE-PREPEND* "TCP-REL1")
	(*SYSTEMS-TO-CONSIDER* '("TCP-KERNEL" "TCP-USER" "TCP-SERVER")))
    (PATCHUP-UTILITY)))