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