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

Question

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

例如 - 我來源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] 
} 

更新：擴大有關source的脆弱性在多納爾的評論命令有如何設置執行軌跡：

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