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

@@ -18,9 +18,9 @@
# This configuration does not create a GumTree interface or let you
# save nexus data files.
# Required by server_config.tcl
# Required by server_config.tcl
VarMake Instrument Text Internal
Instrument bare_dingo
Instrument bare_dingo
Instrument lock
#START SERVER CONFIGURATION SECTION
@@ -30,24 +30,24 @@ source server_config.tcl
set sicsroot ../
source util/utility.tcl
ServerOption LogFileBaseName $sicsroot/log/serverlog
ServerOption LogFileBaseName $sicsroot/log/serverlog
###### installprotocolhandler
###### installprotocolhandler
ServerOption statusfile $sicsroot/log/status.tcl
ServerOption RedirectFile $sicsroot/log/stdout
ServerOption LogFileDir $sicsroot/log
ServerOption statusfile $sicsroot/log/status.tcl
ServerOption RedirectFile $sicsroot/log/stdout
ServerOption LogFileDir $sicsroot/log
ServerOption QuieckPort [get_portnum $quieckport ]
ServerOption ServerPort [get_portnum $serverport ]
ServerOption InterruptPort [get_portnum $interruptport ]
ServerOption TelWord sicslogin
ServerOption TelWord sicslogin
ServerOption TelnetPort [get_portnum $telnetport ]
ServerOption ReadUserPasswdTimeout 600000
ServerOption AcceptTimeOut 10
ServerOption ReadTimeOut 1000
SicsUser manager ansto 1
SicsUser user sydney 2
SicsUser spy 007 3
ServerOption ReadUserPasswdTimeout 600000
ServerOption AcceptTimeOut 10
ServerOption ReadTimeOut 1000
SicsUser manager ansto 1
SicsUser user sydney 2
SicsUser spy 007 3
Motor dummy_motor asim [params \
asyncqueue mc1\

View File

@@ -1,6 +1,6 @@
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
source $cfPath(anticollider)/anticollider_common.tcl
source $cfPath(anticollider)/anticollider_common.tcl
# NOTE: This is called with a list of motorname target pairs
proc ::anticollider::enable {args} {

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
variable isc_cm_address
variable isc_cm_port
@@ -18,11 +18,11 @@ proc ::counter::cm_initialize {} {
if [ catch {
variable isc_cm_address
variable isc_cm_port
MakeAsyncQueue cmserver CAMERA $isc_cm_address $isc_cm_port
MakeCounter cm1 anstocamera cmserver
sicslist setatt cm1 privilege internal
::utility::macro::getset text cm1_mode {} {
return [cm1 getmode]
@@ -78,7 +78,7 @@ proc ::counter::isc_initialize {} {
set isc_cm_address [dict get $::CAMERA_HOSTPORT HOST]
set isc_cm_port [dict get $::CAMERA_HOSTPORT PORT]
::counter::cm_initialize
::counter::cm_initialize
} message ] {
if {$::errorCode=="NONE"} {return $message}
return -code error "$message"

View File

@@ -70,7 +70,7 @@ Motor stth $motor_driver_type [params \
absEncHome $stth_Home\
cntsPerX 4096]
stth part sample
stth long_name stth
stth long_name stth
stth softlowerlim 0
stth softupperlim 360
stth home 0
@@ -185,7 +185,7 @@ sz home 0
#
# mc2: Camera translation axis along beam
# Gearbox ?, Gear ratio ?,
# Gearbox ?, Gear ratio ?,
set dy_Home 0
set dyStepRate ?
Motor dy $motor_driver_type [params \

View File

@@ -24,10 +24,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

View File

@@ -1,5 +1,5 @@
set sim_mode [SplitReply [plc_simulation]]
if {$sim_mode == "false"} {
if {$sim_mode == "false"} {
MakeAsyncQueue plc_chan SafetyPLC [dict get $::PLC_HOSTPORT HOST] [dict get $::PLC_HOSTPORT PORT]
MakeSafetyPLC plc plc_chan 0
}

View File

@@ -1,8 +1,8 @@
# Author: Jing Chen (jgn@ansto.gov.au)
# Required by server_config.tcl
# Required by server_config.tcl
VarMake Instrument Text Internal
Instrument dingo
Instrument dingo
Instrument lock
#START SERVER CONFIGURATION SECTION
@@ -66,7 +66,7 @@ foreach m [sicslist type motor] {
}
server_init
clientput "serverport [get_portnum $::serverport]"
###########################################