小编Viv*_*vek的帖子

我是TCL编程的新手

我有两个不同的tcl脚本分别名为test1.tcl和test2.tcl

目录F:\ TCLPrograms\SamplePrograms\test1.tcl和F:\ TCLPrograms\test2.tcl

我想知道test2.tcl的完整路径,这是一个proc

如果我在proc disp {}中给出info [script],它返回调用它的路径

即F:\ TCLPrograms\SamplePrograms\test1.tcl

请有人告诉我要获得过程的路径

test1.tcl:

puts "Processing test1..."
source "F:\\TCLPrograms\\test2.tcl"
set rc [disp]
puts "Executed...."

test2.tcl:

proc disp { } {
puts "Successfully executed test2.tcl"
set path [info script]
puts "Script is invoked from the path: $path"
}

提前致谢