home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / lispmachine / lmisys.lsp < prev    next >
Text File  |  2020-01-01  |  5KB  |  126 lines
  1. ;;; -*- Mode:LISP; Package:USER; Base:10 -*-
  2.  
  3.  
  4. ;******************************************************************************
  5. ; Copyright (c) 1984, 1985 by Lisp Machine Inc.
  6. ; Symbolics-specific portions Copyright (c) 1985 by Honeywell, Inc.
  7. ; Permission to copy all or part of this material is granted, provided
  8. ; that the copies are not made or distributed for resale, and the 
  9. ; copyright notices and reference to the source file and the software
  10. ; distribution version appear, and that notice is given that copying is
  11. ; by permission of Lisp Machine Inc.  LMI reserves for itself the 
  12. ; sole commercial right to use any part of this KERMIT/H19-Emulator
  13. ; not covered by any Columbia University copyright.  Inquiries concerning
  14. ; copyright should be directed to Mr. Damon Lawrence at (213) 642-1116.
  15. ;
  16. ; Version Information:
  17. ;      LMKERMIT 1.0     --      Original LMI code, plus edit ;1; for 3600 port
  18. ;
  19. ; Authorship Information:
  20. ;      Mark David (LMI)           Original version, using KERMIT.C as a guide
  21. ;      George Carrette (LMI)      Various enhancements
  22. ;      Mark Ahlstrom (Honeywell)  Port to 3600 (edits marked with ";1;" comments)
  23. ;
  24. ; Author Addresses:
  25. ;      George Carrette     ARPANET: GJC at MIT-MC
  26. ;
  27. ;      Mark Ahlstrom       ARPANET: Ahlstrom at HI-Multics
  28. ;                          PHONE:   (612) 887-4006
  29. ;                          USMAIL:  Honeywell MN09-1400
  30. ;                                   Computer Sciences Center
  31. ;                                   10701 Lyndale Avenue South
  32. ;                                   Bloomington, MN  55420
  33. ;******************************************************************************
  34.  
  35.  
  36.  
  37. ;;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  38. ;;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  39.  
  40. ;;;
  41. ;;;                 KERMIT
  42. ;;;
  43.  
  44.  
  45.  
  46. ;;;                 this is the package system declaration
  47. ;;;                 for KERMIT
  48.  
  49.  
  50. ;;; these are the 6 files. they should be loaded in this order usually:
  51. ;;; 1. Proto
  52. ;;; 2. Calls
  53. ;;; 3. Term
  54. ;;; 4. Open
  55. ;;; 5. S-term
  56. ;;; 6. Server
  57. ;;; 7. Window
  58. ;;;
  59. ;;; PROTO is the basic Columbia University (Frank da Cruz, et al) Kermit protocal.
  60. ;;;  It's was translated from the C by Mark David at LMI. Unless otherwise noted,
  61. ;;;  the rest of the code for these was written and developed by Mark David largely
  62. ;;;  assisted by George Carrette @ LMI in 1984.
  63. ;;; CALLS contains the definition of Kstate, the flavor object which 'wraps' the myriad special
  64. ;;;  variables and has the methods to make the top level calls to the protocol.
  65. ;;; TERM is the Heath (aka z19, z29, h19, zenith,...) terminal emulator.
  66. ;;; OPEN has alot of the functions to open files and hack filenames (for different computers).
  67. ;;; S-TERM is George Carrette's remote login interface to the Lisp Machine thru the RS-232.
  68. ;;; SERVER is the remote server protocol. It's very minimal. It can be invoked thru s-term.
  69. ;;; WINDOW is the window interface to Calls, which in turn is the interface to Proto.
  70. ;;;  It also takes care of such vital things as making the serial stream, managing
  71. ;;;  everything, etc. The Kermit program is really built on this window. (Actu-
  72. ;;;  ally, there is a little too much dependency on the window interface for my tastes, but
  73. ;;;  that's a common 'problem' for Lisp Machine programmers.)
  74.  
  75.  
  76. (defpackage kermit
  77.   (:size 500))                    ;1; 
  78.  
  79. (defpackage s-terminal
  80.   (:size 200))                    ;1; 
  81.  
  82. (defsystem kermit
  83.  
  84.   (:name "KERMIT")
  85.  
  86.   (:pathname-default "kermit:source;")
  87.  
  88.   (:patchable #-3600 "kermit:patch;" #-3600 "KERMIT")    ;1;
  89.  
  90.   (:module kermit-protocol "LMIPRO")
  91.  
  92.   (:module kermit-calls "LMICAL")
  93.  
  94.   (:module kermit-open "LMIOPN")
  95.  
  96.   (:module kermit-server "LMISRV")
  97.  
  98.   (:module kermit-window "LMIWIN")
  99.  
  100.   (:module kermit-terminal "LMITER")
  101.  
  102.   (:module s-terminal "LMISTR")
  103.  
  104.   (:compile-load kermit-protocol)
  105.  
  106.   (:compile-load kermit-calls (:fasload kermit-protocol))
  107.  
  108.   (:compile-load kermit-terminal)
  109.  
  110.   ;1; added a load of kermit-calls here so kermit-default-pathname
  111.   ;1; is not redefined...
  112.   (:compile-load kermit-open (:fasload kermit-protocol #+3600 kermit-calls))
  113.  
  114.   (:compile-load s-terminal)
  115.  
  116.   ;1; why again??
  117.   #-3600 (:compile-load kermit-open  (:fasload kermit-protocol))
  118.  
  119.   (:compile-load kermit-server (:fasload kermit-protocol))
  120.  
  121.   (:compile-load kermit-window
  122.                      (:fasload kermit-protocol kermit-terminal kermit-open kermit-calls
  123.               s-terminal))        ;1; added s-terminal to avoid an 
  124.                         ;1; "undefined flavor" warning.
  125.   )
  126.