宏如何处理像fn一样的sql使用地图

我想用一个宏来处理seq参数，但我不知道该怎么做！宏如何处理像fn一样的sql使用地图

例如为：

(defmacro create-table-def 
    [s] 
    `(let [ks# (keys (struct-map ~s)) 
     sql# (map (fn [p#] (str (name p#) " varchar(20) ")) ks#)] 
    (str "create-table " '~s " (" 
      (apply str (interleave seq# ", ")) ") ")))

我有多个参数调用这个宏，但不能使用地图（地图创建表的高清PS）或减少，我应该怎么办处理。

我使用宏，因为我想知道参数符号。

来源

2010-05-27 shxiao

请用四个空格缩进代码或使用代码按钮（一个与1S编辑栏和0）来为你做它。 – sepp2k 2010-05-27 09:53:40

我不知道你是否更感兴趣学习编写宏或学习如何在Clojure中使用SQL。如果是后者，请查看clojure.contrib.sql，以及针对您问题中的示例，特别是create-table函数。 – 2011-04-23 01:22:59

我想出了这个版本，是相当接近的版本：

(defmacro create-table-def [table-name key-val-map] 
    (let [sql-part1 (vector "create table " 
     (name table-name) 
     "(") 
sql-pre-part2 (apply vector 
     (map #(str (name (first %)) 
    " " 
    (second %)) 
     key-val-map)) 
sql-part2 (butlast (interleave sql-pre-part2 (repeat ", "))) 
sql-part3 [");"]] 
    (apply str (concat sql-part1 sql-part2 sql-part3)))) 

(create-table-def my-table {foo "varchar(20)" bar "int"}) 
;"create table my-table(foo varchar(20), bar int);"

如果你真的需要一个序列传给你可以这样做：

(defmacro create-table-def2 [[name & pairs]] 
    `(create-table-def ~name ~(apply array-map pairs))) 

(create-table-def2 [my-table foo "varchar(20)" bar "int"]) 
;"create table my-table(foo varchar(20), bar int);"

或者只是作为直接参数：

(defmacro create-table-def3 [name & pairs] 
    `(create-table-def ~name ~(apply array-map pairs))) 

(create-table-def3 my-table foo "varchar(20)" bar "int") 
;"create table my-table(foo varchar(20), bar int);"

更直接关注解决方案，但是，（ab）使用打印的repr地图的esentation：下一次

(use '[clojure.contrib.string :as str-utils]) 
(defmacro table-def [tname & things] 
    (str-utils/join " " 
    ["create-table" (name tname) "(" 
    (str-utils/drop 1 
      (str-utils/chop 
       (print-str (apply array-map things)))) 
    ");"])) 
(table-def my-table foo "varchar(20)" bar "int") 
;"create-table my-table (foo varchar(20), bar int);"

来源

2010-05-27 19:05:34

宏如何处理像fn一样的sql使用地图

回答

相关问题