Mercurial > emacs
annotate lisp/rlogin.el @ 2310:7fc39e81bfd9
Alpha-sorted this, and added some new hot buttons for the 1990s.
author | Eric S. Raymond <esr@snark.thyrsus.com> |
---|---|
date | Mon, 22 Mar 1993 05:51:55 +0000 |
parents | 2ba32183ea62 |
children | 9e7ec92a4fdf |
rev | line source |
---|---|
2233
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
1 ;;; rlogin.el --- remote login interface |
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
2 |
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
3 ;; Maintainer: Noah Friedman <friedman@prep.ai.mit.edu> |
2259 | 4 ;; Keywords: unix, comm |
2233
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
5 |
2231 | 6 ;;; Copyright (C) 1992 Free Software Foundation, Inc. |
7 ;;; | |
8 ;;; This program is free software; you can redistribute it and/or modify | |
9 ;;; it under the terms of the GNU General Public License as published by | |
10 ;;; the Free Software Foundation; either version 2, or (at your option) | |
11 ;;; any later version. | |
12 ;;; | |
13 ;;; This program is distributed in the hope that it will be useful, | |
14 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 ;;; GNU General Public License for more details. | |
17 ;;; | |
18 ;;; You should have received a copy of the GNU General Public License | |
19 ;;; along with this program; if not, you can either send email to this | |
20 ;;; program's author (see below) or write to: | |
21 ;;; | |
22 ;;; The Free Software Foundation, Inc. | |
23 ;;; 675 Massachusetts Avenue. | |
24 ;;; Cambridge, MA 02139, USA. | |
25 ;;; | |
26 | |
27 ;;; Todo: add directory tracking using ange-ftp style patchnames for the cwd. | |
28 | |
2233
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
29 ;;; Code: |
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
30 |
2231 | 31 (require 'comint) |
32 | |
33 (defvar rlogin-program "rlogin" | |
34 "*Name of program to invoke rlogin") | |
35 | |
36 (defvar rlogin-mode-hook nil | |
37 "*Hooks to run after setting current buffer to rlogin-mode.") | |
38 | |
39 ;; Initialize rlogin mode map. | |
40 (defvar rlogin-mode-map '()) | |
41 (cond ((not rlogin-mode-map) | |
42 (setq rlogin-mode-map (full-copy-sparse-keymap comint-mode-map)) | |
43 ;(define-key rlogin-mode-map "\M-\t" 'comint-dynamic-complete) | |
44 ;(define-key rlogin-mode-map "\M-?" 'comint-dynamic-list-completions) | |
45 (define-key rlogin-mode-map "\C-c\C-c" 'rlogin-send-Ctrl-C) | |
46 (define-key rlogin-mode-map "\C-c\C-z" 'rlogin-send-Ctrl-Z) | |
47 (define-key rlogin-mode-map "\C-c\C-\\" 'rlogin-send-Ctrl-backslash) | |
48 (define-key rlogin-mode-map "\C-d" 'rlogin-delchar-or-send-Ctrl-D))) | |
49 | |
50 (defun rlogin (host) | |
51 (interactive "sOpen rlogin connection to host: ") | |
52 (let* ((buffer-name (concat "rlogin-" host)) | |
53 (*buffer-name* (concat "*" buffer-name "*"))) | |
54 (cond ((not (comint-check-proc *buffer-name*)) | |
55 (let* ((xargs-name (intern-soft "explicit-rlogin-args")) | |
56 (xargs (and xargs-name (boundp xargs-name) (symbol-value xargs-name))) | |
57 (process-connection-type nil) | |
58 proc) | |
59 (if xargs | |
60 (setq xargs (append xargs host)) | |
61 (setq xargs (list host))) | |
62 (set-buffer (apply 'make-comint buffer-name rlogin-program nil xargs)) | |
63 (setq proc (get-process buffer-name)) | |
64 (set-process-filter proc 'rlogin-filter) | |
65 (rlogin-mode)))) | |
66 (switch-to-buffer *buffer-name*))) | |
67 | |
68 (defun rlogin-mode () | |
69 (interactive) | |
70 (comint-mode) | |
71 (setq comint-prompt-regexp shell-prompt-pattern) | |
72 (setq major-mode 'rlogin-mode) | |
73 (setq mode-name "Rlogin") | |
74 (use-local-map rlogin-mode-map) | |
75 (run-hooks 'rlogin-mode-hook)) | |
76 | |
77 (defun rlogin-filter (proc string) | |
78 (let ((process-buffer (process-buffer proc)) | |
79 (at-eobp (eobp))) | |
80 (save-excursion | |
81 (set-buffer process-buffer) | |
82 (goto-char (point-max)) | |
83 (let ((now (point)) | |
84 process-mark) | |
85 (insert string) | |
86 (subst-char-in-region now (point) ?\C-m ?\ ) | |
87 (subst-char-in-region now (point) ?\M-r ?\ ) | |
88 (setq process-mark (process-mark proc)) | |
89 (and process-mark | |
90 (set-marker process-mark (point))))) | |
91 (and at-eobp | |
92 (eq process-buffer (current-buffer)) | |
93 (goto-char (point-max))))) | |
94 | |
95 (defun rlogin-send-Ctrl-C () | |
96 (interactive) | |
97 (send-string nil "\C-c")) | |
98 | |
99 (defun rlogin-send-Ctrl-Z () | |
100 (interactive) | |
101 (send-string nil "\C-z")) | |
102 | |
103 (defun rlogin-send-Ctrl-backslash () | |
104 (interactive) | |
105 (send-string nil "\C-\\")) | |
106 | |
107 (defun rlogin-delchar-or-send-Ctrl-D (arg) | |
108 "Delete ARG characters forward, or send a C-d to process if at end of | |
109 buffer." | |
110 (interactive "p") | |
111 (if (eobp) | |
112 (send-string nil "\C-d") | |
113 (delete-char arg))) | |
114 | |
2233
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
115 ;;; rlogin.el ends here |
fb0ed5a1d0f3
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2231
diff
changeset
|
116 |