Commande pour lister tous les fichiers sourcés en TCL

Question

Existe-t-il une commande permettant de lister tous les fichiers sourcés en TCL ?

Eg - I source a.tcl , b.tcl , c.tcl en test.tcl fichier. Existe-t-il une commande TCL permettant de visualiser les fichiers sources ?

Answer 1

Non, mais vous pouvez remplacer le source elle-même pour garder la trace de la source des dossiers quelque part, comme ici :

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

Mise à jour : en développant le commentaire de Donal concernant la fragilité de l'environnement. source commande, voilà comment on pourrait établir une trace d'exécution :

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