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

; Copyright LISP Machine, Inc. 1984
;   See filename "Copyright" for
; licensing and release information.

(defpackage tiger
  (:size 700))

(defsystem tiger
  (:name "Tiger")
  (:not-in-disk-label)
  (:pathname-default "sys:tiger;")
  (:patchable "sys:tiger;" "tiger")

  (:module array "stuff-array")
  (:module array-file "array-file")
  (:module ascii "ascii-reader-macros")
  (:module defs "defs")
  (:module dumped "dumped-arrays")
  (:module server "server")
  (:module stream "stream")
  (:module user "user")

  ;; specific printer drivers.

  ;; Toshiba. Supported, not presently being OEM'ed.
  
  (:module toshiba "toshiba")
  ;; when in use the font file 25FR3 is dynamically loaded.
  (:module toshiba-font "toshiba-font")

  ;; Texas Instruments model 855. Supported and OEM'ed
  
  (:module ti855 "ti855")

  ;; LASER1 OEM'ed

  (:module laser1 "LASER1")

  ;; Anadex, Unsupported. No models in use at LMI. (i.e. customer self-support)
  
  (:module anadex "anadex")

  ;; Dumping screen images to disk and tape. These can printed on a LAMBDA
  ;; later using a specific printer. There is also a C program
  ;; under Unix and VMS for printing these screens on an Imagen.

  
  (:module array-methods "array-methods")
  
  ;; Vanilla, which is also the prototype for other printers.

  (:module vanilla "vanilla")

  
  (:compile-load ascii)
  (:compile-load array)
  (:compile-load defs (:fasload  ascii array))
  (:compile-load array-file (:fasload  defs))
  (:compile-load stream (:fasload  defs ascii array))
  (:compile-load toshiba-font (:fasload defs))
  (:compile-load toshiba (:fasload  defs ascii stream toshiba-font))
  (:compile-load ti855 (:fasload  defs ascii stream))
  (:compile-load laser1 (:fasload  defs ascii stream))
  (:compile-load anadex (:fasload  defs ascii stream))
  (:compile-load vanilla (:fasload  defs ascii stream))
  (:compile-load array-methods (:fasload  defs))
  (:compile-load user (:fasload  defs ascii stream array-file array-methods))
  (:compile-load server (:fasload  defs ascii stream array-file array-methods))
  (:compile-load dumped (:fasload  defs ti855))
  )