当前 TCL 脚本的完整路径

Question

是否有可能获取当前正在执行的 TCL 脚本的完整路径？

在 PHP 中，它是：__FILE__

Answer 1

根据“当前执行 TCL 脚本”的含义，您实际上可能会寻求 信息脚本，甚至可能info nameofexecutable< /code>或者更深奥的东西。

Answer 2

检索当前语句所在文件名的正确方法是这样的（真正相当于 PHP/C++ 的 __FILE__）：

set thisFile [ dict get [ info frame 0 ] file ]

Psuedocode（工作原理）：

1. set thisFile < ;value> ：将变量 thisFile 设置为 value
2. dict getfile：从字典返回文件值
3. infoframe<#>：返回一个字典，其中包含有关指定堆栈级别的帧的信息（# )，0 将返回最新的堆栈帧
   注意：有关信息框架的更多信息，请参阅帖子末尾。

在这种情况下，从信息框架返回的文件值已经标准化，因此不需要文件标准化。

info script 和 info frame 之间的区别主要在于与 Tcl 包一起使用。如果在 package require (require package) 期间提供的 Tcl 文件中使用 info script，则 info script 将返回当前正在执行的 Tcl 脚本的路径，并且不会提供包含 info script 命令的 Tcl 文件的实际名称；但是，此处提供的信息框架示例将正确返回包含该命令的文件的文件名。

如果您想要当前正在评估的脚本的名称，那么：

set sourcedScript [ info script ]

如果您想要最初调用的脚本（或解释器）的名称，那么：

set scriptAtInvocation $::argv0

如果您想要最初调用的可执行文件的名称，那么：

set exeAtInvocation [ info nameofexecutable ]

更新 - 详细信息：信息框架

这是 Tcl 中堆栈跟踪的样子。 frame_index 向我们展示了信息帧 $frame_index 的值从 0 到 [ info frame ] 的样子。

调用infoframe [ infoframe]在功能上等同于infoframe0，但使用0当然更快。

实际上只有 1 到 [ info frame ] 堆栈帧，而 0 的行为类似于 [ info frame ]。在此示例中，您可以看到 0 和 5 （即 [ info frame ]）是相同的：

frame_index: 0 | type = source | proc = ::stacktrace | line = 26 | level = 0 | file = /tcltest/stacktrace.tcl | cmd = info frame $frame_counter
frame_index: 1 | type = source | line = 6 | level = 4 | file = /tcltest/main.tcl | cmd = a
frame_index: 2 | type = source | proc = ::a | line = 2 | level = 3 | file = /tcltest/a.tcl | cmd = b
frame_index: 3 | type = source | proc = ::b | line = 2 | level = 2 | file = /tcltest/b.tcl | cmd = c
frame_index: 4 | type = source | proc = ::c | line = 5 | level = 1 | file = /tcltest/c.tcl | cmd = stacktrace
frame_index: 5 | type = source | proc = ::stacktrace | line = 26 | level = 0 | file = /tcltest/stacktrace.tcl | cmd = info frame $frame_counter

请参阅：
https://github.com/Xilinx/XilinxTclStore /blob/master/tclapp/xilinx/profiler/app.tcl#L273

Answer 3

您想要 $argv0

Answer 4

您也可以使用 [file normalize] 来获取完全规范化的名称。

file normalize $argv0
file normalize [info nameofexecutable]

Answer 5

在我发布问题后几秒钟... lindex $argv 0 是一个很好的起点;-)