tcl - フォルダー内のすべての TCL スクリプトを実行する

Question

多くの TCL ファイルを含むフォルダーがあり、それらすべてを (Vivado で) 実行する必要があります。それらすべてを一度に実行する時間を節約するにはどうすればよいですか? source [path/]*.tcl のような簡単なものはありますか?

score 2 · Accepted Answer

最初に glob コマンドを使用してすべての tcl ファイルを検索し、次に tcl ファイルのリストを参照してソースを取得することができます。

set $dir your/path
foreach file [glob -dir $dir */*.tcl] {
    source $file
}

編集: Peters の例とは異なり、このソリューションはサブディレクトリ内の .tcl ファイルもソースします (これが必要であることを確認してください)。

score 0 · Accepted Answer

package require fileutil
foreach script [fileutil::findByPattern $baseDir *.tcl] {
    source $script
}

3 に答える 3