Lines Matching refs:machine
246 proc do_sleep {machine} {
250 set max_num [expr $awake_workers($machine) - 1]
252 set num [get-value $machine sleep 1 $max_num]
254 if {$num > 0 && $awake_workers($machine) > $num} {
255 apply_sleep $machine $num
259 error_box "Only one worker awake on $machine"
263 proc do_wakeup {machine} {
267 set sleeping_workers [expr $workers($machine) - $awake_workers($machine)]
269 set num [get-value $machine wakeup 1 $sleeping_workers]
272 apply_wakeup $machine $num
276 error_box "No Workers Asleep On $machine"
305 proc do_add {machine} {
308 set num [get-value $machine add 6 32]
311 msg "Adding $num on $machine ..."
312 apply_add $machine $num
342 proc do_remove {machine} {
344 set num [get-value $machine remove 1]
346 if {$num > 0 && $workers($machine) >= $num} {
347 set workers($machine) [expr $workers($machine) - $num]