WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/net
Viewing File: /usr/share/emacs/24.3/lisp/net/rlogin.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:55:32 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/rlogin.el
;;; in Emacs version 24.3.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.

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


(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\307\311&\210\312\313\314\315\316\317\307\304&\210\312\320\305\321\316\322\307\304&\210\312\323\305\324\316\325\307\304&\210\312\326\327\330\316\331\307\304&\210\312\332\333\334\316\335\307\304&\210\336\332!\210\312\337\305\340\316\341\307\304&\210\312\342\305\343\316\344\307\304&\207" [require comint shell custom-declare-group rlogin nil "Remote login interface." :group processes unix custom-declare-variable rlogin-program "rlogin" "Name of program to invoke rlogin" :type string rlogin-explicit-args "List of arguments to pass to rlogin on the command line." (repeat (string :tag "Argument")) rlogin-mode-hook "Hooks to run after setting current buffer to rlogin-mode." hook rlogin-process-connection-type (and (string-match-p "-solaris2" system-configuration) t) "If non-nil, use a pty for the local rlogin process.\nIf nil, use a pipe (if pipes are supported on the local system).\n\nGenerally it is better not to waste ptys on systems which have a static\nnumber of them.  On the other hand, some implementations of `rlogin' assume\na pty is being used, and errors will result from using a pipe instead." (choice (const :tag "pipes" nil) (other :tag "ptys" t)) rlogin-directory-tracking-mode 'local "Control whether and how to do directory tracking in an rlogin buffer.\n\nnil means don't do directory tracking.\n\nt means do so using an ftp remote file name.\n\nAny other value means do directory tracking using local file names.\nThis works only if the remote machine and the local one\nshare the same directories (through NFS).  This is the default.\n\nThis variable becomes local to a buffer when set in any fashion for it.\n\nIt is better to use the function of the same name to change the behavior of\ndirectory tracking in an rlogin session once it has begun, rather than\nsimply setting this variable, since the function does the necessary\nre-synching of directories." (choice (const :tag "off" nil) (const :tag "ftp" t) (other :tag "local" local)) make-variable-buffer-local rlogin-host "The name of the remote host.  This variable is buffer-local." (choice (const nil) string) rlogin-remote-user "The username used on the remote host.\nThis variable is buffer-local and defaults to your local user name.\nIf rlogin is invoked with the `-l' option to specify the remote username,\nthis variable is set from that." (choice (const nil) string)] 8)
#@27 Keymap for `rlogin-mode'.
(defvar rlogin-mode-map (byte-code ":\203\302B\202\303!\304	\305\306#\210\304	\307\310#\210\304	\311\312#\210\304	\313\314#\210\304	\315\316#\210\304	\317\320#\210	)\207" [shell-mode-map map keymap copy-keymap define-key "" rlogin-send-Ctrl-C "" rlogin-send-Ctrl-D "" rlogin-send-Ctrl-Z "" rlogin-send-Ctrl-backslash "" rlogin-delchar-or-send-Ctrl-D "	" rlogin-tab-or-complete] 4) (#$ . 2988))
(defvar rlogin-history nil)
#@1653 Open a network login connection via `rlogin' with args INPUT-ARGS.
INPUT-ARGS should start with a host name; it may also contain
other arguments for `rlogin'.

Input is sent line-at-a-time to the remote connection.

Communication with the remote host is recorded in a buffer `*rlogin-HOST*'
(or `*rlogin-USER@HOST*' if the remote username differs).
If a prefix argument is given and the buffer `*rlogin-HOST*' already exists,
a new buffer with a different connection will be made.

When called from a program, if the optional second argument BUFFER is
a string or buffer, it specifies the buffer to use.

The variable `rlogin-program' contains the name of the actual program to
run.  It can be a relative or absolute path.

The variable `rlogin-explicit-args' is a list of arguments to give to
the rlogin when starting.  They are added after any arguments given in
INPUT-ARGS.

If the default value of `rlogin-directory-tracking-mode' is t, then the
default directory in that buffer is set to a remote (FTP) file name to
access your home directory on the remote machine.  Occasionally this causes
an error, if you cannot access the home directory on that machine.  This
error is harmless as long as you don't try to use that default directory.

If `rlogin-directory-tracking-mode' is neither t nor nil, then the default
directory is initially set up to your (local) home directory.
This is useful if the remote machine and your local machine
share the same files via NFS.  This is the default.

If you wish to change directory tracking styles during a session, use the
function `rlogin-directory-tracking-mode' rather than simply setting the
variable.
(defalias 'rlogin #[(input-args &optional buffer) "\n\203\306\307!\n\"\202\307!\211\211\203)
@\310H\311U\203)
A\211\204
@)\312\f\235A@\2068\313 \211\313 \230\203I\314\315\"\202P\314\316# \203\214 ;\203d \202\214\317 !\203t\320 !\202\214 \247\203\206\314\321 #\202\214\322!\323! \324!\210\325!?\205\301\326 !\327\f%\210\330 \210\331\332!\210\331\333!\210\327\334\335\217-\207" [rlogin-process-connection-type process-connection-type rlogin-explicit-args input-args args tail append split-string 0 45 "-l" user-login-name format "*rlogin-%s*" "*rlogin-%s@%s*" bufferp buffer-name "%s<%d>" generate-new-buffer-name get-buffer-create switch-to-buffer comint-check-proc comint-exec nil rlogin-mode make-local-variable rlogin-host rlogin-remote-user (byte-code "\304=\203\305	\306\n\307\260\310!\207?\206\310\311P!\207" [rlogin-directory-tracking-mode rlogin-remote-user rlogin-host comint-file-name-prefix t "/" "@" ":" cd-absolute "~/"] 5) ((error)) host user buffer rlogin-program] 7 (#$ . 3461) (list (read-from-minibuffer "rlogin arguments (hostname first): " nil nil nil 'rlogin-history) current-prefix-arg)])
(byte-code "\300\301\302\303#\210\304\305N\204\300\304\305\306\307!#\210\310\311!\204 \300\311\312\301#\210\300\207" [put rlogin-mode mode-class special rlogin-mode-hook variable-documentation purecopy "Hook run when entering Rlogin mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp rlogin-mode-map definition-name] 5)
(defvar rlogin-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [rlogin-mode-map variable-documentation put purecopy "Keymap for `rlogin-mode'." boundp rlogin-mode-syntax-table definition-name rlogin-mode] 5)
(defvar rlogin-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [rlogin-mode-syntax-table variable-documentation put purecopy "Syntax table for `rlogin-mode'." rlogin-mode-abbrev-table definition-name rlogin-mode] 5)
(defvar rlogin-mode-abbrev-table (progn (define-abbrev-table 'rlogin-mode-abbrev-table nil) rlogin-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [rlogin-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `rlogin-mode'." rlogin-mode derived-mode-parent shell-mode] 5)
#@468 Major mode derived from `shell-mode' by `define-derived-mode'.
It inherits all of the parent's attributes, but has its own keymap,
abbrev table and syntax table:

  `rlogin-mode-map', `rlogin-mode-abbrev-table' and `rlogin-mode-syntax-table'

which more-or-less shadow shell-mode's corresponding tables.

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

\{rlogin-mode-map}
(defalias 'rlogin-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\325C#\210\327!\210\330\f!\210\306\331!\210)\332\333!\207" [delay-mode-hooks major-mode mode-name rlogin-mode-map rlogin-mode-syntax-table parent make-local-variable t shell-mode rlogin-mode "Rlogin" 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 comint-file-name-prefix run-mode-hooks rlogin-mode-hook rlogin-mode-abbrev-table local-abbrev-table rlogin-directory-tracking-mode shell-dirtrackp] 6 (#$ . 7640) nil])
#@678 Do remote or local directory tracking, or disable entirely.

If called with no prefix argument or a unspecified prefix argument (just
``\[universal-argument]'' with no number) do remote directory tracking via
ange-ftp.  If called as a function, give it no argument.

If called with a negative prefix argument, disable directory tracking
entirely.

If called with a positive, numeric prefix argument, e.g.
``\[universal-argument] 1 M-x rlogin-directory-tracking-mode'',
then do directory tracking but assume the remote filesystem is the same as
the local system.  This only works in general if the remote machine and the
local one share the same directories (e.g. through NFS).
(defalias 'rlogin-directory-tracking-mode #[(&optional prefix) "\203	:\203\306\211\307\310\f\311\260\202+\312W\203%\313\211\202+\314\315\306\n\205]\316p!\317!\211d{`\211Y\205MdZ\320\216d|\210db\210\321 .\207" [prefix rlogin-directory-tracking-mode shell-dirtrackp rlogin-remote-user rlogin-host comint-file-name-prefix t "/" "@" ":" 0 nil local "" get-buffer-process process-mark ((byte-code "b\210	c\210\n\203d\nZb\210\202b\210\304\207" [proc-mark current-input offset orig-point nil] 2)) shell-resync-dirs proc proc-mark current-input orig-point offset] 6 (#$ . 8927) "P"])
(defalias 'rlogin-send-Ctrl-C #[nil "\300\301\302\"\207" [process-send-string nil ""] 3 nil nil])
(defalias 'rlogin-send-Ctrl-D #[nil "\300\301\302\"\207" [process-send-string nil ""] 3 nil nil])
(defalias 'rlogin-send-Ctrl-Z #[nil "\300\301\302\"\207" [process-send-string nil ""] 3 nil nil])
(defalias 'rlogin-send-Ctrl-backslash #[nil "\300\301\302\"\207" [process-send-string nil ""] 3 nil nil])
#@78 Delete ARG characters forward, or send a C-d to process if at end of buffer.
(defalias 'rlogin-delchar-or-send-Ctrl-D #[(arg) "m\203\301 \207\302!\207" [arg rlogin-send-Ctrl-D delete-char] 2 (#$ . 10636) "p"])
#@69 Complete file name if doing directory tracking, or just insert TAB.
(defalias 'rlogin-tab-or-complete #[nil "\203\301 \207\302c\207" [rlogin-directory-tracking-mode comint-dynamic-complete "	"] 1 (#$ . 10855) nil])
(provide 'rlogin)
F1l3 Manager
