無法弄清楚如何（狀態/禁止！）的作品

我可以讀取環文檔和知道（狀態/禁止！）具有扔返回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（狀態/禁止！）的任何地方。我確實看到了......

(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，但沒有 '！'對此，Forbidden與任何情況下都是禁止的。允許此代碼編譯和工作涉及什麼巫術？請解釋。

的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"]]

來源

2015-12-17 Bob Kuhar

您是否在使用除環之外的任何庫？請從project.clj共享'：dependencies'。 – ez121sl

你能鏈接你正在查看的代碼嗎？我無法在https://github.com/ring-clojure/ring中找到defstatus –

@ ez121sl：添加到問題的依賴項。它的中間環，我想。 –

「魔術師」是在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響應的命名空間。

class-name禁止

(->kebab-case Forbidden) => forbidden

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

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

宏擴展爲代碼......在這種情況下，代碼來定義一個相似名稱的第一個參數的功能，但駱駝式的和尾隨的砰砰聲。

來源

2015-12-17 06:00:58

哦，我的。這是巫術。很好的解釋。 –

無法弄清楚如何（狀態/禁止！）的作品

回答

相關問題