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

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
}