loic/remote-snake
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve error management

Browse source
This commit is contained in:
Loic Guegan 2019-05-11 11:13:40 +02:00
parent 9371746887
commit 39cf5947d8
1 changed files with 17 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
server/api/api.lisp
View file

@ -51,8 +51,8 @@
(defmethod handle-update ((api api) data)
(with-slots (gm) api
(let* ((dir (getf data :direction))
(game-id (getf data :game-id))
(game (get-game gm game-id)))
(game-id (getf data :game-id))
(game (get-game gm game-id)))
(cond
((equal dir "up") (setf dir :up))
((equal dir "down") (setf dir :down))
@ -66,21 +66,22 @@
(append (list :type "state") (dump gm game-id))))))
;;; TODO: Improve error management
(defmethod handle-request ((api api) request)
(flet ((handle-fun ()
(let* ((data (parse-request request))
(type (getf data :type)))
(cond
((equal type "new-game") (handle-new-game api data))
((equal type "update") (handle-update api data))
(t (format t "Unknow type"))))))
(handler-case
(handle-fun)
(t (c)
(format t "Got an exception: ~a~%" c)
"Bad request"))))
;; Catch request error and send it to the client
(handler-case
(let* ((data (parse-request request))
(type (getf data :type)))
(cond
((equal type "new-game") (handle-new-game api data))
((equal type "update") (handle-update api data))
(t (format t "Unknow type"))))
(error (condition) ; Send reason to the client
(let ((reason (make-array 0
:element-type 'character
:adjustable t
:fill-pointer 0)))
(format reason "~a~%" condition :escape nil)
reason))))