1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
;;; emacspeak-remote.el --- Enables running remote Emacspeak sessions
;;; $Id: emacspeak-remote.el,v 15.0 2001/11/20 20:05:29 raman Exp $
;;; $Author: raman $
;;; Description: Auditory interface to remote speech server
;;; Keywords: Emacspeak, Speak, Spoken Output, remote server
;;{{{ LCD Archive entry:
;;; LCD Archive Entry:
;;; emacspeak| T. V. Raman |raman@cs.cornell.edu
;;; A speech interface to Emacs |
;;; $Date: 2001/11/20 20:05:29 $ |
;;; $Revision: 15.0 $ |
;;; Location undetermined
;;;
;;}}}
;;{{{ Copyright:
;;; Copyright (c) 1995 -- 2001, T. V. Raman
;;; All Rights Reserved.
;;;
;;; This file is not part of GNU Emacs, but the same permissions apply.
;;;
;;; GNU Emacs is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;;
;;; GNU Emacs is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Emacs; see the file COPYING. If not, write to
;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
;;}}}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;{{{ Required modules
(eval-when-compile (require 'cl))
(require 'backquote)
(declaim (optimize (safety 0) (speed 3)))
(eval-when (compile)
(require 'emacspeak-speak)
(require 'emacspeak-keymap)
(require 'emacspeak-sounds))
(eval-when (compile)
(require 'emacspeak-fix-interactive))
(require 'emacspeak-eterm)
;;}}}
;;{{{ Introduction
;;; In a running emacspeak session,
;;;nuke the running server and start talking to a remote speech server,
;;;after prompting for host and port
;;}}}
;;{{{ User customizations
(defvar emacspeak-remote-hooks nil
"List of hook functions that are run after
emacspeak is set to run as a remote application.
Use this to add actions you typically perform after you enter remote mode.")
;;; Here is what I currently use:
;;; It switches to using C-r as the emacspeak prefix key
;;; if emacspeak-remote-update-keymap is set to t
(defvar emacspeak-remote-update-keymap nil
"*Set this to T if you want the default remote startup hook
to update your keymap.
This is useful if you run remote emacspeak sessions within
a local Emacspeak terminal buffer.")
(defun emacspeak-remote-default-hook ()
"Function run by default when we launch a remote session"
(declare (special emacspeak-remote-update-keymap))
(when emacspeak-remote-update-keymap
(emacspeak-keymap-choose-new-emacspeak-prefix
(format "%c" 18)))
(setq emacspeak-auditory-icon-function
'emacspeak-serve-auditory-icon))
(add-hook 'emacspeak-remote-hooks 'emacspeak-remote-default-hook)
;;}}}
;;{{{ Helper for guessing host where we came from:
;;; To get this to work,
;;; put the following into your .login (csh)
;;; or translate it to bash syntax and place it in your
;;; .profile:
;/bin/rm -f ~/.emacspeak/.current-remote-hostname
;set remote=`who am i`
;if ( $;remote == 6 ) then
;eval set remote=$remote[6]
;echo -n "$remote" > ~/.emacspeak/.current-remote-hostname
;endif
;;;Remote hostname guessing
;;;
(declaim (special emacspeak-resource-directory))
(defvar emacspeak-remote-hostname
(concat emacspeak-resource-directory
"/"
".current-remote-hostname")
"Filename containing the name of the host we connected from")
(defun emacspeak-remote-get-current-remote-hostname ()
"Return the name of the remote hostname from where we connected if known"
(declare (special emacspeak-remote-hostname))
(when (file-exists-p emacspeak-remote-hostname )
(let ((buffer (find-file-noselect
emacspeak-remote-hostname))
(result nil))
(save-excursion
(set-buffer buffer)
(setq result (buffer-substring
(point-min)
(1- (point-max)))))
(kill-buffer buffer )
result)))
;;}}}
;;{{{ Connect to remote server
(defun emacspeak-remote-auto-connect-to-server ()
"Invoked via gnudoit --typically from a login sequence--
to have the running emacspeak connect to a server running on
the host we just logged in from."
(let ((host (emacspeak-remote-get-current-remote-hostname)))
(when (and (> (length host) 0)
(not (eq host (system-name))))
(emacspeak-remote-quick-connect-to-server))))
(defvar emacspeak-remote-default-port-to-connect
"2222"
"Default used when prompting for a port to connect to.")
(defvar emacspeak-remote-use-telnet-to-connect nil
"*If set to t, then use a telnet subprocess
to connect to the remote host that is running the speech
server. Default is to use Emacs' built-in open-network-stream.")
(defun emacspeak-remote-quick-connect-to-server()
"Connect to remote server.
Does not prompt for host or port, but quietly uses the
guesses that appear as defaults when prompting.
Use this once you are sure the guesses are usually correct."
(interactive)
(emacspeak-remote-connect-to-server
(emacspeak-remote-get-current-remote-hostname)
(string-to-number emacspeak-remote-default-port-to-connect)))
(defun emacspeak-remote-connect-to-server (host port)
"Connect to and start using remote speech server running on host host
and listening on port port. Host is the hostname of the remote
server, typically the desktop machine. Port is the tcp port that that
host is listening on for speech requests."
(interactive
(list
(completing-read "Remote host: "
emacspeak-eterm-remote-hosts-table ;completion table
nil ;predicate
nil ;must-match
(emacspeak-remote-get-current-remote-hostname) ;initial input
)
(read-minibuffer "Remote port: "
emacspeak-remote-default-port-to-connect)))
(declare (special dtk-speaker-process
emacspeak-remote-use-telnet-to-connect
emacspeak-remote-default-port-to-connect
emacspeak-eterm-remote-hosts-table))
(let* ((process-connection-type nil) ;dont waste a pty
(old-process dtk-speaker-process)
(new-process
(if emacspeak-remote-use-telnet-to-connect
(start-process "remote-speaker" nil
"telnet"
host port)
(open-network-stream "remote-speaker" nil
host port))))
(unless (intern-soft host emacspeak-eterm-remote-hosts-table)
(emacspeak-eterm-cache-remote-host host))
(cond
((or (eq 'run (process-status new-process))
(eq 'open (process-status new-process)))
(setq dtk-speaker-process new-process)
(setq emacspeak-remote-default-port-to-connect
(format "%s" port ))
(delete-process old-process)
(run-hooks 'emacspeak-remote-hooks)
(sit-for 5)
(message "Connecting to server on host %s port %s"
host port )
(sit-for 5))
(t (error "Failed to connect to speech server on host %s port %s"
host port )))))
(emacspeak-fix-interactive-command-if-necessary 'emacspeak-remote-connect-to-server)
;;}}}
;;{{{ start up local server
;;}}}
(provide 'emacspeak-remote )
;;{{{ end of file
;;; local variables:
;;; folded-file: t
;;; byte-compile-dynamic: t
;;; end:
;;}}}
|
