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

(gds-socket-type-alist): New.

Browse source 
(gds-run-debug-server): Use gds-server-socket-type and
gds-socket-type-alist instead of gds-server-port-or-path.
(gds-server-socket-type): New, replacing gds-server-port-or-path.
This commit is contained in:
Neil Jerram 2006-10-14 16:34:16 +00:00
parent e2d23cc0f8
commit ba6984d09b
2 changed files with 18 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
emacs/ChangeLog
View file

@ -1,3 +1,10 @@
2006-10-14 Neil Jerram <neil@ossau.uklinux.net>
* gds.el (gds-socket-type-alist): New.
(gds-run-debug-server): Use gds-server-socket-type and
gds-socket-type-alist instead of gds-server-port-or-path.
(gds-server-socket-type): New, replacing gds-server-port-or-path.
2006-10-13 Neil Jerram <neil@ossau.uklinux.net> 2006-10-13 Neil Jerram <neil@ossau.uklinux.net>
* gds.el (gds-run-debug-server): Use variable * gds.el (gds-run-debug-server): Use variable

16
emacs/gds.el
View file

@ -37,13 +37,19 @@
;; The subprocess object for the debug server. ;; The subprocess object for the debug server.
(defvar gds-debug-server nil) (defvar gds-debug-server nil)
(defvar gds-socket-type-alist '((tcp . 8333)
(unix . "/tmp/.gds_socket"))
"Maps each of the possible socket types that the GDS server can
listen on to the path that it should bind to for each one.")
(defun gds-run-debug-server () (defun gds-run-debug-server ()
"Start (or restart, if already running) the GDS debug server process." "Start (or restart, if already running) the GDS debug server process."
(interactive) (interactive)
(if gds-debug-server (gds-kill-debug-server)) (if gds-debug-server (gds-kill-debug-server))
(setq gds-debug-server (setq gds-debug-server
(gds-start-server "gds-debug" (gds-start-server "gds-debug"
gds-server-port-or-path (cdr (assq gds-server-socket-type
gds-socket-type-alist))
'gds-debug-protocol)) 'gds-debug-protocol))
(process-kill-without-query gds-debug-server)) (process-kill-without-query gds-debug-server))
@ -604,11 +610,11 @@ you would add an element to this alist to transform
:type 'boolean :type 'boolean
:group 'gds) :group 'gds)
(defcustom gds-server-port-or-path 8333 (defcustom gds-server-socket-type 'tcp
"TCP port number or Unix domain socket path for the server to listen on." "What kind of socket the GDS server should listen on."
:group 'gds :group 'gds
:type '(choice (integer :tag "TCP port number") :type '(choice (const :tag "TCP" tcp)
(file :tag "Unix domain socket path"))) (const :tag "Unix" unix)))
;;;; If requested, autostart the server after loading. ;;;; If requested, autostart the server after loading.