1

我定义了两个宏：

(defmacro property [name type]
  `(setv ^(of Optional ~type) ~name None))

(defmacro data-type [vname &rest propertys]
  `(with-decorator dataclass
    (defclass ~vname []
      ~propertys)))

当被称为：

(data-type my-test-type
    (property name str)
    (property unitprice float)
    (property qty_on_hand int)
    (property test int))

并扩展并翻译成python它产生以下内容：

@dataclass
class my_test_type:
    name: Optional[str] = None
    unitprice: Optional[float] = None
    qty_on_hand: Optional[int] = None
    test: Optional[int] = None
    [None, None, None, None]

在没有嵌套宏的情况下编写它仍然会产生一个无列表：

(data-type my-test-type
    (setv ^(of Optional str) name None
          ^(of Optional float) unitprice None
          ^(of Optional int) qty_on_hand None
          ^(of Optional int) test None))

@dataclass
class my_test_type:
    name: Optional[str] = None
    unitprice: Optional[float] = None
    qty_on_hand: Optional[int] = None
    test: Optional[int] = None
    [None]

这份名单[None, None, None, None]来自哪里？虽然没有列表不会破坏任何东西，但它仍然有点刺耳，我希望我知道编写这个宏以避免无列表的更好方法是什么。

4

1 回答 1

0

看起来你写的~propertys但意思是~@propertys。您希望将每个属性声明拼接到 中defclass，而不是将它们组合成一个列表。进行此更改会删除 s 的尾随列表None。

于 2021-06-02T14:26:56.507 回答