Diğer klasörlerdeki ve diğer alt dizinlerdeki tonlarca diğer tcl proc'unu üreten ana bir TCL probu var.TCL: Tüm .tcl dosyalarının kaynağını oluşturmak için alt dizinleri ardışık olarak arayın
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
ve ben her zaman FolderA ve folderB her şeyi kaynak olacak biliyorum zaman biraz aptalca bu şekilde yapmak gibi görünüyor: Örneğin, ana proc olduda. Tüm bir klasördeki tüm .tcl dosyalarını kaynamaya izin verecek bir işlev (veya basit yol) var mı?
set includes [open "|find $basedir -name \*.tcl -print" r]
while { [gets $includes include] >= 0 } {
source $include
}
close $includes
Teşekkürler Jackson. Sanırım hepsini dinlenmek için kullanabiliriz! – Lyndon
Döngü yaratan sembolik bir bağınız varsa, "çok fazla iç içe geçmiş değerlendirme (sonsuz döngü?") Hatası alırsınız. –