2231
|
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
|