macros - 如何将可选关键字参数与 & 其余内容混合使用？

Question

我有一个需要 body 的宏:

(defmacro blah [& body] (dostuffwithbody))

但我也想给它添加一个可选的关键字参数，所以当它被调用时，它可能看起来像以下任何一个:

(blah :specialthingy 0 body morebody lotsofbody)
(blah body morebody lotsofboy)

我怎样才能做到这一点？请注意，我使用的是 Clojure 1.2，因此我还使用了新的可选关键字参数解构 Material 。我天真地尝试这样做:

(defmacro blah [& {specialthingy :specialthingy} & body])

但显然这并不奏效。我怎样才能完成这个或类似的事情？

Answer 1

可能类似于以下内容(另请参阅 defn 和 clojure.core 中的其他一些宏是如何定义的):

(defmacro blah [& maybe-option-and-body]
  (let [has-option (= :specialthingy (first maybe-option-and-body))
        option-val (if has-option (second maybe-option-and-body)) ; nil otherwise
        body (if has-option (nnext maybe-option-and-body) maybe-option-and-body)]
    ...))

或者你可以更老练；如果您认为在某些时候可能需要多种可能的选择，这可能是值得的:

(defn foo [& args]
  (let [aps (partition-all 2 args)
        [opts-and-vals ps] (split-with #(keyword? (first %)) aps)
        options (into {} (map vec opts-and-vals))
        positionals (reduce into [] ps)]
    [options positionals]))

(foo :a 1 :b 2 3 4 5)
; => [{:a 1, :b 2} [3 4 5]]