使用Clojure do-template设置prepared-statement列

时间:2011-01-10 16:03:10

标签: templates clojure

我已经定义了以下代码,允许我在java.sql.PreparedStatement中设置列值。这段代码合理/惯用吗?怎么可以改进?

(use '(clojure.template :only [do-template]))
; (import all java types not in java.lang)

(defprotocol SetPreparedStatement
  (set-prepared-statement [this prepared-statement index]))

(do-template [type-name set-name]
  (extend-type type-name
    SetPreparedStatement
    (set-prepared-statement [this prepared-statement index]
      (set-name prepared-statement index this)))

  BigDecimal .setBigDecimal
  Boolean .setBoolean
  Byte .setByte
  Date .setDate
  Double .setDouble
  Float .setFloat
  Integer .setInt
  Long .setLong
  Object .setObject
  Short .setShort
  Time .setTime
  Timestamp .setTimestamp)

; Sample use
(set-prepared-statement 42 some-prepared-statement 1)

1 个答案:

答案 0 :(得分:1)

你的例子看起来和惯用的Clojure很接近,我可以告诉:) 如果您有创建多个模板的情况,它可能会从抽象类型映射中受益,但如果您创建这个模板,那么这对我来说就像是一个非常好的对象。