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

14
site_ansto/instrument/config/source/source_common.tcl
View File

@@ -12,7 +12,7 @@ if {$sim_mode == "true"} {
switch $status {
"CALIBRATED REACTOR POWER" {
return [lindex $opal_status 0]
}
}
"CNS HELIUM INLET TEMPERATURE" {
return [lindex $opal_status 1]
}
@@ -32,7 +32,7 @@ if {$sim_mode == "true"} {
}
publish opal user
} else {
MakeAsyncQueue lss_chan LSS 137.157.204.67 31250
MakeAsyncQueue lss_chan LSS 137.157.204.67 31250
MakeLSSMonitor opal lss_chan 0
}
::utility::macro::getset float reactor_power {} {
@@ -41,7 +41,7 @@ if {$sim_mode == "true"} {
if [string is double $value] {
return "reactor_power = $value"
} else {
return "reactor_power = -1"
return "reactor_power = -1"
}
}
sicslist setatt reactor_power klass source
@@ -57,9 +57,9 @@ proc ::source::ic_initialize {guide} {
set str [opal "CNS HELIUM INLET TEMPERATURE"]
set value [lindex [lindex [split $str =] 1] 0]
if [string is double $value] {
return "cns_inlet_temp = $value"
return "cns_inlet_temp = $value"
} else {
return "cns_inlet_temp = -1"
return "cns_inlet_temp = -1"
}
}
sicslist setatt cns_inlet_temp klass source
@@ -73,7 +73,7 @@ proc ::source::ic_initialize {guide} {
if [string is double $value] {
return "cns_outlet_temp = $value"
} else {
return "cns_outlet_temp = -1"
return "cns_outlet_temp = -1"
}
}
sicslist setatt cns_outlet_temp klass source
@@ -87,7 +87,7 @@ proc ::source::ic_initialize {guide} {
if [string is double $value] {
return "cns_flow = $value"
} else {
return "cns_flow = -1"
return "cns_flow = -1"
}
}
sicslist setatt cns_flow klass source