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

;;; 4.0 Options Tape - by system

(deftape 4options
  (
   ;;Distribution installation file
   (distribution-file (RELEASE) 4OPTIONS)
   ;;Default customer site files
   (display-files customer-site
       (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
   (display-files demos
       (system-files HACKS))
   ;;Example programs
   (display-files examples
       (files-matching ("EXAMPLES") :wild "LISP"))
   ;;Font editor
   (display-files font-editor
       (files-matching ("CUSTOMER-SITE") "FONT-EDITOR" "SYSTEM")
       (system-files font-editor))
   ;;Loadable LISP fonts
   (display-files fonts
       (files-matching ("FONTS") "COPYRIGHT" "TEXT")
       (files-matching ("FONTS") "EQUIVALENCE" "LISP")
       (files-matching ("FONTS") :wild "QFASL"))
   ;;Gateway (On-Line Documentation Manager)
   (display-files gateway
       (files-matching ("GATEWAY") "COPYRIGHT" "TEXT")
       (files-matching ("CUSTOMER-SITE") "GATEWAY" "SYSTEM")
       (complete-system GATEWAY)
       (files-matching ("GATEWAY" "DATABASE") :WILD "GATE"))
   ;;Kermit
   (display-files kermit
       (files-matching ("CUSTOMER-SITE") "KERMIT" "SYSTEM")
       (complete-system KERMIT))
   ;;Medium-Res Color
   (display-files medium-res
       (files-matching ("CUSTOMER-SITE") "MEDIUM-RESOLUTION-COLOR" "SYSTEM")
       (complete-system MEDIUM-RESOLUTION-COLOR))
   ;;Microcode 
   (display-files microcode
       (files-matching ("UBIN") "COPYRIGHT" "TEXT")
       (files-matching ("UBIN") "ULAMBDA" "LMC")
       (files-matching ("UBIN") "ULAMBDA" "LMC-SYM")
       (files-matching ("UBIN") "WHY-PC" :wild))
   ;;ObjectLISP
   (display-files objectlisp
       (files-matching ("CUSTOMER-SITE") "OBJECTLISP" "SYSTEM")
       (complete-system OBJECTLISP))
   ;;Site Editor
   (display-files site-editor
       (files-matching ("CUSTOMER-SITE") "SITE-EDITOR" "SYSTEM")
       (files-matching ("NETWORK" "EDIT") "COPYRIGHT" "TEXT")
       (complete-system SITE-EDITOR))
   ;;Tiger
   (display-files tiger
       (files-matching ("CUSTOMER-SITE") "TIGER" "SYSTEM")
       (complete-system tiger))
   ;;Window-maker
   (display-files window-maker
       (files-matching ("CUSTOMER-SITE") "WINDOW-MAKER" "SYSTEM")
       (complete-system WINDOW-MAKER))
   ;;Zwei support: spelling checker, teach-zmacs
   (display-files zwei
       (system-files ISPELL)
       (files-matching ("ZWEI") "SPELL-DICTIONARY" "TEXT")
       (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)
   ;;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
  ((types-only
     (combining-files
       (files-excluding
	 (system-files system :source-only)
	 (system-files GARBAGE-COLLECTOR))
       (files-excluding
	 (system-files outer-system :source-only)
	 (system-files lambda-diag)))))
  ("L")
  ("RELEASE-4"))