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


;******************************************************************************
; Copyright (c) 1984, 1985 by Lisp Machine Inc.
; Symbolics-specific portions Copyright (c) 1985 by Honeywell, Inc.
; Permission to copy all or part of this material is granted, provided
; that the copies are not made or distributed for resale, and the 
; copyright notices and reference to the source file and the software
; distribution version appear, and that notice is given that copying is
; by permission of Lisp Machine Inc.  LMI reserves for itself the 
; sole commercial right to use any part of this KERMIT/H19-Emulator
; not covered by any Columbia University copyright.  Inquiries concerning
; copyright should be directed to Mr. Damon Lawrence at (213) 642-1116.
;
; Version Information:
;      LMKERMIT 1.0     --      Original LMI code, plus edit ;1; for 3600 port
;
; Authorship Information:
;      Mark David (LMI)           Original version, using KERMIT.C as a guide
;      George Carrette (LMI)      Various enhancements
;      Mark Ahlstrom (Honeywell)  Port to 3600 (edits marked with ";1;" comments)
;
; Author Addresses:
;      George Carrette     ARPANET: GJC at MIT-MC
;
;      Mark Ahlstrom       ARPANET: Ahlstrom at HI-Multics
;                          PHONE:   (612) 887-4006
;                          USMAIL:  Honeywell MN09-1400
;                                   Computer Sciences Center
;                                   10701 Lyndale Avenue South
;                                   Bloomington, MN  55420
;******************************************************************************



;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
;;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

;;;
;;;                 KERMIT
;;;



;;;                 this is the package system declaration
;;;                 for KERMIT


;;; these are the 6 files. they should be loaded in this order usually:
;;; 1. Proto
;;; 2. Calls
;;; 3. Term
;;; 4. Open
;;; 5. S-term
;;; 6. Server
;;; 7. Window
;;;
;;; PROTO is the basic Columbia University (Frank da Cruz, et al) Kermit protocal.
;;;  It's was translated from the C by Mark David at LMI. Unless otherwise noted,
;;;  the rest of the code for these was written and developed by Mark David largely
;;;  assisted by George Carrette @ LMI in 1984.
;;; CALLS contains the definition of Kstate, the flavor object which 'wraps' the myriad special
;;;  variables and has the methods to make the top level calls to the protocol.
;;; TERM is the Heath (aka z19, z29, h19, zenith,...) terminal emulator.
;;; OPEN has alot of the functions to open files and hack filenames (for different computers).
;;; S-TERM is George Carrette's remote login interface to the Lisp Machine thru the RS-232.
;;; SERVER is the remote server protocol. It's very minimal. It can be invoked thru s-term.
;;; WINDOW is the window interface to Calls, which in turn is the interface to Proto.
;;;  It also takes care of such vital things as making the serial stream, managing
;;;  everything, etc. The Kermit program is really built on this window. (Actu-
;;;  ally, there is a little too much dependency on the window interface for my tastes, but
;;;  that's a common 'problem' for Lisp Machine programmers.)


(defpackage kermit
  (:size 500))					;1; 

(defpackage s-terminal
  (:size 200))					;1; 

(defsystem kermit

  (:name "KERMIT")

  (:pathname-default "kermit:source;")

  (:patchable #-3600 "kermit:patch;" #-3600 "KERMIT")	;1;

  (:module kermit-protocol "LMIPRO")

  (:module kermit-calls "LMICAL")

  (:module kermit-open "LMIOPN")

  (:module kermit-server "LMISRV")

  (:module kermit-window "LMIWIN")

  (:module kermit-terminal "LMITER")

  (:module s-terminal "LMISTR")

  (:compile-load kermit-protocol)

  (:compile-load kermit-calls (:fasload kermit-protocol))

  (:compile-load kermit-terminal)

  ;1; added a load of kermit-calls here so kermit-default-pathname
  ;1; is not redefined...
  (:compile-load kermit-open (:fasload kermit-protocol #+3600 kermit-calls))

  (:compile-load s-terminal)

  ;1; why again??
  #-3600 (:compile-load kermit-open  (:fasload kermit-protocol))

  (:compile-load kermit-server (:fasload kermit-protocol))

  (:compile-load kermit-window
                     (:fasload kermit-protocol kermit-terminal kermit-open kermit-calls
		      s-terminal))		;1; added s-terminal to avoid an 
						;1; "undefined flavor" warning.
  )