Clojureql私は次のように生成する必要がマクロ（Clojureの）

Question

の値を取ることができない：

(clojureql.core/join (clojureql.core/table db :tableA) (clojureql.core/table db :tableA) 
    (clojureql.core/where (apply and (= :tableA.id :tableB.id) 
         [(apply or [(clojureql.predicates/in :tableA.id [1 2]) 
            (clojureql.predicates/in :tableA.id [3 4])])]))) 

しかし、「適用するか、」フォームは、別の関数やマクロから「合格」する必要があります。ここで私が何を意味するかです：

この機能がある

(clojureql.core/join (clojureql.core/table db :tableA) (clojureql.core/table db :tableA) 
    (clojureql.core/where (apply and (= :tableA.id :tableB.id) 
         [(my-or-f)]))) 

：

(defn my-or-f [] 
    (apply or [(clojureql.predicates/in :tableA.id [1 2]) 
     (clojureql.predicates/in :tableA.id [3 4])])) 

ただし、この機能は、この例外がスローされます。

#<CompilerException java.lang.Exception: Can't take value of a macro: #'clojure.core/or (NO_SOURCE_FILE:2)> 

私もマクロを使用してみました。これは、コンパイルが、私は使用してクエリを実行しようとすると、それは同じ例外がスローされます。このマクロ

(defmacro my-or-f [] 
    `(apply or [(clojureql.predicates/in :tableA.id [1 2]) 
     (clojureql.predicates/in :tableA.id [3 4])])) 

私は「適用するか、」使用できる別の方法はありますか？

ありがとうございました。

Answer 1

問題は、マクロが機能していないということです - 彼らは、コンパイル時に実行され、実際の構文を渡されます（リストとシンボルは主に）、実行時にランタイムデータ構造に適用することはできません。したがって、(apply or my-list)はエラーをスローします。あなたはいくつかのオプションがあります：実際に

(def my-list (list false false 4 false 5)) 

(some identity my-list) -- returns 4 
(reduce #(or %1 %2) my-list) -- returns 4 

を、あなたはおそらくsomeをしたい - reduceは常にリスト全体を横断しながら、それは、できるだけ早くそれがtrueを返した要素に到達すると停止します。

注：同じ問題が(apply and ...) - (every? identity ...)で発生します。

しかし、この場合、なぜapplyを使用する必要がありますか？これは、同じようにうまく動作するはずです：

(clojureql.core/join (clojureql.core/table db :tableA) (clojureql.core/table db :tableA) 
        (clojureql.core/where (and (= :tableA.id :tableB.id) 
               (my-or-f)))) 

(defn my-or-f [] 
    (or (clojureql.predicates/in :tableA.id [1 2]) 
     (clojureql.predicates/in :tableA.id [3 4]))) 

最後の一つの提案 - あなたは[clojurecl.predicates :as qlp]でclojureql.predicatesを交換する場合require clojureql.predicatesは、あなたが上記になり、ファイルの残りの部分でclojureql.predicatesの代わりにqlpを使用することができるとき（我々はまたqlcでclojureql.coreを交換した場合）：読みする方がはるかに簡単です

(qlc/join (qlc/table db :tableA) (qlc/table db :tableA) 
      (qlc/where (and (= :tableA.id :tableB.id) 
          (my-or-f)))) 

(defn my-or-f [] 
    (or (qlp/in :tableA.id [1 2]) 
     (qlp/in :tableA.id [3 4]))) 

。

ClojureQLの場合、(apply clojureql.predicates/or* ...)と(apply clojureql.predicates/and* ...)を試してください。 clojureqlのwhereは、clojureql.predicates/and*とclojureql.or*と表示されているandとorを置き換えます。 and*とor*はマクロではなく関数なので、問題はありません。

Answer 2

あなたがorを与えているパラメータの量がわかっている場合、これはおそらく最も簡単な解決策です：

(apply #(or %1 %2) [nil 10]) ; => 10