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

Allow two LS336 and two LS340 temperature controllers to be selected.

Browse Source
This commit is contained in:
Ferdi Franceschini
2013-11-28 10:24:21 +11:00
committed by Ferdi Franceschini
parent 5d40914ee0
commit 03c00623ee
5 changed files with 83 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
site_ansto/instrument/config/environment/temperature/sct_lakeshore_336.tcl
View File

@@ -1913,15 +1913,27 @@ proc add_sct_ls336 {name IP port terminator {_tol1 1.0} {_tol2 1.0} {CID 1} {CTY
if {[ catch {
if { [ info exists ::config_dict ] } {
if { [ dict get $::config_dict ls336 enabled ] } {
set IP [dict get $::config_dict ls336 ip]
set PORT [dict get $::config_dict ls336 port]
set name [dict get $::config_dict ls336 name]
set ctype [dict get $::config_dict ls336 type]
set cid [dict get $::config_dict ls336 id]
set term [dict get $::config_dict ls336 terminator]
set tol1 [dict get $::config_dict ls336 tol1]
set tol2 [dict get $::config_dict ls336 tol2]
if { [ dict get $::config_dict ls336_1 enabled ] } {
set IP [dict get $::config_dict ls336_1 ip]
set PORT [dict get $::config_dict ls336_1 port]
set name [dict get $::config_dict ls336_1 name]
set ctype [dict get $::config_dict ls336_1 type]
set cid [dict get $::config_dict ls336_1 id]
set term [dict get $::config_dict ls336_1 terminator]
set tol1 [dict get $::config_dict ls336_1 tol1]
set tol2 [dict get $::config_dict ls336_1 tol2]
add_sct_ls336 $name $IP $PORT $term $tol1 $tol2 $cid $ctype
}
if { [ dict get $::config_dict ls336_2 enabled ] } {
set IP [dict get $::config_dict ls336_2 ip]
set PORT [dict get $::config_dict ls336_2 port]
set name [dict get $::config_dict ls336_2 name]
set ctype [dict get $::config_dict ls336_2 type]
set cid [dict get $::config_dict ls336_2 id]
set term [dict get $::config_dict ls336_2 terminator]
set tol1 [dict get $::config_dict ls336_2 tol1]
set tol2 [dict get $::config_dict ls336_2 tol2]
add_sct_ls336 $name $IP $PORT $term $tol1 $tol2 $cid $ctype
}

30
site_ansto/instrument/config/environment/temperature/sct_lakeshore_340.tcl
View File

@@ -2117,15 +2117,27 @@ proc add_sct_ls340 {name IP port terminator {_tol1 1.0} {_tol2 1.0} {CID 1} {CTY
if {[ catch {
if { [ info exists ::config_dict ] } {
if { [ dict get $::config_dict ls340 enabled ] } {
set IP [dict get $::config_dict ls340 ip]
set PORT [dict get $::config_dict ls340 port]
set name [dict get $::config_dict ls340 name]
set ctype [dict get $::config_dict ls340 type]
set cid [dict get $::config_dict ls340 id]
set term [dict get $::config_dict ls340 terminator]
set tol1 [dict get $::config_dict ls340 tol1]
set tol2 [dict get $::config_dict ls340 tol2]
if { [ dict get $::config_dict ls340_1 enabled ] } {
set IP [dict get $::config_dict ls340_1 ip]
set PORT [dict get $::config_dict ls340_1 port]
set name [dict get $::config_dict ls340_1 name]
set ctype [dict get $::config_dict ls340_1 type]
set cid [dict get $::config_dict ls340_1 id]
set term [dict get $::config_dict ls340_1 terminator]
set tol1 [dict get $::config_dict ls340_1 tol1]
set tol2 [dict get $::config_dict ls340_1 tol2]
add_sct_ls340 $name $IP $PORT $term $tol1 $tol2 $cid $ctype
}
if { [ dict get $::config_dict ls340_2 enabled ] } {
set IP [dict get $::config_dict ls340_2 ip]
set PORT [dict get $::config_dict ls340_2 port]
set name [dict get $::config_dict ls340_2 name]
set ctype [dict get $::config_dict ls340_2 type]
set cid [dict get $::config_dict ls340_2 id]
set term [dict get $::config_dict ls340_2 terminator]
set tol1 [dict get $::config_dict ls340_2 tol1]
set tol2 [dict get $::config_dict ls340_2 tol2]
add_sct_ls340 $name $IP $PORT $term $tol1 $tol2 $cid $ctype
}

12
site_ansto/instrument/config/environment/temperature/sct_lakeshore_370.tcl
View File

@@ -948,13 +948,13 @@ namespace import ::scobj::[set vendor]_[set device]::*
# add_lakeshore_370 "tc371" 127.0.0.1 7371 2.0
if { [ info exists ::config_dict ] && [ dict get $::config_dict ls370_2 enabled ] } {
if { [ info exists ::config_dict ] && [ dict get $::config_dict ls370 enabled ] } {
puts "ADD LAKESHORE 370"
set IP [dict get $::config_dict ls370_2 ip]
set PORT [dict get $::config_dict ls370_2 port]
set NAME [dict get $::config_dict ls370_2 name]
set TOL [dict get $::config_dict ls370_2 tol]
set TERM [dict get $::config_dict ls370_2 terminator]
set IP [dict get $::config_dict ls370 ip]
set PORT [dict get $::config_dict ls370 port]
set NAME [dict get $::config_dict ls370 name]
set TOL [dict get $::config_dict ls370 tol]
set TERM [dict get $::config_dict ls370 terminator]
add_lakeshore_370 $NAME $IP $PORT $TOL
}