使用 tcl API 进行字符串替换

Question

有没有办法（ab）使用 tcl C-API 来“解析”字符串，执行所有替换（包括方括号中的子命令），但在实际评估生成的命令行之前停止？

我想做的是创建一个命令（用 C 语言，但我会考虑做一个 tcl 包装器，如果有一种优雅的方法可以做到这一点），它接受一个块作为参数（即大括号引用） -细绳）。我想采用该块，将其分割并以与执行它相同的方式执行替换，但停在那里并解释结果行。

我考虑过创建一个命名空间，其中所有有效的第一个单词都被定义为命令，但是这个列表是如此庞大（而且几乎是动态的），所以它很快就会变得太麻烦。我也尝试过这种方法，但使用 unknown 命令来拦截不同的命令。但是，unknown 用于一堆东西，并且不能绑定到命名空间，因此每当我执行该块时我都必须定义它，并将其设置回之前的值我已经完成了，感觉很不稳定。最重要的是，我会冒与实际命令发生冲突的风险（风险相当低，但不是零），所以我非常不愿意使用 unknown 命令。

我能得到的最接近的是 Tcl_ParseCommand （以及该系列的其余部分），它生成一个解析树，我可以手动评估它。我想如果没有更好的解决方案，我会采取这种方式，但如果有“官方”方式，我当然更喜欢它..

我错过了什么吗？

Answer 1

看一下 Tcl_SubstObj。它是 [subst] 命令的 C 等效项，这似乎就是您正在寻找的内容。

正如您在评论中指出的那样， subst 并没有完全完成您想要做的事情。如果有帮助，以下 Tcl 代码可能就是您正在寻找的：

> set mydata {mylist item $listitem group item {$group item}}
> set listitem {1 2 3}
> subst $mydata      ;# error: can't read "group": no such variable
> proc groupsubst {data} {
    return [uplevel 1 list $data]
}
> groupsubst $mydata ;# mylist item {1 2 3} group item {$group item}