fakecomplete.tcl

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

source runsimulation.tcl

foreach val(filebase) [glob log/proa*] {
    set completeFile [open $val(filebase)/COMPLETE "w"]
    puts $completeFile ""
    close $completeFile
}