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 всегда проходит весь список.

Примечание: у вас также будет такая же проблема с вашим (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]))) 

последнее предложение - когда вы require clojureql.predicates, если заменить clojureql.predicates с [clojurecl.predicates :as qlp], вы можете использовать qlp вместо clojureql.predicates в остальной части файла, что делает выше (если мы также заменить clojureql.core с qlc):

(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's where заменяет любые и or, которые он видит с clojureql.predicates/and* и clojureql.or*, поэтому выполнение этой замены самостоятельно должно работать. Оба and* и or* являются функциями, а не макросами, поэтому проблем не должно быть.

Answer 2

Если количество параметров, которые вы даете or известно, это, вероятно, самое простое решение:

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