tcl - 在 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

在这里，还有一些其他的命令……</p>

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