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

Remove superfluous trailing white space from TCL files

Browse Source
This commit is contained in:
Douglas Clowes
2014-05-16 12:30:51 +10:00
parent 89e4e37f9e
commit 92d3acb5d5
230 changed files with 1835 additions and 1835 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
site_ansto/instrument/pelican/config/chopper/fermimot.tcl
View File

@@ -112,7 +112,7 @@ namespace eval ::chopper {
21 22 23 24 25
26 27 28 29 30
} {
set speedMult($i) [expr double($mult)]
set speedMult($i) [expr double($mult)]
incr i
}
@@ -324,7 +324,7 @@ namespace eval ::chopper {
set propGain [lindex $row 1 1 $dir]
set intGain [lindex $row 1 2 $dir]
set phGain [lindex $row 1 3 $dir]
hset $hpath/$node/control/set_motor_dir $dir
hset $hpath/$node/control/set_vetowin50 [expr $vetowin/50.0]
hset $hpath/$node/control/set_prop_gain $propGain
@@ -497,7 +497,7 @@ namespace eval ::chopper {
proc imot_PhRun {hpath node addr name target} {
global SCode
hset $hpath/$node/control/set_ref_delay $target
hsetprop $hpath/$node/control timecheck -1
set readtime [hgetpropval $hpath read_time]
@@ -510,7 +510,7 @@ namespace eval ::chopper {
return $SCode(MOTFAIL)
}
proc get_phase_acc {ch} {
variable chPath

4
site_ansto/instrument/pelican/config/chopper/sct_fermichopper.tcl
View File

@@ -194,7 +194,7 @@ namespace eval ::scobj::chopper {
hfactory $fermiPath/$chname/intlck_status/$field plain user int
}
hfactory $chPath/control plain user none
hfactory $chPath/control/device_error plain user text
@@ -251,7 +251,7 @@ namespace eval ::scobj::chopper {
hsetprop $fermiPath "RDGAINPHASE" ${scobjNS}::rdVal $fermiPath {prop_gain int_gain phase_gain}
hsetprop $fermiPath "RDSYNMOTDIR" ${scobjNS}::rdVal $fermiPath {ref_delay ref_period sync_srce motdir}
hsetprop $fermiPath "RDVETOINF" ${scobjNS}::rdVal $fermiPath {phase_veto_count phase_nonveto_count}
if {$sim_mode == "false"} {
sct_fermi poll $fermiPath $pollrate