Defines a service method with an optional prefix suitable for being used by
genclass to compile a HttpServlet class.
e.g. (defservice my-handler)
(defservice "my-prefix-" my-handler)
(defmacro defservice
"Defines a service method with an optional prefix suitable for being used by
genclass to compile a HttpServlet class.
e.g. (defservice my-handler)
(defservice \"my-prefix-\" my-handler)"
([handler]
`(defservice "-" ~handler))
([prefix handler]
`(defn ~(symbol (str prefix "service"))
[servlet# request# response#]
((make-service-method ~handler)
servlet# request# response#))))
Comments top
No comments for defservice. Log in to add a comment.