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

Question

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

Answer 1

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

% 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