Tcl查找对象实例中是否存在变量

Question

在名称空间中，为了进行惰性求值，很容易从名称空间中查找是否存在名称空间变量：

info exists [ namespace current]::<var name>

如何使用Tcl OO为类的实例实现相同的功能？
我使用TCL 8.6
谢谢。

Answer 1

您可以使用

info exists [self namespace]::<var name>

或

expr {<var name> in [info class variables <class name>]}

if {<var name> in [info class variables <class name>]} {
    ...
}

文档： expr， if， in (operator)， info， self (class configuration prefix)， self