linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

util/utlity.tcl

Browse Source 
Hack to make the set_motor_attributes function work with motor objects
implements as tclmot type drivers.

r3752 | ffr | 2012-09-26 10:06:48 +1000 (Wed, 26 Sep 2012) | 4 lines
This commit is contained in:
Ferdi Franceschini
2012-09-26 10:06:48 +10:00
committed by Douglas Clowes
parent b1de99869e
commit 49da4dea29
1 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
site_ansto/instrument/util/utility.tcl
View File

@@ -462,12 +462,17 @@ proc ::utility::set_motor_attributes {} {
sicslist setatt $m control true sicslist setatt $m control true
sicslist setatt $m nxsave true sicslist setatt $m nxsave true
sicslist setatt $m mutable true sicslist setatt $m mutable true
sicslist setatt $m units [SplitReply [$m units]] catch {
sicslist setatt $m long_name [SplitReply [$m long_name]] # This block is specific to the dmc2280 driver.
set mpart [split [SplitReply [$m part] ] .] # Skip it for "tclmot" motors which don't
sicslist setatt $m klass [lindex $mpart 0] # have 'units', 'part' or 'long_name' parameters
if {[llength $mpart] == 2} { sicslist setatt $m units [SplitReply [$m units]]
sicslist setatt $m group [lindex $mpart 1] sicslist setatt $m long_name [SplitReply [$m long_name]]
set mpart [split [SplitReply [$m part] ] .]
sicslist setatt $m klass [lindex $mpart 0]
if {[llength $mpart] == 2} {
sicslist setatt $m group [lindex $mpart 1]
}
} }
sicslist setatt $m nxalias $m sicslist setatt $m nxalias $m
switch [expr int([SplitReply [$m accesscode]])] { switch [expr int([SplitReply [$m accesscode]])] {