;;; -*- Mode:LISP; Package:USER; Readtable:ZL; Base:10 -*-

;;; 4.0 Options Tape - the file-matching way

(deftape 4options-old
  (
   ;;Distribution installation file
   (distribution-file (RELEASE) 4OPTIONS)
   ;;Default customer site files
   (files-matching ("CUSTOMER-SITE") "HOSTS" :wild)
   (files-matching ("CUSTOMER-SITE") "HSTTBL" :wild)
   (files-matching ("CUSTOMER-SITE") "SITE" :wild)
   (files-matching ("CUSTOMER-SITE") "LMLOCS" :wild)
   (files-matching ("CUSTOMER-SITE") "SYS" "TRANSLATIONS")
   ;;Demo programs
   (files-matching ("DEMO") :wild :wild)
   ;;Example programs
   (files-matching ("EXAMPLES") :wild "LISP")
   ;;Loadable LISP fonts
   (files-matching ("FONTS") "COPYRIGHT" "TEXT")
   (files-matching ("FONTS") "EQUIVALENCE" "LISP")
   (files-matching ("FONTS") :wild "QFASL")
   ;;Gateway (On-Line Documentation Manager)
   (files-matching ("CUSTOMER-SITE") "GATEWAY" "SYSTEM")
   (files-matching ("GATEWAY") "COPYRIGHT" "TEXT")
   (excluding-patch-files
     (combining-files
       (files-excluding
	 (files-matching ("GATEWAY") :wild "LISP")
	 ("GATEWAY") "*CWARNS")
       (files-matching ("GATEWAY") :wild "QFASL")))
   (latest-patch-files GATEWAY)
   (files-matching ("GATEWAY" "DATABASE")
		   :WILD :WILD :HIGHEST :RECURSIVE)
   ;;Tiger sources, including laser1+ driver
   (files-matching ("HARDCOPY" "TIGER") "COPYRIGHT" "TEXT")
   (files-matching ("HARDCOPY" "TIGER") :WILD "LISP")
   (latest-patch-files TIGER)
   (files-matching ("HARDCOPY" "TIGER" "TOSHIBA-FONTS") :wild :wild)
   (files-matching ("CUSTOMER-SITE") "LASER1+" "SYSTEM")
   (files-matching ("HARDCOPY" "TIGER" "LASER") :wild :wild)
					    ;not patchable (latest-patch-files LASER1+)
   ;;Site Editor
   (files-matching ("CUSTOMER-SITE") "SITE-EDITOR" "SYSTEM")
   (files-matching ("NETWORK" "EDIT") "COPYRIGHT" "TEXT")
   (excluding-patch-files
     (names-excluding (EDIT)
	(combining-files
	  (files-matching ("NETWORK" "EDIT") :WILD "LISP")
	  (files-matching ("NETWORK" "EDIT") :WILD "QFASL"))))
   (latest-patch-files SITE-EDITOR)
   ;;Window-maker
   (files-matching ("CUSTOMER-SITE") "WINDOW-MAKER" "SYSTEM")
   (excluding-patch-files
     (combining-files
       (files-matching ("WINDOW" "WINDOW-MAKER") :wild "LISP")
       (files-matching ("WINDOW" "WINDOW-MAKER") :wild "QFASL")))
   (latest-patch-files WINDOW-MAKER)
   ;;ObjectLISP
   (files-matching ("CUSTOMER-SITE") "OBJECTLISP" "SYSTEM")
   ;;(files-matching ("OBJECTLISP") :wild "TEXT")
   (excluding-patch-files
     (combining-files
       (files-matching ("OBJECTLISP") :wild "LISP")
       (files-matching ("OBJECTLISP") :wild "QFASL")))
   (latest-patch-files OBJECTLISP)
   ;;Microcode 
   (files-matching ("UBIN") "COPYRIGHT" "TEXT")
   (files-matching ("UBIN") "ULAMBDA" "LMC" 1754)
   (files-matching ("UBIN") "ULAMBDA" "LMC-SYM" 1754)
   (files-matching ("UBIN") "WHY-PC" :wild)
   ;;Medium-Res Color
   (files-matching ("CUSTOMER-SITE") "MEDIUM-RESOLUTION-COLOR" "SYSTEM")
   (files-matching ("VIDEO-DEVICE" "GREY")  :wild "TEXT")
   (excluding-patch-files
     (combining-files
       (files-matching ("VIDEO-DEVICE" "GREY")  :wild "LISP")
       (files-matching ("VIDEO-DEVICE" "GREY")  :wild "QFASL")))
   (latest-patch-files MEDIUM-RESOLUTION-COLOR)
   ;;Zwei support: spelling checker, teach-zmacs
   (files-matching ("ZWEI") "*SPELL*" :wild)
   (files-matching ("ZWEI") "TEACH-ZMACS" "TEXT")))

