2

次のようなJavaAPIの周りにClojureレイヤーを書き込もうとしています。

public class Executor {

  public interface ExecutorJob<Result> {
    public Result execute () throws Exception;
  }

  public static <R> R executeAsUser(RunAsWork<R> executorJob, String uid) {
    try {
      //...
      R result = executorJob.execute();
      return result;
    }
    finally {
      //...
    }
  }

}

私の目標は、ExecutorJobのメソッドのfn本体としてを実行できるClojureAPIを作成することです。executeこれは私が思いついたものです：

(defmacro execute-as
  "Runs the form f while impersonating the given user"
  [user f]
  `(let [work# (reify Executor$ExecutorJob
                     (~'execute [~'this]
                               (~f)))]
     (Executor/executeAsUser work# ~user)))

残念ながら、この呼び出しを考えると：

user> (macroexpand '(run-as "admin" (.println System/out "test")))
(let* [work__2928__auto__ (clojure.core/reify package.to.Executor$ExecutorJob (execute [this] ((.println System/out "test"))))] (package.to.Executor/executeAsUser work__2928__auto__ "admin"))

NPEが発生します。

user> (execute-as "admin" (.println System/out "test"))

No message.
  [Thrown class java.lang.NullPointerException]

Restarts:
 0: [QUIT] Quit to the SLIME top level

Backtrace:
  0: user$eval2936$reify__2937.doWork(NO_SOURCE_FILE:1)
  1: package.to.Executor.executeAsUser(Executor.java:508)
  2: user$eval2936.invoke(NO_SOURCE_FILE:1)
  3: clojure.lang.Compiler.eval(Compiler.java:5424)
  4: clojure.lang.Compiler.eval(Compiler.java:5391)
  5: clojure.core$eval.invoke(core.clj:2382)
 --more--

2番目のパラメーターにいくつかの意味のあるJava呼び出しを入れようとしましたがexecute-as、これはデバッガーで問題なく実行されていることがわかります。

そのマクロの何が問題になっていますか？

4

1 に答える 1

2

気にする必要はありません。マクロ パラメータを誤用して、実際に form の実行結果を呼び出そfうとしていました。そして、それはnilをもたらしていたので、NPEです。

修正版:

(defmacro execute-as
  "Runs the form f while impersonating the given user"
  [user f]
  `(let [work# (reify Executor$ExecutorJob
                     (~'execute [~'this]
                               ~f))]
     (Executor/executeAsUser work# ~user)))
于 2011-04-17T08:35:39.687 に答える