![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to telnet.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp|
Return to telnet.el CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp |
1.1 root 1: ;; Copyright (C) 1985 Free Software Foundation
2:
3: ;; This file is part of GNU Emacs.
4:
5: ;; GNU Emacs is distributed in the hope that it will be useful,
6: ;; but WITHOUT ANY WARRANTY. No author or distributor
7: ;; accepts responsibility to anyone for the consequences of using it
8: ;; or for whether it serves any particular purpose or works at all,
9: ;; unless he says so in writing. Refer to the GNU Emacs General Public
10: ;; License for full details.
11:
12: ;; Everyone is granted permission to copy, modify and redistribute
13: ;; GNU Emacs, but only under the conditions described in the
14: ;; GNU Emacs General Public License. A copy of this license is
15: ;; supposed to have been given to you along with GNU Emacs so you
16: ;; can know your rights and responsibilities. It should be in a
17: ;; file named COPYING. Among other things, the copyright notice
18: ;; and this notice must be preserved on all copies.
19:
20:
21: ;; Author William F. Schelter
22:
23: ;;to do fix software types for lispm:
24: ;;to eval current expression. Also to try to send escape keys correctly.
25: ;;essentially we'll want the rubout-handler off.
26:
27: (defvar telnet-new-line "\r")
28: (defvar telnet-mode-map nil)
29: (defvar telnet-prompt-pattern "^[^#$%>]*[#$%>] *")
30: (defvar telnet-interrupt-string "\^c" "String sent by C-c.")
31: (defvar telnet-count 0)
32: (defvar telnet-replace-c-g nil)
33: (defvar telnet-remote-echoes nil)
34:
35: (defun telnet-interrupt-subjob ()
36: (interactive)
37: "Interrupt the program running through telnet on the remote host."
38: (send-string nil telnet-interrupt-string))
39:
40: (defun telnet-c-z ()
41: (interactive)
42: (send-string nil ""))
43:
44: (defun send-process-next-char ()
45: (interactive)
46: (send-string nil
47: (char-to-string
48: (let ((inhibit-quit t))
49: (prog1 (read-char)
50: (setq quit-flag nil))))))
51:
52: (setq telnet-mode-map (make-sparse-keymap))
53:
54: (progn
55: (define-key telnet-mode-map "\C-m" 'telnet-send-input)
56: (define-key telnet-mode-map "\C-j" 'telnet-send-input)
57: (define-key telnet-mode-map "\C-c\C-d" 'shell-send-eof)
58: (define-key telnet-mode-map "\C-c\C-q" 'send-process-next-char)
59: (define-key telnet-mode-map "\C-c\C-c" 'telnet-interrupt-subjob)
60: (define-key telnet-mode-map "\C-c\C-z" 'telnet-c-z)
61: (define-key telnet-mode-map "\C-c\C-u" 'kill-shell-input)
62: (define-key telnet-mode-map "\C-c\C-w" 'backward-kill-word)
63: (define-key telnet-mode-map "\C-c\C-o" 'kill-output-from-shell)
64: (define-key telnet-mode-map "\C-c\C-r" 'show-output-from-shell)
65: (define-key telnet-mode-map "\C-c\C-y" 'copy-last-shell-input))
66:
67: ;;maybe should have a flag for when have found type
68: (defun telnet-check-software-type-initialize (string)
69: "Tries to put correct initializations in. Needs work."
70: (cond ((string-match "unix" string)
71: (setq telnet-prompt-pattern shell-prompt-pattern)
72: (setq telnet-new-line "\n"))
73: ((string-match "tops-20" string) ;;maybe add telnet-replace-c-g
74: (setq telnet-prompt-pattern "[@>]*"))
75: ((string-match "its" string)
76: (setq telnet-prompt-pattern "^[^*>]*[*>] *"))
77: ((string-match "explorer" string) ;;explorer telnet needs work
78: (setq telnet-replace-c-g ?\n))
79: ))
80:
81: (defun telnet-initial-filter (proc string)
82: ;For reading up to and including password; also will get machine type.
83: (cond ((string-match "No such host" string)
84: (kill-buffer (process-buffer proc))
85: (error "No such host."))
86: ((string-match "passw" string)
87: (telnet-filter proc string)
88: (let ((echo-keystrokes 0))
89: (setq password (read-password)))
90: (setq telnet-count 0)
91: (send-string proc (concat password telnet-new-line)))
92: (t (telnet-check-software-type-initialize string)
93: (telnet-filter proc string)
94: (cond ((> telnet-count 4)
95: (set-process-filter proc 'telnet-filter))
96: (t (setq telnet-count (1+ telnet-count)))))))
97:
98: (defun telnet-filter (proc string)
99: (save-excursion
100: (set-buffer (process-buffer proc))
101: (goto-char (point-max))
102: (let ((now (point)))
103: (insert string)
104: (subst-char-in-region now (point) ?\^m ?\ )
105: (and telnet-replace-c-g (subst-char-in-region now (point) ?\^g telnet-replace-c-g)))
106: (if (process-mark proc)
107: (set-marker (process-mark proc) (point)))
108: (if (and (integer-or-marker-p last-input-start)
109: (marker-position last-input-start)
110: telnet-remote-echoes)
111: (delete-region last-input-start last-input-end)))
112: (if (eq (process-buffer proc)
113: (current-buffer))
114: (goto-char (point-max))))
115:
116: (defun delete-char-or-send-eof (arg killp)
117: "At end of buffer, send eof to subshell. Otherwise delete character."
118: (interactive "p\nP")
119: (if (and (eobp) (not killp))
120: (process-send-eof)
121: (delete-char arg killp)))
122:
123: (defun telnet-send-input ()
124: "Send input to remote host
125: At end of buffer, sends all text after last output
126: as input to the telnet, including a telnet-new-line inserted at the end.
127: Not at end, copies current line to the end of the buffer and sends it,
128: after first attempting to discard any prompt at the beginning of the line
129: by matching the regexp that is the value of telnet-prompt-pattern if possible."
130: (interactive)
131: (let (copied)
132: (end-of-line)
133: (if (eobp)
134: (progn
135: (move-marker last-input-start
136: (process-mark (get-buffer-process (current-buffer))))
137: (move-marker last-input-end (point)))
138: (beginning-of-line)
139: (re-search-forward telnet-prompt-pattern nil t)
140: (let ((copy (buffer-substring (point)
141: (progn (forward-line 1) (point)))))
142: (goto-char (point-max))
143: (move-marker last-input-start (point))
144: (insert copy) (setq copied t)
145: (move-marker last-input-end (point))))
146: (save-excursion
147: (goto-char last-input-start)
148: (let ((process (get-buffer-process (current-buffer))))
149: (send-region process last-input-start last-input-end)
150: (if (not copied) (send-string process telnet-new-line))
151: (set-marker (process-mark process) (point))))))
152:
153: (defun telnet (arg)
154: "Open a network login connection to host named HOST (a string).
155: Communication with HOST is recorded in a buffer *HOST-telnet*.
156: Normally input is edited in Emacs and sent a line at a time."
157: (interactive "sOpen telnet connection to host: ")
158: (require 'shell)
159: (let ((name (concat arg "-telnet" )))
160: (switch-to-buffer (make-shell name "telnet"))
161: (set-process-filter (get-process name) 'telnet-initial-filter)
162: (erase-buffer)
163: (send-string name (concat "open " arg "\n"))
164: (telnet-mode)
165: (setq telnet-count -16)))
166:
167: (defun read-password ()
168: (let ((answ "") tem)
169: (while (not(or (= (setq tem (read-char)) ?\^m)
170: (= tem ?\n)))
171: (setq answ (concat answ (char-to-string tem))))
172: answ))
173:
174: (defun telnet-mode ()
175: "This mode is for use during telnet from a buffer to another
176: host. It has most of the same commands as shell mode.
177: There is a variable `telnet-interrupt-string' which is the character
178: sent to try to stop execution of a job on the remote host.
179: Data is sent to the remote host when `return' is typed.
180: Thus if you may need to edit the data before sending you
181: should use c-n to move down a line. Then you can return
182: to alter a previous line. Of course you should not use this
183: mode of telnet if you want to run emacs like programs on the
184: remote host (at least not yet!).
185:
186: The following commands imitate the usual Unix interrupt and
187: editing control characters:
188: \\{telnet-mode-map}
189:
190: Bugs:
191: --Replace
by a space, really should remove.
192: --For Unix interacts poorly with tcsh although csh,sh,ksh are ok."
193: (interactive)
194: (kill-all-local-variables)
195: (setq major-mode 'telnet-mode)
196: (setq mode-name "Telnet")
197: (setq mode-line-process '(": %s"))
198: (make-local-variable 'last-input-start)
199: (use-local-map telnet-mode-map)
200: (let ((tem telnet-prompt-pattern))
201: (make-local-variable 'telnet-prompt-pattern)
202: (setq telnet-prompt-pattern tem))
203: (make-local-variable 'telnet-interrupt-string)
204: (setq telnet-interrupt-string "")
205: (make-local-variable 'telnet-new-line)
206: (setq telnet-new-line "\r")
207: (make-local-variable 'last-input-start)
208: (setq last-input-start (make-marker))
209: (make-local-variable 'last-input-end)
210: (setq last-input-end (make-marker))
211: (make-local-variable 'telnet-remote-echoes)
212: (setq telnet-remote-echoes t)
213: (make-local-variable 'telnet-replace-c-g)
214: (setq telnet-replace-c-g nil))
215:
216:
217:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.