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

4
site_ansto/instrument/lyrebird/config/motors/motor_configuration.tcl
View File

@@ -735,7 +735,7 @@ Motor pa_top $motor_driver_type [params \
pa_left part slits
pa_left long_name pa_top
pa_left softlowerlim -200
pa_left softupperlim 0
pa_left softupperlim 0
pa_left home 0
# mc6: Pre-sample bottom aperture -- Slit s2 bottom Blade
@@ -757,7 +757,7 @@ Motor pa_bottom $motor_driver_type [params \
pa_bottom part slits
pa_bottom long_name pa_bottom
pa_bottom softlowerlim -200
pa_bottom softupperlim 0
pa_bottom softupperlim 0
pa_bottom home 0
proc motor_set_sobj_attributes {} {

8
site_ansto/instrument/lyrebird/config/motors/positmotor_configuration.tcl
View File

@@ -27,10 +27,10 @@ set 20sample_table {
6 203.7
7 161.7
8 119.7
9 77.7
10 35.7
11 -46.3
12 -88.3
9 77.7
10 35.7
11 -46.3
12 -88.3
13 -130.3
14 -172.3
15 -214.3

16
site_ansto/instrument/lyrebird/config/motors/sct_flightTube.tcl
View File

@@ -30,7 +30,7 @@ namespace eval ::scobj::galil {
##
# @brief Read Angle value from Gumtree client and then send the command to the Motor
# @return The next state
# @return The next state
proc ::scobj::galil::getValue {nextState} {
set tmpAngle [sct target]
set comm "ANGLE=$tmpAngle"
@@ -40,7 +40,7 @@ namespace eval ::scobj::galil {
##
# @brief Get ACK from the Motor after sending an ANGLE command to the Motor
# @return IDLE
# @return IDLE
proc ::scobj::galil::rdStatusFunc {} {
set ack [sct result]
if {$ack == -1} {
@@ -49,7 +49,7 @@ namespace eval ::scobj::galil {
broadcast "Error $ack: Angle is not set correctly, check the error code $ack!"
}
return idle
}
}
proc ::scobj::galil::mkGalil {argList} {
@@ -59,7 +59,7 @@ proc ::scobj::galil::mkGalil {argList} {
}
set NS ::scobj::$pa(NAME)
set internal $pa(INTERVAL)
set internal $pa(INTERVAL)
set batObjName $pa(NAME)
set batpath /sics/$batObjName
@@ -74,9 +74,9 @@ proc ::scobj::galil::mkGalil {argList} {
#sicslist setatt $pa(NAME) klass instrument
#sicslist setatt $pa(NAME) long_name $pa(NAME)
hsetprop $batpath klass NXaperture
hfactory /sics/$pa(NAME)/Angle plain user float
hfactory /sics/$pa(NAME)/setAngle plain user float
hfactory /sics/$pa(NAME)/setAngle plain user float
makesctcontroller sct_ft galil $pa(IP):$pa(PORT)
#makesctcontroller sct_ft std $pa(IP):$pa(PORT)
@@ -84,14 +84,14 @@ proc ::scobj::galil::mkGalil {argList} {
# Get the TPF value from the Motor, then convert to current ANGLE position
hsetprop $batpath read ${NS}::getTPF
hsetprop $batpath ackCmd ${NS}::ackCmd $batpath
# Read the ANGLE value from the Gumtree client, then send roate command to Motor and get ACK from Motor.
hsetprop $batpath write ${NS}::getValue rdStatus
hsetprop $batpath rdStatus ${NS}::rdStatusFunc
::scobj::hinitprops $batObjName setAngle Angle
sct_ft poll $batpath $internal
sct_ft poll $batpath $internal
sct_ft write $batpath
}