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

Regenerate SCT drivers

Browse Source
This commit is contained in:
Douglas Clowes
2014-11-13 12:35:46 +11:00
parent 4b9ed0bf7f
commit 3450b4cbf9
42 changed files with 140 additions and 486 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
site_ansto/instrument/config/environment/mvp_valve_sct.tcl
View File

@@ -62,8 +62,8 @@ proc add_mvp_valve {name ip_address tcp_port id datype} {
::scobj::mvp_valve::add_driver ${name} "environment" ${simulation_flag} ${ip_address} ${tcp_port} ${id} ${datype}
}
clientput "file evaluation of sct_mvp_valve.tcl"
::scobj::mvp_valve::sics_log 9 "file evaluation of sct_mvp_valve.tcl"
clientput "file evaluation of mvp_valve_sct.tcl"
::scobj::mvp_valve::sics_log 9 "file evaluation of mvp_valve_sct.tcl"
proc ::scobj::mvp_valve::read_config {} {
set catch_status [ catch {
@@ -111,7 +111,7 @@ proc ::scobj::mvp_valve::read_config {} {
if { [llength $missing_list] > 0 } {
error "$name is missing configuration values $missing_list"
}
${ns}::mkDriver sct_${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} {*}$arg_list
${ns}::mkDriver sct_${name} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} {*}$arg_list
}
}
}