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

8
site_ansto/instrument/sans/config/environment/environment.tcl
View File

@@ -35,14 +35,14 @@ switch [string tolower $envtemp] {
puts "Configuring RHQC"
# 9600 8 1 None None Enable
add_sct_ls340 tc1 137.157.202.78 4001 "\r" 0.5 5.0
# TODO Set controlsensor
# TODO Set controlsensor
# if { [SplitReply [environment_simulation]] == "false"} {
# tc1 controlsensor sensorB
# }
# puts "Added tc1 with [tc1 controlsensor]"
# 9600 8 1 None None Enable
add_sct_ls340 tc2 137.157.202.78 4002 "\r" 0.5 5.0
# TODO Set controlsensor
# TODO Set controlsensor
# if { [SplitReply [environment_simulation]] == "false"} {
# tc2 controlsensor sensorD
# }
@@ -58,7 +58,7 @@ switch [string tolower $envtemp] {
sicslist setatt temperature long_name temperature
sicslist setatt temperature klass sample
sicslist setatt temperature units K
# TODO Set controlsensor
# TODO Set controlsensor
# tc1 controlsensor sensorA
}
#add_ips120 ips120 137.157.202.78 4004 0.001
@@ -125,7 +125,7 @@ switch [string tolower $envtemp] {
sicslist setatt temperature long_name temperature
sicslist setatt temperature klass sample
sicslist setatt temperature units K
# TODO Set controlsensor
# TODO Set controlsensor
# tc1 controlsensor sensorA
}
add_ips120 ips120 137.157.202.78 4004 0.001

4
site_ansto/instrument/sans/config/environment/temperature/lakeshore340.tcl
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 ] {