问检查过程返回列表或带子列表的列表

EN

你真的应该重新思考你的方法:由于Tcl是无类型的，你不能真正区分{{1 2 3 4} {5 6 7 8}}是两个列表的列表，还是两个字符串的列表，或者一个文字字符串{1 2 3 4} {5 6 7 8}，因为所有这些命题都是真的，这取决于你让Tcl解释这个值的方式。

另一件事是，即使您试图在每个顶级元素上尝试catch {lindex $element 0}或string is list $element之类的东西，看看它是否可以解释为列表，这也只能被限定为非列表字符串，而这些字符串实际上不能被解析为列表，比如aaa { bbb。字符串foo也是一个正确的列表(长度为1，包含"foo“作为其唯一元素)。

您可以考虑使用的一种方法是将返回值包装在另一个附加了某种“标记”的值中--这是在其他一些无类型语言(如LISP和Erlang )中经常使用的技巧。它看起来像这样：

• 如果需要返回1 2 3 4，请返回{flat {1 2 3 4}}。
• 如果需要返回{1 2 3 4} {5 6 7 8}，请返回{1 2 3 4} {5 6 7 8}

然后在客户端代码中打开"tag“元素并解封装有效负载：

lassign [your_procedure ...] tag payload
switch -- $tag {
  flat {
    # do something with $payload
  }
  nested {
    # do something with $payload
  }
}