;; Basic function to advertise the jlinker interface. 

(in-package "FACT")

(export 
 '(advertise))

(eval-when (compile load eval) 
  (require :jlinker)
  (use-package :javatools.jlinker))

(defun advertise (port)

  ;; Advertise continuously and allow connections from many JVMs.

  (jlinker-listen 
   :init-args (list :lisp-file nil :lisp-port port :verbose t)
   :process-function 
   #'(lambda (x) 
       (format t "~&;; Starting server ~A ~S~%" 
	       (jlinker-slot :suffix) x)
       t)
   :end-function 
   #'(lambda (x y) (declare (ignore x y) (format t "~&;; Ending Listener~%" ))
   )))

;;(setf excl:*restart-init-function* 
;;  #'(lambda () 
;;      (advertise)))