linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make IP addresses explicit when configuring the old lakeshore 340 drivers.

Browse Source 
r2910 | ffr | 2010-05-07 14:32:51 +1000 (Fri, 07 May 2010) | 2 lines
This commit is contained in:
Ferdi Franceschini
2010-05-07 14:32:51 +10:00
committed by Douglas Clowes
parent 1c4d6f398a
commit 8011cec140
7 changed files with 13 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
site_ansto/instrument/sans/config/environment/temperature/lakeshore340.tcl
View File

@@ -15,9 +15,8 @@ source $cfPath(environment)/temperature/lakeshore340_common.tcl
# @param range, lakeshore range
# @param upperlimit, upper temperature limit Kelvin
# @param lowerlimit, lower temperature limit Kelvin
proc ::environment::temperature::add_ls340 {tcn mport args} {
proc ::environment::temperature::add_ls340 {tcn tc_dfltURL mport args} {
variable tc_dfltPar
variable tc_dfltURL
variable moxaPortMap
if [catch {
if {$tcn == "" || $mport == ""} {
@@ -36,7 +35,7 @@ proc ::environment::temperature::add_ls340 {tcn mport args} {
if {$sim_mode == "true"} {
::environment::temperature::mkls340sim $tcn
} else {
::environment::temperature::mkls340 $tcn 137.157.202.85 $moxaPortMap($mport)
::environment::temperature::mkls340 $tcn $tc_dfltURL $moxaPortMap($mport)
foreach nm [array names tc_param] {
$tcn $nm $tc_param($nm)
}