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

@@ -1,6 +1,6 @@
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Cycle motors
# Cycle motors
clientput "drive to zero reference"
drive ss2vg 10 ss2hg 10 ss1vg 10 ss1hg 10
drive som 0 ss1vo 0 ss2vo 0 ss2vo 0 ss2ho 0 sphi 0 schi 90 sx 0 sz 0

View File

@@ -1,4 +1,4 @@
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
source $cfPath(anticollider)/anticollider_common.tcl
source $cfPath(anticollider)/anticollider_common.tcl
::anticollider::loadscript acscript.txt

View File

@@ -5,7 +5,7 @@ namespace eval counter {
variable isc_numchannels
variable isc_monitor_address
variable isc_portlist
variable isc_beam_monitor_list
variable isc_beam_monitor_list
proc set_sobj_attributes {} {
}
}

View File

@@ -14,7 +14,7 @@ source $cfPath(environment)/temperature/lakeshore340_common.tcl
# @param settle, settling time in seconds
# @param range, lakeshore range
# @param upperlimit, upper temperature limit Kelvin
# @param lowerlimit, lower temperature limit Kelvin
# @param lowerlimit, lower temperature limit Kelvin
proc ::environment::temperature::add_ls340 {tcn tc_dfltURL mport args} {
variable tc_dfltPar
variable moxaPortMap
@@ -41,7 +41,7 @@ proc ::environment::temperature::add_ls340 {tcn tc_dfltURL mport args} {
}
}
sicslist setatt $tcn environment_name ${tcn}_cntrl
sicslist setatt $tcn environment_name ${tcn}_cntrl
sicslist setatt $tcn long_name control_sensor_reading
::environment::mkenvinfo $tcn {heateron {priv user} range {priv manager} }
} message ] {

View File

@@ -1,5 +1,5 @@
set hpaths [list experiment detector detector/monitor detector/histmem ]
set hpaths [list experiment detector detector/monitor detector/histmem ]
#A "motor part" may have a group path which can be appended to the
#following paths.

View File

@@ -4,7 +4,7 @@ set sim_mode [SplitReply [hmm_simulation]]
proc ::histogram_memory::init_OAT_TABLE {} {
if [ catch {
# We don't need a MAX_CHAN parameter for time because the time channel
# We don't need a MAX_CHAN parameter for time because the time channel
# is scaled by calling the ::histogram_memory::clock_scale function
OAT_TABLE X -setdata MAX_CHAN 128
OAT_TABLE Y -setdata MAX_CHAN 512
@@ -19,7 +19,7 @@ proc ::histogram_memory::init_OAT_TABLE {} {
hmm configure fat_frame_frequency $freq
hmm configure fat_frame_source INTERNAL
OAT_TABLE -set X { 127.5 126.5 } NXC 128 Y { -0.5 3.5 } NYC 128 T { 0 20000 } NTC 1
OAT_TABLE -set X { 127.5 126.5 } NXC 128 Y { -0.5 3.5 } NYC 128 T { 0 20000 } NTC 1
} message ] {
if {$::errorCode=="NONE"} {return $message}
return -code error $message

View File

@@ -1,6 +1,6 @@
# This must be loaded by motor_configuration.tcl
set ephi_Home 6647698
set ephi_Home 6647698
set echi_Home 8919294
set eom_Home 23165482

View File

@@ -166,7 +166,7 @@ Motor mchi $motor_driver_type [params \
absEncHome $mchi_Home\
cntsPerX 4096]
mchi home -0.2546
mchi softlowerlim -2
mchi softlowerlim -2
mchi softupperlim 2
mchi speed 1
mchi movecount $move_count
@@ -393,7 +393,7 @@ Motor stth $motor_driver_type [params \
absEnc 1\
absEncHome $stth_Home\
cntsPerX -93207]
stth softlowerlim -156.75
stth softlowerlim -156.75
stth softupperlim 5.25
stth home 0
stth speed 0.5

View File

@@ -1,5 +1,5 @@
set sim_mode [SplitReply [plc_simulation]]
if {$sim_mode == "false"} {
if {$sim_mode == "false"} {
MakeAsyncQueue plc_chan SafetyPLC 137.157.211.21 30002
MakeSafetyPLC plc plc_chan 0
}

View File

@@ -1,9 +1,9 @@
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Required by server_config.tcl
# Required by server_config.tcl
VarMake Instrument Text Internal
Instrument echidna
Instrument echidna
Instrument lock
#START SERVER CONFIGURATION SECTION

View File

@@ -1,6 +1,6 @@
MakeHM hmm SIM
#MakeHMControl_ANSTO hmc bm hmm
source $cfPath(hmm)/hmm_configuration_common_1.tcl
source $cfPath(hmm)/hmm_configuration_common_1.tcl
# Beam monitor controlled hmm controller.
proc ::histogram_memory::hmc {_start _preset _mode _pause} {