hiro/myway
1
0
Fork 0
mirror of https://github.com/vale981/myway synced 2025-03-05 09:51:42 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Redefine 'route' as standard-class.

Browse source
This commit is contained in:
Eitaro Fukamachi 2014-10-24 15:55:03 +09:00
parent 773cda5163
commit b5ac50e387
1 changed files with 19 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
src/route.lisp
View file

@ -14,20 +14,26 @@
:equal-route))
(in-package :myway.route)
(defstruct (route (:constructor %make-route))
name
rule
handler)
(defclass route ()
((name :initarg :name
:initform nil
:accessor route-name)
(rule :initarg :rule
:accessor route-rule)
(handler :initarg :handler
:accessor route-handler)))
(defun make-route (url &key (method '(:GET)) regexp name handler)
(%make-route :name name
(make-instance 'route
:name name
:rule (make-rule url :method method :regexp regexp)
:handler handler))
(defun equal-route (route1 route2)
(defgeneric equal-route (route1 route2)
(:method ((route1 route) (route2 route))
(and (eq (route-name route1) (route-name route2))
(equal-rule (route-rule route1) (route-rule route2))))
(equal-rule (route-rule route1) (route-rule route2)))))
(defun match-route (route method url-string &key allow-head)
(check-type route route)
(match-rule (route-rule route) method url-string :allow-head allow-head))
(defgeneric match-route (route method url-string &key allow-head)
(:method ((route route) method url-string &key allow-head)
(match-rule (route-rule route) method url-string :allow-head allow-head)))