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

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

(deftape 4options-old
  (
   ;;Distribution installation file
   (distribution-file (RELEASE) 4OPTIONS)
   ;;Default customer site files
   (display-files "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
   (display-files demos
       (files-matching ("DEMO") :wild :wild))
   ;;Example programs
   (display-files examples
       (files-matching ("EXAMPLES") :wild "LISP"))
   ;;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 ("CUSTOMER-SITE") "GATEWAY" "SYSTEM")
       (files-matching ("GATEWAY") "COPYRIGHT" "TEXT")
       (excluding-patch-files
	 (combining-files
	   (files-excluding
	     (files-matching ("GATEWAY") :wild "LISP")
	     (files-matching ("GATEWAY") "*CWARNS"))
	   (files-matching ("GATEWAY") :wild "QFASL")))
       (latest-patch-files GATEWAY)
       (files-matching ("GATEWAY" "DATABASE")
		       :WILD :WILD :HIGHEST :RECURSIVE))
   ;;Tiger sources, including laser1+ driver
   (display-files tiger
       (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
   (display-files 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
   (display-files 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
   (display-files object-lisp
       (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 
   (display-files 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
   (display-files 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
   (display-files zwei-miscellaneous
       (files-matching ("ZWEI") "*SPELL*" :wild)
       (files-matching ("ZWEI") "TEACH-ZMACS" "TEXT"))))

(deftape 4sources-old
  (
   ;;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")
	  (files-matching ("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")
	  (files-matching ("IO1") "AS8*" "LISP"))
	(files-matching ("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)
	    (files-matching ("NETWORK" "EDIT") :WILD "LISP"))
	  (files-matching ("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")
	    (files-matching ("TAPE") "NUPI*"))
	  (files-matching ("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")
     (files-matching ("ZWEI") "*SPELL*")))
  ("L")
  ("RELEASE-4"))