Question

我可以读取Ring文档并知道（status / forbidden！）具有抛出返回HTTP 403的异常的效果。

(ns com.example.mosaic.endpoint.v2.api
  (:require
    ; ...
    [ring.util.http-response :as status]
    [ring.util.response :as response])
  (:import [org.joda.time DateTime]))

(defn- check-error-response!
  "Translate the response from boundary server into an appropriate http error response."
  [response user-id field-id]
  (let [{:keys [status]} response]
    (cond
      (contains? #{401 403 404} status) (status/forbidden! {:error-code "BS-004" :user-id user-id :field-id field-id })
      (= 500 status) (status/internal-server-error! {:error-code "BS-005" :user-id user-id :field-id field-id }))))

问题是，我不明白它是如何做到的。我查看环代码，无法在任何地方找到def（status / forbidden！）。我确实看到了......

(defstatus Forbidden 403 "Forbidden" "The request was a legal request but the server is refusing to respond to it.")

...在https://github.com/metosin/ring-http-response/blob/0.5.1/src/ring/util/http_response.clj，但没有'！'在它上面，禁止与任何情况下被禁止的不同。允许此代码编译和工作涉及什么巫术？请解释一下。

project.clj：依赖项是

:dependencies
  [[org.clojure/clojure "1.6.0"]
   [org.clojure/tools.cli "0.3.1"]
   [org.clojure/tools.logging "0.3.0"]
   [ring/ring-core "1.3.0"]
   [ring/ring-jetty-adapter "1.3.0"]
   [metosin/ring-swagger-ui "2.0.24"]
   [metosin/ring-swagger "0.14.0"]
   [metosin/compojure-api "0.15.1"]
   [org.slf4j/slf4j-api "1.6.2"]
   [org.slf4j/slf4j-log4j12 "1.6.2"]
   [bk/ring-gzip "0.1.1"]
   [com.example/field-layer "2015.04.17T16.17.30.874cd09"]
   [com.cemerick/drawbridge "0.0.6"]
   [clj-http "1.1.0"]
   [com.example.the-request/the-clj-http "2015.04.15T00.53.11.843c71c"]
   [org.apache.httpcomponents/httpclient "4.3.6"]
   [com.example/compojure-api-utils "2015.03.30T23.14.19.79ff61f"]
   [ring.middleware.logger "0.5.0" :exclusions [org.slf4j/slf4j-log4j12]]
   [ring.middleware.conditional "0.1.0"]
   [com.example/the-config "2014.11.07T23.39.35.5844ff4"]
   [com.example.the-request/the-request-core "2015.04.23T22.02.36.e4ca089"]
   [com.example/the-ring-middleware "2014.11.07T23.39.49.0d0d85d"]]

Answer 1

“魔法”在defstatus宏中：

(defmacro defstatus [class-name status name description & [options]]

见第29和45行：

(let [...
      fn-name (->kebab-case class-name)
      ...

`(defn ~(symbol (str fn-name "!"))
    ...

因此(defstatus Forbidden ...)扩展为(defn forbidden! ...)

您可以通过执行以下内容来查看完整的宏扩展：

(macroexpand-1 '(defstatus Forbidden 403 "Forbidden" "The request was a legal request but the server is refusing to respond to it."))

在ring.util.http-response名称空间中。

class-name是禁止的

(->kebab-case Forbidden) => forbidden

(str forbidden "!") => "forbidden!"

(defn ~(symbol "fobidden!") ...) => (defn forbidden! ...)

宏扩展为代码...在这种情况下，代码定义一个类似于第一个参数命名的函数，但是带有驼峰和尾随爆炸。

无法弄清楚（状态/禁止！）如何运作

1 个答案: