Remove superfluous trailing white space from TCL files

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

View File

@@ -44,9 +44,9 @@ namespace eval ::scobj::jogmotor {
}
return idle
}
proc jogCmd {sct_controller axis} {
variable cmd_table
variable cmd_table
set jcmd [string tolower [lindex [sct target] 0]]
switch $jcmd [subst {
@@ -76,7 +76,7 @@ namespace eval ::scobj::jogmotor {
}
}
# TODO Check thread 0 and motion control disabled?
proc check_motor {} {
set val [sct target]
@@ -171,8 +171,8 @@ proc updatestatus {} {
namespace import ::scobj::jogmotor::*
##
# Eg
# hfactory /controllers plain spy none
#
# hfactory /controllers plain spy none
#
# makesctcontroller /controllers/sct_mc1 std localhost:62034
#
# mk_sct_jogmotor sct_mc1 chi index { 1 0 2 15 3 20 }

View File

@@ -51,7 +51,7 @@ proc ::scobj::positmotor::setVal {ID2valXfn motor table} {
proc ::scobj::positmotor::noResponse {} {
return idle
}
##
# @brief Creates a controller which can drive motors to discrete labelled positions
#
@@ -69,7 +69,7 @@ proc mkPosit {sct_controller name type motor klass table} {
lappend ilist $i
}
sicslist setatt $name values [join $ilist ","]
sicslist setatt $name klass $klass
sicslist setatt $name klass $klass
sicslist setatt $name long_name $name
hfactory /sics/$name/precision script "getmotpar $motor precision" "$motor precision " float 1
hsetprop /sics/$name read ::scobj::positmotor::reqVal report $motor
@@ -137,7 +137,7 @@ proc ::scobj::positmotor::mot2ID {mot precision table} {
namespace import ::scobj::positmotor::*
##
# Eg
#
#
# makesctcontroller sct_mc3 std localhost:62034
#
# mkPosit sct_mc3 diameter float apx sample {2.5 0 5.0 -23 7.5 -47}