+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
;; 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))
: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.