20 lines
412 B
20 lines
412 B
|
|
set msg "-[file tail [info script]] done-" |
|
if {$::argc >= 1} { |
|
set howlong [lindex $::argv 0] |
|
if {$::argc >=2} { |
|
set msg [lindex $::argv 1] |
|
} |
|
} else { |
|
set howlong 1000 |
|
} |
|
puts stdout "wait: $howlong" |
|
|
|
set ::script_wait_var 0 |
|
|
|
if {[string is integer -strict $howlong]} { |
|
after $howlong {set ::script_wait_var 1} |
|
} |
|
|
|
vwait ::script_wait_var |
|
puts -nonewline stderr $msg\n
|
|
|