mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

configurable break on exceptions

Browse source
This commit is contained in:
David Botton 2022-04-05 13:49:58 -04:00
parent fa5f2d9e7c
commit 46394d7ec1
1 changed files with 33 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

27
source/clog-connection.lisp
View file

@ -34,6 +34,7 @@ script."
"CLOG system startup and shutdown"
(*verbose-output* variable)
(*break-on-error* variable)
(initialize function)
(shutdown-clog function)
@ -74,6 +75,7 @@ script."
#-(or sbcl ecl mezzano) (apply #'make-hash-table args))
(defvar *verbose-output* nil "Verbose server output (default false)")
(defvar *break-on-error* t "Allow invoking debugger (default true)")
(defvar *app* nil "Clack 'app' middle-ware")
(defvar *client-handler* nil "Clack 'handler' for socket traffic")
@ -95,6 +97,7 @@ script."
(defvar *url-to-boot-file* (make-hash-table* :test 'equalp) "URL to boot-file")
;;;;;;;;;;;;;;;;;
;; generate-id ;;
;;;;;;;;;;;;;;;;;
@ -178,11 +181,13 @@ the default answer. (Private)"
(format nil "clog['connection_id']=~A" id))
(bordeaux-threads:make-thread
(lambda ()
(handler-case
(if *break-on-error*
(funcall *on-connect-handler* id)
(t (c)
(format t "Condition caught connection ~A - ~A.~&" id c)
(values 0 c))))
(handler-case
(funcall *on-connect-handler* id)
(t (c)
(format t "Condition caught connection ~A - ~A.~&" id c)
(values 0 c)))))
:name (format nil "CLOG connection ~A"
id))))
(t (c)
@ -210,15 +215,21 @@ the default answer. (Private)"
id event-id data))
(bordeaux-threads:make-thread
(lambda ()
(handler-case
(if *break-on-error*
(let* ((event-hash (get-connection-data id))
(event (when event-hash
(gethash event-id event-hash))))
(when event
(funcall event data)))
(t (c)
(format t "Condition caught in handle-message for event - ~A.~&" c)
(values 0 c))))
(handler-case
(let* ((event-hash (get-connection-data id))
(event (when event-hash
(gethash event-id event-hash))))
(when event
(funcall event data)))
(t (c)
(format t "Condition caught in handle-message for event - ~A.~&" c)
(values 0 c)))))
:name (format nil "CLOG event handler ~A"
event-id))))
(t