Re: Termcaps/VT100

[Hunter Barr <barr@pineapple.bbn.com>]

Tom,
     I load the following private patch file in my Lispm-init file.
It doesn't solve much, but it keeps me from having to do do a
<NETWORK>-X everytime I login to a Unix host.  If other people send
more useful things to you, would you mind forwarding them to me also?
My next few months of work involve a LOT of Unix, and any little
tidbits may help.  Thanks.

;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: ZL-USER; Base: 10; Patch-File: T -*-
;;; Patch file for Private version 0.0
;;; Reason: Someone forgot that Ultrix is like Unix.
;;; This is the way it should have been done the first time,
;;; so that the user can set the defaults in her LISPM-INIT file.
;;;
;;; Written by Barr, 11/09/87 19:22:06
;;; while running on STRAWBERRY from Fep0:>inc-internet-from-genera-7-1.load.1
;;; with Genera 7.1, IP-TCP 52.16, Experimental Cronus Distributed Operating System 7.3,
;;; microcode 3650-MIC 396, FEP 206, FEP0:>g206-lisp.flod(6),
;;; FEP0:>g206-loaders.flod(6), FEP0:>g206-info.flod(6), FEP0:>g206-debug.flod(1),
;;; Machine serial number 30147,
;;; Network-Security patch (from STRAWBERRY:>bbn>network-security),
;;; IP/TCP patches required for Cronus (from CRONUS:CRONUS;NETWORK-PATCHES.LISP.11).


(NOTE-PRIVATE-PATCH "This seems to be the only way to make VT100 the default terminal type.")


;=====================================
(SYSTEM-INTERNALS:BEGIN-PATCH-SECTION)
; From buffer telnet.lisp >rel-7>network CONGER: (237)
(SYSTEM-INTERNALS:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Package: TELNET; Base: 8 -*-")

(lisp:pushnew :ultrix telnet:*SYSTEM-TYPES-THAT-REFUSE-OVERSTRIKING*)

;=====================================
(SYSTEM-INTERNALS:BEGIN-PATCH-SECTION)
; From buffer telnet.lisp >rel-7>network CONGER: (237)
(SYSTEM-INTERNALS:PATCH-SECTION-ATTRIBUTES
  "-*- Mode: LISP; Package: TELNET; Base: 8 -*-")

(defvar *default-terminal-simulator* 'vt100-terminal-simulator)

(DEFUN GET-LOGIN-CONNECTION (HOST &KEY LOGIN-PROTOCOL CONNECTION-PROTOCOL
				       (TERMINAL-SIMULATOR *default-terminal-simulator*)
				       ECHO-P OVERSTRIKE-P)
  ECHO-P OVERSTRIKE-P
  (COND ((AND (NULL LOGIN-PROTOCOL) (NULL CONNECTION-PROTOCOL))
	 ;; Specifying nothing, use most desirable.
	 (CONDITION-BIND ((HOST-DOES-NOT-SUPPORT-SERVICE
			    #'NETI:HOST-DOES-NOT-SUPPORT-PROTOCOL-SPECIFY-PATH-HANDLER))
	   (INVOKE-SERVICE-ON-HOST ':LOGIN HOST ':TERMINAL-SIMULATOR TERMINAL-SIMULATOR)))
	((NULL CONNECTION-PROTOCOL)
	 ;; Specifying protocol, using its normal contact name.
	 (INVOKE-SERVICE-ACCESS-PATH
	   (FIND-PATH-TO-PROTOCOL-ON-HOST LOGIN-PROTOCOL HOST)
	   (AND TERMINAL-SIMULATOR `(:TERMINAL-SIMULATOR ,TERMINAL-SIMULATOR))))
	(T
	 ;; Specifying specific port (which may not normally have login service).
	 ;; Default to lisp machine character set.  (Or should it default to telnet?)
	 (WHEN (NULL LOGIN-PROTOCOL)
	   (SETQ LOGIN-PROTOCOL ':LISPM-NULL-TELNET))
	 (LET ((CONNECTION-PATH (FIND-PATH-TO-PROTOCOL-ON-HOST CONNECTION-PROTOCOL HOST))
	       (LOGIN-PROTOCOL (NETI:FIND-PROTOCOL-NAMED LOGIN-PROTOCOL ':LOGIN)))
	   (SETF (NETI:SERVICE-ACCESS-PATH-ARGS CONNECTION-PATH)
		 (AND TERMINAL-SIMULATOR `(:TERMINAL-SIMULATOR ,TERMINAL-SIMULATOR)))
	   (INVOKE-LOGIN-SERVICE-1 CONNECTION-PATH LOGIN-PROTOCOL)))))