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

24
site_ansto/instrument/tas/config/tasmad/sicscommon/deltatau.tcl
View File

@@ -1,5 +1,5 @@
#---------------------------------------------------------------
# These are the scripts for the delta-tau PMAC motor
# These are the scripts for the delta-tau PMAC motor
# controller.
#
# !!!!!!!!! Script Chains !!!!!!!!!!!
@@ -12,11 +12,11 @@
# -- For reading the status
# pmacsendaxer --- pmacrcvaxerr -- pmacrcvpos -- pmacrcvstat
# This means we check for an axis error first, then update the position,
# then check the axis status itself.
# then check the axis status itself.
# -- For setting the position
# pmacsendhardpos -- pmacrcvhardpos -- pmacrcvhardax
# This means, we send the positioning command, read the reply and read the
# axisstatus until the axis has started
# This means, we send the positioning command, read the reply and read the
# axisstatus until the axis has started
#
# copyright: see file COPYRIGHT
#
@@ -66,7 +66,7 @@ proc translateAxisError {key} {
}
#---------------------------------------------------------------------
proc evaluateAxisStatus {key} {
#----- Tcl does not like negative numbers as keys.
#----- Tcl does not like negative numbers as keys.
if {$key < 0} {
set key [expr 50 + abs($key)]
}
@@ -181,7 +181,7 @@ proc pmacrcvaxerr {motname num} {
sct update error
sct geterror $data
return idle
}
}
hupdate /sics/$motname/axiserror $data
if {$data != 0 } {
set err [translateAxisError $data]
@@ -206,7 +206,7 @@ proc pmacrcvpos {motname num} {
sct geterror $data
sct update error
return idle
}
}
hupdate /sics/$motname/hardposition $data
sct send "P${num}00"
return rcvstat
@@ -218,7 +218,7 @@ proc pmacrcvstat {motname num sct} {
clientput "ERROR: $motname : $data"
sct update error
return idle
}
}
set status [catch {evaluateAxisStatus $data} msg]
if {$status != 0} {
sct update error
@@ -260,7 +260,7 @@ proc pmacrcvhardpos {num} {
clientput "ERROR: $data"
sct seterror $data
return idle
}
}
sct send "P${num}00"
return rcvhardax
}
@@ -271,7 +271,7 @@ proc pmacrcvhardax {motname num sct} {
clientput "ERROR: $motname : $data"
sct seterror $data
return idle
}
}
set status [catch {evaluateAxisStatus $data} msg]
if {$status != 0} {
clientput "ERROR: $motname : $msg"
@@ -284,7 +284,7 @@ proc pmacrcvhardax {motname num sct} {
return rcvhardax
}
run {
$sct queue /sics/$motname/status progress read
$sct queue /sics/$motname/status progress read
return idle
}
}
@@ -353,5 +353,5 @@ proc MakeDeltaTau {name sct num} {
# $sct send [format "M%2.2d14=1" $num]
foreach par $parlist {
$sct queue /sics/$name/$par progress read
}
}
}