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