You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

34 lines
1.1 KiB
Common Lisp

11 years ago
(in-package #:cl-init)
(defparameter *start-thunk* #'(lambda () nil))
(defparameter *stop-thunk* #'(lambda () nil))
(defparameter *shutdown-port* 6200)
(require 'swank)
(defparameter *swank-port* 4006)
(defparameter *swank-server* nil)
(defun run ()
(format t "~A ~S~%" "starting swank on port" *swank-port*)
(setf *swank-server*
(swank:create-server :port *swank-port* :dont-close t))
(format t "swank started~%starting external process~%")
(apply *start-thunk* nil)
(format t "external process running~%")
(ccl:with-open-socket (socket :connect :passive
:format :text
:local-port *shutdown-port*
:reuse-address t)
(with-open-stream (stream (ccl:accept-connection socket))
(format t "stopping external process~%")
(apply *stop-thunk* nil)
(format t "external process stopped~%stopping swank~%")
(swank:stop-server *swank-port*)
(format t "swank stopped~%")
(princ "server shutdown complete" stream)))
11 years ago
(ccl:quit))