;;; -*- Mode:LISP; Package:USER; Base:8.; Fonts:CPTFONTB -*- 
;;; Serial Port package and system

(package-declare serial global 1000 ())

(defsystem serial-system
  (:name "Serial Port System")
  (:short-name "SPS")
  (:package serial)
  (:pathname-default "FS:SERIAL;")
  (:patchable)
  (:module defs "TOP-LEVEL-SERIAL-DEFS")
  (:module methods "TOP-LEVEL-SERIAL-METHODS")
  (:compile-load defs)
  (:compile-load methods (:fasload defs))
  (:component-systems tiger phonenet h19 prom-prog))

;(defsystem tiger
;  (:name "Tiger Driver")
;  (:short-name "Tiger")
;  (:package serial)
;  (:pathname-default "FS:SERIAL;")
;  (:patchable)
;  (:compile-load "TIGER"))

(defsystem h19
  (:name "Heath H19 Simulator")
  (:short-name "H19")
  (:package serial)
  (:pathname-default "FS:SERIAL;")
  (:module main "H19")
  (:compile-load main))

(defsystem phonenet
  (:name "LMI Phone Network")
  (:short-name "Phonenet")
  (:package serial)
  (:pathname-default "FS:SERIAL;")
  (:module defs "PHONENET-DEFS")
  (:module methods "PHONENET-METHODS")
  (:module main "PHONENET-MAIN")
  (:compile-load defs)
  (:compile-load methods (:fasload defs))
  (:compile-load main (:fasload defs methods)))

;(defsystem prom-prog
;  (:name "Prom Programmer")
;  (:short-name "Prom")
;  (:package serial)
;  (:pathname-default "FS:SERIAL;"))