hy - hy 语言中有没有办法在 self 上使用 doto ？

Question

希望有人能帮我解决这个问题。我正在将一些 python 代码移植到 hy，并试图弄清楚如何使用 doto 宏删除一些重复的代码。例如，看看这样的 python 类:

class Foo(object):
  def __init__(self, x, y, z):
      self.x = x
      self.y = y
      self.z = z

如何在 hy 中将其转换为使用 doto？

(defclass Foo [object]
  [[__init__ (fn [self x y z]
               (doto self  ;
                 (setv ...) ; What goes here? 
  ))]])

问题是你通常会做这样的事情:

(defclass Foo [object]
  [[__init__ (fn [self x y z]
               (setv self.x x)
               (setv self.y y)
               (setv self.z z))]])

我没有看到在 self 上使用 (doto) 的方法。

Answer 1

这是一个有趣的想法。你可以这样做:

(doto self
  (setattr "x" x)
  (setattr "y" y)
  (setattr "z" z))

但情况也好不了多少。考虑定义一个宏:

(defmacro vars-to-attrs [obj &rest attrs]
  (let [[actions (list (map
                        (fn (a) `(setattr (str '~a) ~a))
                        attrs))]]
    `(doto ~obj ~@actions)))

然后这样调用它:

(vars-to-attrs self x y z)

这作为一个函数可能会更好:

(defun vars-to-attrs-fun [obj &rest attrs]
  (for [a attrs]
    (setattr obj a (get (locals) a))))

然后这样调用它:

(vars-to-attrs-fun self 'x 'y 'z)

或者等效的:

(vars-to-attrs-fun self "x" "y" "z")