Mercurial > emacs

annotate lisp/kermit.el @ 29721:b722da8919f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cp-coding-system-for-codepage-1): Delete special codes for generating xxx-dos coding system because now a CCL based coding system can handle EOL conversion by default.
author Kenichi Handa <handa@m17n.org>
date Mon, 19 Jun 2000 05:09:55 +0000 (2000-06-19)
parents 11218164bc54
children 253f761ad37b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
792
45d748a65f24 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 744
diff changeset
1 ;;; kermit.el --- additions to shell mode for use with kermit, etc.
45d748a65f24 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 744
diff changeset
2
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
3 ;; Copyright (C) 1988 Free Software Foundation, Inc.
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 807
diff changeset
4
792
45d748a65f24 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 744
diff changeset
5 ;; Author: Jeff Norden <jeff@colgate.csnet>
17976
852464ce5d6a Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
6 ;; Maintainer: FSF
792
45d748a65f24 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 744
diff changeset
7 ;; Created: 15 Feb 1988
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 923
diff changeset
8 ;; Keywords: comm
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
9
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
11
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
15 ;; any later version.
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
16
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
20 ;; GNU General Public License for more details.
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
21
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
22 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 3591
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 3591
diff changeset
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 3591
diff changeset
25 ;; Boston, MA 02111-1307, USA.
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
26
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 923
diff changeset
27 ;;; Commentary:
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
28
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
29 ;; I'm not sure, but I think somebody asked about running kermit under shell
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
30 ;; mode a while ago. Anyway, here is some code that I find useful. The result
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
31 ;; is that I can log onto machines with primitive operating systems (VMS and
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
32 ;; ATT system V :-), and still have the features of shell-mode available for
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
33 ;; command history, etc. It's also handy to be able to run a file transfer in
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
34 ;; an emacs window. The transfer is in the "background", but you can also
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
35 ;; monitor or stop it easily.
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
36
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
37 ;; The ^\ key is bound to a function for sending escape sequences to kermit,
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
38 ;; and ^C^Q can be used to send any control characters needed thru to the
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
39 ;; system you connect to. A more serious problem is that some brain-dead
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
40 ;; systems will not recognize a ^J as an end-of-line character. So LFD is
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
41 ;; bound to a new function which acts just like CR usually does in shell-mode,
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2307
diff changeset
42 ;; but a ^M is sent as an end-of-line. Functions are also provided to swap the
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
43 ;; bindings of CR and LFD. I've also included a filter which will clean out
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
44 ;; any ^M's or ^@'s that get typed at you, but I don't really recommend it.
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
45 ;; There doesn't seem to be an acceptably fast way to do this via emacs-lisp.
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
46 ;; Invoking kermit by the command " kermit | tr -d '\015' " seems to work
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
47 ;; better (on my system anyway).
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
48
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
49 ;; Here's how I've been using this setup. We have several machines connected
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
50 ;; thru a fairly stupid terminal switch. If I want to connect to unix system,
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
51 ;; then I use the LFD key to talk to the switch, and ignore any ^M's in the
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
52 ;; buffer, and do a " stty -echo nl " after I log in. Then the only real
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2307
diff changeset
53 ;; difference from being in local shell-mode is that you need to type
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
54 ;; ^C^Q^C to send an interrupt, and ^C^Q^Z for a stop signal, etc. (since ^C^C
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
55 ;; just generates a local stop signal, which kermit ignores).
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
56 ;; To connect to a VMS system, I use a shell script to invoke kermit thru the
2307
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 923
diff changeset
57 ;; tr filter, do "M-X kermit-send-cr", and then tell VMS that I'm on a
10e417efb12a Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 923
diff changeset
58 ;; half-duplex terminal.
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
59
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
60 ;; Some caveats:
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
61 ;; 1) Kermit under shell mode is a real pain if you don't have pty's. I
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
62 ;; recently discovered this on our 3b2/400. When kermit can't find a tty, it
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
63 ;; assumes it is supposed to be in remote mode. So the simple command "kermit"
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
64 ;; won't work in shell mode on such a system. You can get around this by using
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
65 ;; the -c (connect) command line option, which means you also have to specify a
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
66 ;; line and baud on the command line, as in "kermit -l /dev/tty53 -b 9600 -c".
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
67 ;; However, this will cause kermit to exit when the connection is closed. So
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
68 ;; in order to do a file transfer, you have to think ahead and and add -r
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
69 ;; (receive) to the command line. This means that you can't use the server
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
70 ;; feature. The only fix I can see is to muck around with the source code for
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 2307
diff changeset
71 ;; kermit, although this probably wouldn't be too hard. What is needed is an
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
72 ;; option to force kermit to be local, to use stdin and stdout for interactive
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
73 ;; speech, and to forget about cbreak mode.
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
74
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
75 ;; Please let me know if any bugs turn up.
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
76 ;; Feb 1988, Jeff Norden - jeff@colgate.csnet
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
77
807
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
78 ;;; Code:
4f28bd14272c *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 792
diff changeset
79
792
45d748a65f24 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 744
diff changeset
80 (require 'shell)
45d748a65f24 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 744
diff changeset
81
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
82 (defvar kermit-esc-char "\C-\\" "*Kermit's escape char")
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
83
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
84 (defun kermit-esc ()
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
85 "For sending escape sequences to a kermit running in shell mode."
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
86 (interactive)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
87 (process-send-string
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
88 (get-buffer-process (current-buffer))
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
89 (concat kermit-esc-char (char-to-string (read-char)))))
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
90
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
91 (defun kermit-send-char ()
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
92 "Send an arbitrary character to a program in shell mode."
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
93 (interactive)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
94 (process-send-string
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
95 (get-buffer-process (current-buffer))
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
96 (char-to-string (read-char))))
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
97
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
98 (define-key shell-mode-map "\C-\\" 'kermit-esc)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
99 (define-key shell-mode-map "\C-c\C-q" 'kermit-send-char)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
100 ;; extra bindings for folks suffering form ^S/^Q braindamage:
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
101 (define-key shell-mode-map "\C-c\\" 'kermit-esc)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
102
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
103 (defun kermit-send-input-cr ()
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
104 "Like \\[comint-send-input] but end the line with carriage-return."
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
105 (interactive)
923
9f3cc03dae67 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
106 (comint-send-input)
9f3cc03dae67 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
107 (comint-send-string (get-buffer-process (current-buffer)) "\r"))
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
108
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
109 ;; This is backwards of what makes sense, but ...
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
110 (define-key shell-mode-map "\n" 'kermit-send-input-cr)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
111
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
112 (defun kermit-default-cr ()
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
113 "Make RETURN end the line with carriage-return and LFD end it with a newline.
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
114 This is useful for talking to other systems on which carriage-return
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
115 is the normal way to end a line."
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
116 (interactive)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
117 (define-key shell-mode-map "\r" 'kermit-send-input-cr)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
118 (define-key shell-mode-map "\n" 'comint-send-input))
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
119
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
120 (defun kermit-default-nl ()
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
121 "Make RETURN end the line with a newline char. This is the default state.
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
122 In this state, use LFD to send a line and end it with a carriage-return."
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
123 (interactive)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
124 (define-key shell-mode-map "\n" 'kermit-send-input-cr)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
125 (define-key shell-mode-map "\r" 'comint-send-input))
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
126
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
127 (defun kermit-clean-filter (proc str)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
128 "Strip ^M and ^@ characters from process output."
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
129 (save-excursion
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
130 (let ((beg (process-mark proc)))
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
131 (set-buffer (process-buffer proc))
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
132 (goto-char beg)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
133 (insert-before-markers str)
923
9f3cc03dae67 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
134 (while (re-search-backward "[\r\C-a]+" beg t)
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
135 (replace-match "")))))
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
136
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
137 (defun kermit-clean-on ()
923
9f3cc03dae67 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 846
diff changeset
138 "Delete all null characters and ^M's from the kermit output.
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
139 Note that another (perhaps better) way to do this is to use the
744
4c7627a869df *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 660
diff changeset
140 command `kermit | tr -d '\\015''."
40
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
141 (interactive)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
142 (set-process-filter (get-buffer-process (current-buffer))
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
143 'kermit-clean-filter))
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
144
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
145 (defun kermit-clean-off ()
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
146 "Cancel a previous kermit-clean-shell-on command."
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
147 (interactive)
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
148 (set-process-filter (get-buffer-process (current-buffer)) nil))
6cf43aaa881b Initial revision
root <root>
parents:
diff changeset
149
18383
11218164bc54 Add provide call.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
150 (provide 'kermit)
11218164bc54 Add provide call.
Richard M. Stallman <rms@gnu.org>
parents: 17976
diff changeset
151
792
45d748a65f24 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 744
diff changeset
152 ;;; kermit.el ends here