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.
33 lines
957 B
Common Lisp
33 lines
957 B
Common Lisp
(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~%")
|
|
|
|
; wait for stop signal
|
|
(let* ((socket (ccl:make-socket :local-port *shutdown-port* :connect :passive))
|
|
(stream (ccl:accept-connection socket))) ; wait for anything
|
|
(close stream)
|
|
(close 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~%")
|
|
(ccl:quit))
|