代码之家 › 专栏 › 技术社区 › hawkeye

如何从符号名称的字符串输入在Clojure中创建类型?

deftype symbols clojure

hawkeye · 技术社区 · 11 年前

我正在尝试创建一个类型列表,这样我就可以映射到一个字符串列表并创建所有需要的类型。

这就是我的目标:

(defprotocol P (methodname [arg1]))

(deftype T [f] P (methodname [arg1] (println "methodname called")))

对于从字符串名称生成类型的单个实例,我正在尝试:

(defmacro create-type [type-name field-list protocol-name protocol-sig]
  `(deftype ~type-name ~field-list ~protocol-name ~protocol-sig))

(create-type (symbol "type-name") [field1]  (symbol "P") (methodname [arg1]))

失败原因是:

ClassCastException clojure.lang.PersistentList cannot be cast to clojure.lang.Symbol  clojure.core/ns-resolve (core.clj:4026)

我的问题是: 如何从符号名称的字符串输入在Clojure中创建类型?

1 回复 | 直到 11 年前

Mate Varga 11 年前

有点古怪,但对我有用:

(defprotocol P (methodname [arg1]))`

(defmacro gen-type [type-name field-list proto-name proto-sig]
`(load-string (str "(deftype " ~type-name " " ~(str field-list) ~(str proto-name) ~(str proto-sig) ")")))

(gen-type "T" [f1 f2] P (methodname [arg1]))

所以我基本上只是建立一个字符串,并与读者一起评估。

没有加载字符串(仍然不太灵活,但可以完成任务):

(defmacro gentype [t f p m a b]
  `(deftype ~(symbol t) ~f ~p (~m ~a ~b)))

(gentype "T3" [f1 f2] P methodname [arg1] (prn arg1))

推荐文章

Kevin Nugent · 草图中具有可变高度文本的自适应卡的方法

8 年前

Benjamin Telkamp · 脚注中使用knitr和kableExtra的公式或符号

8 年前

CyberSynth · 在JSFIDLE代码中,我无法将含义赋予符号“>”

8 年前

EMiller · 如果我强制ifort内联一个函数,我还应该在obj转储中看到它吗?

8 年前

Abdulellah Alsaheel · 使用调试符号在64位机器上编译OpenSSH

8 年前

KiW · 查找变量值+符号组合

9 年前

LoneWanderer · Ada库初始化/细化和GPR指令:找不到细化符号

9 年前

Haradzieniec · 这些符号的html代码是什么?

9 年前

AZV · PostgreSQL-替换表列中特定字符的所有实例

9 年前

Tom · 如何在C#的列表框中显示unicode符号/emoji?

10 年前