![[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] / 43BSD / contrib / emacs / lisp|
Return to telnet.el CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / 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: (if telnet-mode-map ! 53: nil ! 54: (setq telnet-mode-map (make-keymap)) ! 55: (define-key telnet-mode-map "\C-m" 'telnet-send-input) ! 56: (define-key telnet-mode-map "\C-d" 'shell-send-eof) ! 57: (define-key telnet-mode-map "\C-q" 'send-process-next-char) ! 58: (define-key telnet-mode-map "\C-u" 'kill-shell-input) ! 59: (define-key telnet-mode-map "\C-w" 'backward-kill-word) ! 60: (define-key telnet-mode-map "\C-c" 'telnet-interrupt-subjob) ! 61: (define-key telnet-mode-map "\C-z" 'telnet-c-z) ! 62: ) ! 63: ! 64: ;;maybe should have a flag for when have found type ! 65: (defun telnet-check-software-type-initialize (string) ! 66: "Tries to put correct initializations in. Needs work." ! 67: (cond ((string-match "unix" string) ! 68: (setq telnet-prompt-pattern shell-prompt-pattern) ! 69: (setq telnet-new-line "\n")) ! 70: ((string-match "tops-20" string) ;;maybe add telnet-replace-c-g ! 71: (setq telnet-prompt-pattern "[@>]*")) ! 72: ((string-match "its" string) ! 73: (setq telnet-prompt-pattern "^[^*>]*[*>] *")) ! 74: ((string-match "explorer" string) ;;explorer telnet needs work ! 75: (setq telnet-replace-c-g ?\n)) ! 76: )) ! 77: ! 78: (defun telnet-initial-filter (proc string) ! 79: ;For reading up to and including password; also will get machine type. ! 80: (cond ((string-match "passw" string) ! 81: (telnet-filter proc string) ! 82: (setq password (read-password)) ! 83: (setq telnet-count 0) ! 84: (send-string proc (concat password telnet-new-line))) ! 85: (t (telnet-check-software-type-initialize string) ! 86: (telnet-filter proc string) ! 87: (cond ((> telnet-count 4) ! 88: (set-process-filter proc 'telnet-filter)) ! 89: (t (setq telnet-count (1+ telnet-count))))))) ! 90: ! 91: (defun telnet-filter (proc string) ! 92: (save-excursion ! 93: (set-buffer (process-buffer proc)) ! 94: (goto-char (point-max)) ! 95: (let ((now (point))) ! 96: (insert string) ! 97: (subst-char-in-region now (point) ?\^m ?\ ) ! 98: (and telnet-replace-c-g (subst-char-in-region now (point) ?\^g telnet-replace-c-g))) ! 99: (if (process-mark proc) ! 100: (set-marker (process-mark proc) (point))) ! 101: (if (and (integer-or-marker-p last-input-start) ! 102: (marker-position last-input-start) ! 103: telnet-remote-echoes) ! 104: (delete-region last-input-start last-input-end))) ! 105: (if (eq (process-buffer proc) ! 106: (current-buffer)) ! 107: (goto-char (point-max)))) ! 108: ! 109: (defun delete-char-or-send-eof (arg killp) ! 110: "At end of buffer, send eof to subshell. Otherwise delete character." ! 111: (interactive "p\nP") ! 112: (if (and (eobp) (not killp)) ! 113: (process-send-eof) ! 114: (delete-char arg killp))) ! 115: ! 116: (defun telnet-send-input () ! 117: "Send input to remote host ! 118: At end of buffer, sends all text after last output ! 119: as input to the telnet, including a telnet-new-line inserted at the end. ! 120: Not at end, copies current line to the end of the buffer and sends it, ! 121: after first attempting to discard any prompt at the beginning of the line ! 122: by matching the regexp that is the value of telnet-prompt-pattern if possible." ! 123: (interactive) ! 124: (let (copied) ! 125: (end-of-line) ! 126: (if (eobp) ! 127: (progn ! 128: (move-marker last-input-start ! 129: (process-mark (get-buffer-process (current-buffer)))) ! 130: (move-marker last-input-end (point))) ! 131: (beginning-of-line) ! 132: (re-search-forward telnet-prompt-pattern nil t) ! 133: (let ((copy (buffer-substring (point) ! 134: (progn (forward-line 1) (point))))) ! 135: (goto-char (point-max)) ! 136: (move-marker last-input-start (point)) ! 137: (insert copy) (setq copied t) ! 138: (move-marker last-input-end (point)))) ! 139: (save-excursion ! 140: (goto-char last-input-start) ! 141: (let ((process (get-buffer-process (current-buffer)))) ! 142: (send-region process last-input-start last-input-end) ! 143: (if (not copied) (send-string process telnet-new-line)) ! 144: (set-marker (process-mark process) (point)))))) ! 145: ! 146: (defun telnet (arg) ! 147: "Open a network login connection to host named HOST (a string). ! 148: Communication with HOST is recorded in a buffer *HOST-telnet*. ! 149: Normally input is edited in Emacs and sent a line at a time." ! 150: (interactive "sOpen telnet connection to host: ") ! 151: (require 'shell) ! 152: (let ((name (concat arg "-telnet" ))) ! 153: (switch-to-buffer (make-shell name "telnet")) ! 154: (set-process-filter (get-process name) 'telnet-initial-filter) ! 155: (erase-buffer) ! 156: (send-string name (concat "open " arg "\n")) ! 157: (telnet-mode) ! 158: (setq telnet-count -16))) ! 159: ! 160: (defun read-password () ! 161: (let ((answ "") tem) ! 162: (while (not (= (setq tem (read-char)) ?\^m)) ! 163: (setq answ (concat answ (char-to-string tem)))) ! 164: answ)) ! 165: ! 166: (defun telnet-mode () ! 167: "This mode is for use during telnet from a buffer to another ! 168: host. It has most of the same commands as shell mode. ! 169: There is a variable `telnet-interrupt-string' which is the character ! 170: sent to try to stop execution of a job on the remote host. ! 171: Data is sent to the remote host when `return' is typed. ! 172: Thus if you may need to edit the data before sending you ! 173: should use c-n to move down a line. Then you can return ! 174: to alter a previous line. Of course you should not use this ! 175: mode of telnet if you want to run emacs like programs on the ! 176: remote host (at least not yet!). ! 177: ! 178: \\[telnet-send-input] Causes the last string of input to be sent to remote host ! 179: \\[delete-char-or-send-eof] Will delete a character (or send eof if it is the last character. ! 180: \\[kill-shell-input] Kills the last shell-input ! 181: \\[backward-kill-word] runs backward-kill-word. ! 182: \\[send-process-next-char] sends the next keystroke directly without ! 183: interpretation eg. useful for sending c-q or ` ' to continue typeout ! 184: with more processing. ! 185: \\[telnet-interrupt-subjob] interrupts the current program running on the remote host. ! 186: \\[telnet-c-z] Sends a c-z to the remote host ! 187: ! 188: Bugs: ! 189: --Replace by a space, really should remove. ! 190: --For Unix interacts poorly with tcsh although csh,sh,ksh are ok." ! 191: (interactive) ! 192: (kill-all-local-variables) ! 193: (setq major-mode 'telnet-mode) ! 194: (setq mode-name "telnet") ! 195: (setq mode-line-format ! 196: "--%1*%1*-Emacs: %17b %M %[(%m: %s)%]----%3p--%-") ! 197: (make-local-variable 'last-input-start) ! 198: (use-local-map telnet-mode-map) ! 199: (let ((tem telnet-prompt-pattern)) ! 200: (make-local-variable 'telnet-prompt-pattern) ! 201: (setq telnet-prompt-pattern tem)) ! 202: (make-local-variable 'telnet-interrupt-string) ! 203: (setq telnet-interrupt-string "") ! 204: (make-local-variable 'telnet-new-line) ! 205: (setq telnet-new-line "\r") ! 206: (make-local-variable 'last-input-start) ! 207: (setq last-input-start (make-marker)) ! 208: (make-local-variable 'last-input-end) ! 209: (setq last-input-end (make-marker)) ! 210: (make-local-variable 'telnet-remote-echoes) ! 211: (setq telnet-remote-echoes t) ! 212: (make-local-variable 'telnet-replace-c-g) ! 213: (setq telnet-replace-c-g nil)) ! 214: ! 215: ! 216:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.