home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
tiexplorer
/
ptch11.lsp
< prev
next >
Wrap
Text File
|
1986-09-21
|
6KB
|
176 lines
;;; -*- Mode: Lisp; Package: User; Base: 8.; Patch-File: T -*-
;;; Written 10/17/86 12:26:15 by SPERRY,
;;; Reason: Added definitions for :send-long-break and :send-short-break methods
;;; to serial-stream-mixin, and defined the analagous commands for the
;;; VT100 emulator.
;;; while running on A from band LOD1
;;; with System 2.11, Compiler 2.0, File System 2.0, Universal Command Loop 2.0, Window System 2.1, Input Editor 2.0, ZMACS 2.3, Error Handler 2.0, Suggestions 2.0, Debug Utilities 2.2, Explorer-Net 2.5, Telnet 2.0, Vt100 2.0, File Server 2.0, Net-Config 2.1, Font Editor 2.0, Mailer 2.1, Mail-Reader 2.2, Streamer-Tape 2.3, Local-File 2.10, System-Log 2.0, Serial-Parallel 2.0, Printer 2.0, Glossary 2.0, IMAGEN 2.0, NVRAM 2.0, User Profile Utility 2.1, SPERRY 2.0, KEE2 1.6401, Graphics-Window 2.0, Graphics-Editor 2.0, Tree-Drawing-Utility 2.0, RTMS 2.5, NLMenu 2.0, NLMenu-RTMS-Interface 2.0, PROLOG 2.1, Grasper 2.0, Formatter 2.0, Color Graphics 1.0, IP 1.5, KERMIT 1.0, microcode 258, Rel 2.0.1 + KEE + 8 kits, 7-1-86.
#!Z
; From file SERIAL-TELNET.LISP#> KERMIT; A:
#8R TELNET#:
(COMPILER-LET ((PACKAGE (PKG-FIND-PACKAGE "TELNET"))
(SI:LISP-MODE :ZETALISP)
(*READTABLE* SI:STANDARD-READTABLE)
(SI:*READER-SYMBOL-SUBSTITUTIONS* NIL))
(COMPILER#:PATCH-SOURCE-FILE "LM: KERMIT; SERIAL-TELNET.#"
si:
(defmethod (serial-stream-mixin :SEND-LONG-BREAK) ()
"Transmits a space condition for 3.5 seconds (long break)."
(write-z-reg 5
(logand #x7F ; Turn off DTR
(logior #x+10 WR5-CONTENTS))) ;turn on send break
(sleep 3.5 "Sending Long Break")
(write-z-reg 5 WR5-CONTENTS) ;restore register
)
))
#!Z
; From file SERIAL-TELNET.LISP#> KERMIT; A:
#8R TELNET#:
(COMPILER-LET ((PACKAGE (PKG-FIND-PACKAGE "TELNET"))
(SI:LISP-MODE :ZETALISP)
(*READTABLE* SI:STANDARD-READTABLE)
(SI:*READER-SYMBOL-SUBSTITUTIONS* NIL))
(COMPILER#:PATCH-SOURCE-FILE "LM: KERMIT; SERIAL-TELNET.#"
si:
(defmethod (serial-stream-mixin :SEND-SHORT-BREAK) ()
"Transmits a space condition for .275 seconds (short break)."
(write-z-reg 5 (logior #x+10 WR5-CONTENTS)) ;turn on send break
(sleep .275 "Sending Short Break")
(write-z-reg 5 WR5-CONTENTS) ;restore register
)
))
#!Z
; From file SERIAL-TELNET.LISP#> KERMIT; A:
#8R TELNET#:
(COMPILER-LET ((PACKAGE (PKG-FIND-PACKAGE "TELNET"))
(SI:LISP-MODE :ZETALISP)
(*READTABLE* SI:STANDARD-READTABLE)
(SI:*READER-SYMBOL-SUBSTITUTIONS* NIL))
(COMPILER#:PATCH-SOURCE-FILE "LM: KERMIT; SERIAL-TELNET.#"
(DEFCOMMAND (VT100-FRAME :LONG-BREAK) ()
'(:DESCRIPTION "Send a short break to stream."
:NAMES ("Long Break")
:KEYS ((#\NETWORK #\CTRL-BREAK)))
(if (not (null connection))
(send stream :send-long-break)
(format t "~&Not connected. Can't send Long Break.")
(when (not ucl:preempting?)
(send self :handle-prompt))))
))
#!Z
; From file SERIAL-TELNET.LISP#> KERMIT; A:
#8R TELNET#:
(COMPILER-LET ((PACKAGE (PKG-FIND-PACKAGE "TELNET"))
(SI:LISP-MODE :ZETALISP)
(*READTABLE* SI:STANDARD-READTABLE)
(SI:*READER-SYMBOL-SUBSTITUTIONS* NIL))
(COMPILER#:PATCH-SOURCE-FILE "LM: KERMIT; SERIAL-TELNET.#"
(DEFCOMMAND (VT100-FRAME :SHORT-BREAK) ()
'(:DESCRIPTION "Send a short break to stream."
:NAMES ("Short Break")
:KEYS ((#\NETWORK #\BREAK)))
(if (not (null connection))
(send stream :send-short-break)
(format t "~&Not connected. Can't send Short Break.")
(when (not ucl:preempting?)
(send self :handle-prompt))))
))
#!Z
; From file SERIAL-TELNET.LISP#> KERMIT; A:
#8R TELNET#:
(COMPILER-LET ((PACKAGE (PKG-FIND-PACKAGE "TELNET"))
(SI:LISP-MODE :ZETALISP)
(*READTABLE* SI:STANDARD-READTABLE)
(SI:*READER-SYMBOL-SUBSTITUTIONS* NIL))
(COMPILER#:PATCH-SOURCE-FILE "LM: KERMIT; SERIAL-TELNET.#"
(BUILD-COMMAND-TABLE 'VT100-TELNET-CMD-TABLE 'VT100-FRAME
'((:method telnet-frame :exit-command)
(:method telnet-frame :disconnect-command)
(:method telnet-frame :interrupt-process-command)
:send-answerback-command
:reverse-video-command
:reset-command
:escape-processing-command
(:method telnet-frame :quit-and-disconnect-command)
(:method telnet-frame :status-command)
(:method telnet-frame :abort-output-command)
:column-command
:truncate-command
:set-vt100-lines
:network-help-command
(:method telnet-frame :clear-input-command)
(:method vt100-frame :autodial) ; BAC
(:method vt100-frame :kermit) ; BAC
:local-echo-command ; BAC
:short-break
:long-break
)
:INIT-OPTIONS
'(:NAME "Vt100 & Telnet Commands"
:DOCUMENTATION "The Vt100 & Telnet commands."))
))
#!Z
; From file SERIAL-TELNET.LISP#> KERMIT; A:
#8R TELNET#:
(COMPILER-LET ((PACKAGE (PKG-FIND-PACKAGE "TELNET"))
(SI:LISP-MODE :ZETALISP)
(*READTABLE* SI:STANDARD-READTABLE)
(SI:*READER-SYMBOL-SUBSTITUTIONS* NIL))
(COMPILER#:PATCH-SOURCE-FILE "LM: KERMIT; SERIAL-TELNET.#"
(BUILD-MENU 'UCL-VT100-TELNET-MENU 'VT100-FRAME
:DEFAULT-ITEM-OPTIONS
'(:FONT FONTS:MEDFNT)
:ITEM-LIST-ORDER
'( ;Row 1
(:method telnet-frame :exit-command)
(:method telnet-frame :disconnect-command)
(:method telnet-frame :interrupt-process-command)
:send-answerback-command
:reverse-video-command
:reset-command
:escape-processing-command
;Row 2
(:method telnet-frame :quit-and-disconnect-command)
(:method telnet-frame :status-command)
(:method telnet-frame :abort-output-command)
:column-command
:truncate-command
:set-vt100-lines
:network-help-command
;Row 3 ; BAC
(:method vt100-frame :autodial) ; BAC
(:method vt100-frame :kermit) ; BAC
:local-echo-command ; BAC
:short-break
:long-break
))
))