16 lines
466 B
Tcl
16 lines
466 B
Tcl
|
#usage do runall.tcl 1ms
|
||
|
|
|
||
|
|
set ROOT_PATH [pwd]
|
||
|
|
|
||
|
|
for {set NUMBER 3} { $NUMBER < 14} {incr NUMBER} {
|
||
|
|
set CASE_NUMBER [format "%03d" $NUMBER]
|
||
|
|
puts ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>$CASE_NUMBER start>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"
|
||
|
|
catch {do runone.tcl -n $CASE_NUMBER -t $1} result
|
||
|
|
quit -sim
|
||
|
|
cd ${ROOT_PATH}
|
||
|
|
puts "<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<$CASE_NUMBER end<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<"
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|