mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

* gds.el (gds-run-debug-server): Use variable

Browse source 
gds-server-port-or-path instead of hardcoded 8333.
(gds-server-port-or-path): New.

* gds-server.el (gds-start-server): Change port arg to
port-or-path, to support Unix domain sockets.

* gds-client.scm (connect-to-gds): Try to connect by Unix domain
socket if TCP connection fails.

* gds-server.scm (run-server): Update to support listening on a
Unix domain socket.
This commit is contained in:
Neil Jerram 2006-10-12 23:24:02 +00:00
parent c1ab3a6d6b
commit e2d23cc0f8
7 changed files with 73 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

9
emacs/ChangeLog
View file

@ -1,3 +1,12 @@
2006-10-13 Neil Jerram <neil@ossau.uklinux.net>
* gds.el (gds-run-debug-server): Use variable
gds-server-port-or-path instead of hardcoded 8333.
(gds-server-port-or-path): New.
* gds-server.el (gds-start-server): Change port arg to
port-or-path, to support Unix domain sockets.
2006-08-18 Neil Jerram <neil@ossau.uklinux.net>
* gds-server.el (gds-start-server): Change "ossau" to "ice-9".

17
emacs/gds-server.el
View file

@ -44,24 +44,25 @@
:group 'gds
:type '(choice (const :tag "nil" nil) directory))
(defun gds-start-server (procname port protocol-handler &optional bufname)
"Start a GDS server process called PROCNAME, listening on TCP port PORT.
PROTOCOL-HANDLER should be a function that accepts and processes one
protocol form. Optional arg BUFNAME specifies the name of the buffer
that is used for process output\; if not specified the buffer name is
the same as the process name."
(defun gds-start-server (procname port-or-path protocol-handler &optional bufname)
"Start a GDS server process called PROCNAME, listening on TCP port
or Unix domain socket PORT-OR-PATH. PROTOCOL-HANDLER should be a
function that accepts and processes one protocol form. Optional arg
BUFNAME specifies the name of the buffer that is used for process
output; if not specified the buffer name is the same as the process
name."
(with-current-buffer (get-buffer-create (or bufname procname))
(erase-buffer)
(let* ((code (format "(begin
%s
(use-modules (ice-9 gds-server))
(run-server %d))"
(run-server %S))"
(if gds-scheme-directory
(concat "(set! %load-path (cons "
(format "%S" gds-scheme-directory)
" %load-path))")
"")
port))
port-or-path))
(process-connection-type nil) ; use a pipe
(proc (start-process procname
(current-buffer)

9
emacs/gds.el
View file

@ -42,7 +42,9 @@
(interactive)
(if gds-debug-server (gds-kill-debug-server))
(setq gds-debug-server
(gds-start-server "gds-debug" 8333 'gds-debug-protocol))
(gds-start-server "gds-debug"
gds-server-port-or-path
'gds-debug-protocol))
(process-kill-without-query gds-debug-server))
(defun gds-kill-debug-server ()
@ -602,6 +604,11 @@ you would add an element to this alist to transform
:type 'boolean
:group 'gds)
(defcustom gds-server-port-or-path 8333
"TCP port number or Unix domain socket path for the server to listen on."
:group 'gds
:type '(choice (integer :tag "TCP port number")
(file :tag "Unix domain socket path")))
;;;; If requested, autostart the server after loading.