Question

我想测试一个tcl-matrix对象是否存在。我该怎么办？

以下代码不起作用。

package require struct::matrix

# Test (now we expect 0)
info exists m
# Create the object
struct::matrix m

# Test again, now I expect 1, however it returns 0!!!
info exists m

Answer 1

使用info commands测试是否存在矩阵对象。 info exists测试变量（不存在）的存在。

% package req struct::matrix
2.0.3
% info commands m
% struct::matrix m
::m
% info commands m
m

背景

矩阵对象实现为Tcl命令（准确地说是别名命令）加上每个矩阵的Tcl命名空间（作为存储空间）。

或者，但这在很大程度上取决于当前的实现，您可以测试是否存在所谓的命名空间：

% package req struct::matrix
2.0.3
% namespace exists m
0
% struct::matrix m
::m
% namespace exists m
1

例如，当矩阵对象重新实现为TclOO对象时，对命令的测试也将继续起作用。

Answer 2

通过the struct::matrix source code进行一点戳：

% package req struct::matrix
2.0.3
% set m [struct::matrix]
::matrix1
% expr {$m in [interp aliases]}
1
% string first MatrixProc [interp alias {} $m]
18
% proc is_matrix {name} {
    expr {
         $name in [interp aliases] &&
         [string first MatrixProc [interp alias {} $name]] != -1
    }
}
% is_matrix $m
1

如果您使用struct::matrix m格式，请使用完全限定的$m

而不是::m

% struct::matrix m
::m
% is_matrix m
0
% is_matrix ::m
1

测试TCL中是否存在矩阵对象

2 个答案:

背景