TCL: recherche récursive sous-répertoires à la source tous les fichiers .tcl

J'ai TCL proc que les sources des tonnes d'autres tcl procs dans d'autres dossiers et ultérieure des sous-répertoires. Par exemple, dans le proc principal:

source $basepath/folderA/1A.tcl
source $basepath/folderA/2A.tcl
source $basepath/folderA/3A.tcl
source $basepath/folderB/1B.tcl
source $basepath/folderB/2B.tcl
source $basepath/folderB/3B.tcl

et il semble assez stupide pour le faire de cette façon quand je sais que je vais à la source tout en folderA et folderB. Est-il une fonction (ou de façon simple) qui me permettra de tout simplement source de tous les .tcl fichiers dans un dossier entier?

source d'informationauteur Lyndon