openMSX/share/scripts/_cycle_machine.tcl

namespace eval cycle_machine {

set help_cycle_machine \
{Cycle through the currently running machines.
'cycle_back_machine' does the same as 'cycle_machine', but it goes in the
opposite direction.
}

set_help_text cycle_machine $help_cycle_machine
set_help_text cycle_back_machine $help_cycle_machine

proc cycle_machine {{step 1}} {
	set cycle_list [utils::get_ordered_machine_list]
	if {[llength $cycle_list] > 0} {
		set cur [lsearch -exact $cycle_list [activate_machine]]
		set new [expr {($cur + $step) % [llength $cycle_list]}]
		activate_machine [lindex $cycle_list $new]
	}
}

proc cycle_back_machine {} {
	cycle_machine -1
}

namespace export cycle_machine
namespace export cycle_back_machine

} ;# namespace cycle_machine

namespace import cycle_machine::*