;;; 4.0 Options Tape - by system

(defprop 4options
	 (
	  ;;Distribution installation file
	  (distribution-file (RELEASE) 4OPTIONS)
	  ;;Default customer site files
	  (files-matching ("CUSTOMER-SITE") "HOSTS" :wild)
	  (files-matching ("CUSTOMER-SITE") "HSTTBL" :wild)
	  (files-matching ("CUSTOMER-SITE") "SITE" :wild)
	  (files-matching ("CUSTOMER-SITE") "LMLOCS" :wild)
	  (files-matching ("CUSTOMER-SITE") "SYS" "TRANSLATIONS")
	  ;;Demo programs
	  (files-matching ("DEMO") :wild :wild)
	  ;;Example programs
	  (files-matching ("EXAMPLES") :wild "LISP")
	  ;;Loadable LISP fonts
	  (files-matching ("FONTS") "COPYRIGHT" "TEXT")
	  (files-matching ("FONTS") "EQUIVALENCE" "LISP")
	  (files-matching ("FONTS") :wild "QFASL")
	  ;;Gateway (On-Line Documentation Manager)
	  (files-matching ("GATEWAY") "COPYRIGHT" "TEXT")
	  (old-system GATEWAY)
	  (files-matching ("GATEWAY" "DATABASE")
			  :WILD :WILD :HIGHEST :RECURSIVE)
	  ;;Tiger sources, including laser1+ driver
	  (files-matching ("HARDCOPY" "TIGER") "COPYRIGHT" "TEXT")
	  (files-matching ("HARDCOPY" "TIGER") :WILD "LISP")
	  (latest-patch-files TIGER)
	  (files-matching ("HARDCOPY" "TIGER" "TOSHIBA-FONTS") :wild :wild)
	  (files-matching ("CUSTOMER-SITE") "LASER1+" "SYSTEM")
	  (files-matching ("HARDCOPY" "TIGER" "LASER") :wild :wild)
					    ;not patchable (latest-patch-files LASER1+)
	  ;;Site Editor
	  (files-matching ("CUSTOMER-SITE") "SITE-EDITOR" "SYSTEM")
	  (files-matching ("NETWORK" "EDIT") "COPYRIGHT" "TEXT")
	  (excluding-patch-files
	    (names-excluding (EDIT)
	       (combining-files
		 (files-matching ("NETWORK" "EDIT") :WILD "LISP")
		 (files-matching ("NETWORK" "EDIT") :WILD "QFASL"))))
	  (latest-patch-files SITE-EDITOR)
	  ;;Window-maker
	  (files-matching ("CUSTOMER-SITE") "WINDOW-MAKER" "SYSTEM")
	  (excluding-patch-files
	    (combining-files
	      (files-matching ("WINDOW" "WINDOW-MAKER") :wild "LISP")
	      (files-matching ("WINDOW" "WINDOW-MAKER") :wild "QFASL")))
	  (latest-patch-files WINDOW-MAKER)
	  ;;ObjectLISP
	  (files-matching ("CUSTOMER-SITE") "OBJECTLISP" "SYSTEM")
	  ;;(files-matching ("OBJECTLISP") :wild "TEXT")
	  (excluding-patch-files
	    (combining-files
	      (files-matching ("OBJECTLISP") :wild "LISP")
	      (files-matching ("OBJECTLISP") :wild "QFASL")))
	  (latest-patch-files OBJECTLISP)
	  ;;Microcode 
	  (files-matching ("UBIN") "COPYRIGHT" "TEXT")
	  (files-matching ("UBIN") "ULAMBDA" "LMC" 1754)
	  (files-matching ("UBIN") "ULAMBDA" "LMC-SYM" 1754)
	  (files-matching ("UBIN") "WHY-PC" :wild)
	  ;;Medium-Res Color
	  (files-matching ("CUSTOMER-SITE") "MEDIUM-RESOLUTION-COLOR" "SYSTEM")
	  (files-matching ("VIDEO-DEVICE" "GREY")  :wild "TEXT")
	  (excluding-patch-files
	    (combining-files
	      (files-matching ("VIDEO-DEVICE" "GREY")  :wild "LISP")
	      (files-matching ("VIDEO-DEVICE" "GREY")  :wild "QFASL")))
	  (latest-patch-files MEDIUM-RESOLUTION-COLOR)
	  ;;Zwei support: spelling checker, teach-zmacs
	  (files-matching ("ZWEI") "*SPELL*" :wild)
	  (files-matching ("ZWEI") "TEACH-ZMACS" "TEXT"))
  ("L")
  ("RELEASE-4"))

;;; 4.0 Test Tape

