tcl - TCL。如何检查程序是否存在？

我需要检查过程func1是否存在并将结果(如果不存在1则存在0)放入variable proc_ststus_var中。我该怎么做？

最佳答案

info procs ?pattern?将为您提供所需的基本构建块:

% proc foo {} {}
% info procs foo
foo
% info procs bar
%

就像是:

% proc procExists p {
   return uplevel 1 [expr {[llength [info procs $p]] > 0}]
}
% procExists foo
1
% procExists bar
0