Befehl zum Auflisten aller Quelldateien in TCL

Question

Gibt es einen Befehl, um alle Quelldateien in TCL aufzulisten?

Eg - I Quelle a.tcl, b.tcl, c.tcl in test.tcl Datei. Gibt es einen TCL-Befehl zum Anzeigen der Quelldateien?

Answer 1

Nein, aber Sie können den source Befehl selbst außer Kraft setzen Spur der source ‚d Dateien irgendwo zu halten, wie folgt aus:

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

Update: auf die Bemerkung des Donal Erweiterung in Bezug auf die Fragilität des source Befehl gibt es, wie man eine Ausführungsverfolgung einrichten könnte:

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