Tcl スクリプト ファイル (すべて Modelsim の「do」ファイル) で何かを見つける最も簡単な方法の 1 つは、それを評価することです。Tclはそれがとても得意です。もちろん、コマンドにすべての慣習的なことをさせたくはありません。代わりに、必要な情報を生成するコマンドを除いて、すべてを何も行わないようにできるコンテキストで評価します。
# Set up our evaluation context, 'worker'
interp create worker -safe
interp eval worker {proc unknown args {}}; # Our do-nothing handler
interp alias worker theInterestingCommand {} ourHandler
proc ourHandler args {
puts "We were called with: $args"
}
# Parse the file!
set f [open /the/file.tcl]
interp eval worker [read $f]
# Clean up
close $f
interp delete worker
あとtheInterestingCommand
は、正しい名前を付けて、引数から興味深い情報を抽出するだけです。これは比較的簡単なはずです…</p>