1821 lines
87 KiB
Tcl
1821 lines
87 KiB
Tcl
# Generated driver for knauer_pump
|
|
# vim: ft=tcl tabstop=8 softtabstop=2 shiftwidth=2 nocindent smartindent
|
|
#
|
|
|
|
namespace eval ::scobj::knauer_pump {
|
|
set debug_threshold 0
|
|
}
|
|
|
|
proc ::scobj::knauer_pump::debug_log {tc_root debug_level debug_string} {
|
|
set catch_status [ catch {
|
|
set debug_threshold [hgetpropval ${tc_root} debug_threshold]
|
|
if {${debug_level} >= ${debug_threshold}} {
|
|
set fd [open "../log/knauer_pump_[basename ${tc_root}].log" "a"]
|
|
set line "[clock format [clock seconds] -format "%T"] ${debug_string}"
|
|
puts ${fd} "${line}"
|
|
close ${fd}
|
|
}
|
|
} catch_message ]
|
|
}
|
|
|
|
proc ::scobj::knauer_pump::sics_log {debug_level debug_string} {
|
|
set catch_status [ catch {
|
|
set debug_threshold ${::scobj::knauer_pump::debug_threshold}
|
|
if {${debug_level} >= ${debug_threshold}} {
|
|
sicslog "::scobj::knauer_pump::${debug_string}"
|
|
}
|
|
} catch_message ]
|
|
}
|
|
|
|
# checklimits function for driveable interface
|
|
proc ::scobj::knauer_pump::checklimits {tc_root} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "checklimits tc_root=${tc_root} sct=[sct] target=[sct target]"
|
|
set setpoint [sct target]
|
|
if { [hpropexists [sct] lowerlimit] } {
|
|
set lolimit [sct lowerlimit]
|
|
} else {
|
|
# lowerlimit not set, use target
|
|
set lolimit [sct target]
|
|
}
|
|
if { [hpropexists [sct] upperlimit] } {
|
|
set hilimit [sct upperlimit]
|
|
} else {
|
|
# upperlimit not set, use target
|
|
set hilimit [sct target]
|
|
}
|
|
# checklimits hook code goes here
|
|
if { ${setpoint} < ${lolimit} || ${setpoint} > ${hilimit} } {
|
|
sct driving 0
|
|
error "setpoint ${setpoint} violates limits (${lolimit}..${hilimit}) on [sct]"
|
|
}
|
|
return OK
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# check function for hset change
|
|
proc ::scobj::knauer_pump::checkrange {tc_root} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "checkrange tc_root=${tc_root} sct=[sct] target=[sct target]"
|
|
set setpoint [sct target]
|
|
if { [hpropexists [sct] lowerlimit] } {
|
|
set lolimit [sct lowerlimit]
|
|
} else {
|
|
# lowerlimit not set, use target
|
|
set lolimit [sct target]
|
|
}
|
|
if { [hpropexists [sct] upperlimit] } {
|
|
set hilimit [sct upperlimit]
|
|
} else {
|
|
# upperlimit not set, use target
|
|
set hilimit [sct target]
|
|
}
|
|
# checkrange hook code goes here
|
|
if { ${setpoint} < ${lolimit} || ${setpoint} > ${hilimit} } {
|
|
error "setpoint ${setpoint} violates limits (${lolimit}..${hilimit}) on [sct]"
|
|
}
|
|
return OK
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to request the read of a parameter on a device
|
|
proc ::scobj::knauer_pump::fetch_from_glp {tc_root nextState cmd_str} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "fetch_from_glp tc_root=${tc_root} sct=[sct] cmd=${cmd_str}"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set cmd "${cmd_str}"
|
|
# fetch_from_glp hook code starts
|
|
set index ${cmd_str}
|
|
set data [hgetpropval ${tc_root}/dummy/glp real_data]
|
|
set dlist [split ${data} ","]
|
|
sct result [lindex ${dlist} ${index}]
|
|
set cmd "@@NOSEND@@"
|
|
# fetch_from_glp hook code ends
|
|
if { [hpropexists [sct] geterror] } {
|
|
debug_log ${tc_root} 9 "[sct] error: [sct geterror]"
|
|
error "[sct geterror]"
|
|
}
|
|
debug_log ${tc_root} 1 "fetch_from_glp sct send ${cmd}"
|
|
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
|
|
sct send "${cmd}"
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to request the read of a parameter on a device
|
|
proc ::scobj::knauer_pump::fetch_from_status {tc_root nextState cmd_str} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "fetch_from_status tc_root=${tc_root} sct=[sct] cmd=${cmd_str}"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set cmd "${cmd_str}"
|
|
# fetch_from_status hook code starts
|
|
set index ${cmd_str}
|
|
set data [hgetpropval ${tc_root}/dummy/status real_data]
|
|
set dlist [split ${data} ","]
|
|
sct result [lindex ${dlist} ${index}]
|
|
set cmd "@@NOSEND@@"
|
|
# fetch_from_status hook code ends
|
|
if { [hpropexists [sct] geterror] } {
|
|
debug_log ${tc_root} 9 "[sct] error: [sct geterror]"
|
|
error "[sct geterror]"
|
|
}
|
|
debug_log ${tc_root} 1 "fetch_from_status sct send ${cmd}"
|
|
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
|
|
sct send "${cmd}"
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to request the read of a parameter on a device
|
|
proc ::scobj::knauer_pump::flow_fetch {tc_root nextState cmd_str} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "flow_fetch tc_root=${tc_root} sct=[sct] cmd=${cmd_str}"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set cmd "${cmd_str}"
|
|
# flow_fetch hook code starts
|
|
set data [hgetpropval ${tc_root}/dummy/status real_data]
|
|
set dlist [split ${data} ","]
|
|
set flow [lindex ${dlist} 4]
|
|
sct result [expr {0.001 * ${flow}}]
|
|
set cmd "@@NOSEND@@"
|
|
# flow_fetch hook code ends
|
|
if { [hpropexists [sct] geterror] } {
|
|
debug_log ${tc_root} 9 "[sct] error: [sct geterror]"
|
|
error "[sct geterror]"
|
|
}
|
|
debug_log ${tc_root} 1 "flow_fetch sct send ${cmd}"
|
|
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
|
|
sct send "${cmd}"
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to write a parameter value on a device
|
|
proc ::scobj::knauer_pump::flow_write {tc_root nextState cmd_str} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "flow_write tc_root=${tc_root} sct=[sct] cmd=${cmd_str}"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set par [sct target]
|
|
set cmd "${cmd_str}${par}"
|
|
# flow_write hook code starts
|
|
set data [sct target]
|
|
set cmd "@@NOSEND@@"
|
|
set nextState idle
|
|
if { ${data} != [sct oldval] } {
|
|
debug_log ${tc_root} 1 "[sct] changed to new:${data}, from old:[sct oldval]"
|
|
sct oldval ${data}
|
|
sct update ${data}
|
|
sct utime readtime
|
|
}
|
|
# flow_write hook code ends
|
|
if { [hpropexists [sct] geterror] } {
|
|
debug_log ${tc_root} 9 "[sct] error: [sct geterror]"
|
|
error "[sct geterror]"
|
|
}
|
|
if { [hpropexists [sct] driving] } {
|
|
if { [hpropexists [sct] writestatus] && [sct writestatus] == "start" } {
|
|
sct driving 1
|
|
}
|
|
}
|
|
debug_log ${tc_root} 1 "flow_write sct send ${cmd}"
|
|
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
|
|
sct send "${cmd}"
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to request the read of a parameter on a device
|
|
proc ::scobj::knauer_pump::getValue {tc_root nextState cmd_str} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "getValue tc_root=${tc_root} sct=[sct] cmd=${cmd_str}"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set cmd "${cmd_str}"
|
|
# getValue hook code goes here
|
|
debug_log ${tc_root} 1 "getValue sct send ${cmd}"
|
|
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
|
|
sct send "${cmd}"
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to check the write parameter on a device
|
|
proc ::scobj::knauer_pump::noResponse {tc_root} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "noResponse tc_root=${tc_root} sct=[sct] resp=[sct result]"
|
|
# noResponse hook code goes here
|
|
return "idle"
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# check function for hset change
|
|
proc ::scobj::knauer_pump::ratios_check {tc_root} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "ratios_check tc_root=${tc_root} sct=[sct] target=[sct target]"
|
|
set setpoint [sct target]
|
|
if { [hpropexists [sct] lowerlimit] } {
|
|
set lolimit [sct lowerlimit]
|
|
} else {
|
|
# lowerlimit not set, use target
|
|
set lolimit [sct target]
|
|
}
|
|
if { [hpropexists [sct] upperlimit] } {
|
|
set hilimit [sct upperlimit]
|
|
} else {
|
|
# upperlimit not set, use target
|
|
set hilimit [sct target]
|
|
}
|
|
# ratios_check hook code starts
|
|
set ratios [split ${setpoint} /]
|
|
if { [llength ${ratios}] != 4 } {
|
|
sct geterror "${setpoint} has [llength ${ratios}] components, needs 4"
|
|
error [sct geterror]
|
|
}
|
|
set sum [expr [lindex ${ratios} 0] + [lindex ${ratios} 1] + [lindex ${ratios} 2] + [lindex ${ratios} 3]]
|
|
if { ${sum} != 100 } {
|
|
sct geterror "sum is ${sum}, must be 100"
|
|
error [sct geterror]
|
|
}
|
|
# ratios_check hook code ends
|
|
if { ${setpoint} < ${lolimit} || ${setpoint} > ${hilimit} } {
|
|
error "setpoint ${setpoint} violates limits (${lolimit}..${hilimit}) on [sct]"
|
|
}
|
|
return OK
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to request the read of a parameter on a device
|
|
proc ::scobj::knauer_pump::ratios_fetch {tc_root nextState cmd_str} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "ratios_fetch tc_root=${tc_root} sct=[sct] cmd=${cmd_str}"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set cmd "${cmd_str}"
|
|
# ratios_fetch hook code starts
|
|
set data [hgetpropval ${tc_root}/dummy/status real_data]
|
|
set dlist [split ${data} ","]
|
|
set ratios "[lindex ${dlist} 5]/[lindex ${dlist} 6]/[lindex ${dlist} 7]/[lindex ${dlist} 8]"
|
|
sct result ${ratios}
|
|
set cmd "@@NOSEND@@"
|
|
# ratios_fetch hook code ends
|
|
if { [hpropexists [sct] geterror] } {
|
|
debug_log ${tc_root} 9 "[sct] error: [sct geterror]"
|
|
error "[sct geterror]"
|
|
}
|
|
debug_log ${tc_root} 1 "ratios_fetch sct send ${cmd}"
|
|
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
|
|
sct send "${cmd}"
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to write a parameter value on a device
|
|
proc ::scobj::knauer_pump::ratios_write {tc_root nextState cmd_str} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "ratios_write tc_root=${tc_root} sct=[sct] cmd=${cmd_str}"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set par [sct target]
|
|
set cmd "${cmd_str}${par}"
|
|
# ratios_write hook code starts
|
|
set data [sct target]
|
|
set cmd "@@NOSEND@@"
|
|
set nextState idle
|
|
if { ${data} != [sct oldval] } {
|
|
debug_log ${tc_root} 1 "[sct] changed to new:${data}, from old:[sct oldval]"
|
|
sct oldval ${data}
|
|
sct update ${data}
|
|
sct utime readtime
|
|
}
|
|
# ratios_write hook code ends
|
|
if { [hpropexists [sct] geterror] } {
|
|
debug_log ${tc_root} 9 "[sct] error: [sct geterror]"
|
|
error "[sct geterror]"
|
|
}
|
|
if { [hpropexists [sct] driving] } {
|
|
if { [hpropexists [sct] writestatus] && [sct writestatus] == "start" } {
|
|
sct driving 1
|
|
}
|
|
}
|
|
debug_log ${tc_root} 1 "ratios_write sct send ${cmd}"
|
|
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
|
|
sct send "${cmd}"
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to parse the read of a parameter on a device
|
|
proc ::scobj::knauer_pump::rdValue {tc_root} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "rdValue tc_root=${tc_root} sct=[sct] result=[sct result]"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set data [sct result]
|
|
set nextState "idle"
|
|
if {[string equal -nocase -length 7 ${data} "ASCERR:"]} {
|
|
# the protocol driver has reported an error
|
|
sct geterror "${data}"
|
|
error "[sct geterror]"
|
|
}
|
|
# rdValue hook code goes here
|
|
if { ${data} != [sct oldval] } {
|
|
debug_log ${tc_root} 1 "[sct] changed to new:${data}, from old:[sct oldval]"
|
|
sct oldval ${data}
|
|
sct update ${data}
|
|
sct utime readtime
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to parse the read of a parameter on a device
|
|
proc ::scobj::knauer_pump::read_glp {tc_root} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "read_glp tc_root=${tc_root} sct=[sct] result=[sct result]"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set data [sct result]
|
|
set nextState "idle"
|
|
if {[string equal -nocase -length 7 ${data} "ASCERR:"]} {
|
|
# the protocol driver has reported an error
|
|
sct geterror "${data}"
|
|
error "[sct geterror]"
|
|
}
|
|
# read_glp hook code starts
|
|
set dlist [split [lindex [split ${data} ":"] 1] ","]
|
|
sct real_data "[join [lrange ${dlist} 0 end] ,]"
|
|
set data "Hidden in real_data property"
|
|
# read_glp hook code ends
|
|
if { [hpropexists [sct] geterror] } {
|
|
debug_log ${tc_root} 9 "[sct] error: [sct geterror]"
|
|
error "[sct geterror]"
|
|
}
|
|
if { ${data} != [sct oldval] } {
|
|
debug_log ${tc_root} 1 "[sct] changed to new:${data}, from old:[sct oldval]"
|
|
sct oldval ${data}
|
|
sct update ${data}
|
|
sct utime readtime
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to parse the read of a parameter on a device
|
|
proc ::scobj::knauer_pump::read_status {tc_root} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "read_status tc_root=${tc_root} sct=[sct] result=[sct result]"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set data [sct result]
|
|
set nextState "idle"
|
|
if {[string equal -nocase -length 7 ${data} "ASCERR:"]} {
|
|
# the protocol driver has reported an error
|
|
sct geterror "${data}"
|
|
error "[sct geterror]"
|
|
}
|
|
# read_status hook code starts
|
|
set dlist [split [lindex [split ${data} ":"] 1] ","]
|
|
sct real_data "[join [lrange ${dlist} 0 end] ,]"
|
|
set data "Hidden in real_data property"
|
|
# read_status hook code ends
|
|
if { [hpropexists [sct] geterror] } {
|
|
debug_log ${tc_root} 9 "[sct] error: [sct geterror]"
|
|
error "[sct geterror]"
|
|
}
|
|
if { ${data} != [sct oldval] } {
|
|
debug_log ${tc_root} 1 "[sct] changed to new:${data}, from old:[sct oldval]"
|
|
sct oldval ${data}
|
|
sct update ${data}
|
|
sct utime readtime
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to write a parameter value on a device
|
|
proc ::scobj::knauer_pump::setValue {tc_root nextState cmd_str} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "setValue tc_root=${tc_root} sct=[sct] cmd=${cmd_str}"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set par [sct target]
|
|
set cmd "${cmd_str}${par}"
|
|
# setValue hook code goes here
|
|
if { [hpropexists [sct] driving] } {
|
|
if { [hpropexists [sct] writestatus] && [sct writestatus] == "start" } {
|
|
sct driving 1
|
|
}
|
|
}
|
|
debug_log ${tc_root} 1 "setValue sct send ${cmd}"
|
|
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
|
|
sct send "${cmd}"
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to request the read of a parameter on a device
|
|
proc ::scobj::knauer_pump::volume_checkpumping {tc_root nextState cmd_str} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "volume_checkpumping tc_root=${tc_root} sct=[sct] cmd=${cmd_str}"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set cmd "${cmd_str}"
|
|
# volume_checkpumping hook code starts
|
|
set cmd "@@NOSEND@@"
|
|
set nextState idle
|
|
if { [hpropexists [sct] pumping] && [sct pumping] } {
|
|
if { [hpropexists [sct] driving] && [sct driving] } {
|
|
volume_checkstatus "${tc_root}"
|
|
}
|
|
set sp "[sct target]"
|
|
set pv "[hval ${tc_root}/[sct driveable]]"
|
|
if { (${sp} - ${pv}) <= [sct tolerance] } {
|
|
set flow 0
|
|
set ratios [hval ${tc_root}/ratios/setpoint]
|
|
set ratios [join [split ${ratios} /] ,]
|
|
set cmd "RAMP:0,${flow},${ratios},0,0,0,0,0,0,0,0,2"
|
|
set nextState noResponse
|
|
sct pumping 0
|
|
}
|
|
}
|
|
# volume_checkpumping hook code ends
|
|
if { [hpropexists [sct] geterror] } {
|
|
debug_log ${tc_root} 9 "[sct] error: [sct geterror]"
|
|
error "[sct geterror]"
|
|
}
|
|
debug_log ${tc_root} 1 "volume_checkpumping sct send ${cmd}"
|
|
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
|
|
sct send "${cmd}"
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# checkstatus function for driveable interface
|
|
proc ::scobj::knauer_pump::volume_checkstatus {tc_root} {
|
|
set catch_status [ catch {
|
|
# volume_checkstatus hook code goes here
|
|
if {[sct driving]} {
|
|
set sp "[sct target]"
|
|
set pv "[hval ${tc_root}/[sct driveable]]"
|
|
if { abs(${pv} - ${sp}) <= [sct tolerance] } {
|
|
if { [hpropexists [sct] settle_time] } {
|
|
if { [hpropexists [sct] settle_time_start] } {
|
|
if { [sct utime] - [sct settle_time_start] >= [sct settle_time]} {
|
|
sct driving 0
|
|
return "idle"
|
|
}
|
|
return "busy"
|
|
} else {
|
|
sct utime settle_time_start
|
|
return "busy"
|
|
}
|
|
}
|
|
sct driving 0
|
|
return "idle"
|
|
}
|
|
if { [hpropexists [sct] settle_time_start] } {
|
|
hdelprop [sct] settle_time_start
|
|
}
|
|
return "busy"
|
|
} else {
|
|
return "idle"
|
|
}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to request the read of a parameter on a device
|
|
proc ::scobj::knauer_pump::volume_fetch {tc_root nextState cmd_str} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "volume_fetch tc_root=${tc_root} sct=[sct] cmd=${cmd_str}"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set cmd "${cmd_str}"
|
|
# volume_fetch hook code starts
|
|
set data [hgetpropval ${tc_root}/dummy/glp real_data]
|
|
set dlist [split ${data} ","]
|
|
if { [llength ${dlist}] > 11 } {
|
|
set pump_volm [lindex ${dlist} 10]
|
|
set pump_voln [lindex ${dlist} 11]
|
|
set volume [expr {${pump_volm} + 0.000001 * ${pump_voln}}]
|
|
} else {
|
|
set volume 0.0
|
|
}
|
|
sct raw_volume ${volume}
|
|
if { [hpropexists [sct] base_volume] } {
|
|
set volume [expr {${volume} - [sct base_volume]}]
|
|
} else {
|
|
sct base_volume [sct raw_volume]
|
|
}
|
|
sct result ${volume}
|
|
set cmd "@@NOSEND@@"
|
|
# volume_fetch hook code ends
|
|
if { [hpropexists [sct] geterror] } {
|
|
debug_log ${tc_root} 9 "[sct] error: [sct geterror]"
|
|
error "[sct geterror]"
|
|
}
|
|
debug_log ${tc_root} 1 "volume_fetch sct send ${cmd}"
|
|
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
|
|
sct send "${cmd}"
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# halt function for driveable interface
|
|
proc ::scobj::knauer_pump::volume_halt {tc_root} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "volume_halt tc_root=${tc_root} sct=[sct] driving=[sct driving]"
|
|
### TODO hset [sct] [hval [sct]]
|
|
# volume_halt hook code starts
|
|
set flow 0
|
|
set ratios [hval ${tc_root}/ratios/setpoint]
|
|
set ratios [join [split ${ratios} /] ,]
|
|
set cmd "RAMP:0,${flow},${ratios},0,0,0,0,0,0,0,0,2"
|
|
sct send ${cmd}
|
|
# volume_halt hook code ends
|
|
sct driving 0
|
|
return "idle"
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
# function to write a parameter value on a device
|
|
proc ::scobj::knauer_pump::volume_write {tc_root nextState cmd_str} {
|
|
set catch_status [ catch {
|
|
debug_log ${tc_root} 1 "volume_write tc_root=${tc_root} sct=[sct] cmd=${cmd_str}"
|
|
if { [hpropexists [sct] geterror] } {
|
|
hdelprop [sct] geterror
|
|
}
|
|
set par [sct target]
|
|
set cmd "${cmd_str}${par}"
|
|
# volume_write hook code starts
|
|
hsetprop ${tc_root}/[sct driveable] base_volume [hgetpropval ${tc_root}/[sct driveable] raw_volume]
|
|
hset ${tc_root}/[sct driveable] 0.0
|
|
set flow [expr {int(1000.0 * [hval ${tc_root}/flow/setpoint])}]
|
|
set ratios [hval ${tc_root}/ratios/setpoint]
|
|
set ratios [join [split ${ratios} /] ,]
|
|
set cmd "RAMP:0,${flow},${ratios},0,0,0,0,0,0,0,0,3"
|
|
sct pumping 1
|
|
# volume_write hook code ends
|
|
if { [hpropexists [sct] geterror] } {
|
|
debug_log ${tc_root} 9 "[sct] error: [sct geterror]"
|
|
error "[sct geterror]"
|
|
}
|
|
if { [hpropexists [sct] driving] } {
|
|
if { [hpropexists [sct] writestatus] && [sct writestatus] == "start" } {
|
|
sct driving 1
|
|
}
|
|
}
|
|
debug_log ${tc_root} 1 "volume_write sct send ${cmd}"
|
|
if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} {
|
|
sct send "${cmd}"
|
|
}
|
|
return ${nextState}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
proc ::scobj::knauer_pump::mkDriver { sct_controller name device_class simulation_flag ip_address tcp_port } {
|
|
::scobj::knauer_pump::sics_log 9 "::scobj::knauer_pump::mkDriver ${sct_controller} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port}"
|
|
set ns "[namespace current]"
|
|
set catch_status [ catch {
|
|
|
|
MakeSICSObj ${name} SCT_OBJECT
|
|
|
|
sicslist setatt ${name} klass ${device_class}
|
|
sicslist setatt ${name} long_name ${name}
|
|
|
|
set scobj_hpath /sics/${name}
|
|
|
|
hfactory ${scobj_hpath}/dummy plain spy none
|
|
hsetprop ${scobj_hpath}/dummy data "false"
|
|
hsetprop ${scobj_hpath}/dummy klass "@none"
|
|
hsetprop ${scobj_hpath}/dummy type "part"
|
|
|
|
hfactory ${scobj_hpath}/dummy/glp plain user text
|
|
hsetprop ${scobj_hpath}/dummy/glp read ${ns}::getValue ${scobj_hpath} read_glp {GLP?}
|
|
hsetprop ${scobj_hpath}/dummy/glp read_glp ${ns}::read_glp ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/dummy/glp control false
|
|
hsetprop ${scobj_hpath}/dummy/glp data false
|
|
hsetprop ${scobj_hpath}/dummy/glp mutable true
|
|
hsetprop ${scobj_hpath}/dummy/glp nxsave false
|
|
hsetprop ${scobj_hpath}/dummy/glp oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/dummy/glp sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/dummy/glp type "part"
|
|
hsetprop ${scobj_hpath}/dummy/glp nxalias "${name}_dummy_glp"
|
|
|
|
hfactory ${scobj_hpath}/dummy/status plain user text
|
|
hsetprop ${scobj_hpath}/dummy/status read ${ns}::getValue ${scobj_hpath} read_status {STATUS?}
|
|
hsetprop ${scobj_hpath}/dummy/status read_status ${ns}::read_status ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/dummy/status control false
|
|
hsetprop ${scobj_hpath}/dummy/status data false
|
|
hsetprop ${scobj_hpath}/dummy/status mutable true
|
|
hsetprop ${scobj_hpath}/dummy/status nxsave false
|
|
hsetprop ${scobj_hpath}/dummy/status oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/dummy/status sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/dummy/status type "part"
|
|
hsetprop ${scobj_hpath}/dummy/status nxalias "${name}_dummy_status"
|
|
|
|
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
|
${sct_controller} poll ${scobj_hpath}/dummy/glp 1
|
|
${sct_controller} poll ${scobj_hpath}/dummy/status 1
|
|
} else {
|
|
::scobj::knauer_pump::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for knauer_pump"
|
|
}
|
|
|
|
hfactory ${scobj_hpath}/flow plain spy none
|
|
hsetprop ${scobj_hpath}/flow data "true"
|
|
hsetprop ${scobj_hpath}/flow klass "@none"
|
|
hsetprop ${scobj_hpath}/flow type "part"
|
|
|
|
hfactory ${scobj_hpath}/flow/sensor plain user float
|
|
hsetprop ${scobj_hpath}/flow/sensor read ${ns}::flow_fetch ${scobj_hpath} rdValue { }
|
|
hsetprop ${scobj_hpath}/flow/sensor rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/flow/sensor control true
|
|
hsetprop ${scobj_hpath}/flow/sensor data true
|
|
hsetprop ${scobj_hpath}/flow/sensor mutable true
|
|
hsetprop ${scobj_hpath}/flow/sensor nxsave true
|
|
hsetprop ${scobj_hpath}/flow/sensor oldval 0.0
|
|
hsetprop ${scobj_hpath}/flow/sensor klass "parameter"
|
|
hsetprop ${scobj_hpath}/flow/sensor sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/flow/sensor type "part"
|
|
hsetprop ${scobj_hpath}/flow/sensor units "mL/min"
|
|
hsetprop ${scobj_hpath}/flow/sensor nxalias "${name}_flow_sensor"
|
|
|
|
hfactory ${scobj_hpath}/flow/setpoint plain user float
|
|
hsetprop ${scobj_hpath}/flow/setpoint write ${ns}::flow_write ${scobj_hpath} noResponse { }
|
|
hsetprop ${scobj_hpath}/flow/setpoint noResponse ${ns}::noResponse ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/flow/setpoint check ${ns}::checkrange ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/flow/setpoint control true
|
|
hsetprop ${scobj_hpath}/flow/setpoint data true
|
|
hsetprop ${scobj_hpath}/flow/setpoint mutable true
|
|
hsetprop ${scobj_hpath}/flow/setpoint nxsave true
|
|
hsetprop ${scobj_hpath}/flow/setpoint lowerlimit 0
|
|
hsetprop ${scobj_hpath}/flow/setpoint upperlimit 10
|
|
hsetprop ${scobj_hpath}/flow/setpoint oldval 0.0
|
|
hsetprop ${scobj_hpath}/flow/setpoint klass "parameter"
|
|
hsetprop ${scobj_hpath}/flow/setpoint sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/flow/setpoint type "part"
|
|
hsetprop ${scobj_hpath}/flow/setpoint units "mL/min"
|
|
hsetprop ${scobj_hpath}/flow/setpoint nxalias "${name}_flow_setpoint"
|
|
|
|
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
|
${sct_controller} poll ${scobj_hpath}/flow/sensor 1
|
|
${sct_controller} write ${scobj_hpath}/flow/setpoint
|
|
} else {
|
|
::scobj::knauer_pump::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for knauer_pump"
|
|
}
|
|
|
|
hfactory ${scobj_hpath}/glp plain spy none
|
|
hsetprop ${scobj_hpath}/glp data "true"
|
|
hsetprop ${scobj_hpath}/glp klass "@none"
|
|
hsetprop ${scobj_hpath}/glp type "part"
|
|
|
|
hfactory ${scobj_hpath}/glp/board_time plain user text
|
|
hsetprop ${scobj_hpath}/glp/board_time read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {0}
|
|
hsetprop ${scobj_hpath}/glp/board_time rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/board_time control true
|
|
hsetprop ${scobj_hpath}/glp/board_time data true
|
|
hsetprop ${scobj_hpath}/glp/board_time mutable true
|
|
hsetprop ${scobj_hpath}/glp/board_time nxsave true
|
|
hsetprop ${scobj_hpath}/glp/board_time oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/board_time klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/board_time sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/board_time type "part"
|
|
hsetprop ${scobj_hpath}/glp/board_time nxalias "${name}_glp_board_time"
|
|
|
|
hfactory ${scobj_hpath}/glp/head_count plain user text
|
|
hsetprop ${scobj_hpath}/glp/head_count read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {3}
|
|
hsetprop ${scobj_hpath}/glp/head_count rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/head_count control true
|
|
hsetprop ${scobj_hpath}/glp/head_count data true
|
|
hsetprop ${scobj_hpath}/glp/head_count mutable true
|
|
hsetprop ${scobj_hpath}/glp/head_count nxsave true
|
|
hsetprop ${scobj_hpath}/glp/head_count oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/head_count klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/head_count sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/head_count type "part"
|
|
hsetprop ${scobj_hpath}/glp/head_count nxalias "${name}_glp_head_count"
|
|
|
|
hfactory ${scobj_hpath}/glp/head_pwrhi plain user text
|
|
hsetprop ${scobj_hpath}/glp/head_pwrhi read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {7}
|
|
hsetprop ${scobj_hpath}/glp/head_pwrhi rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/head_pwrhi control true
|
|
hsetprop ${scobj_hpath}/glp/head_pwrhi data true
|
|
hsetprop ${scobj_hpath}/glp/head_pwrhi mutable true
|
|
hsetprop ${scobj_hpath}/glp/head_pwrhi nxsave true
|
|
hsetprop ${scobj_hpath}/glp/head_pwrhi oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/head_pwrhi klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/head_pwrhi sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/head_pwrhi type "part"
|
|
hsetprop ${scobj_hpath}/glp/head_pwrhi nxalias "${name}_glp_head_pwrhi"
|
|
|
|
hfactory ${scobj_hpath}/glp/head_pwrlo plain user text
|
|
hsetprop ${scobj_hpath}/glp/head_pwrlo read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {8}
|
|
hsetprop ${scobj_hpath}/glp/head_pwrlo rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/head_pwrlo control true
|
|
hsetprop ${scobj_hpath}/glp/head_pwrlo data true
|
|
hsetprop ${scobj_hpath}/glp/head_pwrlo mutable true
|
|
hsetprop ${scobj_hpath}/glp/head_pwrlo nxsave true
|
|
hsetprop ${scobj_hpath}/glp/head_pwrlo oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/head_pwrlo klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/head_pwrlo sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/head_pwrlo type "part"
|
|
hsetprop ${scobj_hpath}/glp/head_pwrlo nxalias "${name}_glp_head_pwrlo"
|
|
|
|
hfactory ${scobj_hpath}/glp/head_time plain user text
|
|
hsetprop ${scobj_hpath}/glp/head_time read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {4}
|
|
hsetprop ${scobj_hpath}/glp/head_time rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/head_time control true
|
|
hsetprop ${scobj_hpath}/glp/head_time data true
|
|
hsetprop ${scobj_hpath}/glp/head_time mutable true
|
|
hsetprop ${scobj_hpath}/glp/head_time nxsave true
|
|
hsetprop ${scobj_hpath}/glp/head_time oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/head_time klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/head_time sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/head_time type "part"
|
|
hsetprop ${scobj_hpath}/glp/head_time nxalias "${name}_glp_head_time"
|
|
|
|
hfactory ${scobj_hpath}/glp/head_volm plain user text
|
|
hsetprop ${scobj_hpath}/glp/head_volm read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {5}
|
|
hsetprop ${scobj_hpath}/glp/head_volm rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/head_volm control true
|
|
hsetprop ${scobj_hpath}/glp/head_volm data true
|
|
hsetprop ${scobj_hpath}/glp/head_volm mutable true
|
|
hsetprop ${scobj_hpath}/glp/head_volm nxsave true
|
|
hsetprop ${scobj_hpath}/glp/head_volm oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/head_volm klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/head_volm sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/head_volm type "part"
|
|
hsetprop ${scobj_hpath}/glp/head_volm nxalias "${name}_glp_head_volm"
|
|
|
|
hfactory ${scobj_hpath}/glp/head_voln plain user text
|
|
hsetprop ${scobj_hpath}/glp/head_voln read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {6}
|
|
hsetprop ${scobj_hpath}/glp/head_voln rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/head_voln control true
|
|
hsetprop ${scobj_hpath}/glp/head_voln data true
|
|
hsetprop ${scobj_hpath}/glp/head_voln mutable true
|
|
hsetprop ${scobj_hpath}/glp/head_voln nxsave true
|
|
hsetprop ${scobj_hpath}/glp/head_voln oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/head_voln klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/head_voln sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/head_voln type "part"
|
|
hsetprop ${scobj_hpath}/glp/head_voln nxalias "${name}_glp_head_voln"
|
|
|
|
hfactory ${scobj_hpath}/glp/motor_time plain user text
|
|
hsetprop ${scobj_hpath}/glp/motor_time read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {1}
|
|
hsetprop ${scobj_hpath}/glp/motor_time rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/motor_time control true
|
|
hsetprop ${scobj_hpath}/glp/motor_time data true
|
|
hsetprop ${scobj_hpath}/glp/motor_time mutable true
|
|
hsetprop ${scobj_hpath}/glp/motor_time nxsave true
|
|
hsetprop ${scobj_hpath}/glp/motor_time oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/motor_time klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/motor_time sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/motor_time type "part"
|
|
hsetprop ${scobj_hpath}/glp/motor_time nxalias "${name}_glp_motor_time"
|
|
|
|
hfactory ${scobj_hpath}/glp/pump_pwrhi plain user text
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrhi read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {12}
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrhi rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrhi control true
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrhi data true
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrhi mutable true
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrhi nxsave true
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrhi oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrhi klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrhi sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrhi type "part"
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrhi nxalias "${name}_glp_pump_pwrhi"
|
|
|
|
hfactory ${scobj_hpath}/glp/pump_pwrlo plain user text
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrlo read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {13}
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrlo rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrlo control true
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrlo data true
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrlo mutable true
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrlo nxsave true
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrlo oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrlo klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrlo sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrlo type "part"
|
|
hsetprop ${scobj_hpath}/glp/pump_pwrlo nxalias "${name}_glp_pump_pwrlo"
|
|
|
|
hfactory ${scobj_hpath}/glp/pump_revs plain user text
|
|
hsetprop ${scobj_hpath}/glp/pump_revs read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {9}
|
|
hsetprop ${scobj_hpath}/glp/pump_revs rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/pump_revs control true
|
|
hsetprop ${scobj_hpath}/glp/pump_revs data true
|
|
hsetprop ${scobj_hpath}/glp/pump_revs mutable true
|
|
hsetprop ${scobj_hpath}/glp/pump_revs nxsave true
|
|
hsetprop ${scobj_hpath}/glp/pump_revs oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/pump_revs klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/pump_revs sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/pump_revs type "part"
|
|
hsetprop ${scobj_hpath}/glp/pump_revs nxalias "${name}_glp_pump_revs"
|
|
|
|
hfactory ${scobj_hpath}/glp/pump_volm plain user text
|
|
hsetprop ${scobj_hpath}/glp/pump_volm read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {10}
|
|
hsetprop ${scobj_hpath}/glp/pump_volm rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/pump_volm control true
|
|
hsetprop ${scobj_hpath}/glp/pump_volm data true
|
|
hsetprop ${scobj_hpath}/glp/pump_volm mutable true
|
|
hsetprop ${scobj_hpath}/glp/pump_volm nxsave true
|
|
hsetprop ${scobj_hpath}/glp/pump_volm oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/pump_volm klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/pump_volm sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/pump_volm type "part"
|
|
hsetprop ${scobj_hpath}/glp/pump_volm nxalias "${name}_glp_pump_volm"
|
|
|
|
hfactory ${scobj_hpath}/glp/pump_voln plain user text
|
|
hsetprop ${scobj_hpath}/glp/pump_voln read ${ns}::fetch_from_glp ${scobj_hpath} rdValue {11}
|
|
hsetprop ${scobj_hpath}/glp/pump_voln rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/glp/pump_voln control true
|
|
hsetprop ${scobj_hpath}/glp/pump_voln data true
|
|
hsetprop ${scobj_hpath}/glp/pump_voln mutable true
|
|
hsetprop ${scobj_hpath}/glp/pump_voln nxsave true
|
|
hsetprop ${scobj_hpath}/glp/pump_voln oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/glp/pump_voln klass "parameter"
|
|
hsetprop ${scobj_hpath}/glp/pump_voln sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/glp/pump_voln type "part"
|
|
hsetprop ${scobj_hpath}/glp/pump_voln nxalias "${name}_glp_pump_voln"
|
|
|
|
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
|
${sct_controller} poll ${scobj_hpath}/glp/board_time 1
|
|
${sct_controller} poll ${scobj_hpath}/glp/head_count 1
|
|
${sct_controller} poll ${scobj_hpath}/glp/head_pwrhi 1
|
|
${sct_controller} poll ${scobj_hpath}/glp/head_pwrlo 1
|
|
${sct_controller} poll ${scobj_hpath}/glp/head_time 1
|
|
${sct_controller} poll ${scobj_hpath}/glp/head_volm 1
|
|
${sct_controller} poll ${scobj_hpath}/glp/head_voln 1
|
|
${sct_controller} poll ${scobj_hpath}/glp/motor_time 1
|
|
${sct_controller} poll ${scobj_hpath}/glp/pump_pwrhi 1
|
|
${sct_controller} poll ${scobj_hpath}/glp/pump_pwrlo 1
|
|
${sct_controller} poll ${scobj_hpath}/glp/pump_revs 1
|
|
${sct_controller} poll ${scobj_hpath}/glp/pump_volm 1
|
|
${sct_controller} poll ${scobj_hpath}/glp/pump_voln 1
|
|
} else {
|
|
::scobj::knauer_pump::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for knauer_pump"
|
|
}
|
|
|
|
hfactory ${scobj_hpath}/prog plain spy none
|
|
hsetprop ${scobj_hpath}/prog data "true"
|
|
hsetprop ${scobj_hpath}/prog klass "@none"
|
|
hsetprop ${scobj_hpath}/prog type "part"
|
|
|
|
hfactory ${scobj_hpath}/prog/line_01 plain user text
|
|
hsetprop ${scobj_hpath}/prog/line_01 read ${ns}::getValue ${scobj_hpath} rdValue {TT_GET:1,1}
|
|
hsetprop ${scobj_hpath}/prog/line_01 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/prog/line_01 control true
|
|
hsetprop ${scobj_hpath}/prog/line_01 data true
|
|
hsetprop ${scobj_hpath}/prog/line_01 mutable true
|
|
hsetprop ${scobj_hpath}/prog/line_01 nxsave true
|
|
hsetprop ${scobj_hpath}/prog/line_01 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/prog/line_01 klass "parameter"
|
|
hsetprop ${scobj_hpath}/prog/line_01 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/prog/line_01 type "part"
|
|
hsetprop ${scobj_hpath}/prog/line_01 nxalias "${name}_prog_line_01"
|
|
|
|
hfactory ${scobj_hpath}/prog/line_02 plain user text
|
|
hsetprop ${scobj_hpath}/prog/line_02 read ${ns}::getValue ${scobj_hpath} rdValue {TT_GET:1,2}
|
|
hsetprop ${scobj_hpath}/prog/line_02 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/prog/line_02 control true
|
|
hsetprop ${scobj_hpath}/prog/line_02 data true
|
|
hsetprop ${scobj_hpath}/prog/line_02 mutable true
|
|
hsetprop ${scobj_hpath}/prog/line_02 nxsave true
|
|
hsetprop ${scobj_hpath}/prog/line_02 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/prog/line_02 klass "parameter"
|
|
hsetprop ${scobj_hpath}/prog/line_02 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/prog/line_02 type "part"
|
|
hsetprop ${scobj_hpath}/prog/line_02 nxalias "${name}_prog_line_02"
|
|
|
|
hfactory ${scobj_hpath}/prog/line_03 plain user text
|
|
hsetprop ${scobj_hpath}/prog/line_03 read ${ns}::getValue ${scobj_hpath} rdValue {TT_GET:1,3}
|
|
hsetprop ${scobj_hpath}/prog/line_03 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/prog/line_03 control true
|
|
hsetprop ${scobj_hpath}/prog/line_03 data true
|
|
hsetprop ${scobj_hpath}/prog/line_03 mutable true
|
|
hsetprop ${scobj_hpath}/prog/line_03 nxsave true
|
|
hsetprop ${scobj_hpath}/prog/line_03 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/prog/line_03 klass "parameter"
|
|
hsetprop ${scobj_hpath}/prog/line_03 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/prog/line_03 type "part"
|
|
hsetprop ${scobj_hpath}/prog/line_03 nxalias "${name}_prog_line_03"
|
|
|
|
hfactory ${scobj_hpath}/prog/line_04 plain user text
|
|
hsetprop ${scobj_hpath}/prog/line_04 read ${ns}::getValue ${scobj_hpath} rdValue {TT_GET:1,4}
|
|
hsetprop ${scobj_hpath}/prog/line_04 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/prog/line_04 control true
|
|
hsetprop ${scobj_hpath}/prog/line_04 data true
|
|
hsetprop ${scobj_hpath}/prog/line_04 mutable true
|
|
hsetprop ${scobj_hpath}/prog/line_04 nxsave true
|
|
hsetprop ${scobj_hpath}/prog/line_04 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/prog/line_04 klass "parameter"
|
|
hsetprop ${scobj_hpath}/prog/line_04 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/prog/line_04 type "part"
|
|
hsetprop ${scobj_hpath}/prog/line_04 nxalias "${name}_prog_line_04"
|
|
|
|
hfactory ${scobj_hpath}/prog/line_05 plain user text
|
|
hsetprop ${scobj_hpath}/prog/line_05 read ${ns}::getValue ${scobj_hpath} rdValue {TT_GET:1,5}
|
|
hsetprop ${scobj_hpath}/prog/line_05 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/prog/line_05 control true
|
|
hsetprop ${scobj_hpath}/prog/line_05 data true
|
|
hsetprop ${scobj_hpath}/prog/line_05 mutable true
|
|
hsetprop ${scobj_hpath}/prog/line_05 nxsave true
|
|
hsetprop ${scobj_hpath}/prog/line_05 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/prog/line_05 klass "parameter"
|
|
hsetprop ${scobj_hpath}/prog/line_05 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/prog/line_05 type "part"
|
|
hsetprop ${scobj_hpath}/prog/line_05 nxalias "${name}_prog_line_05"
|
|
|
|
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
|
${sct_controller} poll ${scobj_hpath}/prog/line_01 30
|
|
${sct_controller} poll ${scobj_hpath}/prog/line_02 30
|
|
${sct_controller} poll ${scobj_hpath}/prog/line_03 30
|
|
${sct_controller} poll ${scobj_hpath}/prog/line_04 30
|
|
${sct_controller} poll ${scobj_hpath}/prog/line_05 30
|
|
} else {
|
|
::scobj::knauer_pump::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for knauer_pump"
|
|
}
|
|
|
|
hfactory ${scobj_hpath}/ratios plain spy none
|
|
hsetprop ${scobj_hpath}/ratios data "true"
|
|
hsetprop ${scobj_hpath}/ratios klass "@none"
|
|
hsetprop ${scobj_hpath}/ratios type "part"
|
|
|
|
hfactory ${scobj_hpath}/ratios/sensor plain user text
|
|
hsetprop ${scobj_hpath}/ratios/sensor read ${ns}::ratios_fetch ${scobj_hpath} rdValue { }
|
|
hsetprop ${scobj_hpath}/ratios/sensor rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/ratios/sensor control true
|
|
hsetprop ${scobj_hpath}/ratios/sensor data true
|
|
hsetprop ${scobj_hpath}/ratios/sensor mutable true
|
|
hsetprop ${scobj_hpath}/ratios/sensor nxsave true
|
|
hsetprop ${scobj_hpath}/ratios/sensor oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/ratios/sensor klass "parameter"
|
|
hsetprop ${scobj_hpath}/ratios/sensor sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/ratios/sensor type "part"
|
|
hsetprop ${scobj_hpath}/ratios/sensor units "percent"
|
|
hsetprop ${scobj_hpath}/ratios/sensor nxalias "${name}_ratios_sensor"
|
|
|
|
hfactory ${scobj_hpath}/ratios/setpoint plain user text
|
|
hsetprop ${scobj_hpath}/ratios/setpoint write ${ns}::ratios_write ${scobj_hpath} noResponse { }
|
|
hsetprop ${scobj_hpath}/ratios/setpoint noResponse ${ns}::noResponse ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/ratios/setpoint check ${ns}::ratios_check ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/ratios/setpoint control true
|
|
hsetprop ${scobj_hpath}/ratios/setpoint data true
|
|
hsetprop ${scobj_hpath}/ratios/setpoint mutable true
|
|
hsetprop ${scobj_hpath}/ratios/setpoint nxsave true
|
|
hsetprop ${scobj_hpath}/ratios/setpoint oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/ratios/setpoint klass "parameter"
|
|
hsetprop ${scobj_hpath}/ratios/setpoint sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/ratios/setpoint type "part"
|
|
hsetprop ${scobj_hpath}/ratios/setpoint units "percent"
|
|
hsetprop ${scobj_hpath}/ratios/setpoint nxalias "${name}_ratios_setpoint"
|
|
|
|
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
|
${sct_controller} poll ${scobj_hpath}/ratios/sensor 1
|
|
${sct_controller} write ${scobj_hpath}/ratios/setpoint
|
|
} else {
|
|
::scobj::knauer_pump::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for knauer_pump"
|
|
}
|
|
|
|
hfactory ${scobj_hpath}/status plain spy none
|
|
hsetprop ${scobj_hpath}/status data "true"
|
|
hsetprop ${scobj_hpath}/status klass "@none"
|
|
hsetprop ${scobj_hpath}/status type "part"
|
|
|
|
hfactory ${scobj_hpath}/status/cur_error plain user text
|
|
hsetprop ${scobj_hpath}/status/cur_error read ${ns}::fetch_from_status ${scobj_hpath} rdValue {2}
|
|
hsetprop ${scobj_hpath}/status/cur_error rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/cur_error control true
|
|
hsetprop ${scobj_hpath}/status/cur_error data true
|
|
hsetprop ${scobj_hpath}/status/cur_error mutable true
|
|
hsetprop ${scobj_hpath}/status/cur_error nxsave true
|
|
hsetprop ${scobj_hpath}/status/cur_error oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/cur_error klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/cur_error sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/cur_error type "part"
|
|
hsetprop ${scobj_hpath}/status/cur_error nxalias "${name}_status_cur_error"
|
|
|
|
hfactory ${scobj_hpath}/status/cur_pres plain user text
|
|
hsetprop ${scobj_hpath}/status/cur_pres read ${ns}::fetch_from_status ${scobj_hpath} rdValue {17}
|
|
hsetprop ${scobj_hpath}/status/cur_pres rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/cur_pres control true
|
|
hsetprop ${scobj_hpath}/status/cur_pres data true
|
|
hsetprop ${scobj_hpath}/status/cur_pres mutable true
|
|
hsetprop ${scobj_hpath}/status/cur_pres nxsave true
|
|
hsetprop ${scobj_hpath}/status/cur_pres oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/cur_pres klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/cur_pres sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/cur_pres type "part"
|
|
hsetprop ${scobj_hpath}/status/cur_pres nxalias "${name}_status_cur_pres"
|
|
|
|
hfactory ${scobj_hpath}/status/cur_run_time plain user text
|
|
hsetprop ${scobj_hpath}/status/cur_run_time read ${ns}::fetch_from_status ${scobj_hpath} rdValue {3}
|
|
hsetprop ${scobj_hpath}/status/cur_run_time rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/cur_run_time control true
|
|
hsetprop ${scobj_hpath}/status/cur_run_time data true
|
|
hsetprop ${scobj_hpath}/status/cur_run_time mutable true
|
|
hsetprop ${scobj_hpath}/status/cur_run_time nxsave true
|
|
hsetprop ${scobj_hpath}/status/cur_run_time oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/cur_run_time klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/cur_run_time sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/cur_run_time type "part"
|
|
hsetprop ${scobj_hpath}/status/cur_run_time nxalias "${name}_status_cur_run_time"
|
|
|
|
hfactory ${scobj_hpath}/status/error_in plain user text
|
|
hsetprop ${scobj_hpath}/status/error_in read ${ns}::fetch_from_status ${scobj_hpath} rdValue {19}
|
|
hsetprop ${scobj_hpath}/status/error_in rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/error_in control true
|
|
hsetprop ${scobj_hpath}/status/error_in data true
|
|
hsetprop ${scobj_hpath}/status/error_in mutable true
|
|
hsetprop ${scobj_hpath}/status/error_in nxsave true
|
|
hsetprop ${scobj_hpath}/status/error_in oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/error_in klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/error_in sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/error_in type "part"
|
|
hsetprop ${scobj_hpath}/status/error_in nxalias "${name}_status_error_in"
|
|
|
|
hfactory ${scobj_hpath}/status/evt_0 plain user text
|
|
hsetprop ${scobj_hpath}/status/evt_0 read ${ns}::fetch_from_status ${scobj_hpath} rdValue {9}
|
|
hsetprop ${scobj_hpath}/status/evt_0 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/evt_0 control true
|
|
hsetprop ${scobj_hpath}/status/evt_0 data true
|
|
hsetprop ${scobj_hpath}/status/evt_0 mutable true
|
|
hsetprop ${scobj_hpath}/status/evt_0 nxsave true
|
|
hsetprop ${scobj_hpath}/status/evt_0 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/evt_0 klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/evt_0 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/evt_0 type "part"
|
|
hsetprop ${scobj_hpath}/status/evt_0 nxalias "${name}_status_evt_0"
|
|
|
|
hfactory ${scobj_hpath}/status/evt_1 plain user text
|
|
hsetprop ${scobj_hpath}/status/evt_1 read ${ns}::fetch_from_status ${scobj_hpath} rdValue {10}
|
|
hsetprop ${scobj_hpath}/status/evt_1 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/evt_1 control true
|
|
hsetprop ${scobj_hpath}/status/evt_1 data true
|
|
hsetprop ${scobj_hpath}/status/evt_1 mutable true
|
|
hsetprop ${scobj_hpath}/status/evt_1 nxsave true
|
|
hsetprop ${scobj_hpath}/status/evt_1 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/evt_1 klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/evt_1 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/evt_1 type "part"
|
|
hsetprop ${scobj_hpath}/status/evt_1 nxalias "${name}_status_evt_1"
|
|
|
|
hfactory ${scobj_hpath}/status/evt_2 plain user text
|
|
hsetprop ${scobj_hpath}/status/evt_2 read ${ns}::fetch_from_status ${scobj_hpath} rdValue {11}
|
|
hsetprop ${scobj_hpath}/status/evt_2 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/evt_2 control true
|
|
hsetprop ${scobj_hpath}/status/evt_2 data true
|
|
hsetprop ${scobj_hpath}/status/evt_2 mutable true
|
|
hsetprop ${scobj_hpath}/status/evt_2 nxsave true
|
|
hsetprop ${scobj_hpath}/status/evt_2 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/evt_2 klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/evt_2 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/evt_2 type "part"
|
|
hsetprop ${scobj_hpath}/status/evt_2 nxalias "${name}_status_evt_2"
|
|
|
|
hfactory ${scobj_hpath}/status/evt_3 plain user text
|
|
hsetprop ${scobj_hpath}/status/evt_3 read ${ns}::fetch_from_status ${scobj_hpath} rdValue {12}
|
|
hsetprop ${scobj_hpath}/status/evt_3 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/evt_3 control true
|
|
hsetprop ${scobj_hpath}/status/evt_3 data true
|
|
hsetprop ${scobj_hpath}/status/evt_3 mutable true
|
|
hsetprop ${scobj_hpath}/status/evt_3 nxsave true
|
|
hsetprop ${scobj_hpath}/status/evt_3 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/evt_3 klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/evt_3 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/evt_3 type "part"
|
|
hsetprop ${scobj_hpath}/status/evt_3 nxalias "${name}_status_evt_3"
|
|
|
|
hfactory ${scobj_hpath}/status/evt_4 plain user text
|
|
hsetprop ${scobj_hpath}/status/evt_4 read ${ns}::fetch_from_status ${scobj_hpath} rdValue {13}
|
|
hsetprop ${scobj_hpath}/status/evt_4 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/evt_4 control true
|
|
hsetprop ${scobj_hpath}/status/evt_4 data true
|
|
hsetprop ${scobj_hpath}/status/evt_4 mutable true
|
|
hsetprop ${scobj_hpath}/status/evt_4 nxsave true
|
|
hsetprop ${scobj_hpath}/status/evt_4 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/evt_4 klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/evt_4 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/evt_4 type "part"
|
|
hsetprop ${scobj_hpath}/status/evt_4 nxalias "${name}_status_evt_4"
|
|
|
|
hfactory ${scobj_hpath}/status/evt_5 plain user text
|
|
hsetprop ${scobj_hpath}/status/evt_5 read ${ns}::fetch_from_status ${scobj_hpath} rdValue {14}
|
|
hsetprop ${scobj_hpath}/status/evt_5 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/evt_5 control true
|
|
hsetprop ${scobj_hpath}/status/evt_5 data true
|
|
hsetprop ${scobj_hpath}/status/evt_5 mutable true
|
|
hsetprop ${scobj_hpath}/status/evt_5 nxsave true
|
|
hsetprop ${scobj_hpath}/status/evt_5 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/evt_5 klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/evt_5 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/evt_5 type "part"
|
|
hsetprop ${scobj_hpath}/status/evt_5 nxalias "${name}_status_evt_5"
|
|
|
|
hfactory ${scobj_hpath}/status/evt_6 plain user text
|
|
hsetprop ${scobj_hpath}/status/evt_6 read ${ns}::fetch_from_status ${scobj_hpath} rdValue {15}
|
|
hsetprop ${scobj_hpath}/status/evt_6 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/evt_6 control true
|
|
hsetprop ${scobj_hpath}/status/evt_6 data true
|
|
hsetprop ${scobj_hpath}/status/evt_6 mutable true
|
|
hsetprop ${scobj_hpath}/status/evt_6 nxsave true
|
|
hsetprop ${scobj_hpath}/status/evt_6 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/evt_6 klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/evt_6 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/evt_6 type "part"
|
|
hsetprop ${scobj_hpath}/status/evt_6 nxalias "${name}_status_evt_6"
|
|
|
|
hfactory ${scobj_hpath}/status/evt_7 plain user text
|
|
hsetprop ${scobj_hpath}/status/evt_7 read ${ns}::fetch_from_status ${scobj_hpath} rdValue {16}
|
|
hsetprop ${scobj_hpath}/status/evt_7 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/evt_7 control true
|
|
hsetprop ${scobj_hpath}/status/evt_7 data true
|
|
hsetprop ${scobj_hpath}/status/evt_7 mutable true
|
|
hsetprop ${scobj_hpath}/status/evt_7 nxsave true
|
|
hsetprop ${scobj_hpath}/status/evt_7 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/evt_7 klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/evt_7 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/evt_7 type "part"
|
|
hsetprop ${scobj_hpath}/status/evt_7 nxalias "${name}_status_evt_7"
|
|
|
|
hfactory ${scobj_hpath}/status/flow_rate plain user text
|
|
hsetprop ${scobj_hpath}/status/flow_rate read ${ns}::fetch_from_status ${scobj_hpath} rdValue {4}
|
|
hsetprop ${scobj_hpath}/status/flow_rate rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/flow_rate control true
|
|
hsetprop ${scobj_hpath}/status/flow_rate data true
|
|
hsetprop ${scobj_hpath}/status/flow_rate mutable true
|
|
hsetprop ${scobj_hpath}/status/flow_rate nxsave true
|
|
hsetprop ${scobj_hpath}/status/flow_rate oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/flow_rate klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/flow_rate sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/flow_rate type "part"
|
|
hsetprop ${scobj_hpath}/status/flow_rate nxalias "${name}_status_flow_rate"
|
|
|
|
hfactory ${scobj_hpath}/status/lpg_0 plain user text
|
|
hsetprop ${scobj_hpath}/status/lpg_0 read ${ns}::fetch_from_status ${scobj_hpath} rdValue {5}
|
|
hsetprop ${scobj_hpath}/status/lpg_0 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/lpg_0 control true
|
|
hsetprop ${scobj_hpath}/status/lpg_0 data true
|
|
hsetprop ${scobj_hpath}/status/lpg_0 mutable true
|
|
hsetprop ${scobj_hpath}/status/lpg_0 nxsave true
|
|
hsetprop ${scobj_hpath}/status/lpg_0 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/lpg_0 klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/lpg_0 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/lpg_0 type "part"
|
|
hsetprop ${scobj_hpath}/status/lpg_0 nxalias "${name}_status_lpg_0"
|
|
|
|
hfactory ${scobj_hpath}/status/lpg_1 plain user text
|
|
hsetprop ${scobj_hpath}/status/lpg_1 read ${ns}::fetch_from_status ${scobj_hpath} rdValue {6}
|
|
hsetprop ${scobj_hpath}/status/lpg_1 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/lpg_1 control true
|
|
hsetprop ${scobj_hpath}/status/lpg_1 data true
|
|
hsetprop ${scobj_hpath}/status/lpg_1 mutable true
|
|
hsetprop ${scobj_hpath}/status/lpg_1 nxsave true
|
|
hsetprop ${scobj_hpath}/status/lpg_1 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/lpg_1 klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/lpg_1 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/lpg_1 type "part"
|
|
hsetprop ${scobj_hpath}/status/lpg_1 nxalias "${name}_status_lpg_1"
|
|
|
|
hfactory ${scobj_hpath}/status/lpg_2 plain user text
|
|
hsetprop ${scobj_hpath}/status/lpg_2 read ${ns}::fetch_from_status ${scobj_hpath} rdValue {7}
|
|
hsetprop ${scobj_hpath}/status/lpg_2 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/lpg_2 control true
|
|
hsetprop ${scobj_hpath}/status/lpg_2 data true
|
|
hsetprop ${scobj_hpath}/status/lpg_2 mutable true
|
|
hsetprop ${scobj_hpath}/status/lpg_2 nxsave true
|
|
hsetprop ${scobj_hpath}/status/lpg_2 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/lpg_2 klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/lpg_2 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/lpg_2 type "part"
|
|
hsetprop ${scobj_hpath}/status/lpg_2 nxalias "${name}_status_lpg_2"
|
|
|
|
hfactory ${scobj_hpath}/status/lpg_3 plain user text
|
|
hsetprop ${scobj_hpath}/status/lpg_3 read ${ns}::fetch_from_status ${scobj_hpath} rdValue {8}
|
|
hsetprop ${scobj_hpath}/status/lpg_3 rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/lpg_3 control true
|
|
hsetprop ${scobj_hpath}/status/lpg_3 data true
|
|
hsetprop ${scobj_hpath}/status/lpg_3 mutable true
|
|
hsetprop ${scobj_hpath}/status/lpg_3 nxsave true
|
|
hsetprop ${scobj_hpath}/status/lpg_3 oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/lpg_3 klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/lpg_3 sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/lpg_3 type "part"
|
|
hsetprop ${scobj_hpath}/status/lpg_3 nxalias "${name}_status_lpg_3"
|
|
|
|
hfactory ${scobj_hpath}/status/start_in plain user text
|
|
hsetprop ${scobj_hpath}/status/start_in read ${ns}::fetch_from_status ${scobj_hpath} rdValue {18}
|
|
hsetprop ${scobj_hpath}/status/start_in rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/start_in control true
|
|
hsetprop ${scobj_hpath}/status/start_in data true
|
|
hsetprop ${scobj_hpath}/status/start_in mutable true
|
|
hsetprop ${scobj_hpath}/status/start_in nxsave true
|
|
hsetprop ${scobj_hpath}/status/start_in oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/start_in klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/start_in sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/start_in type "part"
|
|
hsetprop ${scobj_hpath}/status/start_in nxalias "${name}_status_start_in"
|
|
|
|
hfactory ${scobj_hpath}/status/state plain user text
|
|
hsetprop ${scobj_hpath}/status/state read ${ns}::fetch_from_status ${scobj_hpath} rdValue {1}
|
|
hsetprop ${scobj_hpath}/status/state rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/status/state control true
|
|
hsetprop ${scobj_hpath}/status/state data true
|
|
hsetprop ${scobj_hpath}/status/state mutable true
|
|
hsetprop ${scobj_hpath}/status/state nxsave true
|
|
hsetprop ${scobj_hpath}/status/state oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/status/state klass "parameter"
|
|
hsetprop ${scobj_hpath}/status/state sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/status/state type "part"
|
|
hsetprop ${scobj_hpath}/status/state nxalias "${name}_status_state"
|
|
|
|
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
|
${sct_controller} poll ${scobj_hpath}/status/cur_error 1
|
|
${sct_controller} poll ${scobj_hpath}/status/cur_pres 1
|
|
${sct_controller} poll ${scobj_hpath}/status/cur_run_time 1
|
|
${sct_controller} poll ${scobj_hpath}/status/error_in 1
|
|
${sct_controller} poll ${scobj_hpath}/status/evt_0 1
|
|
${sct_controller} poll ${scobj_hpath}/status/evt_1 1
|
|
${sct_controller} poll ${scobj_hpath}/status/evt_2 1
|
|
${sct_controller} poll ${scobj_hpath}/status/evt_3 1
|
|
${sct_controller} poll ${scobj_hpath}/status/evt_4 1
|
|
${sct_controller} poll ${scobj_hpath}/status/evt_5 1
|
|
${sct_controller} poll ${scobj_hpath}/status/evt_6 1
|
|
${sct_controller} poll ${scobj_hpath}/status/evt_7 1
|
|
${sct_controller} poll ${scobj_hpath}/status/flow_rate 1
|
|
${sct_controller} poll ${scobj_hpath}/status/lpg_0 1
|
|
${sct_controller} poll ${scobj_hpath}/status/lpg_1 1
|
|
${sct_controller} poll ${scobj_hpath}/status/lpg_2 1
|
|
${sct_controller} poll ${scobj_hpath}/status/lpg_3 1
|
|
${sct_controller} poll ${scobj_hpath}/status/start_in 1
|
|
${sct_controller} poll ${scobj_hpath}/status/state 1
|
|
} else {
|
|
::scobj::knauer_pump::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for knauer_pump"
|
|
}
|
|
|
|
hfactory ${scobj_hpath}/stuff plain spy none
|
|
hsetprop ${scobj_hpath}/stuff data "true"
|
|
hsetprop ${scobj_hpath}/stuff klass "@none"
|
|
hsetprop ${scobj_hpath}/stuff type "part"
|
|
|
|
hfactory ${scobj_hpath}/stuff/an_out plain user text
|
|
hsetprop ${scobj_hpath}/stuff/an_out read ${ns}::getValue ${scobj_hpath} rdValue {AN_OUT?}
|
|
hsetprop ${scobj_hpath}/stuff/an_out rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/an_out control true
|
|
hsetprop ${scobj_hpath}/stuff/an_out data true
|
|
hsetprop ${scobj_hpath}/stuff/an_out mutable true
|
|
hsetprop ${scobj_hpath}/stuff/an_out nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/an_out oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/an_out klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/an_out sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/an_out type "part"
|
|
hsetprop ${scobj_hpath}/stuff/an_out nxalias "${name}_stuff_an_out"
|
|
|
|
hfactory ${scobj_hpath}/stuff/boardinfo plain user text
|
|
hsetprop ${scobj_hpath}/stuff/boardinfo read ${ns}::getValue ${scobj_hpath} rdValue {BOARDINFO?}
|
|
hsetprop ${scobj_hpath}/stuff/boardinfo rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/boardinfo control true
|
|
hsetprop ${scobj_hpath}/stuff/boardinfo data true
|
|
hsetprop ${scobj_hpath}/stuff/boardinfo mutable true
|
|
hsetprop ${scobj_hpath}/stuff/boardinfo nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/boardinfo oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/boardinfo klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/boardinfo sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/boardinfo type "part"
|
|
hsetprop ${scobj_hpath}/stuff/boardinfo nxalias "${name}_stuff_boardinfo"
|
|
|
|
hfactory ${scobj_hpath}/stuff/config plain user text
|
|
hsetprop ${scobj_hpath}/stuff/config read ${ns}::getValue ${scobj_hpath} rdValue {CONFIG?}
|
|
hsetprop ${scobj_hpath}/stuff/config rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/config control true
|
|
hsetprop ${scobj_hpath}/stuff/config data true
|
|
hsetprop ${scobj_hpath}/stuff/config mutable true
|
|
hsetprop ${scobj_hpath}/stuff/config nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/config oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/config klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/config sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/config type "part"
|
|
hsetprop ${scobj_hpath}/stuff/config nxalias "${name}_stuff_config"
|
|
|
|
hfactory ${scobj_hpath}/stuff/cprofinfo plain user text
|
|
hsetprop ${scobj_hpath}/stuff/cprofinfo read ${ns}::getValue ${scobj_hpath} rdValue {CPROFINFO?}
|
|
hsetprop ${scobj_hpath}/stuff/cprofinfo rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/cprofinfo control true
|
|
hsetprop ${scobj_hpath}/stuff/cprofinfo data true
|
|
hsetprop ${scobj_hpath}/stuff/cprofinfo mutable true
|
|
hsetprop ${scobj_hpath}/stuff/cprofinfo nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/cprofinfo oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/cprofinfo klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/cprofinfo sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/cprofinfo type "part"
|
|
hsetprop ${scobj_hpath}/stuff/cprofinfo nxalias "${name}_stuff_cprofinfo"
|
|
|
|
hfactory ${scobj_hpath}/stuff/dout plain user text
|
|
hsetprop ${scobj_hpath}/stuff/dout read ${ns}::getValue ${scobj_hpath} rdValue {DOUT?}
|
|
hsetprop ${scobj_hpath}/stuff/dout rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/dout control true
|
|
hsetprop ${scobj_hpath}/stuff/dout data true
|
|
hsetprop ${scobj_hpath}/stuff/dout mutable true
|
|
hsetprop ${scobj_hpath}/stuff/dout nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/dout oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/dout klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/dout sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/dout type "part"
|
|
hsetprop ${scobj_hpath}/stuff/dout nxalias "${name}_stuff_dout"
|
|
|
|
hfactory ${scobj_hpath}/stuff/error plain user text
|
|
hsetprop ${scobj_hpath}/stuff/error read ${ns}::getValue ${scobj_hpath} rdValue {ERROR?}
|
|
hsetprop ${scobj_hpath}/stuff/error rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/error control true
|
|
hsetprop ${scobj_hpath}/stuff/error data true
|
|
hsetprop ${scobj_hpath}/stuff/error mutable true
|
|
hsetprop ${scobj_hpath}/stuff/error nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/error oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/error klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/error sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/error type "part"
|
|
hsetprop ${scobj_hpath}/stuff/error nxalias "${name}_stuff_error"
|
|
|
|
hfactory ${scobj_hpath}/stuff/errors plain user text
|
|
hsetprop ${scobj_hpath}/stuff/errors read ${ns}::getValue ${scobj_hpath} rdValue {ERRORS?}
|
|
hsetprop ${scobj_hpath}/stuff/errors rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/errors control true
|
|
hsetprop ${scobj_hpath}/stuff/errors data true
|
|
hsetprop ${scobj_hpath}/stuff/errors mutable true
|
|
hsetprop ${scobj_hpath}/stuff/errors nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/errors oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/errors klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/errors sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/errors type "part"
|
|
hsetprop ${scobj_hpath}/stuff/errors nxalias "${name}_stuff_errors"
|
|
|
|
hfactory ${scobj_hpath}/stuff/flushpmp plain user text
|
|
hsetprop ${scobj_hpath}/stuff/flushpmp read ${ns}::getValue ${scobj_hpath} rdValue {FLUSHPMP?}
|
|
hsetprop ${scobj_hpath}/stuff/flushpmp rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/flushpmp control true
|
|
hsetprop ${scobj_hpath}/stuff/flushpmp data true
|
|
hsetprop ${scobj_hpath}/stuff/flushpmp mutable true
|
|
hsetprop ${scobj_hpath}/stuff/flushpmp nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/flushpmp oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/flushpmp klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/flushpmp sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/flushpmp type "part"
|
|
hsetprop ${scobj_hpath}/stuff/flushpmp nxalias "${name}_stuff_flushpmp"
|
|
|
|
hfactory ${scobj_hpath}/stuff/head plain user text
|
|
hsetprop ${scobj_hpath}/stuff/head read ${ns}::getValue ${scobj_hpath} rdValue {HEAD?}
|
|
hsetprop ${scobj_hpath}/stuff/head rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/head control true
|
|
hsetprop ${scobj_hpath}/stuff/head data true
|
|
hsetprop ${scobj_hpath}/stuff/head mutable true
|
|
hsetprop ${scobj_hpath}/stuff/head nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/head oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/head klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/head sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/head type "part"
|
|
hsetprop ${scobj_hpath}/stuff/head nxalias "${name}_stuff_head"
|
|
|
|
hfactory ${scobj_hpath}/stuff/head_par plain user text
|
|
hsetprop ${scobj_hpath}/stuff/head_par read ${ns}::getValue ${scobj_hpath} rdValue {HEAD_PAR?}
|
|
hsetprop ${scobj_hpath}/stuff/head_par rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/head_par control true
|
|
hsetprop ${scobj_hpath}/stuff/head_par data true
|
|
hsetprop ${scobj_hpath}/stuff/head_par mutable true
|
|
hsetprop ${scobj_hpath}/stuff/head_par nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/head_par oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/head_par klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/head_par sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/head_par type "part"
|
|
hsetprop ${scobj_hpath}/stuff/head_par nxalias "${name}_stuff_head_par"
|
|
|
|
hfactory ${scobj_hpath}/stuff/identify plain user text
|
|
hsetprop ${scobj_hpath}/stuff/identify read ${ns}::getValue ${scobj_hpath} rdValue {IDENTIFY?}
|
|
hsetprop ${scobj_hpath}/stuff/identify rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/identify control true
|
|
hsetprop ${scobj_hpath}/stuff/identify data true
|
|
hsetprop ${scobj_hpath}/stuff/identify mutable true
|
|
hsetprop ${scobj_hpath}/stuff/identify nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/identify oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/identify klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/identify sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/identify type "part"
|
|
hsetprop ${scobj_hpath}/stuff/identify nxalias "${name}_stuff_identify"
|
|
|
|
hfactory ${scobj_hpath}/stuff/lpg plain user text
|
|
hsetprop ${scobj_hpath}/stuff/lpg read ${ns}::getValue ${scobj_hpath} rdValue {LPG?}
|
|
hsetprop ${scobj_hpath}/stuff/lpg rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/lpg control true
|
|
hsetprop ${scobj_hpath}/stuff/lpg data true
|
|
hsetprop ${scobj_hpath}/stuff/lpg mutable true
|
|
hsetprop ${scobj_hpath}/stuff/lpg nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/lpg oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/lpg klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/lpg sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/lpg type "part"
|
|
hsetprop ${scobj_hpath}/stuff/lpg nxalias "${name}_stuff_lpg"
|
|
|
|
hfactory ${scobj_hpath}/stuff/oem plain user text
|
|
hsetprop ${scobj_hpath}/stuff/oem read ${ns}::getValue ${scobj_hpath} rdValue {OEM?}
|
|
hsetprop ${scobj_hpath}/stuff/oem rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/oem control true
|
|
hsetprop ${scobj_hpath}/stuff/oem data true
|
|
hsetprop ${scobj_hpath}/stuff/oem mutable true
|
|
hsetprop ${scobj_hpath}/stuff/oem nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/oem oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/oem klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/oem sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/oem type "part"
|
|
hsetprop ${scobj_hpath}/stuff/oem nxalias "${name}_stuff_oem"
|
|
|
|
hfactory ${scobj_hpath}/stuff/opt plain user text
|
|
hsetprop ${scobj_hpath}/stuff/opt read ${ns}::getValue ${scobj_hpath} rdValue {OPT?}
|
|
hsetprop ${scobj_hpath}/stuff/opt rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/opt control true
|
|
hsetprop ${scobj_hpath}/stuff/opt data true
|
|
hsetprop ${scobj_hpath}/stuff/opt mutable true
|
|
hsetprop ${scobj_hpath}/stuff/opt nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/opt oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/opt klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/opt sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/opt type "part"
|
|
hsetprop ${scobj_hpath}/stuff/opt nxalias "${name}_stuff_opt"
|
|
|
|
hfactory ${scobj_hpath}/stuff/plim plain user text
|
|
hsetprop ${scobj_hpath}/stuff/plim read ${ns}::getValue ${scobj_hpath} rdValue {PLIM?}
|
|
hsetprop ${scobj_hpath}/stuff/plim rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/plim control true
|
|
hsetprop ${scobj_hpath}/stuff/plim data true
|
|
hsetprop ${scobj_hpath}/stuff/plim mutable true
|
|
hsetprop ${scobj_hpath}/stuff/plim nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/plim oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/plim klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/plim sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/plim type "part"
|
|
hsetprop ${scobj_hpath}/stuff/plim nxalias "${name}_stuff_plim"
|
|
|
|
hfactory ${scobj_hpath}/stuff/pressure plain user text
|
|
hsetprop ${scobj_hpath}/stuff/pressure read ${ns}::getValue ${scobj_hpath} rdValue {PRESSURE?}
|
|
hsetprop ${scobj_hpath}/stuff/pressure rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/pressure control true
|
|
hsetprop ${scobj_hpath}/stuff/pressure data true
|
|
hsetprop ${scobj_hpath}/stuff/pressure mutable true
|
|
hsetprop ${scobj_hpath}/stuff/pressure nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/pressure oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/pressure klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/pressure sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/pressure type "part"
|
|
hsetprop ${scobj_hpath}/stuff/pressure nxalias "${name}_stuff_pressure"
|
|
|
|
hfactory ${scobj_hpath}/stuff/prfastacq plain user text
|
|
hsetprop ${scobj_hpath}/stuff/prfastacq read ${ns}::getValue ${scobj_hpath} rdValue {PRFASTACQ?}
|
|
hsetprop ${scobj_hpath}/stuff/prfastacq rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/prfastacq control true
|
|
hsetprop ${scobj_hpath}/stuff/prfastacq data true
|
|
hsetprop ${scobj_hpath}/stuff/prfastacq mutable true
|
|
hsetprop ${scobj_hpath}/stuff/prfastacq nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/prfastacq oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/prfastacq klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/prfastacq sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/prfastacq type "part"
|
|
hsetprop ${scobj_hpath}/stuff/prfastacq nxalias "${name}_stuff_prfastacq"
|
|
|
|
hfactory ${scobj_hpath}/stuff/purge plain user text
|
|
hsetprop ${scobj_hpath}/stuff/purge read ${ns}::getValue ${scobj_hpath} rdValue {PURGE?}
|
|
hsetprop ${scobj_hpath}/stuff/purge rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/purge control true
|
|
hsetprop ${scobj_hpath}/stuff/purge data true
|
|
hsetprop ${scobj_hpath}/stuff/purge mutable true
|
|
hsetprop ${scobj_hpath}/stuff/purge nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/purge oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/purge klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/purge sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/purge type "part"
|
|
hsetprop ${scobj_hpath}/stuff/purge nxalias "${name}_stuff_purge"
|
|
|
|
hfactory ${scobj_hpath}/stuff/remote plain user text
|
|
hsetprop ${scobj_hpath}/stuff/remote read ${ns}::getValue ${scobj_hpath} rdValue {REMOTE?}
|
|
hsetprop ${scobj_hpath}/stuff/remote rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/remote control true
|
|
hsetprop ${scobj_hpath}/stuff/remote data true
|
|
hsetprop ${scobj_hpath}/stuff/remote mutable true
|
|
hsetprop ${scobj_hpath}/stuff/remote nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/remote oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/remote klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/remote sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/remote type "part"
|
|
hsetprop ${scobj_hpath}/stuff/remote nxalias "${name}_stuff_remote"
|
|
|
|
hfactory ${scobj_hpath}/stuff/rfid plain user text
|
|
hsetprop ${scobj_hpath}/stuff/rfid read ${ns}::getValue ${scobj_hpath} rdValue {RFID?}
|
|
hsetprop ${scobj_hpath}/stuff/rfid rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/rfid control true
|
|
hsetprop ${scobj_hpath}/stuff/rfid data true
|
|
hsetprop ${scobj_hpath}/stuff/rfid mutable true
|
|
hsetprop ${scobj_hpath}/stuff/rfid nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/rfid oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/rfid klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/rfid sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/rfid type "part"
|
|
hsetprop ${scobj_hpath}/stuff/rfid nxalias "${name}_stuff_rfid"
|
|
|
|
hfactory ${scobj_hpath}/stuff/service plain user text
|
|
hsetprop ${scobj_hpath}/stuff/service read ${ns}::getValue ${scobj_hpath} rdValue {SERVICE?}
|
|
hsetprop ${scobj_hpath}/stuff/service rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/service control true
|
|
hsetprop ${scobj_hpath}/stuff/service data true
|
|
hsetprop ${scobj_hpath}/stuff/service mutable true
|
|
hsetprop ${scobj_hpath}/stuff/service nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/service oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/service klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/service sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/service type "part"
|
|
hsetprop ${scobj_hpath}/stuff/service nxalias "${name}_stuff_service"
|
|
|
|
hfactory ${scobj_hpath}/stuff/sysinfo plain user text
|
|
hsetprop ${scobj_hpath}/stuff/sysinfo read ${ns}::getValue ${scobj_hpath} rdValue {SYSINFO?}
|
|
hsetprop ${scobj_hpath}/stuff/sysinfo rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/sysinfo control true
|
|
hsetprop ${scobj_hpath}/stuff/sysinfo data true
|
|
hsetprop ${scobj_hpath}/stuff/sysinfo mutable true
|
|
hsetprop ${scobj_hpath}/stuff/sysinfo nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/sysinfo oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/sysinfo klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/sysinfo sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/sysinfo type "part"
|
|
hsetprop ${scobj_hpath}/stuff/sysinfo nxalias "${name}_stuff_sysinfo"
|
|
|
|
hfactory ${scobj_hpath}/stuff/units plain user text
|
|
hsetprop ${scobj_hpath}/stuff/units read ${ns}::getValue ${scobj_hpath} rdValue {UNITS?}
|
|
hsetprop ${scobj_hpath}/stuff/units rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/units control true
|
|
hsetprop ${scobj_hpath}/stuff/units data true
|
|
hsetprop ${scobj_hpath}/stuff/units mutable true
|
|
hsetprop ${scobj_hpath}/stuff/units nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/units oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/units klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/units sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/units type "part"
|
|
hsetprop ${scobj_hpath}/stuff/units nxalias "${name}_stuff_units"
|
|
|
|
hfactory ${scobj_hpath}/stuff/valves plain user text
|
|
hsetprop ${scobj_hpath}/stuff/valves read ${ns}::getValue ${scobj_hpath} rdValue {VALVES?}
|
|
hsetprop ${scobj_hpath}/stuff/valves rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/stuff/valves control true
|
|
hsetprop ${scobj_hpath}/stuff/valves data true
|
|
hsetprop ${scobj_hpath}/stuff/valves mutable true
|
|
hsetprop ${scobj_hpath}/stuff/valves nxsave true
|
|
hsetprop ${scobj_hpath}/stuff/valves oldval UNKNOWN
|
|
hsetprop ${scobj_hpath}/stuff/valves klass "parameter"
|
|
hsetprop ${scobj_hpath}/stuff/valves sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/stuff/valves type "part"
|
|
hsetprop ${scobj_hpath}/stuff/valves nxalias "${name}_stuff_valves"
|
|
|
|
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
|
${sct_controller} poll ${scobj_hpath}/stuff/an_out 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/boardinfo 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/config 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/cprofinfo 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/dout 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/error 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/errors 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/flushpmp 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/head 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/head_par 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/identify 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/lpg 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/oem 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/opt 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/plim 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/pressure 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/prfastacq 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/purge 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/remote 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/rfid 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/service 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/sysinfo 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/units 60
|
|
${sct_controller} poll ${scobj_hpath}/stuff/valves 60
|
|
} else {
|
|
::scobj::knauer_pump::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for knauer_pump"
|
|
}
|
|
|
|
hfactory ${scobj_hpath}/volume plain spy none
|
|
hsetprop ${scobj_hpath}/volume data "true"
|
|
hsetprop ${scobj_hpath}/volume klass "@none"
|
|
hsetprop ${scobj_hpath}/volume type "part"
|
|
|
|
hfactory ${scobj_hpath}/volume/sensor plain user float
|
|
hsetprop ${scobj_hpath}/volume/sensor read ${ns}::volume_fetch ${scobj_hpath} rdValue { }
|
|
hsetprop ${scobj_hpath}/volume/sensor rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/volume/sensor control true
|
|
hsetprop ${scobj_hpath}/volume/sensor data true
|
|
hsetprop ${scobj_hpath}/volume/sensor mutable true
|
|
hsetprop ${scobj_hpath}/volume/sensor nxsave true
|
|
hsetprop ${scobj_hpath}/volume/sensor oldval 0.0
|
|
hsetprop ${scobj_hpath}/volume/sensor klass "parameter"
|
|
hsetprop ${scobj_hpath}/volume/sensor sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/volume/sensor type "part"
|
|
hsetprop ${scobj_hpath}/volume/sensor units "mL"
|
|
hsetprop ${scobj_hpath}/volume/sensor nxalias "${name}_volume_sensor"
|
|
|
|
hfactory ${scobj_hpath}/volume/setpoint plain user float
|
|
hsetprop ${scobj_hpath}/volume/setpoint read ${ns}::volume_checkpumping ${scobj_hpath} rdValue { }
|
|
hsetprop ${scobj_hpath}/volume/setpoint rdValue ${ns}::rdValue ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/volume/setpoint write ${ns}::volume_write ${scobj_hpath} noResponse { }
|
|
hsetprop ${scobj_hpath}/volume/setpoint noResponse ${ns}::noResponse ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/volume/setpoint check ${ns}::checkrange ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/volume/setpoint driving 0
|
|
hsetprop ${scobj_hpath}/volume/setpoint checklimits ${ns}::checklimits ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/volume/setpoint checkstatus ${ns}::volume_checkstatus ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/volume/setpoint halt ${ns}::volume_halt ${scobj_hpath}
|
|
hsetprop ${scobj_hpath}/volume/setpoint driveable volume/sensor
|
|
hsetprop ${scobj_hpath}/volume/setpoint control true
|
|
hsetprop ${scobj_hpath}/volume/setpoint data true
|
|
hsetprop ${scobj_hpath}/volume/setpoint mutable true
|
|
hsetprop ${scobj_hpath}/volume/setpoint nxsave true
|
|
hsetprop ${scobj_hpath}/volume/setpoint lowerlimit 0
|
|
hsetprop ${scobj_hpath}/volume/setpoint upperlimit 100
|
|
hsetprop ${scobj_hpath}/volume/setpoint tolerance 0.01
|
|
hsetprop ${scobj_hpath}/volume/setpoint oldval 0.0
|
|
hsetprop ${scobj_hpath}/volume/setpoint klass "parameter"
|
|
hsetprop ${scobj_hpath}/volume/setpoint sdsinfo "::nexus::scobj::sdsinfo"
|
|
hsetprop ${scobj_hpath}/volume/setpoint type "drivable"
|
|
hsetprop ${scobj_hpath}/volume/setpoint units "mL"
|
|
hsetprop ${scobj_hpath}/volume/setpoint nxalias "${name}_volume_setpoint"
|
|
|
|
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
|
${sct_controller} poll ${scobj_hpath}/volume/sensor 1
|
|
${sct_controller} poll ${scobj_hpath}/volume/setpoint 1
|
|
${sct_controller} write ${scobj_hpath}/volume/setpoint
|
|
} else {
|
|
::scobj::knauer_pump::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for knauer_pump"
|
|
}
|
|
hsetprop ${scobj_hpath} klass ${device_class}
|
|
hsetprop ${scobj_hpath} data true
|
|
hsetprop ${scobj_hpath} debug_threshold 0
|
|
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
|
ansto_makesctdrive ${name}_volume_setpoint ${scobj_hpath}/volume/setpoint ${scobj_hpath}/volume/sensor ${sct_controller}
|
|
}
|
|
# mkDriver hook code goes here
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
proc ::scobj::knauer_pump::add_driver {name device_class simulation_flag ip_address tcp_port} {
|
|
set catch_status [ catch {
|
|
::scobj::knauer_pump::sics_log 9 "::scobj::knauer_pump::add_driver ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port}"
|
|
if {[string equal -nocase "${simulation_flag}" "false"]} {
|
|
if {[string equal -nocase "aqadapter" "${ip_address}"]} {
|
|
::scobj::knauer_pump::sics_log 9 "makesctcontroller sct_${name} aqadapter ${tcp_port}"
|
|
makesctcontroller sct_${name} aqadapter ${tcp_port}
|
|
} else {
|
|
::scobj::knauer_pump::sics_log 9 "makesctcontroller sct_${name} knauer_ap ${ip_address}:${tcp_port}"
|
|
makesctcontroller sct_${name} knauer_ap ${ip_address}:${tcp_port}
|
|
}
|
|
} else {
|
|
::scobj::knauer_pump::sics_log 9 "simulation_flag={simulation_flag} => No sctcontroller for knauer_pump"
|
|
}
|
|
::scobj::knauer_pump::sics_log 1 "::scobj::knauer_pump::mkDriver sct_${name} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port}"
|
|
::scobj::knauer_pump::mkDriver sct_${name} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
namespace eval ::scobj::knauer_pump {
|
|
namespace export debug_threshold
|
|
namespace export debug_log
|
|
namespace export sics_log
|
|
namespace export mkDriver
|
|
namespace export add_driver
|
|
}
|
|
|
|
proc add_knauer_pump {name ip_address tcp_port} {
|
|
set simulation_flag "[string tolower [SplitReply [environment_simulation]]]"
|
|
::scobj::knauer_pump::add_driver ${name} "environment" "${simulation_flag}" ${ip_address} ${tcp_port}
|
|
}
|
|
|
|
clientput "file evaluation of sct_knauer_pump.tcl"
|
|
::scobj::knauer_pump::sics_log 9 "file evaluation of sct_knauer_pump.tcl"
|
|
|
|
proc ::scobj::knauer_pump::read_config {} {
|
|
set catch_status [ catch {
|
|
set ns "::scobj::knauer_pump"
|
|
dict for {k u} $::config_dict {
|
|
if { [dict exists $u "implementation"] } {
|
|
set simulation_flag "[string tolower [SplitReply [environment_simulation]]]"
|
|
set device_class "environment"
|
|
if { !([dict exists $u "name"] && [dict exists $u "enabled"]) } {
|
|
continue
|
|
}
|
|
set enabled [string tolower [dict get $u "enabled"]]
|
|
if { ! ([string equal -nocase $enabled "true" ] || [string equal -nocase $enabled "always"]) } {
|
|
continue
|
|
}
|
|
if { [dict exists $u "simulation_group"] } {
|
|
set simulation_flag [SplitReply [[string tolower [dict get $u "simulation_group"]]]]
|
|
}
|
|
if { [dict exists $u "device_class"] } {
|
|
set device_class "[dict get $u "device_class"]"
|
|
}
|
|
set name [dict get $u name]
|
|
set implementation [dict get $u "implementation"]
|
|
if { !([dict exists $::config_dict $implementation]) } {
|
|
continue
|
|
}
|
|
set v [dict get $::config_dict $implementation]
|
|
if { !([dict exists $v "driver"]) } {
|
|
continue
|
|
}
|
|
if { [string equal -nocase [dict get $v "driver"] "knauer_pump"] } {
|
|
if { ![string equal -nocase "${simulation_flag}" "false"] } {
|
|
set asyncqueue "null"
|
|
${ns}::sics_log 9 "simulation_flag=${simulation_flag} => using null asyncqueue"
|
|
} elseif { [dict exists $v "asyncqueue"] } {
|
|
set asyncqueue [dict get $v "asyncqueue"]
|
|
if { [string equal -nocase ${asyncqueue} "sct"] } {
|
|
set ip_address [dict get $v ip]
|
|
set tcp_port [dict get $v port]
|
|
}
|
|
} else {
|
|
if { [dict exists $v "asyncprotocol"] } {
|
|
set asyncprotocol [dict get $v "asyncprotocol"]
|
|
} else {
|
|
set asyncprotocol ${name}_protocol
|
|
MakeAsyncProtocol ${asyncprotocol}
|
|
if { [dict exists $v "terminator"] } {
|
|
${asyncprotocol} sendterminator "[dict get $v "terminator"]"
|
|
${asyncprotocol} replyterminator "[dict get $v "terminator"]"
|
|
}
|
|
}
|
|
set asyncqueue ${name}_queue
|
|
set ip_address [dict get $v ip]
|
|
set tcp_port [dict get $v port]
|
|
MakeAsyncQueue ${asyncqueue} ${asyncprotocol} ${ip_address} ${tcp_port}
|
|
if { [dict exists $v "timeout"] } {
|
|
${asyncqueue} timeout "[dict get $v "timeout"]"
|
|
}
|
|
}
|
|
if { [string equal -nocase ${asyncqueue} "sct"] } {
|
|
${ns}::add_driver ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port}
|
|
} else {
|
|
${ns}::add_driver ${name} ${device_class} ${simulation_flag} "aqadapter" ${asyncqueue}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
} catch_message ]
|
|
handle_exception ${catch_status} ${catch_message}
|
|
}
|
|
|
|
if { [info exists ::config_dict] } {
|
|
::scobj::knauer_pump::read_config
|
|
} else {
|
|
::scobj::knauer_pump::sics_log 5 "No config dict"
|
|
}
|