mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-05-02 09:50:41 -07:00
Code Issues Projects Releases Wiki Activity

Merge pull request #401 from mmontone/extensible-handle-message

Browse source 
Extensible handle-message
This commit is contained in:
David Botton 2024-12-18 10:57:00 -05:00 • committed by GitHub
commit 5fcf8c7e06
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
source/clog-connection-websockets.lisp
View file

@ -89,11 +89,20 @@
;; handle-message ;;
;;;;;;;;;;;;;;;;;;;;
(defvar *message-handlers* '()
"List of message handling functions.
Each entry in the list should be a FUNCTION-DESIGNATOR that will receive
a splitted message and a connection id and should return something
other than NIL iff it handled the message.")
(defun handle-message (connection message)
"Handle incoming websocket MESSAGE on CONNECTION. (Private)"
(handler-case
(let ((connection-id (gethash connection *connections*))
(ml (ppcre:split ":" message :limit 2)))
(dolist (message-handler *message-handlers*)
(when (funcall message-handler ml connection-id)
(return-from handle-message)))
(cond ((null connection-id)
;; a zombie connection
(when *verbose-output*