35 lines
1.0 KiB
Tcl
35 lines
1.0 KiB
Tcl
|
|
namespace eval chopper {
|
|
variable sim_mode [SplitReply [chopper_simulation]]
|
|
set master_chopper_id_simvar 1
|
|
}
|
|
|
|
if {$sim_mode == false} {
|
|
MakeAsyncProtocol std
|
|
MakeAsyncQueue chopsel std chopsel1-bilby 30000
|
|
}
|
|
::utility::macro::getset int master_chopper_id {args} {
|
|
variable sim_mode [SplitReply [chopper_simulation]]
|
|
|
|
if {$sim_mode == false} {
|
|
if {$args == ""} {
|
|
chopsel send {get master chopper}
|
|
return "master_chopper_id = [SplitReply [chopsel send {get master chopper}]]"
|
|
} else {
|
|
chopsel send "get master chopper"
|
|
chopsel send "enable chopper selection"
|
|
chopsel send "set master chopper=$args"
|
|
chopsel send "disable chopper selection"
|
|
}
|
|
} else {
|
|
if {$args == ""} {
|
|
return master_chopper_id = $::chopper::master_chopper_id_simvar
|
|
} else {
|
|
set ::chopper::master_chopper_id_simvar $args
|
|
}
|
|
}
|
|
}
|
|
sicslist setatt master_chopper_id klass NXdisk_chopper
|
|
sicslist setatt master_chopper_id long_name master_chopper_id
|
|
sicslist setatt master_chopper_id mutable false
|