Miroirs/guile-swayer
1
0
Fork 0
mirror of https://github.com/ebeem/guile-swayer.git synced 2024-11-16 07:47:32 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

handle and log exceptions from general commander

Browse source
This commit is contained in:
Almarhoon Ibraheem 2024-06-22 14:03:48 +03:00
parent 672beab59b
commit ee8513ebec
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
modules/general.scm
View file

@ -183,10 +183,15 @@ For example:
(define (custom-exception-handler exc command-id payload) (define (custom-exception-handler exc command-id payload)
"Exception handler for evaluating expressions from commander." "Exception handler for evaluating expressions from commander."
(format #t "An error occurd while executing the expression: ~a\n" (exp->string exc)) (format #t "An error occurd while executing the received
(format #t "command: ~a, payload: ~a\n" command-id payload)) general command: command: ~a, payload: ~a\n" command-id payload)
(format #t "exception: ~a\n" exc))
;; add a hook to listen to received commands (usually from commander) ;; add a hook to listen to received commands (usually from commander)
(add-hook! command-received-hook (add-hook! command-received-hook
(lambda (command-id payload) (lambda (command-id payload)
(eval-string (json-string->scm payload)))) (with-exception-handler
(lambda (exc)
(custom-exception-handler exc command-id payload))
(lambda () (eval-string (json-string->scm payload)))
#:unwind? #t)))