HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/net/telnet.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'comint)
#@300 Specify which telnet program to use for particular hosts.
Each element has the form (HOSTNAME PROGRAM [LOGIN-NAME])
HOSTNAME says which machine the element applies to.
PROGRAM says which program to run, to talk to that machine.
LOGIN-NAME, which is optional, says what to log in as on that machine.
(defvar telnet-host-properties nil (#$ . 427))
(defvar telnet-new-line "
")
(defvar telnet-mode-map (byte-code "\302 \244\303	\304\305#\210\303	\306\307#\210\303	\310\311#\210\303	\312\313#\210	)\207" [comint-mode-map map make-sparse-keymap define-key "
" telnet-send-input "" send-process-next-char "" telnet-interrupt-subjob "" telnet-c-z] 4))
(defvar telnet-prompt-pattern "^[^#$%>\n]*[#$%>] *")
(defvar telnet-replace-c-g nil)
(byte-code "\300\301\302!!\210\300\303\304!!\207" [make-variable-buffer-local (lambda (#1=#:def-tmp-var) (defvar telnet-remote-echoes #1# "True if the telnet process will echo input.")) t (lambda (#1#) (defvar telnet-interrupt-string #1# "String sent by C-c.")) ""] 3)
#@74 Number of output strings from telnet process while looking for password.
(defvar telnet-count 0 (#$ . 1441))
(make-variable-buffer-local 'telnet-count)
#@45 Program to run to open a telnet connection.
(defvar telnet-program "telnet" (#$ . 1599))
#@147 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-initial-count -50 (#$ . 1695))
#@237 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 again for a username and password.
(defvar telnet-maximum-count 4 (#$ . 1894))
#@66 Interrupt the program running through telnet on the remote host.
(defalias 'telnet-interrupt-subjob #[nil "\301\302\"\207" [telnet-interrupt-string process-send-string nil] 3 (#$ . 2180) nil])
(defalias 'telnet-c-z #[nil "\300\301\302\"\207" [process-send-string nil ""] 3 nil nil])
(defalias 'send-process-next-char #[nil "\302\303\304\305\306 \303)!\"\207" [inhibit-quit quit-flag process-send-string nil char-to-string t read-char] 5 nil nil])
#@55 Tries to put correct initializations in.  Needs work.
(defalias 'telnet-check-software-type-initialize #[(string) "\306\307\310	\"\203\n\311\2021\307\312	\"\203\313\2021\307\314	\"\203(\315\2021\307\316	\"\2031\317)\211\207" [case-fold-search string comint-prompt-regexp telnet-prompt-pattern telnet-new-line telnet-replace-c-g t string-match "unix" "\n" "tops-20" "[@>]*" "its" "^[^*>\n]*[*>] *" "explorer" 10] 3 (#$ . 2637)])
(defalias 'telnet-initial-filter #[(proc string) "r\306!q\210\307\310\311\n\"\203\312\306!!\210\313\311!\202R\310\314\n\"\2038\315\n\"\210\316\317\320\321\307\"\fP\"\210\322 \202R\323\n!\210\315\n\"\210
V\203N\324\315\"\202RT\211*\207" [proc case-fold-search string telnet-count telnet-new-line telnet-maximum-count process-buffer t string-match "No such host" kill-buffer error "passw" telnet-filter 0 process-send-string comint-read-noecho "Password: " clear-this-command-keys telnet-check-software-type-initialize set-process-filter] 5])
(defalias 'telnet-simple-send #[(proc string) "\304	\"\210\n\203	\305\230?\205\306 \207\304\"\207" [proc string comint-input-sender-no-newline telnet-new-line comint-send-string "" process-send-eof] 3])
(defalias 'telnet-filter #[(proc string) "r\306!q\210\307\310!!`	Z\205\307!\311p!\211\205#\312
!	b\210c\210	\313\223\210\310!`\313\223\210\203E\314
\315#\210\f\203N\f\313\223\210\316	x\210`	V\203``S`|\210\202N\310!b\210\203s\317	`\320\315%\210\n\321V\205\310!\n\\b.\207" [proc last-insertion delta comint-last-input-end ie w process-buffer marker-position process-mark get-buffer-window window-start nil set-window-start t "^
" subst-char-in-region 7 0 ws string comint-last-output-start telnet-replace-c-g] 7])
(defalias 'telnet-send-input #[nil "\303 \210\205\n	\n|\207" [telnet-remote-echoes comint-last-input-start comint-last-input-end comint-send-input] 2 nil nil])
#@539 Open a network login connection to host named HOST (a string).
Optional arg PORT specifies alternative port to connect to.
Interactively, use \[universal-argument] prefix to be prompted for port number.

Communication with HOST is recorded in a buffer `*PROGRAM-HOST*'
where PROGRAM is the telnet program being used.  This program
is controlled by the contents of the global variable `telnet-host-properties',
falling back on the value of the global variable `telnet-program'.
Normally input is edited in Emacs and sent a line at a time.
(defalias 'telnet #[(host &optional port) "\203
\247\203
\306!\307\310\n\"A\211\203\f@\202
\203+\n\311Q\202,\n 
\312\313 \314\315#Q!\316\317!\317Q!\"\fA\205K\320\fAB#\315$\"\203f\321\"!\203f\322\317!\317Q!\202\250\322\323\324!
\315#%!\210\321p!$\325$\326\"\210\327$!\210\330 \210\331$\332\n\203\222\333\202\223\334\206\230\334\335\260\"\210\336 \210\337%&\211'.\207" [port comint-delimiter-argument-list host telnet-host-properties properties telnet-program int-to-string (32 9) assoc ":" "-" comint-arguments 0 nil get-buffer "*" "-l" get-buffer-process switch-to-buffer apply make-comint set-process-filter telnet-initial-filter accept-process-output erase-buffer process-send-string "open " " " "" "\n" telnet-mode telnet-simple-send hname name buffer telnet-options process comint-input-sender telnet-initial-count telnet-count] 8 (#$ . 4569) (list (read-string "Open connection to host: ") (cond ((null current-prefix-arg) nil) ((consp current-prefix-arg) (read-string "Port: ")) (t (prefix-numeric-value current-prefix-arg))))])
(put 'telnet-mode 'mode-class 'special)
(defvar telnet-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [telnet-mode-hook variable-documentation put "Hook run after entering Telnet mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp telnet-mode-map definition-name telnet-mode] 4)
(defvar telnet-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [telnet-mode-abbrev-table telnet-mode-map variable-documentation put purecopy "Keymap for `telnet-mode'." boundp telnet-mode-syntax-table definition-name telnet-mode (lambda (#1=#:def-tmp-var) (defvar telnet-mode-syntax-table #1#)) make-syntax-table "Syntax table for `telnet-mode'." (lambda (#1#) (defvar telnet-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `telnet-mode'." derived-mode-parent comint-mode] 5)
#@491 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.

In addition to any hooks its parent mode `comint-mode' might have run,
this mode runs the hook `telnet-mode-hook', as the final or penultimate step
during initialization.

\{telnet-mode-map}
(defalias 'telnet-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2036
\321 =\203<\322\f\323 \"\210)\324\325\"\204V=\204V\326\325C#\210\327!\210\330\f!\210\306\331!\210\307\306\332!\210 \306\333!\210\307)\334\335!\207" [delay-mode-hooks major-mode mode-name telnet-mode-map telnet-mode-syntax-table parent make-local-variable t comint-mode telnet-mode "Telnet" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table window-point-insertion-type comint-prompt-regexp comint-use-prompt-regexp run-mode-hooks telnet-mode-hook telnet-mode-abbrev-table local-abbrev-table telnet-prompt-pattern] 6 (#$ . 7377) nil])
#@187 Open a network login connection to host named HOST (a string).
Communication with HOST is recorded in a buffer `*rsh-HOST*'.
Normally input is edited in Emacs and sent a line at a time.
(defalias 'rsh #[(host) "\304\305!\210\306P\307\310	\n\311$!\210\312\313	!\314\"\210\315 \210\316\211)\207" [host name remote-shell-program telnet-count require shell "rsh-" switch-to-buffer make-comint nil set-process-filter get-process telnet-initial-filter telnet-mode -16] 6 (#$ . 8751) "sOpen rsh connection to host: "])
(provide 'telnet)