annotate lisp/telnet.el @ 1557:816bfa185671

* isearch.el (isearch-frames-exist): This isn't what we want - replaced by... (isearch-gnu-emacs-events): non-nil if should expect events in the style generated by GNU Emacs 19. Set if set-frame-height is fboundp; this is true on any GNU Emacs 19, whether or not it was compiled with multiple frame support. (isearch-mode-map): Test isearch-gnu-emacs-events instead of isearch-frames-exist to see if we should bind switch-frame events. (isearch-update): Test isearch-gnu-emacs-events instead of isearch-frames-exist to see if unread-command-char's quiescent value is nil or -1.
author Jim Blandy <jimb@redhat.com>
date Sat, 07 Nov 1992 06:17:04 +0000
parents d8dc740867ee
children a52da8d63ff3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
1 ;;; telnet.el --- run a telnet session from within an Emacs buffer
775
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 707
diff changeset
2
841
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 775
diff changeset
3 ;;; Copyright (C) 1985, 1988, 1992 Free Software Foundation, Inc.
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 775
diff changeset
4
775
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 707
diff changeset
5 ;; Author: William F. Schelter
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 707
diff changeset
6 ;; Maintainer: FSF
48
82ef7404837f Initial revision
root <root>
parents:
diff changeset
7
82ef7404837f Initial revision
root <root>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
9
82ef7404837f Initial revision
root <root>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
82ef7404837f Initial revision
root <root>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
707
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 658
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
48
82ef7404837f Initial revision
root <root>
parents:
diff changeset
13 ;; any later version.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
14
82ef7404837f Initial revision
root <root>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
82ef7404837f Initial revision
root <root>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
82ef7404837f Initial revision
root <root>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
82ef7404837f Initial revision
root <root>
parents:
diff changeset
18 ;; GNU General Public License for more details.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
19
82ef7404837f Initial revision
root <root>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
82ef7404837f Initial revision
root <root>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to
82ef7404837f Initial revision
root <root>
parents:
diff changeset
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
23
775
1ca26ccad38e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 707
diff changeset
24 ;;; Code:
48
82ef7404837f Initial revision
root <root>
parents:
diff changeset
25
82ef7404837f Initial revision
root <root>
parents:
diff changeset
26 ;;to do fix software types for lispm:
82ef7404837f Initial revision
root <root>
parents:
diff changeset
27 ;;to eval current expression. Also to try to send escape keys correctly.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
28 ;;essentially we'll want the rubout-handler off.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
29
82ef7404837f Initial revision
root <root>
parents:
diff changeset
30 ;; filter is simplistic but should be okay for typical shell usage.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
31 ;; needs hacking if it is going to deal with asynchronous output in a sane
82ef7404837f Initial revision
root <root>
parents:
diff changeset
32 ;; manner
82ef7404837f Initial revision
root <root>
parents:
diff changeset
33
82ef7404837f Initial revision
root <root>
parents:
diff changeset
34 (require 'comint)
707
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 658
diff changeset
35
48
82ef7404837f Initial revision
root <root>
parents:
diff changeset
36 (defvar telnet-new-line "\r")
82ef7404837f Initial revision
root <root>
parents:
diff changeset
37 (defvar telnet-mode-map nil)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
38 (defvar telnet-prompt-pattern "^[^#$%>]*[#$%>] *")
82ef7404837f Initial revision
root <root>
parents:
diff changeset
39 (defvar telnet-replace-c-g nil)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
40 (make-variable-buffer-local
82ef7404837f Initial revision
root <root>
parents:
diff changeset
41 (defvar telnet-remote-echoes t
82ef7404837f Initial revision
root <root>
parents:
diff changeset
42 "True if the telnet process will echo input."))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
43 (make-variable-buffer-local
82ef7404837f Initial revision
root <root>
parents:
diff changeset
44 (defvar telnet-interrupt-string "\C-c" "String sent by C-c."))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
45
82ef7404837f Initial revision
root <root>
parents:
diff changeset
46 (defvar telnet-count 0
82ef7404837f Initial revision
root <root>
parents:
diff changeset
47 "Number of output strings read from the telnet process
82ef7404837f Initial revision
root <root>
parents:
diff changeset
48 while looking for the initial password.")
82ef7404837f Initial revision
root <root>
parents:
diff changeset
49
82ef7404837f Initial revision
root <root>
parents:
diff changeset
50 (defvar telnet-initial-count -50
82ef7404837f Initial revision
root <root>
parents:
diff changeset
51 "Initial value of telnet-count. Should be set to the negative of the
82ef7404837f Initial revision
root <root>
parents:
diff changeset
52 number of terminal writes telnet will make setting up the host connection.")
82ef7404837f Initial revision
root <root>
parents:
diff changeset
53
82ef7404837f Initial revision
root <root>
parents:
diff changeset
54 (defvar telnet-maximum-count 4
82ef7404837f Initial revision
root <root>
parents:
diff changeset
55 "Maximum value telnet-count can have.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
56 After this many passes, we stop looking for initial setup data.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
57 Should be set to the number of terminal writes telnet will make
82ef7404837f Initial revision
root <root>
parents:
diff changeset
58 rejecting one login and prompting for the again for a username and password.")
82ef7404837f Initial revision
root <root>
parents:
diff changeset
59
82ef7404837f Initial revision
root <root>
parents:
diff changeset
60 (defun telnet-interrupt-subjob ()
82ef7404837f Initial revision
root <root>
parents:
diff changeset
61 (interactive)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
62 "Interrupt the program running through telnet on the remote host."
82ef7404837f Initial revision
root <root>
parents:
diff changeset
63 (send-string nil telnet-interrupt-string))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
64
82ef7404837f Initial revision
root <root>
parents:
diff changeset
65 (defun telnet-c-z ()
82ef7404837f Initial revision
root <root>
parents:
diff changeset
66 (interactive)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
67 (send-string nil "\C-z"))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
68
82ef7404837f Initial revision
root <root>
parents:
diff changeset
69 (defun send-process-next-char ()
82ef7404837f Initial revision
root <root>
parents:
diff changeset
70 (interactive)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
71 (send-string nil
82ef7404837f Initial revision
root <root>
parents:
diff changeset
72 (char-to-string
82ef7404837f Initial revision
root <root>
parents:
diff changeset
73 (let ((inhibit-quit t))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
74 (prog1 (read-char)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
75 (setq quit-flag nil))))))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
76
82ef7404837f Initial revision
root <root>
parents:
diff changeset
77 ; initialization on first load.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
78 (if telnet-mode-map
82ef7404837f Initial revision
root <root>
parents:
diff changeset
79 nil
82ef7404837f Initial revision
root <root>
parents:
diff changeset
80 (setq telnet-mode-map (copy-keymap comint-mode-map))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
81 (define-key telnet-mode-map "\C-m" 'telnet-send-input)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
82 ; (define-key telnet-mode-map "\C-j" 'telnet-send-input)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
83 (define-key telnet-mode-map "\C-c\C-q" 'send-process-next-char)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
84 (define-key telnet-mode-map "\C-c\C-c" 'telnet-interrupt-subjob)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
85 (define-key telnet-mode-map "\C-c\C-z" 'telnet-c-z))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
86
82ef7404837f Initial revision
root <root>
parents:
diff changeset
87 ;;maybe should have a flag for when have found type
82ef7404837f Initial revision
root <root>
parents:
diff changeset
88 (defun telnet-check-software-type-initialize (string)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
89 "Tries to put correct initializations in. Needs work."
82ef7404837f Initial revision
root <root>
parents:
diff changeset
90 (let ((case-fold-search t))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
91 (cond ((string-match "unix" string)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
92 (setq telnet-prompt-pattern comint-prompt-regexp)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
93 (setq telnet-new-line "\n"))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
94 ((string-match "tops-20" string) ;;maybe add telnet-replace-c-g
82ef7404837f Initial revision
root <root>
parents:
diff changeset
95 (setq telnet-prompt-pattern "[@>]*"))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
96 ((string-match "its" string)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
97 (setq telnet-prompt-pattern "^[^*>]*[*>] *"))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
98 ((string-match "explorer" string) ;;explorer telnet needs work
82ef7404837f Initial revision
root <root>
parents:
diff changeset
99 (setq telnet-replace-c-g ?\n))))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
100 (setq comint-prompt-regexp telnet-prompt-pattern))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
101
82ef7404837f Initial revision
root <root>
parents:
diff changeset
102 (defun telnet-initial-filter (proc string)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
103 ;For reading up to and including password; also will get machine type.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
104 (cond ((string-match "No such host" string)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
105 (kill-buffer (process-buffer proc))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
106 (error "No such host."))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
107 ((string-match "passw" string)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
108 (telnet-filter proc string)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
109 (let* ((echo-keystrokes 0)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
110 (password (read-password)))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
111 (setq telnet-count 0)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
112 (send-string proc (concat password telnet-new-line))))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
113 (t (telnet-check-software-type-initialize string)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
114 (telnet-filter proc string)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
115 (cond ((> telnet-count telnet-maximum-count)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
116 (set-process-filter proc 'telnet-filter))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
117 (t (setq telnet-count (1+ telnet-count)))))))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
118
82ef7404837f Initial revision
root <root>
parents:
diff changeset
119 (defun telnet-filter (proc string)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
120 (let ((at-end
82ef7404837f Initial revision
root <root>
parents:
diff changeset
121 (and (eq (process-buffer proc) (current-buffer))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
122 (= (point) (point-max)))))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
123 (save-excursion
82ef7404837f Initial revision
root <root>
parents:
diff changeset
124 (set-buffer (process-buffer proc))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
125 (goto-char (process-mark proc))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
126 (let ((now (point)))
707
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 658
diff changeset
127 ;; Insert STRING, omitting all C-m characters.
48
82ef7404837f Initial revision
root <root>
parents:
diff changeset
128 (let ((index 0) c-m)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
129 (while (setq c-m (string-match "\C-m" string index))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
130 (insert-before-markers (substring string index c-m))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
131 (setq index (1+ c-m)))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
132 (insert-before-markers (substring string index)))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
133 (and telnet-replace-c-g
82ef7404837f Initial revision
root <root>
parents:
diff changeset
134 (subst-char-in-region now (point) ?\C-g telnet-replace-c-g)))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
135 ; (if (and (integer-or-marker-p last-input-start)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
136 ; (marker-position last-input-start)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
137 ; telnet-remote-echoes)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
138 ; (delete-region last-input-start last-input-end))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
139 )
82ef7404837f Initial revision
root <root>
parents:
diff changeset
140 (if at-end
82ef7404837f Initial revision
root <root>
parents:
diff changeset
141 (goto-char (point-max)))))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
142
82ef7404837f Initial revision
root <root>
parents:
diff changeset
143 (defun telnet-send-input ()
82ef7404837f Initial revision
root <root>
parents:
diff changeset
144 (interactive)
707
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 658
diff changeset
145 ; (comint-send-input telnet-new-line telnet-remote-echoes)
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 658
diff changeset
146 (comint-send-input)
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 658
diff changeset
147 (if telnet-remote-echoes
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 658
diff changeset
148 (delete-region comint-last-input-start
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 658
diff changeset
149 comint-last-input-end)))
48
82ef7404837f Initial revision
root <root>
parents:
diff changeset
150
258
1e0bc00dca7a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 48
diff changeset
151 ;;;###autoload
48
82ef7404837f Initial revision
root <root>
parents:
diff changeset
152 (defun telnet (arg)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
153 "Open a network login connection to host named HOST (a string).
82ef7404837f Initial revision
root <root>
parents:
diff changeset
154 Communication with HOST is recorded in a buffer *HOST-telnet*.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
155 Normally input is edited in Emacs and sent a line at a time."
82ef7404837f Initial revision
root <root>
parents:
diff changeset
156 (interactive "sOpen telnet connection to host: ")
82ef7404837f Initial revision
root <root>
parents:
diff changeset
157 (let ((name (concat arg "-telnet" )))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
158 (switch-to-buffer (make-comint name "telnet"))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
159 (set-process-filter (get-process name) 'telnet-initial-filter)
1414
2ba9b06d4247 (telnet): Wait for telnet output before sending `open'.
Richard M. Stallman <rms@gnu.org>
parents: 841
diff changeset
160 ;; Don't send the `open' cmd till telnet is ready for it.
2ba9b06d4247 (telnet): Wait for telnet output before sending `open'.
Richard M. Stallman <rms@gnu.org>
parents: 841
diff changeset
161 (accept-process-output (get-process name))
1418
d8dc740867ee (telnet): Do erase-buffer after the initial output.
Richard M. Stallman <rms@gnu.org>
parents: 1414
diff changeset
162 (erase-buffer)
48
82ef7404837f Initial revision
root <root>
parents:
diff changeset
163 (send-string name (concat "open " arg "\n"))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
164 (telnet-mode)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
165 (setq telnet-count telnet-initial-count)))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
166
82ef7404837f Initial revision
root <root>
parents:
diff changeset
167 (defun telnet-mode ()
82ef7404837f Initial revision
root <root>
parents:
diff changeset
168 "This mode is for use during telnet from a buffer to another
82ef7404837f Initial revision
root <root>
parents:
diff changeset
169 host. It has most of the same commands as comint-mode.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
170 There is a variable ``telnet-interrupt-string'' which is the character
82ef7404837f Initial revision
root <root>
parents:
diff changeset
171 sent to try to stop execution of a job on the remote host.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
172 Data is sent to the remote host when RET is typed.
82ef7404837f Initial revision
root <root>
parents:
diff changeset
173
82ef7404837f Initial revision
root <root>
parents:
diff changeset
174 \\{telnet-mode-map}
82ef7404837f Initial revision
root <root>
parents:
diff changeset
175
82ef7404837f Initial revision
root <root>
parents:
diff changeset
176 Bugs:
82ef7404837f Initial revision
root <root>
parents:
diff changeset
177 --Replaces by a space, really should remove."
82ef7404837f Initial revision
root <root>
parents:
diff changeset
178 (interactive)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
179 (comint-mode)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
180 (setq major-mode 'telnet-mode
82ef7404837f Initial revision
root <root>
parents:
diff changeset
181 mode-name "Telnet"
82ef7404837f Initial revision
root <root>
parents:
diff changeset
182 comint-prompt-regexp telnet-prompt-pattern)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
183 (use-local-map telnet-mode-map)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
184 (run-hooks 'telnet-mode-hook))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
185
82ef7404837f Initial revision
root <root>
parents:
diff changeset
186 (defun read-password ()
82ef7404837f Initial revision
root <root>
parents:
diff changeset
187 (let ((answ "") tem)
82ef7404837f Initial revision
root <root>
parents:
diff changeset
188 (message "Reading password...")
557
46b8522b8f89 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 258
diff changeset
189 (while (prog1 (not (memq (setq tem (read-char)) '(?\C-m ?\n ?\C-g)))
46b8522b8f89 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 258
diff changeset
190 (setq quit-flag nil))
48
82ef7404837f Initial revision
root <root>
parents:
diff changeset
191 (setq answ (concat answ (char-to-string tem))))
82ef7404837f Initial revision
root <root>
parents:
diff changeset
192 answ))
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 557
diff changeset
193
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 557
diff changeset
194 (provide 'telnet)
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 557
diff changeset
195
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 584
diff changeset
196 ;;; telnet.el ends here