oop - 如何从Tcl的超类内部访问派生类成员变量？(How does one access a derived classes member variables from within the superclass in Tcl?)

Question

Code:

(码：)

package require TclOO

oo::class create Supe {
    variable cape boots

    constructor {} {
        puts -nonewline "Supe: "
        puts [info class variables [self class]]
    }
}

oo::class create Clark {
    superclass Supe

    variable glasses suit

    constructor {} {
        puts -nonewline "Clark: "
        puts [info class variables [self class]]
        next
    }
}

set hero [Clark new]

Output:

(输出：)

Clark: glasses suit
Supe: cape boots

Is it possible to get a list of Clark's member variables from within Supe's constructor without passing them into Supe as an argument?

(是否可以从Supe的构造函数中获取Clark的成员变量列表，而无需将其作为参数传递给Supe？)

Ultimately, the goal is to dynamically set derived class variables from a dict argument:

(最终，目标是从dict参数动态设置派生类变量：)

foreach {varName} [info class variables [self class]] {
    variable $varName [dict get $args $varName]
}

If the above code can be used in the superclass constructor, it would avoid putting it in each derived class constructor.

(如果以上代码可在超类构造函数中使用，则应避免将其放在每个派生类构造函数中。)

  ask by Brad Waite translate from so

Answer 1

You can get the name of the object with self object , or just self .

(您可以使用self object或self来获取对象的名称。)

You can then get the class of the object with info object class .

(然后，您可以使用info object class 。)

And finally, you can get the member variables of a class with info class variables .

(最后，您可以获得带有info class variables的类的成员info class variables 。)

Putting it all together results in:

(将所有内容放在一起会导致：)

[info class variables [info object class [self]]]