;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.145
;;; Reason:
;;;  Make termcap descriptors easier to deal with, not requiring embedded Escape
;;;  characters.
;;; Written 4-Dec-87 18:38:17 by pld at site Gigamos Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.144, Experimental Local-File 73.3, Experimental FILE-Server 22.1, Experimental Unix-Interface 11.0, Experimental Tape 18.0, Experimental KERMIT 34.0, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, microcode 1754, SDU Boot Tape 3.12, SDU ROM 8.



; From modified file DJ: L.NETWORK.IP-TCP.SERVER; TERMCAP.LISP#41 at 4-Dec-87 18:38:18
#10R TELNET#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TELNET")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; SERVER; TERMCAP  "

(defmethod (simple-ascii-stream-terminal :output-control-sequence) (s)
  (with-lock (output-lock)
    (setq need-force-output t)
    (send self :output-control-sequence-unlocked s)))

))

; From modified file DJ: L.NETWORK.IP-TCP.SERVER; TERMCAP.LISP#41 at 4-Dec-87 18:38:32
#10R TELNET#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TELNET")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; SERVER; TERMCAP  "

(defmethod (simple-ascii-stream-terminal :output-control-sequence-unlocked) (s)
  (cond ((null s))
	((symbolp s)
	 (send output :tyo (symbol-value s)))
	((stringp s)
	 (send output :string-out s))
	((listp s)
	 (dolist (z s)
	   (send self :output-control-sequence-unlocked z)))
	((integerp s)
	 (send output :tyo s))
	('else
	 (funcall s output))))

))

; From modified file DJ: L.NETWORK.IP-TCP.SERVER; TERMCAP.LISP#41 at 4-Dec-87 18:38:55
#10R TELNET#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TELNET")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; SERVER; TERMCAP  "

(define-termcap h19 "Now manufactured by Zenith Data Systems. For Zenith-Mode functions"
  :nicknames '(h-19 z29 z-29 heath zenith)
  :add-blank-line '(*esc* "L")
  :clear-to-end-of-display '(*esc* "J")
  :clear-to-end-of-line '(*esc* "K")
  :clear-screen '(*esc* "E")
  :cursor-motion '(*esc* "Y" (+ x 32) (+ y 32))
  :number-of-columns 80
  :number-of-lines 24 
  :cursor-horizontal-motion nil
  :cursor-vertical-motion nil
  :delete-character nil
  :delete-line nil
  :enter-delete-mode nil
  :down-one-line nil
  :end-delete-mode nil
  :enter-insert-mode nil
  :end-insert-mode nil
  :home-cursor '(*esc* "H")
  :insert-character nil
  :initialization-string nil
  :cursor-right nil
  :cursor-up nil
  )

))

; From modified file DJ: L.NETWORK.IP-TCP.SERVER; TERMCAP.LISP#41 at 4-Dec-87 18:39:01
#10R TELNET#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "TELNET")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; IP-TCP; SERVER; TERMCAP  "

(define-termcap vt-100 "Another commonly used terminal"
  :nicknames '(vt100)
  :add-blank-line nil
  :clear-to-end-of-display '(*esc* "[J")
  :clear-to-end-of-line '(*esc* "[K")
  :clear-screen '(*esc* "[;H" *esc* "[2J")
  :cursor-motion '(*esc* "[" y ";" x "H")
  :number-of-columns 80
  :number-of-lines 24 
  :cursor-horizontal-motion nil
  :cursor-vertical-motion nil
  :delete-character nil
  :delete-line nil
  :enter-delete-mode nil
  :down-one-line nil
  :end-delete-mode nil
  :enter-insert-mode nil
  :end-insert-mode nil
  :home-cursor '(*esc* "[H")
  :insert-character nil
  :initialization-string nil
  :cursor-right nil
  :cursor-up nil
  )

))