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