You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
495 B
20 lines
495 B
6 years ago
|
;; Simple sipc server
|
||
|
6 years ago
|
|
||
|
|
(ql:quickload :cl-sipc)
|
||
|
|
|
||
|
|
(defparameter *socket-file* "sipc.socket")
|
||
|
|
(defparameter *socket* (cl-sipc:bind *socket-file*))
|
||
|
|
|
||
|
|
(when (not *socket*)
|
||
|
|
(format t "Error binding ~a~%" *socket-file*) (quit))
|
||
|
|
|
||
|
|
(let ((rc (cl-sipc:hook *socket*
|
||
|
|
#'(lambda (err)
|
||
|
|
(format t "Error: ~a~%" err)
|
||
|
|
nil)
|
||
|
|
#'(lambda (type message)
|
||
|
|
(format t "<- (~a) ~a~%" type message)
|
||
|
|
(not (eql :close type))))))
|
||
|
|
(format t "Listen rc ~a~%" rc)
|
||
|
|
(cl-sipc:release *socket*))
|