;ELC ;;; compiled by jwz@thalidomide on Thu Jan 13 19:32:54 1994 ;;; from file /th/jwz/emacs19/lisp/comint/telnet.el ;;; emacs version 19.9 Lucid. ;;; bytecomp version 2.22; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code "!!!!!!\n! !" [require comint boundp telnet-mode-map nil telnet-new-line " " make-variable-buffer-local telnet-default-prompt-pattern "^[^#$%>]*[#$%>] *" telnet-prompt-pattern telnet-replace-c-g] 2) (defvar telnet-remote-echoes t "\ True if the telnet process will echo input.") (make-variable-buffer-local 'telnet-remote-echoes) (defvar telnet-interrupt-string "" "\ String sent by C-c.") (make-variable-buffer-local 'telnet-interrupt-string) (defvar telnet-count 0 "\ Number of output strings read from the telnet process while looking for the initial password.") (make-variable-buffer-local 'telnet-count) (defvar telnet-initial-count -50 "\ Initial value of `telnet-count'. Should be set to the negative of the number of terminal writes telnet will make setting up the host connection.") (defvar telnet-maximum-count 4 "\ Maximum value `telnet-count' can have. After this many passes, we stop looking for initial setup data. Should be set to the number of terminal writes telnet will make rejecting one login and prompting for the again for a username and password.") (byte-code "MMM \"\n\"####" [telnet-interrupt-subjob #[nil "\n\"" [process-send-string nil telnet-interrupt-string] 3 nil nil] telnet-c-z #[nil "\"" [process-send-string nil ""] 3 nil nil] telnet-send-process-next-char #[nil " )!\"" [process-send-string nil char-to-string t inhibit-quit read-char quit-flag] 5 nil nil] telnet-mode-map make-sparse-keymap set-keymap-name set-keymap-parent comint-mode-map define-key " " telnet-send-input "" "" ""] 4) (fset 'telnet-check-software-type-initialize #[(string) " \"  \" \" \")" [t case-fold-search string-match "unix" string shell-prompt-pattern telnet-prompt-pattern "\n" telnet-new-line "tops-20" "[@>] *" "its" "^[^*>]*[*>] *" "explorer" 10 telnet-replace-c-g telnet-default-prompt-pattern comint-prompt-regexp] 3 "\ Tries to put correct initializations in. Needs work."]) (byte-code "MMMM" [telnet-initial-filter #[(proc string) "\n\" !!!\n\" \n\"!   P\")\n! \n\"V !=!L \")T" [string-match "No such host" string kill-buffer process-buffer proc error "No such host." "passw" telnet-filter comint-read-noecho "Password: " password 0 telnet-count process-send-string telnet-new-line telnet-check-software-type-initialize telnet-maximum-count process-filter old-filter shell-font-process-filter make-local-variable set-process-filter] 5] telnet-simple-send #[(proc string) " \n\" \"" [comint-send-string proc string telnet-new-line] 3] telnet-filter #[(proc string) " !q Ď !!`Z  !\np!  !b! !`ѓ #\n \nѓ#!r !b`% !\\b." [process-buffer proc match-data _match_data_ ((store-match-data _match_data_)) marker-position process-mark last-insertion delta comint-last-input-end ie get-buffer-window w window-start ws insert-before-markers string nil set-window-start t search-backward " " delete-char 1 telnet-replace-c-g subst-char-in-region 7] 7] telnet-send-input #[nil "p! ` !Y !!`) \nT|+" [get-buffer-process nil p2 p1 proc telnet-remote-echoes process-mark comint-eol-on-send marker-position comint-send-input] 3 nil nil]] 2) (fset 'telnet #[(host &optional port) " Q P Q!!! \"! !\" !! PR\" *" [port host "/" "-telnet" name get-buffer "*" buffer get-buffer-process switch-to-buffer make-comint "telnet" set-process-filter get-process telnet-initial-filter accept-process-output erase-buffer process-send-string "open " " " "" "\n" telnet-simple-send comint-input-sender telnet-initial-count telnet-count telnet-mode] 7 "\ Open a network login connection to host named HOST (a string). With a prefix argument, prompts for the port name or number as well. Communication with HOST is recorded in a buffer *HOST-telnet*. Normally input is edited in Emacs and sent a line at a time. See also `\\[rsh]'." (byte-code "!\n!D" [read-string "Open telnet connection to host: " current-prefix-arg "Port name or number: "] 3)]) (fset 'telnet-mode #[nil "  !!" [comint-mode telnet-mode major-mode "Telnet" mode-name telnet-prompt-pattern comint-prompt-regexp use-local-map telnet-mode-map run-hooks telnet-mode-hook] 2 "\ This mode is for using telnet (or rsh) from a buffer to another host. It has most of the same commands as comint-mode. There is a variable ``telnet-interrupt-string'' which is the character sent to try to stop execution of a job on the remote host. Data is sent to the remote host when RET is typed. \\{telnet-mode-map} " nil]) (fset 'rsh #[(host) "!\nP \n$! \n! !\" )" [require shell host "-rsh" name switch-to-buffer make-comint "rsh" nil telnet-initial-count telnet-count telnet-check-software-type-initialize "unix" set-process-filter get-process telnet-filter telnet-mode] 6 "\ Open a network login connection to host named HOST (a string). Communication with HOST is recorded in a buffer *HOST-rsh*. Normally input is edited in Emacs and sent a line at a time. See also `\\[telnet]'." "sOpen rsh connection to host: "]) (provide 'telnet)