(deftape 4test
  (
   ;;Distribution installation file
   (distribution-file (RELEASE) 4OPTIONS)
   ;;Default customer site files
   (files-matching ("CUSTOMER-SITE") "HOSTS" :wild)
   (files-matching ("CUSTOMER-SITE") "HSTTBL" :wild)
   (files-matching ("CUSTOMER-SITE") "SITE" :wild)
   (files-matching ("CUSTOMER-SITE") "LMLOCS" :wild)
   (files-matching ("CUSTOMER-SITE") "SYS" "TRANSLATIONS")
   ;;Demo programs
   (files-matching ("DEMO") :wild :wild)
   (files-matching ("CUSTOMER-SITE") "LASER1+" "SYSTEM")
   (files-matching ("HARDCOPY" "TIGER" "LASER") :wild :wild)
   ;;Site Editor
   (files-matching ("CUSTOMER-SITE") "SITE-EDITOR" "SYSTEM")
   (files-matching ("NETWORK" "EDIT") "COPYRIGHT" "TEXT")
   (excluding-patch-files
     (names-excluding (EDIT)
	(combining-files
	  (files-matching ("NETWORK" "EDIT") :WILD "LISP")
	  (files-matching ("NETWORK" "EDIT") :WILD "QFASL"))))
   (latest-patch-files SITE-EDITOR))
  ("L")
  ("RELEASE-4"))

;;; 4.0 Sources Tape

(deftape 4sources
  (
   ;;DEBUGGER
   (files-matching ("DEBUGGER") "COPYRIGHT" "TEXT")
   (files-matching ("DEBUGGER") :WILD "LISP")
   ;;FILE
   (files-matching ("FILE") "COPYRIGHT" "TEXT")
   (excluding-patch-files
     (names-excluding (ODUMP)
	(files-excluding
	  (files-matching ("FILE") :WILD "LISP")
	  ("FILE") "*CWARNS" "LISP")))
   ;;IO, IO1 - lots of cruft
   (files-matching ("IO") "COPYRIGHT" "TEXT")
   (names-excluding (DISK-CADR NUPI-TAPE)
      (files-matching ("IO") :WILD "LISP" :HIGHEST :RECURSIVE))
   (files-matching ("IO1") "COPYRIGHT" "TEXT")
   (names-excluding (CDRIVE CHATST EFTP DPLT SWAR UKBD XGP)
      (files-excluding
	(files-excluding
	  (files-matching ("IO1") :WILD "LISP")
	  ("IO1") "AS8*" "LISP")
	("IO1") "EXP-*" "LISP"))
   ;;NETWORK
   (files-matching ("NETWORK") "COPYRIGHT" "TEXT" :HIGHEST :RECURSIVE)
   (excluding-patch-files
     (names-excluding (EXPLORER CADR CHATST EFTP)
	(files-excluding 
	  (files-excluding 
	    (files-matching ("NETWORK") :WILD "LISP" :HIGHEST :RECURSIVE)
	    ("NETWORK" "EDIT") :WILD "LISP")
	  ("NETWORK" "MAILER") :WILD "LISP")))
   ;;SYS, SYS2
   (files-matching ("SYS") "COPYRIGHT" "TEXT" )
   (names-excluding (CADRLP CADSYM CDMP)
      (files-matching ("SYS") :WILD "LISP"))
   (files-matching ("SYS2") "COPYRIGHT" "TEXT")
   (names-excluding (GC OLD-GC)
      (files-matching ("SYS2") :WILD "LISP"))
   ;;TAPE
   (files-matching ("TAPE") "COPYRIGHT" "TEXT")
   (excluding-patch-files
     (names-excluding (REMOTE-TAPE-DEVICE RTAPE-DEVICE TEST)
	(files-excluding
	  (files-excluding
	    (files-matching ("TAPE") :WILD "LISP")
	    ("TAPE") "NUPI*")
	  ("TAPE") "*CWARNS")))
   ;;UNIX streams, sdu utils
   (files-matching ("UNIX") "COPYRIGHT" "TEXT")
   (excluding-patch-files
     (files-matching ("UNIX") :WILD "LISP"))
   ;;WINDOW system
   (files-matching ("WINDOW") "COPYRIGHT" "TEXT")
   (names-excluding (SLIDER)
      (names-excluding (WINDOW-MAKER)
	 (files-matching ("WINDOW") :WILD "LISP")))
   ;;ZMail, ZMacs
   (files-matching ("ZMAIL") "COPYRIGHT" "TEXT")
   (files-matching ("ZMAIL") :WILD "LISP")
   (files-matching ("ZWEI") "COPYRIGHT" "TEXT")
   (files-excluding
     (files-matching ("ZWEI") :wild "LISP")
     ("ZWEI") "*SPELL*"))
  ("L")
  ("RELEASE-4"))