;;; compiled by jimb@geech.gnu.ai.mit.edu on Sat May 22 05:49:39 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/rlogin.el ;;; emacs version 19.6.18. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (require (quote comint)) (defvar rlogin-program "rlogin" "\ *Name of program to invoke rlogin") (defvar rlogin-explicit-args nil "\ *List of arguments to pass to rlogin on the command line.") (defvar rlogin-mode-hook nil "\ *Hooks to run after setting current buffer to rlogin-mode.") (defvar rlogin-process-connection-type nil "\ *If non-`nil', use a pty for the local rlogin process. If `nil', use a pipe (if pipes are supported on the local system). Generally it is better not to waste ptys on systems which have a static number of them. On the other hand, some implementations of `rlogin' assume a pty is being used, and errors will result from using a pipe instead.") (defvar rlogin-password-paranoia nil "\ *If non-`nil', query user for a password in the minibuffer when a Password: prompt appears. It's also possible to selectively enter passwords without echoing them in the minibuffer using the command `rlogin-password' explicitly.") (byte-code "ÀÁ!„ „(à !Å ÆÇ#ˆÅ ÈÉ#ˆÅ ÊË#ˆÅ ÌÍ#ˆÂ‡" [boundp rlogin-mode-map nil full-copy-sparse-keymap comint-mode-map define-key "" rlogin-send-Ctrl-C "" rlogin-send-Ctrl-Z "" rlogin-send-Ctrl-backslash "" rlogin-delchar-or-send-Ctrl-D] 4) (defalias 'rlogin #[(&optional prefix host) "Âà \"ƒ<ƒ B‚ CÈ \nƒ+ÅË !!Ì !ˆÍ !†WÎ ˆÏp È%ˆÑ ! ÒÓ !d\"ˆÔ Õ\"ˆÖ ,‡" [rlogin-process-connection-type process-connection-type format "*rlogin-%s*" host buffer-name rlogin-explicit-args args nil proc prefix generate-new-buffer switch-to-buffer comint-check-proc comint-mode comint-exec rlogin-program get-process set-marker process-mark set-process-filter rlogin-filter rlogin-mode] 6 "\ Open a network login connection to HOST via the `rlogin' program. Input is sent line-at-a-time to the remote connection. Communication with HOST is recorded in a buffer *rlogin-HOST*. If a prefix argument is given and the buffer *rlogin-HOST* already exists, a new buffer with a different connection will be made. 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." (list current-prefix-arg (read-from-minibuffer "Open rlogin connection to host: "))]) (defalias 'rlogin-with-args #[(host args) "À ÁÄŽÅÆ\"ƒ'ÈÉ!ÊÉ!O\nBËÈË!O‚)ÌÉ \"*‡" [match-data nil rlogin-explicit-args old-match-data ((store-match-data old-match-data)) string-match "[ ]*\\([^ ]+\\)$" args match-beginning 1 match-end 0 rlogin host] 4 "\ Open a new rlogin connection to HOST, even if one already exists. String ARGS is given as arguments to the `rlogin' program, overriding the value of `rlogin-explicit-args'." (list (read-from-minibuffer "Open rlogin connection to host: ") (read-from-minibuffer "with arguments: "))]) (defalias 'rlogin-password #[(&optional proc) "„Áp!ÂÃ!!ÄÅÆ\n\"Ç\"‰…,Š\nqˆÉÊ!ˆËÅÌ\"\")*‡" [proc get-buffer-process buffer-name process-buffer comint-read-noecho format "Password for buffer \"%s\": " stars pass insert-before-markers "\n" comint-send-string "%s\n"] 6 "\ Read a password and send it to an rlogin session. For each character typed, a `*' is echoed in the minibuffer. End with RET, LFD, or ESC. DEL or C-h rubs out. C-u kills line. C-g aborts attempt to read and send password. Optional argument PROC is the process to which the password should be sent. If not provided, send to the process in the current buffer. This argument is intended primarily for use by `rlogin-filter'." nil]) (defalias 'rlogin-mode #[nil "À ˆÁ ˆ\nÄÆÈ !ˆÊË!‡" [kill-all-local-variables comint-mode shell-prompt-pattern comint-prompt-regexp rlogin-mode major-mode "rlogin" mode-name use-local-map rlogin-mode-map run-hooks rlogin-mode-hook] 2 "\ Set major-mode for rlogin sessions. If `rlogin-mode-hook' is set, run it." nil]) (byte-code "ÀÁMˆÂÃMˆÄÅMˆÆÇM‡" [rlogin-filter #[(proc string) "À‰‰ŠÄ !qˆÆ !`ÈU?…$ É U…$Êp! bˆË !ˆ\nbˆÍÎ Ï#ƒ?ÐÑ!ˆ‚0) ƒRÉ !\nYƒRÒ \nÓ#ˆ+…cÕ Ö\"…c× !‡" [nil window region-begin proc-mark process-buffer proc process-mark scroll-step 0 window-start get-buffer-window insert-before-markers string search-forward " " goto-end delete-char -1 set-window-start noforce rlogin-password-paranoia string= "Password:" rlogin-password] 4] rlogin-send-Ctrl-C #[nil "ÀÁÂ\"‡" [send-string nil ""] 3 nil nil] rlogin-send-Ctrl-Z #[nil "ÀÁÂ\"‡" [send-string nil ""] 3 nil nil] rlogin-send-Ctrl-backslash #[nil "ÀÁÂ\"‡" [send-string nil ""] 3 nil nil]] 2) (defalias 'rlogin-delchar-or-send-Ctrl-D #[(arg) "mƒ ÀÁÂ\"‡Ã !‡" [send-string nil "" delete-char arg] 3 "\ Delete ARG characters forward, or send a C-d to process if at end of buffer." "p"])