diff options
| author | Neil Jerram <neil@ossau.uklinux.net> | 2006-10-14 16:34:16 +0000 |
|---|---|---|
| committer | Neil Jerram <neil@ossau.uklinux.net> | 2006-10-14 16:34:16 +0000 |
| commit | ba6984d09bdc2298eb331f8ddedab3844e777e39 (patch) | |
| tree | 3f56354c7d469aabc48e05c2198cddd62ad206f7 /emacs | |
| parent | e2d23cc0f8ef473a8248b86d8928c70d3cb92873 (diff) | |
(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.
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/ChangeLog | 7 | ||||
| -rw-r--r-- | emacs/gds.el | 16 |
2 files changed, 18 insertions, 5 deletions
diff --git a/emacs/ChangeLog b/emacs/ChangeLog index 0303fb064..710f80e45 100644 --- a/emacs/ChangeLog +++ b/emacs/ChangeLog @@ -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> * gds.el (gds-run-debug-server): Use variable diff --git a/emacs/gds.el b/emacs/gds.el index 132b571a2..71d9a99d4 100644 --- a/emacs/gds.el +++ b/emacs/gds.el @@ -37,13 +37,19 @@ ;; The subprocess object for the debug server. (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 () "Start (or restart, if already running) the GDS debug server process." (interactive) (if gds-debug-server (gds-kill-debug-server)) (setq gds-debug-server (gds-start-server "gds-debug" - gds-server-port-or-path + (cdr (assq gds-server-socket-type + gds-socket-type-alist)) 'gds-debug-protocol)) (process-kill-without-query gds-debug-server)) @@ -604,11 +610,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." +(defcustom gds-server-socket-type 'tcp + "What kind of socket the GDS server should listen on." :group 'gds - :type '(choice (integer :tag "TCP port number") - (file :tag "Unix domain socket path"))) + :type '(choice (const :tag "TCP" tcp) + (const :tag "Unix" unix))) ;;;; If requested, autostart the server after loading. |