用于列出TCL中所有源文件的命令

Question

是否有命令列出TCL中的所有源文件？

EG - I信号源a.tcl,b.tcl,c.tcl在test.tcl文件中.是否有TCL命令来查看源文件？

Answer 1

不,但您可以覆盖source命令本身以跟踪source某处的'd文件,如下所示:

rename source __real_source
proc source args {
    global sourced
    lappend sourced $args
    uplevel 1 [linsert $args 0 __real_source]
}

更新:扩展Donal关于source命令脆弱性的评论,可以设置执行跟踪:

proc register_sourced {cmd args} {
  global sourced
  lappend sourced [lindex $cmd end]
}
trace add execution source leave register_sourced