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

Regenerate all of the generated driver code

Browse Source
This commit is contained in:
Douglas Clowes
2014-04-17 13:45:35 +10:00
parent 6bca9566e3
commit ad50eaca6a
7 changed files with 227 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
site_ansto/instrument/config/environment/temperature/sct_mercury_scpi.tcl
View File

@@ -729,7 +729,14 @@ proc ::scobj::mercury_scpi::read_config {} {
set PORT [dict get $v port]
set name [dict get $v name]
MakeAsyncProtocol ${name}_protocol
if { [dict exists $v "terminator"] } {
${name}_protocol sendterminator "[dict get $v "terminator"]"
${name}_protocol replyterminator "[dict get $v "terminator"]"
}
MakeAsyncQueue ${name}_queue ${name}_protocol ${IP} ${PORT}
if { [dict exists $v "timeout"] } {
${name}_queue timeout "[dict get $v "timeout"]"
}
set arg_list [list]
foreach arg {id permlink tol valve_tol} {
if {[dict exists $v $arg]} {

9
site_ansto/instrument/config/environment/temperature/sct_pfeiffer_hg.tcl
View File

@@ -376,7 +376,7 @@ proc ::scobj::pfeiffer_hg::mk_sct_pfeiffer_hg { sct_controller name } {
hsetprop ${scobj_hpath}/status oldval 0
hsetprop ${scobj_hpath}/status sdsinfo "::nexus::scobj::sdsinfo"
hsetprop ${scobj_hpath}/status type "part"
hsetprop ${scobj_hpath}/status nxalias "${name}__status"
hsetprop ${scobj_hpath}/status nxalias "${name}_status"
hfactory ${scobj_hpath}/pressure plain spy none
@@ -483,7 +483,14 @@ proc ::scobj::pfeiffer_hg::read_config {} {
set PORT [dict get $v port]
set name [dict get $v name]
MakeAsyncProtocol ${name}_protocol
if { [dict exists $v "terminator"] } {
${name}_protocol sendterminator "[dict get $v "terminator"]"
${name}_protocol replyterminator "[dict get $v "terminator"]"
}
MakeAsyncQueue ${name}_queue ${name}_protocol ${IP} ${PORT}
if { [dict exists $v "timeout"] } {
${name}_queue timeout "[dict get $v "timeout"]"
}
add_pfeiffer_hg ${name} "aqadapter" ${name}_queue
}
}