在TCL中检查对象存在

Question

我想在tcl中检查对象是否存在。 我查看了info object个选项，但没有找到特定于对象存在的东西，info exists仅适用于变量而非对象。

有什么想法吗？ 我创建了一个struct :: stack的对象 ::struct::stack aa (Dcode) 52 % info object class aa ::struct::stack::stack_oo

似乎它在tcloo中。 我认为Itcl find命令有效itcl::find object aa

但不知道tcl_oo。

Answer 1

您可能只是错过了它：info object isa object用于测试特定单词是否指向某个对象。

% info object isa object abcde
0
% oo::object create abcde
::abcde
% info object isa object abcde
1
% abcde destroy
% info object isa object abcde
0

这里，还有其他一些命令......

% info object isa object oo::object
1
% info object isa object while
0
% info object isa object no.such.thing.at.all.ever
0