profile.tcl

来自「采用蚂蚁算法实现ad hoc网络路由协议,平台为ns2」· TCL 代码 · 共 9 行

package require profiler
::profiler::init
set profiled [lindex $argv 0]
set argv [lrange $argv 1 end]
set argc [llength $argv]
source $profiled
puts [::profiler::print]
puts "done"