TCL内のすべてのソースファイルを一覧表示するコマンド

Question

TCL内のすべてのソースファイルを一覧表示するコマンドはありますか？

例えば、a.tcl,b.tcl,c.tcl,test.tclファイル。ソースファイルを表示するTCLコマンドがありますか？

Answer 1

ありませんが、あなたはこのように、どこかsource D」のファイルを追跡するためにsourceコマンド自体を上書きすることができます。

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