1

これを使用すると、正常にgen-classコンパイルされます。

(ns clj.sandbox)

(defn -hello
  [this]
  "Hello World")

(gen-class
  :name com.sandbox.GeneratedClass
  :methods [[hello [] String]])

しかし、これを行うと：

(ns clj.sandbox)

(def my-methods (atom [[hello [] String]]))

(defn -hello
  [this]
  "Hello World")

(gen-class
  :name com.sandbox.GeneratedClass
  :methods @my-methods)

次のエラーが表示されます。

CompilerException java.lang.RuntimeException: Unable to resolve symbol: hello in this context, compiling:(clj\sandbox.clj:3:17)

このエラーを回避する方法はありますか? :methodsインラインで定義するのではなく 、値を渡すことができるようにしたいと思います。

重要な場合、これは私がこれを生成するために使用している pom.xml です:

<?xml version="1.0" encoding="UTF-8"?>
<project xmlns="http://maven.apache.org/POM/4.0.0"
         xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
         xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/xsd/maven-4.0.0.xsd">    
    <artifactId>sandbox</artifactId>
    <groupId>com.sandbox</groupId>
    <version>1.0-SNAPSHOT</version>    
    <packaging>clojure</packaging>
    <modelVersion>4.0.0</modelVersion>    
    <build>        
        <plugins>
            <plugin>
                <groupId>com.theoryinpractise</groupId>
                <artifactId>clojure-maven-plugin</artifactId>
                <version>1.3.13</version>
                <extensions>true</extensions>
                <configuration>
                  <sourceDirectories>
                    <sourceDirectory>src</sourceDirectory>
                  </sourceDirectories>
                </configuration>
            </plugin>
        </plugins>        
    </build>
    <dependencies>        
        <dependency>
            <groupId>org.clojure</groupId>
            <artifactId>clojure</artifactId>
            <version>1.5.1</version>
        </dependency>
    </dependencies>
</project>
4

1 に答える 1

2

gen-class はマクロであり、それに @my-methods を渡すと、マクロ(deref my-method)が予期しないメソッド引数の値として取得されるためです。ラッパー マクロを作成し、次に示すように呼び出す必要があります。

(defn -hello []
  "Hello world")

(def my-methods (atom '[[hello [] String]]))

(defmacro my-class []
  `(gen-class
    :name com.sandbox.GeneratedClass
    :methods ~(deref my-methods)))

(my-class)

また、アトム値が引用符で囲まれていることに注意してください。そうhello not foundしないと、存在しない hello var を解決しようとするため、例外が発生します。

于 2013-04-25T05:31:40.567 に答える