diff --git a/site_ansto/instrument/config/counter/counter_common_1.tcl b/site_ansto/instrument/config/counter/counter_common_1.tcl index 1a16dd32..9d11a570 100644 --- a/site_ansto/instrument/config/counter/counter_common_1.tcl +++ b/site_ansto/instrument/config/counter/counter_common_1.tcl @@ -7,7 +7,6 @@ namespace eval counter { proc ::counter::transferscript {} { variable isc_numchannels - bm status set val [SplitReply [bm1 gettime]] for {set i 1} {$i <= $isc_numchannels} {incr i} { append val " [SplitReply [bm$i getcounts] ]" @@ -36,8 +35,8 @@ proc ::counter::ic_initialize {} { # This must be sourced before the hmm_configuration.tcl until we separate the scan setup from the hmm setup for {set i 0; set n 1} {$i < $isc_numchannels} {incr i; incr n} { MakeCounter bm$n anstomonitor [ params host $isc_monitor_address port [lindex $isc_portlist $i] ] - bm$n send scan=1 - bm$n send sample=10 + bm$n send set scan=1 + bm$n send set sample=10 append bm_list "bm$n " } } diff --git a/site_ansto/instrument/config/environment/temperature/sct_lakeshore_370.tcl b/site_ansto/instrument/config/environment/temperature/sct_lakeshore_370.tcl index 74233b4a..6fe63945 100644 --- a/site_ansto/instrument/config/environment/temperature/sct_lakeshore_370.tcl +++ b/site_ansto/instrument/config/environment/temperature/sct_lakeshore_370.tcl @@ -50,7 +50,7 @@ namespace eval ::scobj::[set vendor]_[set device] { proc debug_log {debug_level arg_string} { # write a timestamped string message to a log file for debugging - set debug_threshold 0 + set debug_threshold 5 if {$debug_level >= $debug_threshold} { set fd [open "[set [namespace current]::log_file]" "a"] set line "[clock format [clock seconds] -format "%T"] $arg_string" diff --git a/site_ansto/instrument/config/environment/temperature/sct_oxford_mercury.tcl b/site_ansto/instrument/config/environment/temperature/sct_oxford_mercury.tcl index 22ebad6b..4b0651f9 100644 --- a/site_ansto/instrument/config/environment/temperature/sct_oxford_mercury.tcl +++ b/site_ansto/instrument/config/environment/temperature/sct_oxford_mercury.tcl @@ -1,891 +1,2143 @@ -# vim: ts=8 sw=2 sta sts=2 et ai si -# This is a template driver for a mercury temperaure controller from Oxford Instruments +# Generated driver for oxford_mercury +# vim: ft=tcl tabstop=8 softtabstop=2 shiftwidth=2 nocindent smartindent # -# Author: Douglas Clowes -# Date: August 2012 -# -if { "[lindex [split [info nameofexecutable] "/"] end]" == "tclsh"} { -# This block is to suppress spurious error/warning messages when loaded in Nagelfar - set catch_status [ catch { - puts "TCLSH" - proc environment_simulation {} { return "" } - proc SplitReply {str} { return "" } - proc makesctcontroller {args} { } - proc MakeSICSObj {args} { } - proc sicslist {args} { } - proc hfactory {args} { } - proc hdelprop {args} { } - proc hsetprop {args} { } - proc hgetprop {args} { } - proc hpropexists {args} { } - proc hlistprop {args} { } - proc hset {args} { } - proc hget {args} { } - proc hval {args} { } - proc hinfo {args} { } - proc hlist {args} { } - proc sct {args} { } - proc debug_log {args} { } - proc pathname {args} { } - proc basename {args} { } - proc channel {args} { } - proc ns {args} { } - } catch_message ] - if {$catch_status != 0} { - puts "error in main $catch_message" - return -code error "in main $catch_message" - } + +namespace eval ::scobj::oxford_mercury { + set debug_threshold 5 +# preamble hook code starts + proc make_config {sct_controller} { + set syscat [${sct_controller} transact READ:SYS:CAT] + set result "" + set devs [regexp -inline -all {DEV:[DM][[:alnum:]\.]*:[[:alnum:]]*} ${syscat}] + foreach dev [lsort ${devs}] { + set typ [string index [lindex [split ${dev} :] end] 0] + set typ [string map {A V} ${typ}] + clientput "${dev} ${typ}" + set result "${result}${typ}" + } + clientput "Result: ${result}" + return ${result} + } + proc read_all {sct_controller} { + set syscat [${sct_controller} transact READ:SYS:CAT] + set devs [regexp -inline -all {DEV:[DM][[:alnum:]\.]*:[[:alnum:]]*} ${syscat}] + foreach dev [lsort ${devs}] { + set response [${sct_controller} transact READ:${dev}] + clientput "Device: ${response}" + } + } + proc read_loop {sct_controller} { + set pat {\m[A-Z]{1,}:[^:]{1,}} + set syscat [${sct_controller} transact READ:SYS:CAT] + set devs [regexp -inline -all {DEV:[DM][[:alnum:]\.]*:[[:alnum:]]*} ${syscat}] + foreach dev [lsort ${devs}] { + set response [${sct_controller} transact READ:${dev}:LOOP] + clientput "Device: ${response}" + clientput " Loop: [regexp -inline -all $pat [string trim ${response}]]" + } + } + proc read_sig {sct_controller} { + set pat {\m[A-Z]{1,}:[^:]{1,}} + set syscat [${sct_controller} transact READ:SYS:CAT] + set devs [regexp -inline -all {DEV:[DM][[:alnum:]\.]*:[[:alnum:]]*} ${syscat}] + foreach dev [lsort ${devs}] { + set response [${sct_controller} transact READ:${dev}:SIG] + clientput "Device: ${response}" + clientput " Sig: [regexp -inline -all $pat [string trim ${response}]]" + } + } +# preamble hook code ends } -set vendor "oxford" -set device "mercury" - -namespace eval ::scobj::[set vendor]_[set device] { - proc ns {} { - return "[namespace current]" - } - # All of this takes place in a namespace based on the vendor and device - # Debug prints and vendor/device save - clientput "Namespace: [namespace current]" - clientput "Vendor:[set vendor]" - clientput "Device:[set device]" - set [namespace current]::vendor [set ::vendor] - set [namespace current]::device [set ::device] - set [namespace current]::ven_dev "[set ::vendor]_[set ::device]" - clientput "[namespace current]::vendor [set [namespace current]::vendor]" - clientput "[namespace current]::device [set [namespace current]::device]" - clientput "[namespace current]::ven_dev [set [namespace current]::ven_dev]" - - proc debug_log {debug_level arg_string} { - # write a timestamped string message to a log file for debugging - set debug_threshold 0 - if {$debug_level >= $debug_threshold} { - set fd [open "[set [namespace current]::log_file]" "a"] - set line "[clock format [clock seconds] -format "%T"] $arg_string" - puts $fd "$line" - close $fd +proc ::scobj::oxford_mercury::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 now [clock seconds] + set ts [clock format ${now} -format "%Y%m%d"] + set log_file_name "../log/oxford_mercury_[basename ${tc_root}]_${ts}.log" + set fd [open "${log_file_name}" "a"] + set ts [clock format ${now} -format "%T"] + puts ${fd} "${ts} ${debug_string}" + close ${fd} } - } + } catch_message ] +} - proc channel {arg} { - # strip the trailing digits from the arg and return them as a string - set result 0 - for { set i 0 } { $i < [string length $arg] } { incr i } { - if { ! [string match {[0-9]} [string index $arg end-$i]] } { - break +proc ::scobj::oxford_mercury::sics_log {debug_level debug_string} { + set catch_status [ catch { + set debug_threshold ${::scobj::oxford_mercury::debug_threshold} + if {${debug_level} >= ${debug_threshold}} { + sicslog "::scobj::oxford_mercury::${debug_string}" + } + } catch_message ] +} + +# checklimits function for driveable interface +proc ::scobj::oxford_mercury::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::oxford_mercury::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} +} + +# checkstatus function for driveable interface +proc ::scobj::oxford_mercury::checkstatus {tc_root} { + set catch_status [ catch { +# checkstatus hook code goes here + if {[sct driving]} { + set sp "[sct target]" + if {[hpropexists [sct] simulated] && [sct simulated] == "true"} { + set pv "${sp}" + hupdateif ${tc_root}/[sct driveable] ${sp} + } else { + set pv "[hval ${tc_root}/[sct driveable]]" } - set result [string range "$arg" end-$i end] + 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" } - debug_log 1 "Extract channel $result from argument $arg" - return $result - } + } catch_message ] + handle_exception ${catch_status} ${catch_message} +} - proc setPoint {tc_root nextState cmd} { - # send a command to set a value - debug_log 1 "setPoint tc_root=$tc_root sct=[sct] $cmd [sct target]" +# function to request the read of a parameter on a device +proc ::scobj::oxford_mercury::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} +} + +# halt function for driveable interface +proc ::scobj::oxford_mercury::halt {tc_root} { + set catch_status [ catch { + debug_log ${tc_root} 1 "halt tc_root=${tc_root} sct=[sct] driving=[sct driving]" + ### TODO hset [sct] [hval [sct]] +# halt hook code goes here + sct driving 0 + return "idle" + } catch_message ] + handle_exception ${catch_status} ${catch_message} +} + +# function to check the write parameter on a device +proc ::scobj::oxford_mercury::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} +} + +# function to parse the read of a parameter on a device +proc ::scobj::oxford_mercury::rdOnOff {tc_root} { + set catch_status [ catch { + debug_log ${tc_root} 1 "rdOnOff 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]" + } +# rdOnOff hook code starts + scan [lindex [split "$data" ":"] end] "%s" data + if {[string equal -nocase ${data} "ON"]} { + set data 1 + } else { + set data 0 + } +# rdOnOff 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::oxford_mercury::rdText {tc_root} { + set catch_status [ catch { + debug_log ${tc_root} 1 "rdText 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]" + } +# rdText hook code starts + scan [lindex [split "$data" ":"] end] "%s" data +# rdText 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::oxford_mercury::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 starts + set value [lindex [split "${data}" ":"] end] + if {[string equal -nocase -length 3 ${value} NaN]} { + set value 0 + } + if {[string equal -nocase -length 3 ${value} inf] || [string equal -nocase -length 4 ${value} -inf]} { + set value 0 + } + if {![string is digit [string index ${value} 0]]} { + set value 0 + } + debug_log ${tc_root} 1 "rdValue tc_root=${tc_root} sct=[sct] result=[sct result]" + debug_log ${tc_root} 1 "rdValue tc_root=${tc_root} data=${data} value=${value}" + scan ${value} "%g" data +# rdValue 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::oxford_mercury::setPoint {tc_root nextState cmd_str} { + set catch_status [ catch { + debug_log ${tc_root} 1 "setPoint tc_root=${tc_root} sct=[sct] cmd=${cmd_str}" if { [hpropexists [sct] geterror] } { hdelprop [sct] geterror } set par [sct target] - set command "$cmd:$par" - - debug_log 1 "setPoint tc_root=$tc_root sct=[sct] Write $command" - sct send "$command" - sct driving 1 - sct time_check [clock seconds] - if {$par != [sct oldval]} { - sct oldval $par - sct update $par - sct utime readtime - debug_log 1 "setPoint: new data for $tc_root [sct] result=$par" - } - return $nextState - } - - proc chkWrite {tc_root} { - # process the response to the write - # - not all devices will respond to writes - set data [sct result] - debug_log 1 "chkWrite tc_root=$tc_root sct=[sct] resp=$data" - if {[string equal -nocase -length 7 $data "ASCERR:"]} { - # the protocol driver has reported an error - sct geterror "$data" - } elseif {[string equal -nocase -length 1 $data "?"]} { - # the device has reported an error - sct geterror "Error: $data" - } else { - # the write was successful, record the data - set data [sct target] - if {$data != [sct oldval]} { - sct oldval $data - sct update $data - sct utime readtime - debug_log 1 "chkWrite new data for $tc_root [sct] result=$data" + set cmd "${cmd_str}${par}" +# setPoint hook code goes here + if { [hpropexists [sct] driving] } { + if { [hpropexists [sct] writestatus] && [sct writestatus] == "start" } { + sct driving 1 } } - return idle - } - - proc noResponse {tc_root} { - set data "[sct result]" - debug_log 1 "noResponse tc_root=$tc_root sct=[sct] resp=$data" - return idle - } - - proc getValue {tc_root nextState cmd} { - # send a command to request a value - debug_log 1 "getValue tc_root=$tc_root sct=[sct] $cmd" - if { [hpropexists [sct] geterror] } { - hdelprop [sct] geterror + debug_log ${tc_root} 1 "setPoint sct send ${cmd}" + if {![string equal -nocase -length 10 ${cmd} "@@NOSEND@@"]} { + sct send "${cmd}" } - if { [string equal -nocase -length 4 "$cmd" "XXXX"] } { - set cmd "$cmd [channel [pathname [sct]]]" - } - debug_log 1 "getValue sct send $cmd" - sct send "$cmd" - return $nextState - } - - proc rdValue {tc_root} { - # process the received response to the read request - debug_log 1 "[ns]::rdValue tc_root=$tc_root sct=[sct] result=[sct result]" - set data [sct result] - if {[string equal -nocase -length 7 $data "ASCERR:"]} { - # the protocol driver has reported an error - sct geterror "$data" - } elseif {[string equal -nocase -length 1 $data "?"]} { - # the device has reported an error - sct geterror "Error: $data" - } else { - if { [string equal -nocase [basename [sct]] "XXXX"] } { - return "idle" - } - scan [lindex [split "$data" ":"] end] "%g" data - if {$data != [sct oldval]} { - debug_log 1 "[sct] changed to new:$data, from old:[sct oldval]" - sct oldval $data - sct update $data - sct utime readtime - } - } - return "idle" - } - - proc rdText {tc_root} { - # process the received response to the read request - debug_log 1 "[ns]::rdText tc_root=$tc_root sct=[sct] result=[sct result]" - set data [sct result] - if {[string equal -nocase -length 7 $data "ASCERR:"]} { - # the protocol driver has reported an error - sct geterror "$data" - } elseif {[string equal -nocase -length 1 $data "?"]} { - # the device has reported an error - sct geterror "Error: $data" - } else { - if { [string equal -nocase [basename [sct]] "XXXX"] } { - return "idle" - } - scan [lindex [split "$data" ":"] end] "%s" data - if {$data != [sct oldval]} { - debug_log 1 "[sct] changed to new:$data, from old:[sct oldval]" - sct oldval $data - sct update $data - sct utime readtime - } - } - return "idle" - } - - proc rdTextAll {tc_root} { - # process the received response to the read request - debug_log 1 "[ns]::rdText tc_root=$tc_root sct=[sct] result=[sct result]" - set data [sct result] - if {[string equal -nocase -length 7 $data "ASCERR:"]} { - # the protocol driver has reported an error - sct geterror "$data" - } elseif {[string equal -nocase -length 1 $data "?"]} { - # the device has reported an error - sct geterror "Error: $data" - } else { - if { [string equal -nocase [basename [sct]] "XXXX"] } { - return "idle" - } - #scan [lindex [split "$data" ":"] end] "%s" data - if {$data != [sct oldval]} { - debug_log 1 "[sct] changed to new:$data, from old:[sct oldval]" - sct oldval $data - sct update $data - sct utime readtime - } - } - return "idle" - } - - proc getTemp {tc_root nextState cmd} { - debug_log 1 "getTemp tc_root=$tc_root sct=[sct] $cmd" - if { ! [hpropexists [sct] my_state] } { - sct my_state 0 - } - if { [sct my_state] == 0 } { - set command "CSET?" - } else { - set command "RDGK? [sct channel]" - } - debug_log 1 "getTemp sct send $command" - sct send "$command" - return "$nextState" - } - - proc rdTemp {tc_root} { - debug_log 1 "rdTemp tc_root=$tc_root sct=[sct] result=[sct result]" - if { [sct my_state] == 0 } { - set response "[split [sct result] ","]" - sct channel [lindex $response 0] - sct filter [lindex $response 1] - sct my_state 1 - return "read" - } else { - set data "[sct result]" - if {$data != [sct oldval]} { - debug_log 1 "[sct] changed to new:$data, from old:[sct oldval]" - sct oldval $data - sct update $data - sct utime readtime - } - sct my_state 0 - return "idle" - } - } - - proc gtLoop {tc_root nextState cmd} { - debug_log 1 "gtLoop tc_root=$tc_root sct=[sct] nextState=$nextState cmd=$cmd" - debug_log 1 "gtLoop tc_root=$tc_root pathname=[pathname [sct]] basename=[basename [sct]]" - if { ! [hpropexists [sct] my_state] } { - debug_log 1 "gtLoop setting my_state to zero because it doesn't exist" - sct my_state 0 - } - if { [sct my_state] == 0 } { - set command "RAMP?" - } else { - set command "SETP?" - } - debug_log 1 "gtLoop sct=[sct] command=$command" - sct send "$command" - return "$nextState" - return idle - } - - proc rdLoop {tc_root} { - debug_log 1 "rdLoop tc_root=$tc_root sct=[sct] result=[sct result]" - debug_log 1 "rdLoop tc_root=$tc_root pathname=[pathname [sct]] basename=[basename [sct]]" - set nextState "read" - if { [sct my_state] == 0 } { - debug_log 1 "rdLoop sct=[sct] RAMP - result=[sct result]" - set nextState "read" - } else { - debug_log 1 "rdLoop sct=[sct] SETP - result=[sct result]" - set nextState "idle" - sct my_state -1 - } - sct my_state "[expr {[sct my_state] + 1}]" - return $nextState - } - - proc wrLoop {tc_root nextState cmd} { - debug_log 1 "wrLoop tc_root=$tc_root sct=[sct] nextState=$nextState cmd=$cmd" - if { ! [hpropexists [sct] my_state] } { - debug_log 1 "wrLoop setting my_state to zero because it doesn't exist" - sct my_state 0 - } - if { [sct writestatus] == "start" } { - debug_log 1 "wrLoop setting my_state to zero because writestatus is [sct writestatus]" - sct my_state 0 - } - debug_log 1 "wrLoop target=[sct target] writestatus=[sct writestatus] my_state=[sct my_state]" - if { [sct my_state] == 0 } { - set my_rate [hval [sct]/ramp_rate] - if { $my_rate > 0.0 } { - set command "RAMP 0,0;RAMP?" - } else { - set command "RAMP 1,$my_rate;RAMP?" - } - } else { - set command "SETP [hval [sct]/setpoint];SETP?" - } - debug_log 1 "wrLoop sct=[sct] command=$command" - sct send "$command" - return "$nextState" - } - - proc ckLoop {tc_root} { - debug_log 1 "ckLoop tc_root=$tc_root sct=[sct] result=[sct result]" - debug_log 1 "ckLoop target=[sct target] writestatus=[sct writestatus] my_state=[sct my_state]" - set nextState "write" - if { [sct my_state] == 0 } { - debug_log 1 "ckLoop sct=[sct] RAMP - result=[sct result]" - [ns]::rdValue $tc_root - set nextState "write" - } else { - debug_log 1 "ckLoop sct=[sct] SETP - result=[sct result]" - [ns]::rdValue $tc_root - sct my_state -1 - set nextState "idle" - } - sct my_state "[expr {[sct my_state] + 1}]" - return $nextState - } - - ## - # @brief getState() sends commands/requests to the device under control - # - # @param tc_root the path to the device_state node - # @param nextState the next sct state (rdState) - # @param cmd empty argument - # - # @return the next sct state (rdState) - # - proc getState {tc_root nextState cmd} { - if { [hpropexists [sct] geterror] } { - hdelprop [sct] geterror - } - debug_log 1 "getState $tc_root sct=[sct] state=[hval [sct]] substate=[sct substate] next=$nextState" - set my_state [hval [sct]] - set my_substate [sct substate] - if {$my_state == "STATE_INIT"} { - if { $my_substate == 0 } { - set command "*IDN?" - } elseif { $my_substate == 1 } { - set command "*TST?" - } - } elseif { $my_state == "STATE_CURVE"} { - if { $my_substate == 0 } { - set my_substate 1000 - sct substate $my_substate - } - if { ($my_substate % 1000) == 0 } { - set command "CRVHDR? [expr {int($my_substate / 1000)}]" - } else { - set command "CRVPT? [expr {int($my_substate / 1000)}],[expr {($my_substate % 1000)}]" - } - } elseif { $my_state == "STATE_IDLE"} { - if { $my_substate == 0 } { - set command "*ESE?" - } elseif { $my_substate == 1 } { - set command "*ESR?" - } elseif { $my_substate == 2 } { - set command "*STB?" - } - } - debug_log 1 "getState sct send $command" - sct send $command - return "$nextState" - } - - ## - # @brief rdState() handles events from the device under control - # - # @param tc_root the path to the device_state node - # - proc rdState {tc_root} { - if { [hpropexists [sct] geterror] } { - hdelprop [sct] geterror - } - debug_log 1 "rdState $tc_root sct=[sct] state=[hval [sct]] substate=[sct substate] response=\"[sct result]\"" - set nextState "read" - set my_state [hval [sct]] - set my_substate [sct substate] - if {$my_state == "STATE_INIT"} { - if { $my_substate == 0 } { # IDN - sct identity [sct result] - incr my_substate - } elseif { $my_substate == 1 } { - sct selftest [sct result] - incr my_substate - } - if { $my_substate > 1 } { - #hset [sct] "STATE_IDLE" - hset [sct] "STATE_CURVE" - set my_substate 0 - } - } elseif { $my_state == "STATE_CURVE"} { - if { ($my_substate % 1000) == 0 } { - debug_log 1 "Curve: [expr {$my_substate / 1000}] Header: [sct result]" - } else { - debug_log 1 "Curve: [expr {$my_substate / 1000}] Point: [expr {$my_substate % 1000}] Value: [sct result]" - set rslt [scan "[sct result]" "%f,%f" units temperature] - debug_log 1 "Curve: [expr {$my_substate / 1000}] Point: [expr {$my_substate % 1000}] Result: $rslt Units: $units Temp: $temperature" - if { $units == 0.0 && $temperature == 0.0 } { - set my_substate [expr { (($my_substate / 1000)) * 1000 + 999}] - } - } - if { ($my_substate % 1000) >= 200 } { - if { ($my_substate / 1000) >= 20 } { - hset [sct] "STATE_IDLE" - set my_substate 0 - } else { - set my_substate [expr { (($my_substate / 1000) + 1) * 1000 }] - } - } else { - set my_substate [expr { $my_substate + 1 }] - } - } elseif { $my_state == "STATE_IDLE"} { - if { $my_substate == 0 } { # ESE - sct the_ese [sct result] - incr my_substate - } elseif { $my_substate == 1 } { # ESR - sct the_esr [sct result] - incr my_substate - } elseif { $my_substate == 2 } { # STB - sct the_stb [sct result] - incr my_substate - } - if { $my_substate > 2 } { - set my_substate 0 - set nextState "idle" - } - } - sct substate $my_substate - if { $my_state != [hval [sct]] } { - debug_log 1 "device_state $my_state to [hval [sct]]" - } - return "$nextState" - } - - proc chkTarget {tc_root par} { - set target {} - if {[hpropexists [sct] values]} { - set values [split [SplitReply [sct values]] ","] - foreach value $values { - #sct print "Testing $par against $value" - set lo_hi [split $value ":"] - if {[llength $lo_hi] == 2} { - if {[lindex $lo_hi 0] <= $par && [lindex $lo_hi 1] >= $par} { - #sct print "Success $par between [lindex $lo_hi 0] and [lindex $lo_hi 1]" - set target "$par" - break - } - } else { - if {[string toupper "$par"] == [string toupper "$value"]} { - #sct print "Success $par matches $value" - set target "$par" - break - } - } - } - if {"$target" == ""} { - #sct print "Failure $par no matches in $values" - return -code error "Invalid value: \"$par\"" - } - } else { - set target "$par" - } - return $target - } - -## -# @brief Implement the checkstatus command for the drivable interface -# -# NOTE: The drive adapter initially sets the writestatus to "start" and will -# only call this when writestatus!="start" - proc drivestatus {tc_root} { - #debug_log 1 "drivestatus tc_root=$tc_root, sct=[sct], setpoint=[hval [sct]], temp=[hval [pathname [sct]]/sensor], driving=[sct driving]" - if {[sct driving]} { - # tolerance - set temp [hval [pathname [sct]]/sensor] - set loval [expr {[hval [sct]] - [sct tolerance]}] - set hival [expr {[hval [sct]] + [sct tolerance]}] - if {$loval <= $temp && $temp <= $hival} { - # settle time - set timeout [sct settletime] - set timecheck [sct time_check] - set currtime [clock seconds] - #debug_log 1 "drivestatus tc_root=$tc_root, sct=[sct], setpoint=[hval [sct]], temp=[hval [pathname [sct]]/sensor], temp=($loval, $temp, $hival), time=($timecheck, $currtime, $timeout)" - if { ($currtime - $timecheck) >= $timeout } { - debug_log 1 "drivestatus tc_root=$tc_root, sct=[sct], finished driving" - sct driving 0 - } - } else { - sct time_check [clock seconds] - } - return busy - } else { - debug_log 1 "drivestatus tc_root=$tc_root, sct=[sct], now idle" - return idle - } - } - - proc halt {tc_root} { - debug_log 1 "halt $tc_root" - foreach loop {Loop1 Loop2 Loop3 Loop4} { - set catch_status [ catch { - hset $tc_root/$loop/setpoint [hval $tc_root/$loop/sensor] - hsetprop $tc_root/$loop/setpoint driving 0 - } catch_message ] - } - debug_log 1 "halt $tc_root done driving" - return idle - } - - proc check {tc_root} { - debug_log 1 "check tc_root=$tc_root, sct=[sct], target=[sct target]" - set catch_status [ catch { - set target [chkTarget $tc_root [sct target]] - if { "$target" == "" } { - error "setpoint violates limits" - } - } catch_message ] - if {$catch_status != 0} { - return -code error $catch_message - } - return OK - } - - proc wrNode {tc_root cmd level} { - set space [string repeat " " $level] - set val [hval $tc_root] - if {"$val" == ""} { - set line "$tc_root ([hinfo $tc_root])" - } else { - set line "$tc_root ([hinfo $tc_root]) = $val" - } - sct print "$space* $line" - if {"[string tolower "$cmd"]" == "-prop"} { - set props [hlistprop $tc_root] - #sct print "<<$props>>" - foreach prop $props { - #sct print "prop: $prop" - set flds [split $prop "="] - #sct print "flds: $flds" - if {[llength $flds] > 1} { - set fld0 [lindex $flds 0] - #sct print "fld0: $fld0" - if {[hpropexists $tc_root $fld0]} { - sct print "$space - [hgetprop $tc_root $fld0]" - } - } - } - } - foreach node [hlist $tc_root] { - [ns]::wrNode $tc_root/$node "$cmd" [expr {$level + 1}] - } - } - - proc wrTree {tc_root nextState cmd} { - debug_log 1 "wrTree root=$tc_root sct=[sct] cmd=$cmd target=[sct target]" - sct print "$tc_root" - [ns]::wrNode $tc_root "[sct target]" 1 - return idle - } - - ## - # @brief createNode() creates a node for the given nodename with the properties given - # - # @param scobj_hpath string variable holding the path to the object's base node in sics (/sample/tc1) - # @param sct_controller name of the scriptcontext object (typically sct_xxx_yyy) - # @param cmdGroup subdirectory (below /sample/tc*/) in which the node is to be created - # @param varName name of the actual node typically representing one device command - # @param readable set to 1 if the node represents a query command, 0 if it is not - # @param writable set to 1 if the node represents a request for a change in settings sent to the device - # @param drivable if set to 1 it prepares the node to provide a drivable interface - # @param dataType data type of the node, must be one of none, int, float, text - # @param permission defines what user group may read/write to this node (is one of spy, user, manager) - # @param rdCmd actual device query command to be sent to the device - # @param rdFunc nextState Function to be called after the getValue function, typically rdValue() - # @param wrCmd actual device write command to be sent to the device - # @param wrFunc Function to be called to send the wrCmd to the device, typically setValue() - # @param allowedValues allowed values for the node data - does not permit other - # @param klass Nexus class name (?) - # @return OK - proc createNode {scobj_hpath sct_controller\ - cmdGroup varName\ - readable writable drivable\ - dataType permission\ - rdCmd rdFunc\ - wrCmd wrFunc\ - allowedValues klass} { - - set catch_status [ catch { - set ns "[ns]" - set nodeName "$scobj_hpath/$cmdGroup/$varName" - if {1 > [string length $cmdGroup]} { - set nodeName "$scobj_hpath/$varName" - } - debug_log 1 "Creating node $nodeName" - hfactory $nodeName plain $permission $dataType - if {$readable > 0} { - # the node is readable so set it up to be polled using the rdFunc - # rdFunc is getValueFunc.rdValueFunc with both explicit functions - # or rdValueFunc where "getValue" is the implied getValueFunc - set parts [split "$rdFunc" "."] - if { [llength $parts] == 2 } { - set func_name [lindex $parts 0] - set next_state [lindex $parts 1] - } else { - set func_name "getValue" - set next_state [lindex $parts 0] - } - hsetprop $nodeName read ${ns}::$func_name $scobj_hpath $next_state $rdCmd - hsetprop $nodeName $next_state ${ns}::$next_state $scobj_hpath - # set the poll rate as a period in seconds - # TODO allow directly settable value in seconds - set poll_period 5 - if { $readable >= 0 && $readable <= 300 } { - set poll_period [expr {int($readable)}] - } - debug_log 1 "Registering node $nodeName for poll at $poll_period seconds" - $sct_controller poll $nodeName $poll_period - } - if {$writable == 1} { - # the node is writable so set it up to invoke a callback when written - # rdFunc is putValueFunc.chkWriteFunc with both explicit functions - # or putValueFunc where "noResponse" is the implied chkWriteFunc - set parts [split "$wrFunc" "."] - if { [llength $parts] == 2 } { - set func_name [lindex $parts 0] - set next_state [lindex $parts 1] - } else { - set func_name [lindex $parts 0] - set next_state "noResponse" - } - hsetprop $nodeName write ${ns}::$func_name $scobj_hpath $next_state $wrCmd - hsetprop $nodeName $next_state ${ns}::$next_state $scobj_hpath - hsetprop $nodeName writestatus UNKNOWN - debug_log 1 "Registering node $nodeName for write callback" - $sct_controller write $nodeName - } - # Initialise the previous value to test against - switch -exact $dataType { - "none" { } - "int" { hsetprop $nodeName oldval -1 } - "float" { hsetprop $nodeName oldval -1.0 } - default { hsetprop $nodeName oldval UNKNOWN } - } - # Set the allowed values property - if {1 < [string length $allowedValues]} { - hsetprop $nodeName values $allowedValues - } - # Drive adapter interface - # TODO make it a separate function and pass in all this stuff - if {$drivable == 1} { - hsetprop $nodeName check ${ns}::check $scobj_hpath - hsetprop $nodeName driving 0 - hsetprop $nodeName checklimits ${ns}::check $scobj_hpath - hsetprop $nodeName checkstatus ${ns}::drivestatus $scobj_hpath - hsetprop $nodeName halt ${ns}::halt $scobj_hpath - } else { - hsetprop $nodeName driving 0 - } - } catch_message ] - if {$catch_status != 0} { - debug_log 5 "error in [ns]::createNode $catch_message" - return -code error "in [ns]::createNode $catch_message" - } - return OK - } - - proc mk_sct_driver {sct_controller the_klass the_name tol CID CTYPE} { - debug_log 1 "mk_sct_driver $sct_controller $the_klass $the_name $tol $CID $CTYPE" - set catch_status [ catch { - - MakeSICSObj $the_name SCT_OBJECT - sicslist setatt $the_name klass $the_klass - sicslist setatt $the_name long_name $the_name - - set scobj_hpath /sics/$the_name - - hfactory $scobj_hpath/Loop1 plain spy none - hfactory $scobj_hpath/Loop2 plain spy none - hfactory $scobj_hpath/Loop3 plain spy none - hfactory $scobj_hpath/Loop4 plain spy none - hfactory $scobj_hpath/Level plain spy none - - set deviceCommand {\ - Loop1 setpoint 5 1 1 float user {READ:DEV:MB1.T1:TEMP:LOOP:TSET} {rdValue} {SET:DEV:MB1.T1:TEMP:LOOP:TSET} {setPoint} {1:333}\ - Loop1 sensor 1 0 0 float user {READ:DEV:MB1.T1:TEMP:SIG:TEMP} {rdValue} {} {} {}\ - Loop1 nick 5 0 0 text user {READ:DEV:MB1.T1:TEMP:NICK} {rdText} {} {} {}\ - Loop1 temp 0 0 0 text user {READ:DEV:MB1.T1:TEMP} {rdTextAll} {} {} {}\ - Loop1 loop 0 0 0 text user {READ:DEV:MB1.T1:TEMP:LOOP} {rdTextAll} {} {} {}\ - Loop1 heater 0 0 0 text user {READ:DEV:MB0.H1:HTR} {rdTextAll} {} {} {}\ - Loop1 power 5 0 0 float user {READ:DEV:MB0.H1:HTR:SIG:POWR} {rdValue} {} {} {}\ - Loop2 setpoint 5 1 1 float user {READ:DEV:DB6.T1:TEMP:LOOP:TSET} {rdValue} {SET:DEV:DB6.T1:TEMP:LOOP:TSET} {setPoint} {1:333}\ - Loop2 sensor 1 0 0 float user {READ:DEV:DB6.T1:TEMP:SIG:TEMP} {rdValue} {} {} {}\ - Loop2 nick 5 0 0 text user {READ:DEV:DB6.T1:TEMP:NICK} {rdText} {} {} {}\ - Loop2 temp 0 0 0 text user {READ:DEV:DB6.T1:TEMP} {rdTextAll} {} {} {}\ - Loop2 loop 0 0 0 text user {READ:DEV:DB6.T1:TEMP:LOOP} {rdTextAll} {} {} {}\ - Loop2 heater 0 0 0 text user {READ:DEV:DB1.H1:HTR} {rdTextAll} {} {} {}\ - Loop2 power 5 0 0 float user {READ:DEV:DB1.H1:HTR:SIG:POWR} {rdValue} {} {} {}\ - Loop3 setpoint 5 1 1 float user {READ:DEV:DB7.T1:TEMP:LOOP:TSET} {rdValue} {SET:DEV:DB7.T1:TEMP:LOOP:TSET} {setPoint} {1:333}\ - Loop3 sensor 1 0 0 float user {READ:DEV:DB7.T1:TEMP:SIG:TEMP} {rdValue} {} {} {}\ - Loop3 nick 5 0 0 text user {READ:DEV:DB7.T1:TEMP:NICK} {rdText} {} {} {}\ - Loop3 temp 0 0 0 text user {READ:DEV:DB7.T1:TEMP} {rdTextAll} {} {} {}\ - Loop3 loop 0 0 0 text user {READ:DEV:DB7.T1:TEMP:LOOP} {rdTextAll} {} {} {}\ - Loop3 heater 0 0 0 text user {READ:DEV:DB2.H1:HTR} {rdTextAll} {} {} {}\ - Loop3 power 5 0 0 float user {READ:DEV:DB2.H1:HTR:SIG:POWR} {rdValue} {} {} {}\ - Loop4 setpoint 5 1 1 float user {READ:DEV:DB8.T1:TEMP:LOOP:TSET} {rdValue} {SET:DEV:DB8.T1:TEMP:LOOP:TSET} {setPoint} {1:333}\ - Loop4 sensor 1 0 0 float user {READ:DEV:DB8.T1:TEMP:SIG:TEMP} {rdValue} {} {} {}\ - Loop4 nick 5 0 0 text user {READ:DEV:DB8.T1:TEMP:NICK} {rdText} {} {} {}\ - Loop4 temp 0 0 0 text user {READ:DEV:DB8.T1:TEMP} {rdTextAll} {} {} {}\ - Loop4 loop 0 0 0 text user {READ:DEV:DB7.T1:TEMP:LOOP} {rdTextAll} {} {} {}\ - Loop4 heater 0 0 0 text user {READ:DEV:DB3.H1:HTR} {rdTextAll} {} {} {}\ - Loop4 power 5 0 0 float user {READ:DEV:DB3.H1:HTR:SIG:POWR} {rdValue} {} {} {}\ - Level Nitrogen 15 0 0 float user {READ:DEV:DB5.L1:LVL:SIG:NIT:LEV} {rdValue} {} {} {}\ - Level Helium 15 0 0 float user {READ:DEV:DB5.L1:LVL:SIG:HEL:LEV} {rdValue} {} {} {}\ - } - - foreach {cmdGroup varName\ - readable writable drivable\ - dataType permission\ - rdCmd rdFunc\ - wrCmd wrFunc\ - allowedValues} $deviceCommand { - [ns]::createNode $scobj_hpath $sct_controller\ - $cmdGroup $varName\ - $readable $writable $drivable\ - $dataType $permission\ - $rdCmd $rdFunc\ - $wrCmd $wrFunc\ - $allowedValues $the_klass - } - - foreach cmdGroup { Loop1 Loop2 Loop3 Loop4 } { - set pathName "$scobj_hpath/$cmdGroup" - hsetprop $pathName type part - hsetprop $pathName klass NXsensor - hsetprop $pathName privilege spy - hsetprop $pathName control true - hsetprop $pathName data true - hsetprop $pathName nxsave true - hsetprop $pathName/setpoint tolerance $tol - hsetprop $pathName/setpoint settletime 5 - foreach varName { setpoint sensor nick } { - set nodeName "$pathName/$varName" - hsetprop $nodeName nxalias ${the_name}_${cmdGroup}_${varName}_value - hsetprop $nodeName long_name $varName - hsetprop $nodeName klass sensor - hsetprop $nodeName priviledge user - hsetprop $nodeName control true - hsetprop $nodeName data true - hsetprop $nodeName nxsave true - hsetprop $nodeName mutable true - hsetprop $nodeName sdsinfo ::nexus::scobj::sdsinfo - } - } - - foreach cmdGroup { Level } { - set pathName "$scobj_hpath/$cmdGroup" - hsetprop $pathName type part - hsetprop $pathName klass NXsensor - hsetprop $pathName privilege spy - hsetprop $pathName control true - hsetprop $pathName data true - hsetprop $pathName nxsave true - foreach varName { Nitrogen Helium } { - set nodeName "$pathName/$varName" - hsetprop $nodeName long_name $varName - hsetprop $nodeName klass sensor - hsetprop $nodeName priviledge user - hsetprop $nodeName control true - hsetprop $nodeName data true - hsetprop $nodeName nxsave true - hsetprop $nodeName nxalias ${the_name}_${cmdGroup}_${varName}_value - hsetprop $nodeName mutable true - hsetprop $nodeName sdsinfo ::nexus::scobj::sdsinfo - } - } - - hfactory $scobj_hpath/device_state plain spy none - hset $scobj_hpath/device_state "STATE_INIT" - hsetprop $scobj_hpath/device_state substate 0 - - set point 0 - set catch_status_2 [ catch { - hsetprop $scobj_hpath privilege spy - hsetprop $scobj_hpath long_name $the_name - hsetprop $scobj_hpath sicsdev $the_name - hsetprop $scobj_hpath nxalias $the_name - hsetprop $scobj_hpath control true - hsetprop $scobj_hpath data true - hsetprop $scobj_hpath nxsave true - hsetprop $scobj_hpath mutable true - hsetprop $scobj_hpath klass parameter - hsetprop $scobj_hpath sdsinfo ::nexus::scobj::sdsinfo - set point 1 -if {0} { - ::scobj::hinitprops $the_name Loop1 - set point 2 - ::scobj::hinitprops $the_name Loop2/setpoint - set point 3 - ::scobj::hinitprops $the_name Loop3/setpoint - set point 4 - ::scobj::hinitprops $the_name Loop4/setpoint - set point 5 -} - } catch_message_2 ] - if {$catch_status_2 != 0} { - debug_log 5 "error in [ns]::mk_sct_driver($point) $catch_message_2" - return -code error "in [ns]::mk_sct_driver($point) $catch_message_2" - } - hsetprop $scobj_hpath/Loop1/setpoint permlink data_set ${CTYPE}${CID}SP1 - hsetprop $scobj_hpath/Loop1/setpoint @description ${CTYPE}${CID}SP1 - hsetprop $scobj_hpath/Loop1/setpoint permlink data_set ${CTYPE}${CID}SP1 - hsetprop $scobj_hpath/Loop1/setpoint @description ${CTYPE}${CID}SP1 - hsetprop $scobj_hpath/Loop2/setpoint permlink data_set ${CTYPE}${CID}SP2 - hsetprop $scobj_hpath/Loop2/setpoint @description ${CTYPE}${CID}SP2 - hsetprop $scobj_hpath/Loop3/setpoint permlink data_set ${CTYPE}${CID}SP3 - hsetprop $scobj_hpath/Loop3/setpoint @description ${CTYPE}${CID}SP3 - hsetprop $scobj_hpath/Loop4/setpoint permlink data_set ${CTYPE}${CID}SP4 - hsetprop $scobj_hpath/Loop4/setpoint @description ${CTYPE}${CID}SP4 - - hsetprop $scobj_hpath/Loop1/sensor permlink data_set ${CTYPE}${CID}S1 - hsetprop $scobj_hpath/Loop1/sensor @description ${CTYPE}${CID}S1 - hsetprop $scobj_hpath/Loop2/sensor permlink data_set ${CTYPE}${CID}S2 - hsetprop $scobj_hpath/Loop2/sensor @description ${CTYPE}${CID}S2 - hsetprop $scobj_hpath/Loop3/sensor permlink data_set ${CTYPE}${CID}S3 - hsetprop $scobj_hpath/Loop3/sensor @description ${CTYPE}${CID}S3 - hsetprop $scobj_hpath/Loop4/sensor permlink data_set ${CTYPE}${CID}S4 - hsetprop $scobj_hpath/Loop4/sensor @description ${CTYPE}${CID}S4 - - if {[SplitReply [environment_simulation]]=="false"} { - hsetprop $scobj_hpath/Loop1/setpoint type drivable - hsetprop $scobj_hpath/Loop2/setpoint type drivable - hsetprop $scobj_hpath/Loop3/setpoint type drivable - hsetprop $scobj_hpath/Loop4/setpoint type drivable - ansto_makesctdrive ${the_name}_loop1 $scobj_hpath/Loop1/setpoint $scobj_hpath/Loop1/sensor $sct_controller - ansto_makesctdrive ${the_name}_loop2 $scobj_hpath/Loop2/setpoint $scobj_hpath/Loop2/sensor $sct_controller - ansto_makesctdrive ${the_name}_loop3 $scobj_hpath/Loop3/setpoint $scobj_hpath/Loop3/sensor $sct_controller - ansto_makesctdrive ${the_name}_loop4 $scobj_hpath/Loop4/setpoint $scobj_hpath/Loop4/sensor $sct_controller - } - } catch_message ] - if {$catch_status != 0} { - debug_log 5 "error in [ns]::mk_sct_driver $catch_message" - return -code error "in [ns]::mk_sct_driver $catch_message" - } - } - - proc add_[set vendor]_[set device] {the_name IP port CID CTYPE terminator {_tol 5.0}} { - set [ns]::log_file "../log/[set [ns]::ven_dev]_[set the_name].log" - set fd [open [set [ns]::log_file] "w"] - close $fd - debug_log 1 "add_[set [ns]::vendor]_[set [ns]::device] ${the_name} ${IP} ${port} ${_tol}" - clientput "Namespace: [namespace current]" - clientput "::vendor $::vendor" - clientput "::device $::device" - clientput "[namespace current]::vendor [set [namespace current]::vendor]" - clientput "[namespace current]::device [set [namespace current]::device]" - clientput "[namespace current]::ven_dev [set [namespace current]::ven_dev]" - clientput "[namespace current]::log_file [set [namespace current]::log_file]" - if {[SplitReply [environment_simulation]]=="false"} { - debug_log 1 "makesctcontroller sct_${the_name} std ${IP}:${port} $terminator" - makesctcontroller sct_${the_name} std ${IP}:${port} $terminator - } - debug_log 1 "::scobj::oxford_mercury::mk_sct_driver sct_${the_name} environment ${the_name} ${_tol} $CID $CTYPE" - ::scobj::oxford_mercury::mk_sct_driver sct_${the_name} environment ${the_name} ${_tol} $CID $CTYPE - } - - - namespace export add_[set vendor]_[set device] + return ${nextState} + } catch_message ] + handle_exception ${catch_status} ${catch_message} } -namespace import ::scobj::[set vendor]_[set device]::* +# function to write a parameter value on a device +proc ::scobj::oxford_mercury::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 write a parameter value on a device +proc ::scobj::oxford_mercury::setValve {tc_root nextState cmd_str} { + set catch_status [ catch { + debug_log ${tc_root} 1 "setValve 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}" +# setValve hook code goes here + if { [hpropexists [sct] driving] } { + if { [hpropexists [sct] writestatus] && [sct writestatus] == "start" } { + sct driving 1 + } + } + debug_log ${tc_root} 1 "setValve 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::oxford_mercury::wrOnOff {tc_root nextState cmd_str} { + set catch_status [ catch { + debug_log ${tc_root} 1 "wrOnOff 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}" +# wrOnOff hook code starts + if { ${par} == 1 } { + set cmd "${cmd_str}ON" + } else { + set cmd "${cmd_str}OFF" + } +# wrOnOff 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 "wrOnOff 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::oxford_mercury::mkDriver { sct_controller name device_class simulation_flag ip_address tcp_port id {cards NNNNNNNN} {assoc 00000000} {ttol 1} {ptol 5} {vtol 5} } { + ::scobj::oxford_mercury::sics_log 9 "::scobj::oxford_mercury::mkDriver ${sct_controller} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} ${id} ${cards} ${assoc} ${ttol} ${ptol} ${vtol}" + 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} + + hsetprop ${scobj_hpath} assoc "${assoc}" + hsetprop ${scobj_hpath} cards "${cards}" + hsetprop ${scobj_hpath} data "true" + hsetprop ${scobj_hpath} klass "@none" + hsetprop ${scobj_hpath} type "part" + + if {[string equal -nocase [string index ${cards} 4] L]} { + hfactory ${scobj_hpath}/level plain spy none + + hfactory ${scobj_hpath}/level/helium plain user float + hsetprop ${scobj_hpath}/level/helium read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB5.L1:LVL:SIG:HEL:LEV} + hsetprop ${scobj_hpath}/level/helium rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/level/helium control true + hsetprop ${scobj_hpath}/level/helium data true + hsetprop ${scobj_hpath}/level/helium mutable true + hsetprop ${scobj_hpath}/level/helium nxsave true + hsetprop ${scobj_hpath}/level/helium permlink data_set "T[format "%02d" ${id}]He" + hsetprop ${scobj_hpath}/level/helium @description "T[format "%02d" ${id}]He" + hsetprop ${scobj_hpath}/level/helium oldval 0.0 + hsetprop ${scobj_hpath}/level/helium klass "parameter" + hsetprop ${scobj_hpath}/level/helium sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/level/helium type "part" + hsetprop ${scobj_hpath}/level/helium nxalias "${name}_level_helium" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/level/helium 15 + hsetprop ${scobj_hpath}/level/helium simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/level/helium simulated true + } + + hfactory ${scobj_hpath}/level/nick plain user text + hsetprop ${scobj_hpath}/level/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB5.L1:LVL:NICK} + hsetprop ${scobj_hpath}/level/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/level/nick control true + hsetprop ${scobj_hpath}/level/nick data true + hsetprop ${scobj_hpath}/level/nick mutable true + hsetprop ${scobj_hpath}/level/nick nxsave true + hsetprop ${scobj_hpath}/level/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/level/nick klass "parameter" + hsetprop ${scobj_hpath}/level/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/level/nick type "part" + hsetprop ${scobj_hpath}/level/nick nxalias "${name}_level_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/level/nick 15 + hsetprop ${scobj_hpath}/level/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/level/nick simulated true + } + + hfactory ${scobj_hpath}/level/nitrogen plain user float + hsetprop ${scobj_hpath}/level/nitrogen read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB5.L1:LVL:SIG:NIT:LEV} + hsetprop ${scobj_hpath}/level/nitrogen rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/level/nitrogen control true + hsetprop ${scobj_hpath}/level/nitrogen data true + hsetprop ${scobj_hpath}/level/nitrogen mutable true + hsetprop ${scobj_hpath}/level/nitrogen nxsave true + hsetprop ${scobj_hpath}/level/nitrogen permlink data_set "T[format "%02d" ${id}]N2" + hsetprop ${scobj_hpath}/level/nitrogen @description "T[format "%02d" ${id}]N2" + hsetprop ${scobj_hpath}/level/nitrogen oldval 0.0 + hsetprop ${scobj_hpath}/level/nitrogen klass "parameter" + hsetprop ${scobj_hpath}/level/nitrogen sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/level/nitrogen type "part" + hsetprop ${scobj_hpath}/level/nitrogen nxalias "${name}_level_nitrogen" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/level/nitrogen 15 + hsetprop ${scobj_hpath}/level/nitrogen simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/level/nitrogen simulated true + } + hsetprop ${scobj_hpath}/level data "true" + hsetprop ${scobj_hpath}/level klass "@none" + hsetprop ${scobj_hpath}/level type "part" + } + + if {[string equal -nocase [string index ${cards} 4] P]} { + hfactory ${scobj_hpath}/pres5 plain spy none + + if {[string equal -nocase [string index ${cards} 3] V] && [string equal -nocase [string index ${assoc} 4] 4]} { + hfactory ${scobj_hpath}/pres5/auto plain user int + hsetprop ${scobj_hpath}/pres5/auto read ${ns}::getValue ${scobj_hpath} rdOnOff {READ:DEV:DB5.P1:PRES:LOOP:FAUT} + hsetprop ${scobj_hpath}/pres5/auto rdOnOff ${ns}::rdOnOff ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/auto write ${ns}::wrOnOff ${scobj_hpath} noResponse {SET:DEV:DB5.P1:PRES:LOOP:FAUT:} + hsetprop ${scobj_hpath}/pres5/auto noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/auto check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/auto control true + hsetprop ${scobj_hpath}/pres5/auto data true + hsetprop ${scobj_hpath}/pres5/auto mutable true + hsetprop ${scobj_hpath}/pres5/auto nxsave true + hsetprop ${scobj_hpath}/pres5/auto values 0,1 + hsetprop ${scobj_hpath}/pres5/auto oldval 0 + hsetprop ${scobj_hpath}/pres5/auto klass "parameter" + hsetprop ${scobj_hpath}/pres5/auto sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres5/auto type "part" + hsetprop ${scobj_hpath}/pres5/auto nxalias "${name}_pres5_auto" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres5/auto 5 + ${sct_controller} write ${scobj_hpath}/pres5/auto + hsetprop ${scobj_hpath}/pres5/auto simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres5/auto simulated true + } + } + + if {[string equal -nocase [string index ${cards} 3] V] && [string equal -nocase [string index ${assoc} 4] 4]} { + hfactory ${scobj_hpath}/pres5/enab plain user int + hsetprop ${scobj_hpath}/pres5/enab read ${ns}::getValue ${scobj_hpath} rdOnOff {READ:DEV:DB5.P1:PRES:LOOP:ENAB} + hsetprop ${scobj_hpath}/pres5/enab rdOnOff ${ns}::rdOnOff ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/enab write ${ns}::wrOnOff ${scobj_hpath} noResponse {SET:DEV:DB5.P1:PRES:LOOP:ENAB:} + hsetprop ${scobj_hpath}/pres5/enab noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/enab check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/enab control true + hsetprop ${scobj_hpath}/pres5/enab data true + hsetprop ${scobj_hpath}/pres5/enab mutable true + hsetprop ${scobj_hpath}/pres5/enab nxsave true + hsetprop ${scobj_hpath}/pres5/enab values 0,1 + hsetprop ${scobj_hpath}/pres5/enab oldval 0 + hsetprop ${scobj_hpath}/pres5/enab klass "parameter" + hsetprop ${scobj_hpath}/pres5/enab sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres5/enab type "part" + hsetprop ${scobj_hpath}/pres5/enab nxalias "${name}_pres5_enab" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres5/enab 5 + ${sct_controller} write ${scobj_hpath}/pres5/enab + hsetprop ${scobj_hpath}/pres5/enab simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres5/enab simulated true + } + } + + hfactory ${scobj_hpath}/pres5/fset plain user float + hsetprop ${scobj_hpath}/pres5/fset read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB5.P1:PRES:LOOP:FSET} + hsetprop ${scobj_hpath}/pres5/fset rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/fset write ${ns}::setValue ${scobj_hpath} noResponse {SET:DEV:DB5.P1:PRES:LOOP:FSET:} + hsetprop ${scobj_hpath}/pres5/fset noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/fset check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/fset control true + hsetprop ${scobj_hpath}/pres5/fset data true + hsetprop ${scobj_hpath}/pres5/fset mutable true + hsetprop ${scobj_hpath}/pres5/fset nxsave true + hsetprop ${scobj_hpath}/pres5/fset lowerlimit 0 + hsetprop ${scobj_hpath}/pres5/fset upperlimit 100 + hsetprop ${scobj_hpath}/pres5/fset oldval 0.0 + hsetprop ${scobj_hpath}/pres5/fset klass "parameter" + hsetprop ${scobj_hpath}/pres5/fset sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres5/fset type "part" + hsetprop ${scobj_hpath}/pres5/fset nxalias "${name}_pres5_fset" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres5/fset 5 + ${sct_controller} write ${scobj_hpath}/pres5/fset + hsetprop ${scobj_hpath}/pres5/fset simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres5/fset simulated true + } + + hfactory ${scobj_hpath}/pres5/nick plain user text + hsetprop ${scobj_hpath}/pres5/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB5.P1:PRES:NICK} + hsetprop ${scobj_hpath}/pres5/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/nick control true + hsetprop ${scobj_hpath}/pres5/nick data true + hsetprop ${scobj_hpath}/pres5/nick mutable true + hsetprop ${scobj_hpath}/pres5/nick nxsave true + hsetprop ${scobj_hpath}/pres5/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/pres5/nick klass "parameter" + hsetprop ${scobj_hpath}/pres5/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres5/nick type "part" + hsetprop ${scobj_hpath}/pres5/nick nxalias "${name}_pres5_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres5/nick 15 + hsetprop ${scobj_hpath}/pres5/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres5/nick simulated true + } + + hfactory ${scobj_hpath}/pres5/sensor plain user float + hsetprop ${scobj_hpath}/pres5/sensor read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB5.P1:PRES:SIG:PRES} + hsetprop ${scobj_hpath}/pres5/sensor rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/sensor control true + hsetprop ${scobj_hpath}/pres5/sensor data true + hsetprop ${scobj_hpath}/pres5/sensor mutable true + hsetprop ${scobj_hpath}/pres5/sensor nxsave true + hsetprop ${scobj_hpath}/pres5/sensor units mB + hsetprop ${scobj_hpath}/pres5/sensor permlink data_set "P[format "%02d" ${id}]PS05" + hsetprop ${scobj_hpath}/pres5/sensor @description "P[format "%02d" ${id}]PS05" + hsetprop ${scobj_hpath}/pres5/sensor oldval 0.0 + hsetprop ${scobj_hpath}/pres5/sensor klass "parameter" + hsetprop ${scobj_hpath}/pres5/sensor sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres5/sensor type "part" + hsetprop ${scobj_hpath}/pres5/sensor nxalias "${name}_pres5_sensor" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres5/sensor 1 + hsetprop ${scobj_hpath}/pres5/sensor simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres5/sensor simulated true + } + + if {[string equal -nocase [string index ${cards} 3] V] && [string equal -nocase [string index ${assoc} 4] 4]} { + hfactory ${scobj_hpath}/pres5/setpoint plain user float + hsetprop ${scobj_hpath}/pres5/setpoint read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB5.P1:PRES:LOOP:TSET} + hsetprop ${scobj_hpath}/pres5/setpoint rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/setpoint write ${ns}::setPoint ${scobj_hpath} noResponse {SET:DEV:DB8.P1:PRES:LOOP:TSET:} + hsetprop ${scobj_hpath}/pres5/setpoint noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/setpoint check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/setpoint driving 0 + hsetprop ${scobj_hpath}/pres5/setpoint checklimits ${ns}::checklimits ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/setpoint checkstatus ${ns}::checkstatus ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/setpoint halt ${ns}::halt ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/setpoint driveable pres5/sensor + hsetprop ${scobj_hpath}/pres5/setpoint control true + hsetprop ${scobj_hpath}/pres5/setpoint data true + hsetprop ${scobj_hpath}/pres5/setpoint mutable true + hsetprop ${scobj_hpath}/pres5/setpoint nxsave true + hsetprop ${scobj_hpath}/pres5/setpoint lowerlimit 0 + hsetprop ${scobj_hpath}/pres5/setpoint upperlimit 333 + hsetprop ${scobj_hpath}/pres5/setpoint tolerance ${ptol} + hsetprop ${scobj_hpath}/pres5/setpoint units mB + hsetprop ${scobj_hpath}/pres5/setpoint permlink data_set "P[format "%02d" ${id}]PSP05" + hsetprop ${scobj_hpath}/pres5/setpoint @description "P[format "%02d" ${id}]PSP05" + hsetprop ${scobj_hpath}/pres5/setpoint oldval 0.0 + hsetprop ${scobj_hpath}/pres5/setpoint klass "parameter" + hsetprop ${scobj_hpath}/pres5/setpoint sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres5/setpoint settle_time "15" + hsetprop ${scobj_hpath}/pres5/setpoint type "drivable" + hsetprop ${scobj_hpath}/pres5/setpoint nxalias "${name}_pres5_setpoint" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres5/setpoint 5 + ${sct_controller} write ${scobj_hpath}/pres5/setpoint + hsetprop ${scobj_hpath}/pres5/setpoint simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres5/setpoint simulated true + } + } + + if {[string equal -nocase [string index ${cards} 3] V] && [string equal -nocase [string index ${assoc} 4] 4]} { + hfactory ${scobj_hpath}/pres5/valve plain user float + hsetprop ${scobj_hpath}/pres5/valve read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB4.G1:AUX:SIG:PERC} + hsetprop ${scobj_hpath}/pres5/valve rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/pres5/valve control true + hsetprop ${scobj_hpath}/pres5/valve data true + hsetprop ${scobj_hpath}/pres5/valve mutable true + hsetprop ${scobj_hpath}/pres5/valve nxsave true + hsetprop ${scobj_hpath}/pres5/valve oldval 0.0 + hsetprop ${scobj_hpath}/pres5/valve klass "parameter" + hsetprop ${scobj_hpath}/pres5/valve sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres5/valve type "part" + hsetprop ${scobj_hpath}/pres5/valve nxalias "${name}_pres5_valve" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres5/valve 5 + hsetprop ${scobj_hpath}/pres5/valve simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres5/valve simulated true + } + } + hsetprop ${scobj_hpath}/pres5 data "true" + hsetprop ${scobj_hpath}/pres5 klass "@none" + hsetprop ${scobj_hpath}/pres5 type "part" + if {[string equal -nocase [string index ${cards} 3] V] && [string equal -nocase [string index ${assoc} 4] 4]} { + ansto_makesctdrive ${name}_pres5_setpoint ${scobj_hpath}/pres5/setpoint ${scobj_hpath}/pres5/sensor ${sct_controller} + } + } + + if {[string equal -nocase [string index ${cards} 7] P]} { + hfactory ${scobj_hpath}/pres8 plain spy none + + if {[string equal -nocase [string index ${cards} 3] V] && [string equal -nocase [string index ${assoc} 7] 4]} { + hfactory ${scobj_hpath}/pres8/auto plain user int + hsetprop ${scobj_hpath}/pres8/auto read ${ns}::getValue ${scobj_hpath} rdOnOff {READ:DEV:DB8.P1:PRES:LOOP:FAUT} + hsetprop ${scobj_hpath}/pres8/auto rdOnOff ${ns}::rdOnOff ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/auto write ${ns}::wrOnOff ${scobj_hpath} noResponse {SET:DEV:DB8.P1:PRES:LOOP:FAUT:} + hsetprop ${scobj_hpath}/pres8/auto noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/auto check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/auto control true + hsetprop ${scobj_hpath}/pres8/auto data true + hsetprop ${scobj_hpath}/pres8/auto mutable true + hsetprop ${scobj_hpath}/pres8/auto nxsave true + hsetprop ${scobj_hpath}/pres8/auto values 0,1 + hsetprop ${scobj_hpath}/pres8/auto oldval 0 + hsetprop ${scobj_hpath}/pres8/auto klass "parameter" + hsetprop ${scobj_hpath}/pres8/auto sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres8/auto type "part" + hsetprop ${scobj_hpath}/pres8/auto nxalias "${name}_pres8_auto" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres8/auto 5 + ${sct_controller} write ${scobj_hpath}/pres8/auto + hsetprop ${scobj_hpath}/pres8/auto simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres8/auto simulated true + } + } + + if {[string equal -nocase [string index ${cards} 3] V] && [string equal -nocase [string index ${assoc} 7] 4]} { + hfactory ${scobj_hpath}/pres8/enab plain user int + hsetprop ${scobj_hpath}/pres8/enab read ${ns}::getValue ${scobj_hpath} rdOnOff {READ:DEV:DB8.P1:PRES:LOOP:ENAB} + hsetprop ${scobj_hpath}/pres8/enab rdOnOff ${ns}::rdOnOff ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/enab write ${ns}::wrOnOff ${scobj_hpath} noResponse {SET:DEV:DB8.P1:PRES:LOOP:ENAB:} + hsetprop ${scobj_hpath}/pres8/enab noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/enab check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/enab control true + hsetprop ${scobj_hpath}/pres8/enab data true + hsetprop ${scobj_hpath}/pres8/enab mutable true + hsetprop ${scobj_hpath}/pres8/enab nxsave true + hsetprop ${scobj_hpath}/pres8/enab values 0,1 + hsetprop ${scobj_hpath}/pres8/enab oldval 0 + hsetprop ${scobj_hpath}/pres8/enab klass "parameter" + hsetprop ${scobj_hpath}/pres8/enab sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres8/enab type "part" + hsetprop ${scobj_hpath}/pres8/enab nxalias "${name}_pres8_enab" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres8/enab 5 + ${sct_controller} write ${scobj_hpath}/pres8/enab + hsetprop ${scobj_hpath}/pres8/enab simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres8/enab simulated true + } + } + + hfactory ${scobj_hpath}/pres8/fset plain user float + hsetprop ${scobj_hpath}/pres8/fset read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB8.P1:PRES:LOOP:FSET} + hsetprop ${scobj_hpath}/pres8/fset rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/fset write ${ns}::setValue ${scobj_hpath} noResponse {SET:DEV:DB8.P1:PRES:LOOP:FSET:} + hsetprop ${scobj_hpath}/pres8/fset noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/fset check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/fset control true + hsetprop ${scobj_hpath}/pres8/fset data true + hsetprop ${scobj_hpath}/pres8/fset mutable true + hsetprop ${scobj_hpath}/pres8/fset nxsave true + hsetprop ${scobj_hpath}/pres8/fset lowerlimit 0 + hsetprop ${scobj_hpath}/pres8/fset upperlimit 100 + hsetprop ${scobj_hpath}/pres8/fset oldval 0.0 + hsetprop ${scobj_hpath}/pres8/fset klass "parameter" + hsetprop ${scobj_hpath}/pres8/fset sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres8/fset type "part" + hsetprop ${scobj_hpath}/pres8/fset nxalias "${name}_pres8_fset" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres8/fset 5 + ${sct_controller} write ${scobj_hpath}/pres8/fset + hsetprop ${scobj_hpath}/pres8/fset simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres8/fset simulated true + } + + hfactory ${scobj_hpath}/pres8/nick plain user text + hsetprop ${scobj_hpath}/pres8/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB8.P1:PRES:NICK} + hsetprop ${scobj_hpath}/pres8/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/nick control true + hsetprop ${scobj_hpath}/pres8/nick data true + hsetprop ${scobj_hpath}/pres8/nick mutable true + hsetprop ${scobj_hpath}/pres8/nick nxsave true + hsetprop ${scobj_hpath}/pres8/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/pres8/nick klass "parameter" + hsetprop ${scobj_hpath}/pres8/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres8/nick type "part" + hsetprop ${scobj_hpath}/pres8/nick nxalias "${name}_pres8_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres8/nick 15 + hsetprop ${scobj_hpath}/pres8/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres8/nick simulated true + } + + hfactory ${scobj_hpath}/pres8/sensor plain user float + hsetprop ${scobj_hpath}/pres8/sensor read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB8.P1:PRES:SIG:PRES} + hsetprop ${scobj_hpath}/pres8/sensor rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/sensor control true + hsetprop ${scobj_hpath}/pres8/sensor data true + hsetprop ${scobj_hpath}/pres8/sensor mutable true + hsetprop ${scobj_hpath}/pres8/sensor nxsave true + hsetprop ${scobj_hpath}/pres8/sensor units mB + hsetprop ${scobj_hpath}/pres8/sensor permlink data_set "P[format "%02d" ${id}]PS08" + hsetprop ${scobj_hpath}/pres8/sensor @description "P[format "%02d" ${id}]PS08" + hsetprop ${scobj_hpath}/pres8/sensor oldval 0.0 + hsetprop ${scobj_hpath}/pres8/sensor klass "parameter" + hsetprop ${scobj_hpath}/pres8/sensor sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres8/sensor type "part" + hsetprop ${scobj_hpath}/pres8/sensor nxalias "${name}_pres8_sensor" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres8/sensor 1 + hsetprop ${scobj_hpath}/pres8/sensor simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres8/sensor simulated true + } + + if {[string equal -nocase [string index ${cards} 3] V] && [string equal -nocase [string index ${assoc} 7] 4]} { + hfactory ${scobj_hpath}/pres8/setpoint plain user float + hsetprop ${scobj_hpath}/pres8/setpoint read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB8.P1:PRES:LOOP:TSET} + hsetprop ${scobj_hpath}/pres8/setpoint rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/setpoint write ${ns}::setPoint ${scobj_hpath} noResponse {SET:DEV:DB8.P1:PRES:LOOP:TSET:} + hsetprop ${scobj_hpath}/pres8/setpoint noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/setpoint check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/setpoint driving 0 + hsetprop ${scobj_hpath}/pres8/setpoint checklimits ${ns}::checklimits ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/setpoint checkstatus ${ns}::checkstatus ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/setpoint halt ${ns}::halt ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/setpoint driveable pres8/sensor + hsetprop ${scobj_hpath}/pres8/setpoint control true + hsetprop ${scobj_hpath}/pres8/setpoint data true + hsetprop ${scobj_hpath}/pres8/setpoint mutable true + hsetprop ${scobj_hpath}/pres8/setpoint nxsave true + hsetprop ${scobj_hpath}/pres8/setpoint lowerlimit 0 + hsetprop ${scobj_hpath}/pres8/setpoint upperlimit 333 + hsetprop ${scobj_hpath}/pres8/setpoint tolerance ${ptol} + hsetprop ${scobj_hpath}/pres8/setpoint units mB + hsetprop ${scobj_hpath}/pres8/setpoint permlink data_set "P[format "%02d" ${id}]PSP08" + hsetprop ${scobj_hpath}/pres8/setpoint @description "P[format "%02d" ${id}]PSP08" + hsetprop ${scobj_hpath}/pres8/setpoint oldval 0.0 + hsetprop ${scobj_hpath}/pres8/setpoint klass "parameter" + hsetprop ${scobj_hpath}/pres8/setpoint sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres8/setpoint settle_time "15" + hsetprop ${scobj_hpath}/pres8/setpoint type "drivable" + hsetprop ${scobj_hpath}/pres8/setpoint nxalias "${name}_pres8_setpoint" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres8/setpoint 5 + ${sct_controller} write ${scobj_hpath}/pres8/setpoint + hsetprop ${scobj_hpath}/pres8/setpoint simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres8/setpoint simulated true + } + } + + if {[string equal -nocase [string index ${cards} 3] V] && [string equal -nocase [string index ${assoc} 7] 4]} { + hfactory ${scobj_hpath}/pres8/valve plain user float + hsetprop ${scobj_hpath}/pres8/valve read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB4.G1:AUX:SIG:PERC} + hsetprop ${scobj_hpath}/pres8/valve rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/pres8/valve control true + hsetprop ${scobj_hpath}/pres8/valve data true + hsetprop ${scobj_hpath}/pres8/valve mutable true + hsetprop ${scobj_hpath}/pres8/valve nxsave true + hsetprop ${scobj_hpath}/pres8/valve oldval 0.0 + hsetprop ${scobj_hpath}/pres8/valve klass "parameter" + hsetprop ${scobj_hpath}/pres8/valve sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/pres8/valve type "part" + hsetprop ${scobj_hpath}/pres8/valve nxalias "${name}_pres8_valve" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/pres8/valve 5 + hsetprop ${scobj_hpath}/pres8/valve simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/pres8/valve simulated true + } + } + hsetprop ${scobj_hpath}/pres8 data "true" + hsetprop ${scobj_hpath}/pres8 klass "@none" + hsetprop ${scobj_hpath}/pres8 type "part" + if {[string equal -nocase [string index ${cards} 3] V] && [string equal -nocase [string index ${assoc} 7] 4]} { + ansto_makesctdrive ${name}_pres8_setpoint ${scobj_hpath}/pres8/setpoint ${scobj_hpath}/pres8/sensor ${sct_controller} + } + } + + hfactory ${scobj_hpath}/temp0 plain spy none + + hfactory ${scobj_hpath}/temp0/auto plain user int + hsetprop ${scobj_hpath}/temp0/auto read ${ns}::getValue ${scobj_hpath} rdOnOff {READ:DEV:MB1.T1:TEMP:LOOP:ENAB} + hsetprop ${scobj_hpath}/temp0/auto rdOnOff ${ns}::rdOnOff ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/auto write ${ns}::wrOnOff ${scobj_hpath} noResponse {SET:DEV:MB1.T1:TEMP:LOOP:ENAB:} + hsetprop ${scobj_hpath}/temp0/auto noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/auto check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/auto control true + hsetprop ${scobj_hpath}/temp0/auto data true + hsetprop ${scobj_hpath}/temp0/auto mutable true + hsetprop ${scobj_hpath}/temp0/auto nxsave true + hsetprop ${scobj_hpath}/temp0/auto values 0,1 + hsetprop ${scobj_hpath}/temp0/auto oldval 0 + hsetprop ${scobj_hpath}/temp0/auto klass "parameter" + hsetprop ${scobj_hpath}/temp0/auto sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp0/auto type "part" + hsetprop ${scobj_hpath}/temp0/auto nxalias "${name}_temp0_auto" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp0/auto 5 + ${sct_controller} write ${scobj_hpath}/temp0/auto + hsetprop ${scobj_hpath}/temp0/auto simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp0/auto simulated true + } + + hfactory ${scobj_hpath}/temp0/nick plain user text + hsetprop ${scobj_hpath}/temp0/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:MB1.T1:TEMP:NICK} + hsetprop ${scobj_hpath}/temp0/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/nick control true + hsetprop ${scobj_hpath}/temp0/nick data true + hsetprop ${scobj_hpath}/temp0/nick mutable true + hsetprop ${scobj_hpath}/temp0/nick nxsave true + hsetprop ${scobj_hpath}/temp0/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/temp0/nick klass "parameter" + hsetprop ${scobj_hpath}/temp0/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp0/nick type "part" + hsetprop ${scobj_hpath}/temp0/nick nxalias "${name}_temp0_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp0/nick 15 + hsetprop ${scobj_hpath}/temp0/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp0/nick simulated true + } + + hfactory ${scobj_hpath}/temp0/sensor plain user float + hsetprop ${scobj_hpath}/temp0/sensor read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:MB1.T1:TEMP:SIG:TEMP} + hsetprop ${scobj_hpath}/temp0/sensor rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/sensor control true + hsetprop ${scobj_hpath}/temp0/sensor data true + hsetprop ${scobj_hpath}/temp0/sensor mutable true + hsetprop ${scobj_hpath}/temp0/sensor nxsave true + hsetprop ${scobj_hpath}/temp0/sensor permlink data_set "T[format "%02d" ${id}]S00" + hsetprop ${scobj_hpath}/temp0/sensor @description "T[format "%02d" ${id}]S00" + hsetprop ${scobj_hpath}/temp0/sensor oldval 0.0 + hsetprop ${scobj_hpath}/temp0/sensor klass "parameter" + hsetprop ${scobj_hpath}/temp0/sensor sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp0/sensor type "part" + hsetprop ${scobj_hpath}/temp0/sensor nxalias "${name}_temp0_sensor" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp0/sensor 1 + hsetprop ${scobj_hpath}/temp0/sensor simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp0/sensor simulated true + } + + hfactory ${scobj_hpath}/temp0/setpoint plain user float + hsetprop ${scobj_hpath}/temp0/setpoint read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:MB1.T1:TEMP:LOOP:TSET} + hsetprop ${scobj_hpath}/temp0/setpoint rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/setpoint write ${ns}::setPoint ${scobj_hpath} noResponse {SET:DEV:MB1.T1:TEMP:LOOP:TSET:} + hsetprop ${scobj_hpath}/temp0/setpoint noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/setpoint check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/setpoint driving 0 + hsetprop ${scobj_hpath}/temp0/setpoint checklimits ${ns}::checklimits ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/setpoint checkstatus ${ns}::checkstatus ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/setpoint halt ${ns}::halt ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/setpoint driveable temp0/sensor + hsetprop ${scobj_hpath}/temp0/setpoint control true + hsetprop ${scobj_hpath}/temp0/setpoint data true + hsetprop ${scobj_hpath}/temp0/setpoint mutable true + hsetprop ${scobj_hpath}/temp0/setpoint nxsave true + hsetprop ${scobj_hpath}/temp0/setpoint lowerlimit 0 + hsetprop ${scobj_hpath}/temp0/setpoint upperlimit 333 + hsetprop ${scobj_hpath}/temp0/setpoint tolerance ${ttol} + hsetprop ${scobj_hpath}/temp0/setpoint permlink data_set "T[format "%02d" ${id}]SP00" + hsetprop ${scobj_hpath}/temp0/setpoint @description "T[format "%02d" ${id}]SP00" + hsetprop ${scobj_hpath}/temp0/setpoint oldval 0.0 + hsetprop ${scobj_hpath}/temp0/setpoint klass "parameter" + hsetprop ${scobj_hpath}/temp0/setpoint sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp0/setpoint settle_time "15" + hsetprop ${scobj_hpath}/temp0/setpoint type "drivable" + hsetprop ${scobj_hpath}/temp0/setpoint nxalias "${name}_temp0_setpoint" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp0/setpoint 5 + ${sct_controller} write ${scobj_hpath}/temp0/setpoint + hsetprop ${scobj_hpath}/temp0/setpoint simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp0/setpoint simulated true + } + hsetprop ${scobj_hpath}/temp0 data "true" + hsetprop ${scobj_hpath}/temp0 klass "@none" + hsetprop ${scobj_hpath}/temp0 type "part" + + hfactory ${scobj_hpath}/temp0/heater plain spy none + + hfactory ${scobj_hpath}/temp0/heater/hset plain user float + hsetprop ${scobj_hpath}/temp0/heater/hset read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:MB1.T1:TEMP:LOOP:HSET} + hsetprop ${scobj_hpath}/temp0/heater/hset rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/heater/hset write ${ns}::setValue ${scobj_hpath} noResponse {SET:DEV:MB1.T1:TEMP:LOOP:HSET:} + hsetprop ${scobj_hpath}/temp0/heater/hset noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/heater/hset check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/heater/hset control true + hsetprop ${scobj_hpath}/temp0/heater/hset data true + hsetprop ${scobj_hpath}/temp0/heater/hset mutable true + hsetprop ${scobj_hpath}/temp0/heater/hset nxsave true + hsetprop ${scobj_hpath}/temp0/heater/hset lowerlimit 0 + hsetprop ${scobj_hpath}/temp0/heater/hset upperlimit 100 + hsetprop ${scobj_hpath}/temp0/heater/hset oldval 0.0 + hsetprop ${scobj_hpath}/temp0/heater/hset klass "parameter" + hsetprop ${scobj_hpath}/temp0/heater/hset sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp0/heater/hset type "part" + hsetprop ${scobj_hpath}/temp0/heater/hset nxalias "${name}_temp0_heater_hset" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp0/heater/hset 5 + ${sct_controller} write ${scobj_hpath}/temp0/heater/hset + hsetprop ${scobj_hpath}/temp0/heater/hset simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp0/heater/hset simulated true + } + + hfactory ${scobj_hpath}/temp0/heater/perc plain user float + hsetprop ${scobj_hpath}/temp0/heater/perc read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:MB0.H1:HTR:SIG:PERC} + hsetprop ${scobj_hpath}/temp0/heater/perc rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/heater/perc control true + hsetprop ${scobj_hpath}/temp0/heater/perc data true + hsetprop ${scobj_hpath}/temp0/heater/perc mutable true + hsetprop ${scobj_hpath}/temp0/heater/perc nxsave true + hsetprop ${scobj_hpath}/temp0/heater/perc oldval 0.0 + hsetprop ${scobj_hpath}/temp0/heater/perc klass "parameter" + hsetprop ${scobj_hpath}/temp0/heater/perc sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp0/heater/perc type "part" + hsetprop ${scobj_hpath}/temp0/heater/perc nxalias "${name}_temp0_heater_perc" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp0/heater/perc 5 + hsetprop ${scobj_hpath}/temp0/heater/perc simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp0/heater/perc simulated true + } + + hfactory ${scobj_hpath}/temp0/heater/power plain user float + hsetprop ${scobj_hpath}/temp0/heater/power read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:MB0.H1:HTR:SIG:POWR} + hsetprop ${scobj_hpath}/temp0/heater/power rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp0/heater/power control true + hsetprop ${scobj_hpath}/temp0/heater/power data true + hsetprop ${scobj_hpath}/temp0/heater/power mutable true + hsetprop ${scobj_hpath}/temp0/heater/power nxsave true + hsetprop ${scobj_hpath}/temp0/heater/power oldval 0.0 + hsetprop ${scobj_hpath}/temp0/heater/power klass "parameter" + hsetprop ${scobj_hpath}/temp0/heater/power sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp0/heater/power type "part" + hsetprop ${scobj_hpath}/temp0/heater/power nxalias "${name}_temp0_heater_power" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp0/heater/power 5 + hsetprop ${scobj_hpath}/temp0/heater/power simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp0/heater/power simulated true + } + hsetprop ${scobj_hpath}/temp0/heater data "true" + hsetprop ${scobj_hpath}/temp0/heater klass "@none" + hsetprop ${scobj_hpath}/temp0/heater type "part" + ansto_makesctdrive ${name}_temp0_setpoint ${scobj_hpath}/temp0/setpoint ${scobj_hpath}/temp0/sensor ${sct_controller} + + if {[string equal -nocase [string index ${cards} 0] T]} { + hfactory ${scobj_hpath}/temp1 plain spy none + + hfactory ${scobj_hpath}/temp1/nick plain user text + hsetprop ${scobj_hpath}/temp1/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB1.T1:TEMP:NICK} + hsetprop ${scobj_hpath}/temp1/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/temp1/nick control true + hsetprop ${scobj_hpath}/temp1/nick data true + hsetprop ${scobj_hpath}/temp1/nick mutable true + hsetprop ${scobj_hpath}/temp1/nick nxsave true + hsetprop ${scobj_hpath}/temp1/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/temp1/nick klass "parameter" + hsetprop ${scobj_hpath}/temp1/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp1/nick type "part" + hsetprop ${scobj_hpath}/temp1/nick nxalias "${name}_temp1_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp1/nick 15 + hsetprop ${scobj_hpath}/temp1/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp1/nick simulated true + } + + hfactory ${scobj_hpath}/temp1/sensor plain user float + hsetprop ${scobj_hpath}/temp1/sensor read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB1.T1:TEMP:SIG:TEMP} + hsetprop ${scobj_hpath}/temp1/sensor rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp1/sensor control true + hsetprop ${scobj_hpath}/temp1/sensor data true + hsetprop ${scobj_hpath}/temp1/sensor mutable true + hsetprop ${scobj_hpath}/temp1/sensor nxsave true + hsetprop ${scobj_hpath}/temp1/sensor permlink data_set "T[format "%02d" ${id}]S01" + hsetprop ${scobj_hpath}/temp1/sensor @description "T[format "%02d" ${id}]S01" + hsetprop ${scobj_hpath}/temp1/sensor oldval 0.0 + hsetprop ${scobj_hpath}/temp1/sensor klass "parameter" + hsetprop ${scobj_hpath}/temp1/sensor sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp1/sensor type "part" + hsetprop ${scobj_hpath}/temp1/sensor nxalias "${name}_temp1_sensor" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp1/sensor 1 + hsetprop ${scobj_hpath}/temp1/sensor simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp1/sensor simulated true + } + hsetprop ${scobj_hpath}/temp1 data "true" + hsetprop ${scobj_hpath}/temp1 klass "@none" + hsetprop ${scobj_hpath}/temp1 type "part" + } + + if {[string equal -nocase [string index ${cards} 1] T]} { + hfactory ${scobj_hpath}/temp2 plain spy none + + hfactory ${scobj_hpath}/temp2/nick plain user text + hsetprop ${scobj_hpath}/temp2/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB2.T1:TEMP:NICK} + hsetprop ${scobj_hpath}/temp2/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/temp2/nick control true + hsetprop ${scobj_hpath}/temp2/nick data true + hsetprop ${scobj_hpath}/temp2/nick mutable true + hsetprop ${scobj_hpath}/temp2/nick nxsave true + hsetprop ${scobj_hpath}/temp2/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/temp2/nick klass "parameter" + hsetprop ${scobj_hpath}/temp2/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp2/nick type "part" + hsetprop ${scobj_hpath}/temp2/nick nxalias "${name}_temp2_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp2/nick 15 + hsetprop ${scobj_hpath}/temp2/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp2/nick simulated true + } + + hfactory ${scobj_hpath}/temp2/sensor plain user float + hsetprop ${scobj_hpath}/temp2/sensor read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB2.T1:TEMP:SIG:TEMP} + hsetprop ${scobj_hpath}/temp2/sensor rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp2/sensor control true + hsetprop ${scobj_hpath}/temp2/sensor data true + hsetprop ${scobj_hpath}/temp2/sensor mutable true + hsetprop ${scobj_hpath}/temp2/sensor nxsave true + hsetprop ${scobj_hpath}/temp2/sensor permlink data_set "T[format "%02d" ${id}]S02" + hsetprop ${scobj_hpath}/temp2/sensor @description "T[format "%02d" ${id}]S02" + hsetprop ${scobj_hpath}/temp2/sensor oldval 0.0 + hsetprop ${scobj_hpath}/temp2/sensor klass "parameter" + hsetprop ${scobj_hpath}/temp2/sensor sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp2/sensor type "part" + hsetprop ${scobj_hpath}/temp2/sensor nxalias "${name}_temp2_sensor" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp2/sensor 1 + hsetprop ${scobj_hpath}/temp2/sensor simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp2/sensor simulated true + } + hsetprop ${scobj_hpath}/temp2 data "true" + hsetprop ${scobj_hpath}/temp2 klass "@none" + hsetprop ${scobj_hpath}/temp2 type "part" + } + + if {[string equal -nocase [string index ${cards} 2] T]} { + hfactory ${scobj_hpath}/temp3 plain spy none + + hfactory ${scobj_hpath}/temp3/nick plain user text + hsetprop ${scobj_hpath}/temp3/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB3.T1:TEMP:NICK} + hsetprop ${scobj_hpath}/temp3/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/temp3/nick control true + hsetprop ${scobj_hpath}/temp3/nick data true + hsetprop ${scobj_hpath}/temp3/nick mutable true + hsetprop ${scobj_hpath}/temp3/nick nxsave true + hsetprop ${scobj_hpath}/temp3/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/temp3/nick klass "parameter" + hsetprop ${scobj_hpath}/temp3/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp3/nick type "part" + hsetprop ${scobj_hpath}/temp3/nick nxalias "${name}_temp3_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp3/nick 15 + hsetprop ${scobj_hpath}/temp3/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp3/nick simulated true + } + + hfactory ${scobj_hpath}/temp3/sensor plain user float + hsetprop ${scobj_hpath}/temp3/sensor read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB3.T1:TEMP:SIG:TEMP} + hsetprop ${scobj_hpath}/temp3/sensor rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp3/sensor control true + hsetprop ${scobj_hpath}/temp3/sensor data true + hsetprop ${scobj_hpath}/temp3/sensor mutable true + hsetprop ${scobj_hpath}/temp3/sensor nxsave true + hsetprop ${scobj_hpath}/temp3/sensor permlink data_set "T[format "%02d" ${id}]S03" + hsetprop ${scobj_hpath}/temp3/sensor @description "T[format "%02d" ${id}]S03" + hsetprop ${scobj_hpath}/temp3/sensor oldval 0.0 + hsetprop ${scobj_hpath}/temp3/sensor klass "parameter" + hsetprop ${scobj_hpath}/temp3/sensor sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp3/sensor type "part" + hsetprop ${scobj_hpath}/temp3/sensor nxalias "${name}_temp3_sensor" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp3/sensor 1 + hsetprop ${scobj_hpath}/temp3/sensor simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp3/sensor simulated true + } + hsetprop ${scobj_hpath}/temp3 data "true" + hsetprop ${scobj_hpath}/temp3 klass "@none" + hsetprop ${scobj_hpath}/temp3 type "part" + } + + if {[string equal -nocase [string index ${cards} 3] T]} { + hfactory ${scobj_hpath}/temp4 plain spy none + + hfactory ${scobj_hpath}/temp4/nick plain user text + hsetprop ${scobj_hpath}/temp4/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB4.T1:TEMP:NICK} + hsetprop ${scobj_hpath}/temp4/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/temp4/nick control true + hsetprop ${scobj_hpath}/temp4/nick data true + hsetprop ${scobj_hpath}/temp4/nick mutable true + hsetprop ${scobj_hpath}/temp4/nick nxsave true + hsetprop ${scobj_hpath}/temp4/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/temp4/nick klass "parameter" + hsetprop ${scobj_hpath}/temp4/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp4/nick type "part" + hsetprop ${scobj_hpath}/temp4/nick nxalias "${name}_temp4_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp4/nick 15 + hsetprop ${scobj_hpath}/temp4/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp4/nick simulated true + } + + hfactory ${scobj_hpath}/temp4/sensor plain user float + hsetprop ${scobj_hpath}/temp4/sensor read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB4.T1:TEMP:SIG:TEMP} + hsetprop ${scobj_hpath}/temp4/sensor rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp4/sensor control true + hsetprop ${scobj_hpath}/temp4/sensor data true + hsetprop ${scobj_hpath}/temp4/sensor mutable true + hsetprop ${scobj_hpath}/temp4/sensor nxsave true + hsetprop ${scobj_hpath}/temp4/sensor permlink data_set "T[format "%02d" ${id}]S04" + hsetprop ${scobj_hpath}/temp4/sensor @description "T[format "%02d" ${id}]S04" + hsetprop ${scobj_hpath}/temp4/sensor oldval 0.0 + hsetprop ${scobj_hpath}/temp4/sensor klass "parameter" + hsetprop ${scobj_hpath}/temp4/sensor sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp4/sensor type "part" + hsetprop ${scobj_hpath}/temp4/sensor nxalias "${name}_temp4_sensor" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp4/sensor 1 + hsetprop ${scobj_hpath}/temp4/sensor simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp4/sensor simulated true + } + hsetprop ${scobj_hpath}/temp4 data "true" + hsetprop ${scobj_hpath}/temp4 klass "@none" + hsetprop ${scobj_hpath}/temp4 type "part" + } + + if {[string equal -nocase [string index ${cards} 4] T]} { + hfactory ${scobj_hpath}/temp5 plain spy none + + hfactory ${scobj_hpath}/temp5/nick plain user text + hsetprop ${scobj_hpath}/temp5/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB5.T1:TEMP:NICK} + hsetprop ${scobj_hpath}/temp5/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/temp5/nick control true + hsetprop ${scobj_hpath}/temp5/nick data true + hsetprop ${scobj_hpath}/temp5/nick mutable true + hsetprop ${scobj_hpath}/temp5/nick nxsave true + hsetprop ${scobj_hpath}/temp5/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/temp5/nick klass "parameter" + hsetprop ${scobj_hpath}/temp5/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp5/nick type "part" + hsetprop ${scobj_hpath}/temp5/nick nxalias "${name}_temp5_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp5/nick 15 + hsetprop ${scobj_hpath}/temp5/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp5/nick simulated true + } + + hfactory ${scobj_hpath}/temp5/sensor plain user float + hsetprop ${scobj_hpath}/temp5/sensor read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB5.T1:TEMP:SIG:TEMP} + hsetprop ${scobj_hpath}/temp5/sensor rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp5/sensor control true + hsetprop ${scobj_hpath}/temp5/sensor data true + hsetprop ${scobj_hpath}/temp5/sensor mutable true + hsetprop ${scobj_hpath}/temp5/sensor nxsave true + hsetprop ${scobj_hpath}/temp5/sensor permlink data_set "T[format "%02d" ${id}]S05" + hsetprop ${scobj_hpath}/temp5/sensor @description "T[format "%02d" ${id}]S05" + hsetprop ${scobj_hpath}/temp5/sensor oldval 0.0 + hsetprop ${scobj_hpath}/temp5/sensor klass "parameter" + hsetprop ${scobj_hpath}/temp5/sensor sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp5/sensor type "part" + hsetprop ${scobj_hpath}/temp5/sensor nxalias "${name}_temp5_sensor" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp5/sensor 1 + hsetprop ${scobj_hpath}/temp5/sensor simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp5/sensor simulated true + } + hsetprop ${scobj_hpath}/temp5 data "true" + hsetprop ${scobj_hpath}/temp5 klass "@none" + hsetprop ${scobj_hpath}/temp5 type "part" + } + + if {[string equal -nocase [string index ${cards} 5] T]} { + hfactory ${scobj_hpath}/temp6 plain spy none + + if {[string equal -nocase [string index ${cards} 0] H] && [string equal -nocase [string index ${assoc} 5] 1]} { + hfactory ${scobj_hpath}/temp6/auto plain user int + hsetprop ${scobj_hpath}/temp6/auto read ${ns}::getValue ${scobj_hpath} rdOnOff {READ:DEV:DB6.T1:TEMP:LOOP:ENAB} + hsetprop ${scobj_hpath}/temp6/auto rdOnOff ${ns}::rdOnOff ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/auto write ${ns}::wrOnOff ${scobj_hpath} noResponse {SET:DEV:DB6.T1:TEMP:LOOP:ENAB:} + hsetprop ${scobj_hpath}/temp6/auto noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/auto check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/auto control true + hsetprop ${scobj_hpath}/temp6/auto data true + hsetprop ${scobj_hpath}/temp6/auto mutable true + hsetprop ${scobj_hpath}/temp6/auto nxsave true + hsetprop ${scobj_hpath}/temp6/auto values 0,1 + hsetprop ${scobj_hpath}/temp6/auto oldval 0 + hsetprop ${scobj_hpath}/temp6/auto klass "parameter" + hsetprop ${scobj_hpath}/temp6/auto sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp6/auto type "part" + hsetprop ${scobj_hpath}/temp6/auto nxalias "${name}_temp6_auto" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp6/auto 5 + ${sct_controller} write ${scobj_hpath}/temp6/auto + hsetprop ${scobj_hpath}/temp6/auto simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp6/auto simulated true + } + } + + hfactory ${scobj_hpath}/temp6/nick plain user text + hsetprop ${scobj_hpath}/temp6/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB6.T1:TEMP:NICK} + hsetprop ${scobj_hpath}/temp6/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/nick control true + hsetprop ${scobj_hpath}/temp6/nick data true + hsetprop ${scobj_hpath}/temp6/nick mutable true + hsetprop ${scobj_hpath}/temp6/nick nxsave true + hsetprop ${scobj_hpath}/temp6/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/temp6/nick klass "parameter" + hsetprop ${scobj_hpath}/temp6/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp6/nick type "part" + hsetprop ${scobj_hpath}/temp6/nick nxalias "${name}_temp6_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp6/nick 15 + hsetprop ${scobj_hpath}/temp6/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp6/nick simulated true + } + + hfactory ${scobj_hpath}/temp6/sensor plain user float + hsetprop ${scobj_hpath}/temp6/sensor read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB6.T1:TEMP:SIG:TEMP} + hsetprop ${scobj_hpath}/temp6/sensor rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/sensor control true + hsetprop ${scobj_hpath}/temp6/sensor data true + hsetprop ${scobj_hpath}/temp6/sensor mutable true + hsetprop ${scobj_hpath}/temp6/sensor nxsave true + hsetprop ${scobj_hpath}/temp6/sensor permlink data_set "T[format "%02d" ${id}]S06" + hsetprop ${scobj_hpath}/temp6/sensor @description "T[format "%02d" ${id}]S06" + hsetprop ${scobj_hpath}/temp6/sensor oldval 0.0 + hsetprop ${scobj_hpath}/temp6/sensor klass "parameter" + hsetprop ${scobj_hpath}/temp6/sensor sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp6/sensor type "part" + hsetprop ${scobj_hpath}/temp6/sensor nxalias "${name}_temp6_sensor" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp6/sensor 1 + hsetprop ${scobj_hpath}/temp6/sensor simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp6/sensor simulated true + } + + if {[string equal -nocase [string index ${cards} 0] H] && [string equal -nocase [string index ${assoc} 5] 1]} { + hfactory ${scobj_hpath}/temp6/setpoint plain user float + hsetprop ${scobj_hpath}/temp6/setpoint read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB6.T1:TEMP:LOOP:TSET} + hsetprop ${scobj_hpath}/temp6/setpoint rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/setpoint write ${ns}::setPoint ${scobj_hpath} noResponse {SET:DEV:DB6.T1:TEMP:LOOP:TSET:} + hsetprop ${scobj_hpath}/temp6/setpoint noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/setpoint check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/setpoint driving 0 + hsetprop ${scobj_hpath}/temp6/setpoint checklimits ${ns}::checklimits ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/setpoint checkstatus ${ns}::checkstatus ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/setpoint halt ${ns}::halt ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/setpoint driveable temp6/sensor + hsetprop ${scobj_hpath}/temp6/setpoint control true + hsetprop ${scobj_hpath}/temp6/setpoint data true + hsetprop ${scobj_hpath}/temp6/setpoint mutable true + hsetprop ${scobj_hpath}/temp6/setpoint nxsave true + hsetprop ${scobj_hpath}/temp6/setpoint lowerlimit 0 + hsetprop ${scobj_hpath}/temp6/setpoint upperlimit 333 + hsetprop ${scobj_hpath}/temp6/setpoint tolerance ${ttol} + hsetprop ${scobj_hpath}/temp6/setpoint permlink data_set "T[format "%02d" ${id}]SP06" + hsetprop ${scobj_hpath}/temp6/setpoint @description "T[format "%02d" ${id}]SP06" + hsetprop ${scobj_hpath}/temp6/setpoint oldval 0.0 + hsetprop ${scobj_hpath}/temp6/setpoint klass "parameter" + hsetprop ${scobj_hpath}/temp6/setpoint sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp6/setpoint settle_time "15" + hsetprop ${scobj_hpath}/temp6/setpoint type "drivable" + hsetprop ${scobj_hpath}/temp6/setpoint nxalias "${name}_temp6_setpoint" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp6/setpoint 5 + ${sct_controller} write ${scobj_hpath}/temp6/setpoint + hsetprop ${scobj_hpath}/temp6/setpoint simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp6/setpoint simulated true + } + } + hsetprop ${scobj_hpath}/temp6 data "true" + hsetprop ${scobj_hpath}/temp6 klass "@none" + hsetprop ${scobj_hpath}/temp6 type "part" + + if {[string equal -nocase [string index ${cards} 0] H] && [string equal -nocase [string index ${assoc} 5] 1]} { + hfactory ${scobj_hpath}/temp6/heater plain spy none + + hfactory ${scobj_hpath}/temp6/heater/hset plain user float + hsetprop ${scobj_hpath}/temp6/heater/hset read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB6.T1:TEMP:LOOP:HSET} + hsetprop ${scobj_hpath}/temp6/heater/hset rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/heater/hset write ${ns}::setValue ${scobj_hpath} noResponse {SET:DEV:DB6.T1:TEMP:LOOP:HSET:} + hsetprop ${scobj_hpath}/temp6/heater/hset noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/heater/hset check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/heater/hset control true + hsetprop ${scobj_hpath}/temp6/heater/hset data true + hsetprop ${scobj_hpath}/temp6/heater/hset mutable true + hsetprop ${scobj_hpath}/temp6/heater/hset nxsave true + hsetprop ${scobj_hpath}/temp6/heater/hset lowerlimit 0 + hsetprop ${scobj_hpath}/temp6/heater/hset upperlimit 100 + hsetprop ${scobj_hpath}/temp6/heater/hset oldval 0.0 + hsetprop ${scobj_hpath}/temp6/heater/hset klass "parameter" + hsetprop ${scobj_hpath}/temp6/heater/hset sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp6/heater/hset type "part" + hsetprop ${scobj_hpath}/temp6/heater/hset nxalias "${name}_temp6_heater_hset" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp6/heater/hset 5 + ${sct_controller} write ${scobj_hpath}/temp6/heater/hset + hsetprop ${scobj_hpath}/temp6/heater/hset simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp6/heater/hset simulated true + } + + hfactory ${scobj_hpath}/temp6/heater/perc plain user float + hsetprop ${scobj_hpath}/temp6/heater/perc read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB1.H1:HTR:SIG:PERC} + hsetprop ${scobj_hpath}/temp6/heater/perc rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/heater/perc control true + hsetprop ${scobj_hpath}/temp6/heater/perc data true + hsetprop ${scobj_hpath}/temp6/heater/perc mutable true + hsetprop ${scobj_hpath}/temp6/heater/perc nxsave true + hsetprop ${scobj_hpath}/temp6/heater/perc oldval 0.0 + hsetprop ${scobj_hpath}/temp6/heater/perc klass "parameter" + hsetprop ${scobj_hpath}/temp6/heater/perc sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp6/heater/perc type "part" + hsetprop ${scobj_hpath}/temp6/heater/perc nxalias "${name}_temp6_heater_perc" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp6/heater/perc 5 + hsetprop ${scobj_hpath}/temp6/heater/perc simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp6/heater/perc simulated true + } + + hfactory ${scobj_hpath}/temp6/heater/power plain user float + hsetprop ${scobj_hpath}/temp6/heater/power read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB1.H1:HTR:SIG:POWR} + hsetprop ${scobj_hpath}/temp6/heater/power rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp6/heater/power control true + hsetprop ${scobj_hpath}/temp6/heater/power data true + hsetprop ${scobj_hpath}/temp6/heater/power mutable true + hsetprop ${scobj_hpath}/temp6/heater/power nxsave true + hsetprop ${scobj_hpath}/temp6/heater/power oldval 0.0 + hsetprop ${scobj_hpath}/temp6/heater/power klass "parameter" + hsetprop ${scobj_hpath}/temp6/heater/power sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp6/heater/power type "part" + hsetprop ${scobj_hpath}/temp6/heater/power nxalias "${name}_temp6_heater_power" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp6/heater/power 5 + hsetprop ${scobj_hpath}/temp6/heater/power simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp6/heater/power simulated true + } + hsetprop ${scobj_hpath}/temp6/heater data "true" + hsetprop ${scobj_hpath}/temp6/heater klass "@none" + hsetprop ${scobj_hpath}/temp6/heater type "part" + } + if {[string equal -nocase [string index ${cards} 0] H] && [string equal -nocase [string index ${assoc} 5] 1]} { + ansto_makesctdrive ${name}_temp6_setpoint ${scobj_hpath}/temp6/setpoint ${scobj_hpath}/temp6/sensor ${sct_controller} + } + } + + if {[string equal -nocase [string index ${cards} 6] T]} { + hfactory ${scobj_hpath}/temp7 plain spy none + + if {[string equal -nocase [string index ${cards} 1] H] && [string equal -nocase [string index ${assoc} 6] 2]} { + hfactory ${scobj_hpath}/temp7/auto plain user int + hsetprop ${scobj_hpath}/temp7/auto read ${ns}::getValue ${scobj_hpath} rdOnOff {READ:DEV:DB7.T1:TEMP:LOOP:ENAB} + hsetprop ${scobj_hpath}/temp7/auto rdOnOff ${ns}::rdOnOff ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/auto write ${ns}::wrOnOff ${scobj_hpath} noResponse {SET:DEV:DB7.T1:TEMP:LOOP:ENAB:} + hsetprop ${scobj_hpath}/temp7/auto noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/auto check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/auto control true + hsetprop ${scobj_hpath}/temp7/auto data true + hsetprop ${scobj_hpath}/temp7/auto mutable true + hsetprop ${scobj_hpath}/temp7/auto nxsave true + hsetprop ${scobj_hpath}/temp7/auto values 0,1 + hsetprop ${scobj_hpath}/temp7/auto oldval 0 + hsetprop ${scobj_hpath}/temp7/auto klass "parameter" + hsetprop ${scobj_hpath}/temp7/auto sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp7/auto type "part" + hsetprop ${scobj_hpath}/temp7/auto nxalias "${name}_temp7_auto" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp7/auto 5 + ${sct_controller} write ${scobj_hpath}/temp7/auto + hsetprop ${scobj_hpath}/temp7/auto simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp7/auto simulated true + } + } + + hfactory ${scobj_hpath}/temp7/nick plain user text + hsetprop ${scobj_hpath}/temp7/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB7.T1:TEMP:NICK} + hsetprop ${scobj_hpath}/temp7/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/nick control true + hsetprop ${scobj_hpath}/temp7/nick data true + hsetprop ${scobj_hpath}/temp7/nick mutable true + hsetprop ${scobj_hpath}/temp7/nick nxsave true + hsetprop ${scobj_hpath}/temp7/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/temp7/nick klass "parameter" + hsetprop ${scobj_hpath}/temp7/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp7/nick type "part" + hsetprop ${scobj_hpath}/temp7/nick nxalias "${name}_temp7_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp7/nick 15 + hsetprop ${scobj_hpath}/temp7/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp7/nick simulated true + } + + hfactory ${scobj_hpath}/temp7/sensor plain user float + hsetprop ${scobj_hpath}/temp7/sensor read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB7.T1:TEMP:SIG:TEMP} + hsetprop ${scobj_hpath}/temp7/sensor rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/sensor control true + hsetprop ${scobj_hpath}/temp7/sensor data true + hsetprop ${scobj_hpath}/temp7/sensor mutable true + hsetprop ${scobj_hpath}/temp7/sensor nxsave true + hsetprop ${scobj_hpath}/temp7/sensor permlink data_set "T[format "%02d" ${id}]S07" + hsetprop ${scobj_hpath}/temp7/sensor @description "T[format "%02d" ${id}]S07" + hsetprop ${scobj_hpath}/temp7/sensor oldval 0.0 + hsetprop ${scobj_hpath}/temp7/sensor klass "parameter" + hsetprop ${scobj_hpath}/temp7/sensor sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp7/sensor type "part" + hsetprop ${scobj_hpath}/temp7/sensor nxalias "${name}_temp7_sensor" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp7/sensor 1 + hsetprop ${scobj_hpath}/temp7/sensor simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp7/sensor simulated true + } + + if {[string equal -nocase [string index ${cards} 1] H] && [string equal -nocase [string index ${assoc} 6] 2]} { + hfactory ${scobj_hpath}/temp7/setpoint plain user float + hsetprop ${scobj_hpath}/temp7/setpoint read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB7.T1:TEMP:LOOP:TSET} + hsetprop ${scobj_hpath}/temp7/setpoint rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/setpoint write ${ns}::setPoint ${scobj_hpath} noResponse {SET:DEV:DB7.T1:TEMP:LOOP:TSET:} + hsetprop ${scobj_hpath}/temp7/setpoint noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/setpoint check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/setpoint driving 0 + hsetprop ${scobj_hpath}/temp7/setpoint checklimits ${ns}::checklimits ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/setpoint checkstatus ${ns}::checkstatus ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/setpoint halt ${ns}::halt ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/setpoint driveable temp7/sensor + hsetprop ${scobj_hpath}/temp7/setpoint control true + hsetprop ${scobj_hpath}/temp7/setpoint data true + hsetprop ${scobj_hpath}/temp7/setpoint mutable true + hsetprop ${scobj_hpath}/temp7/setpoint nxsave true + hsetprop ${scobj_hpath}/temp7/setpoint lowerlimit 0 + hsetprop ${scobj_hpath}/temp7/setpoint upperlimit 333 + hsetprop ${scobj_hpath}/temp7/setpoint tolerance ${ttol} + hsetprop ${scobj_hpath}/temp7/setpoint permlink data_set "T[format "%02d" ${id}]SP07" + hsetprop ${scobj_hpath}/temp7/setpoint @description "T[format "%02d" ${id}]SP07" + hsetprop ${scobj_hpath}/temp7/setpoint oldval 0.0 + hsetprop ${scobj_hpath}/temp7/setpoint klass "parameter" + hsetprop ${scobj_hpath}/temp7/setpoint sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp7/setpoint settle_time "15" + hsetprop ${scobj_hpath}/temp7/setpoint type "drivable" + hsetprop ${scobj_hpath}/temp7/setpoint nxalias "${name}_temp7_setpoint" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp7/setpoint 5 + ${sct_controller} write ${scobj_hpath}/temp7/setpoint + hsetprop ${scobj_hpath}/temp7/setpoint simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp7/setpoint simulated true + } + } + hsetprop ${scobj_hpath}/temp7 data "true" + hsetprop ${scobj_hpath}/temp7 klass "@none" + hsetprop ${scobj_hpath}/temp7 type "part" + + if {[string equal -nocase [string index ${cards} 1] H] && [string equal -nocase [string index ${assoc} 6] 2]} { + hfactory ${scobj_hpath}/temp7/heater plain spy none + + hfactory ${scobj_hpath}/temp7/heater/hset plain user float + hsetprop ${scobj_hpath}/temp7/heater/hset read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB7.T1:TEMP:LOOP:HSET} + hsetprop ${scobj_hpath}/temp7/heater/hset rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/heater/hset write ${ns}::setValue ${scobj_hpath} noResponse {SET:DEV:DB7.T1:TEMP:LOOP:HSET:} + hsetprop ${scobj_hpath}/temp7/heater/hset noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/heater/hset check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/heater/hset control true + hsetprop ${scobj_hpath}/temp7/heater/hset data true + hsetprop ${scobj_hpath}/temp7/heater/hset mutable true + hsetprop ${scobj_hpath}/temp7/heater/hset nxsave true + hsetprop ${scobj_hpath}/temp7/heater/hset lowerlimit 0 + hsetprop ${scobj_hpath}/temp7/heater/hset upperlimit 100 + hsetprop ${scobj_hpath}/temp7/heater/hset oldval 0.0 + hsetprop ${scobj_hpath}/temp7/heater/hset klass "parameter" + hsetprop ${scobj_hpath}/temp7/heater/hset sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp7/heater/hset type "part" + hsetprop ${scobj_hpath}/temp7/heater/hset nxalias "${name}_temp7_heater_hset" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp7/heater/hset 5 + ${sct_controller} write ${scobj_hpath}/temp7/heater/hset + hsetprop ${scobj_hpath}/temp7/heater/hset simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp7/heater/hset simulated true + } + + hfactory ${scobj_hpath}/temp7/heater/perc plain user float + hsetprop ${scobj_hpath}/temp7/heater/perc read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB2.H1:HTR:SIG:PERC} + hsetprop ${scobj_hpath}/temp7/heater/perc rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/heater/perc control true + hsetprop ${scobj_hpath}/temp7/heater/perc data true + hsetprop ${scobj_hpath}/temp7/heater/perc mutable true + hsetprop ${scobj_hpath}/temp7/heater/perc nxsave true + hsetprop ${scobj_hpath}/temp7/heater/perc oldval 0.0 + hsetprop ${scobj_hpath}/temp7/heater/perc klass "parameter" + hsetprop ${scobj_hpath}/temp7/heater/perc sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp7/heater/perc type "part" + hsetprop ${scobj_hpath}/temp7/heater/perc nxalias "${name}_temp7_heater_perc" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp7/heater/perc 5 + hsetprop ${scobj_hpath}/temp7/heater/perc simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp7/heater/perc simulated true + } + + hfactory ${scobj_hpath}/temp7/heater/power plain user float + hsetprop ${scobj_hpath}/temp7/heater/power read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB2.H1:HTR:SIG:POWR} + hsetprop ${scobj_hpath}/temp7/heater/power rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp7/heater/power control true + hsetprop ${scobj_hpath}/temp7/heater/power data true + hsetprop ${scobj_hpath}/temp7/heater/power mutable true + hsetprop ${scobj_hpath}/temp7/heater/power nxsave true + hsetprop ${scobj_hpath}/temp7/heater/power oldval 0.0 + hsetprop ${scobj_hpath}/temp7/heater/power klass "parameter" + hsetprop ${scobj_hpath}/temp7/heater/power sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp7/heater/power type "part" + hsetprop ${scobj_hpath}/temp7/heater/power nxalias "${name}_temp7_heater_power" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp7/heater/power 5 + hsetprop ${scobj_hpath}/temp7/heater/power simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp7/heater/power simulated true + } + hsetprop ${scobj_hpath}/temp7/heater data "true" + hsetprop ${scobj_hpath}/temp7/heater klass "@none" + hsetprop ${scobj_hpath}/temp7/heater type "part" + } + if {[string equal -nocase [string index ${cards} 1] H] && [string equal -nocase [string index ${assoc} 6] 2]} { + ansto_makesctdrive ${name}_temp7_setpoint ${scobj_hpath}/temp7/setpoint ${scobj_hpath}/temp7/sensor ${sct_controller} + } + } + + if {[string equal -nocase [string index ${cards} 7] T]} { + hfactory ${scobj_hpath}/temp8 plain spy none + + if {[string equal -nocase [string index ${cards} 2] H] && [string equal -nocase [string index ${assoc} 7] 3]} { + hfactory ${scobj_hpath}/temp8/auto plain user int + hsetprop ${scobj_hpath}/temp8/auto read ${ns}::getValue ${scobj_hpath} rdOnOff {READ:DEV:DB8.T1:TEMP:LOOP:ENAB} + hsetprop ${scobj_hpath}/temp8/auto rdOnOff ${ns}::rdOnOff ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/auto write ${ns}::wrOnOff ${scobj_hpath} noResponse {SET:DEV:DB8.T1:TEMP:LOOP:ENAB:} + hsetprop ${scobj_hpath}/temp8/auto noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/auto check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/auto control true + hsetprop ${scobj_hpath}/temp8/auto data true + hsetprop ${scobj_hpath}/temp8/auto mutable true + hsetprop ${scobj_hpath}/temp8/auto nxsave true + hsetprop ${scobj_hpath}/temp8/auto values 0,1 + hsetprop ${scobj_hpath}/temp8/auto oldval 0 + hsetprop ${scobj_hpath}/temp8/auto klass "parameter" + hsetprop ${scobj_hpath}/temp8/auto sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp8/auto type "part" + hsetprop ${scobj_hpath}/temp8/auto nxalias "${name}_temp8_auto" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp8/auto 5 + ${sct_controller} write ${scobj_hpath}/temp8/auto + hsetprop ${scobj_hpath}/temp8/auto simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp8/auto simulated true + } + } + + hfactory ${scobj_hpath}/temp8/nick plain user text + hsetprop ${scobj_hpath}/temp8/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB8.T1:TEMP:NICK} + hsetprop ${scobj_hpath}/temp8/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/nick control true + hsetprop ${scobj_hpath}/temp8/nick data true + hsetprop ${scobj_hpath}/temp8/nick mutable true + hsetprop ${scobj_hpath}/temp8/nick nxsave true + hsetprop ${scobj_hpath}/temp8/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/temp8/nick klass "parameter" + hsetprop ${scobj_hpath}/temp8/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp8/nick type "part" + hsetprop ${scobj_hpath}/temp8/nick nxalias "${name}_temp8_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp8/nick 15 + hsetprop ${scobj_hpath}/temp8/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp8/nick simulated true + } + + hfactory ${scobj_hpath}/temp8/sensor plain user float + hsetprop ${scobj_hpath}/temp8/sensor read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB8.T1:TEMP:SIG:TEMP} + hsetprop ${scobj_hpath}/temp8/sensor rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/sensor control true + hsetprop ${scobj_hpath}/temp8/sensor data true + hsetprop ${scobj_hpath}/temp8/sensor mutable true + hsetprop ${scobj_hpath}/temp8/sensor nxsave true + hsetprop ${scobj_hpath}/temp8/sensor permlink data_set "T[format "%02d" ${id}]S08" + hsetprop ${scobj_hpath}/temp8/sensor @description "T[format "%02d" ${id}]S08" + hsetprop ${scobj_hpath}/temp8/sensor oldval 0.0 + hsetprop ${scobj_hpath}/temp8/sensor klass "parameter" + hsetprop ${scobj_hpath}/temp8/sensor sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp8/sensor type "part" + hsetprop ${scobj_hpath}/temp8/sensor nxalias "${name}_temp8_sensor" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp8/sensor 1 + hsetprop ${scobj_hpath}/temp8/sensor simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp8/sensor simulated true + } + + if {[string equal -nocase [string index ${cards} 2] H] && [string equal -nocase [string index ${assoc} 7] 3]} { + hfactory ${scobj_hpath}/temp8/setpoint plain user float + hsetprop ${scobj_hpath}/temp8/setpoint read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB8.T1:TEMP:LOOP:TSET} + hsetprop ${scobj_hpath}/temp8/setpoint rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/setpoint write ${ns}::setPoint ${scobj_hpath} noResponse {SET:DEV:DB8.T1:TEMP:LOOP:TSET:} + hsetprop ${scobj_hpath}/temp8/setpoint noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/setpoint check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/setpoint driving 0 + hsetprop ${scobj_hpath}/temp8/setpoint checklimits ${ns}::checklimits ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/setpoint checkstatus ${ns}::checkstatus ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/setpoint halt ${ns}::halt ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/setpoint driveable temp8/sensor + hsetprop ${scobj_hpath}/temp8/setpoint control true + hsetprop ${scobj_hpath}/temp8/setpoint data true + hsetprop ${scobj_hpath}/temp8/setpoint mutable true + hsetprop ${scobj_hpath}/temp8/setpoint nxsave true + hsetprop ${scobj_hpath}/temp8/setpoint lowerlimit 0 + hsetprop ${scobj_hpath}/temp8/setpoint upperlimit 333 + hsetprop ${scobj_hpath}/temp8/setpoint tolerance ${ttol} + hsetprop ${scobj_hpath}/temp8/setpoint permlink data_set "T[format "%02d" ${id}]SP08" + hsetprop ${scobj_hpath}/temp8/setpoint @description "T[format "%02d" ${id}]SP08" + hsetprop ${scobj_hpath}/temp8/setpoint oldval 0.0 + hsetprop ${scobj_hpath}/temp8/setpoint klass "parameter" + hsetprop ${scobj_hpath}/temp8/setpoint sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp8/setpoint settle_time "15" + hsetprop ${scobj_hpath}/temp8/setpoint type "drivable" + hsetprop ${scobj_hpath}/temp8/setpoint nxalias "${name}_temp8_setpoint" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp8/setpoint 5 + ${sct_controller} write ${scobj_hpath}/temp8/setpoint + hsetprop ${scobj_hpath}/temp8/setpoint simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp8/setpoint simulated true + } + } + hsetprop ${scobj_hpath}/temp8 data "true" + hsetprop ${scobj_hpath}/temp8 klass "@none" + hsetprop ${scobj_hpath}/temp8 type "part" + + if {[string equal -nocase [string index ${cards} 2] H] && [string equal -nocase [string index ${assoc} 7] 3]} { + hfactory ${scobj_hpath}/temp8/heater plain spy none + + hfactory ${scobj_hpath}/temp8/heater/hset plain user float + hsetprop ${scobj_hpath}/temp8/heater/hset read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB8.T1:TEMP:LOOP:HSET} + hsetprop ${scobj_hpath}/temp8/heater/hset rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/heater/hset write ${ns}::setValue ${scobj_hpath} noResponse {SET:DEV:DB8.T1:TEMP:LOOP:HSET:} + hsetprop ${scobj_hpath}/temp8/heater/hset noResponse ${ns}::noResponse ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/heater/hset check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/heater/hset control true + hsetprop ${scobj_hpath}/temp8/heater/hset data true + hsetprop ${scobj_hpath}/temp8/heater/hset mutable true + hsetprop ${scobj_hpath}/temp8/heater/hset nxsave true + hsetprop ${scobj_hpath}/temp8/heater/hset lowerlimit 0 + hsetprop ${scobj_hpath}/temp8/heater/hset upperlimit 100 + hsetprop ${scobj_hpath}/temp8/heater/hset oldval 0.0 + hsetprop ${scobj_hpath}/temp8/heater/hset klass "parameter" + hsetprop ${scobj_hpath}/temp8/heater/hset sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp8/heater/hset type "part" + hsetprop ${scobj_hpath}/temp8/heater/hset nxalias "${name}_temp8_heater_hset" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp8/heater/hset 5 + ${sct_controller} write ${scobj_hpath}/temp8/heater/hset + hsetprop ${scobj_hpath}/temp8/heater/hset simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp8/heater/hset simulated true + } + + hfactory ${scobj_hpath}/temp8/heater/perc plain user float + hsetprop ${scobj_hpath}/temp8/heater/perc read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB3.H1:HTR:SIG:PERC} + hsetprop ${scobj_hpath}/temp8/heater/perc rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/heater/perc control true + hsetprop ${scobj_hpath}/temp8/heater/perc data true + hsetprop ${scobj_hpath}/temp8/heater/perc mutable true + hsetprop ${scobj_hpath}/temp8/heater/perc nxsave true + hsetprop ${scobj_hpath}/temp8/heater/perc oldval 0.0 + hsetprop ${scobj_hpath}/temp8/heater/perc klass "parameter" + hsetprop ${scobj_hpath}/temp8/heater/perc sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp8/heater/perc type "part" + hsetprop ${scobj_hpath}/temp8/heater/perc nxalias "${name}_temp8_heater_perc" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp8/heater/perc 5 + hsetprop ${scobj_hpath}/temp8/heater/perc simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp8/heater/perc simulated true + } + + hfactory ${scobj_hpath}/temp8/heater/power plain user float + hsetprop ${scobj_hpath}/temp8/heater/power read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB3.H1:HTR:SIG:POWR} + hsetprop ${scobj_hpath}/temp8/heater/power rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/temp8/heater/power control true + hsetprop ${scobj_hpath}/temp8/heater/power data true + hsetprop ${scobj_hpath}/temp8/heater/power mutable true + hsetprop ${scobj_hpath}/temp8/heater/power nxsave true + hsetprop ${scobj_hpath}/temp8/heater/power oldval 0.0 + hsetprop ${scobj_hpath}/temp8/heater/power klass "parameter" + hsetprop ${scobj_hpath}/temp8/heater/power sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/temp8/heater/power type "part" + hsetprop ${scobj_hpath}/temp8/heater/power nxalias "${name}_temp8_heater_power" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/temp8/heater/power 5 + hsetprop ${scobj_hpath}/temp8/heater/power simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/temp8/heater/power simulated true + } + hsetprop ${scobj_hpath}/temp8/heater data "true" + hsetprop ${scobj_hpath}/temp8/heater klass "@none" + hsetprop ${scobj_hpath}/temp8/heater type "part" + } + if {[string equal -nocase [string index ${cards} 2] H] && [string equal -nocase [string index ${assoc} 7] 3]} { + ansto_makesctdrive ${name}_temp8_setpoint ${scobj_hpath}/temp8/setpoint ${scobj_hpath}/temp8/sensor ${sct_controller} + } + } + + if {[string equal -nocase [string index ${cards} 3] V]} { + hfactory ${scobj_hpath}/valve plain spy none + + hfactory ${scobj_hpath}/valve/nick plain user text + hsetprop ${scobj_hpath}/valve/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB4.G1:AUX:NICK} + hsetprop ${scobj_hpath}/valve/nick rdText ${ns}::rdText ${scobj_hpath} + hsetprop ${scobj_hpath}/valve/nick control true + hsetprop ${scobj_hpath}/valve/nick data true + hsetprop ${scobj_hpath}/valve/nick mutable true + hsetprop ${scobj_hpath}/valve/nick nxsave true + hsetprop ${scobj_hpath}/valve/nick oldval UNKNOWN + hsetprop ${scobj_hpath}/valve/nick klass "parameter" + hsetprop ${scobj_hpath}/valve/nick sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/valve/nick type "part" + hsetprop ${scobj_hpath}/valve/nick nxalias "${name}_valve_nick" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/valve/nick 15 + hsetprop ${scobj_hpath}/valve/nick simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/valve/nick simulated true + } + + hfactory ${scobj_hpath}/valve/sensor plain user float + hsetprop ${scobj_hpath}/valve/sensor read ${ns}::getValue ${scobj_hpath} rdValue {READ:DEV:DB4.G1:AUX:SIG:PERC} + hsetprop ${scobj_hpath}/valve/sensor rdValue ${ns}::rdValue ${scobj_hpath} + hsetprop ${scobj_hpath}/valve/sensor control true + hsetprop ${scobj_hpath}/valve/sensor data true + hsetprop ${scobj_hpath}/valve/sensor mutable true + hsetprop ${scobj_hpath}/valve/sensor nxsave true + hsetprop ${scobj_hpath}/valve/sensor oldval 0.0 + hsetprop ${scobj_hpath}/valve/sensor klass "parameter" + hsetprop ${scobj_hpath}/valve/sensor sdsinfo "::nexus::scobj::sdsinfo" + hsetprop ${scobj_hpath}/valve/sensor type "part" + hsetprop ${scobj_hpath}/valve/sensor nxalias "${name}_valve_sensor" + + if {[string equal -nocase "${simulation_flag}" "false"]} { + ${sct_controller} poll ${scobj_hpath}/valve/sensor 5 + hsetprop ${scobj_hpath}/valve/sensor simulated false + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => No poll/write for oxford_mercury" + hsetprop ${scobj_hpath}/valve/sensor simulated true + } + hsetprop ${scobj_hpath}/valve data "true" + hsetprop ${scobj_hpath}/valve klass "@none" + hsetprop ${scobj_hpath}/valve type "part" + } + hsetprop ${scobj_hpath} klass ${device_class} + hsetprop ${scobj_hpath} data true + hsetprop ${scobj_hpath} debug_threshold 5 +# mkDriver hook code goes here + } catch_message ] + handle_exception ${catch_status} ${catch_message} +} + +proc ::scobj::oxford_mercury::add_driver {name device_class simulation_flag ip_address tcp_port id {cards NNNNNNNN} {assoc 00000000} {ttol 1} {ptol 5} {vtol 5}} { + set catch_status [ catch { + ::scobj::oxford_mercury::sics_log 9 "::scobj::oxford_mercury::add_driver ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} ${id} ${cards} ${assoc} ${ttol} ${ptol} ${vtol}" + if {[string equal -nocase "${simulation_flag}" "false"]} { + if {[string equal -nocase "aqadapter" "${ip_address}"]} { + ::scobj::oxford_mercury::sics_log 9 "makesctcontroller sct_${name} aqadapter ${tcp_port}" + makesctcontroller sct_${name} aqadapter ${tcp_port} + } else { + ::scobj::oxford_mercury::sics_log 9 "makesctcontroller sct_${name} std ${ip_address}:${tcp_port}" + makesctcontroller sct_${name} std ${ip_address}:${tcp_port} + } + } else { + ::scobj::oxford_mercury::sics_log 9 "simulation_flag=${simulation_flag} => Null sctcontroller for oxford_mercury" + ::scobj::oxford_mercury::sics_log 9 "makesctcontroller sct_${name} aqadapter NULL" + makesctcontroller sct_${name} aqadapter NULL + } + ::scobj::oxford_mercury::sics_log 1 "::scobj::oxford_mercury::mkDriver sct_${name} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} ${id} ${cards} ${assoc} ${ttol} ${ptol} ${vtol}" + ::scobj::oxford_mercury::mkDriver sct_${name} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} ${id} ${cards} ${assoc} ${ttol} ${ptol} ${vtol} + } catch_message ] + handle_exception ${catch_status} ${catch_message} +} + +namespace eval ::scobj::oxford_mercury { + namespace export debug_threshold + namespace export debug_log + namespace export sics_log + namespace export mkDriver + namespace export add_driver +} + +proc add_oxford_mercury {name ip_address tcp_port id {cards NNNNNNNN} {assoc 00000000} {ttol 1} {ptol 5} {vtol 5}} { + set simulation_flag "[string tolower [SplitReply [environment_simulation]]]" + ::scobj::oxford_mercury::add_driver ${name} "environment" ${simulation_flag} ${ip_address} ${tcp_port} ${id} ${cards} ${assoc} ${ttol} ${ptol} ${vtol} +} + +clientput "file evaluation of sct_oxford_mercury.tcl" +::scobj::oxford_mercury::sics_log 9 "file evaluation of sct_oxford_mercury.tcl" + +proc ::scobj::oxford_mercury::read_config {} { + set catch_status [ catch { + set ns "::scobj::oxford_mercury" + 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"] "oxford_mercury"] } { + if { ![string equal -nocase "${simulation_flag}" "false"] } { + set asyncqueue "null" + ${ns}::sics_log 9 "simulation_flag=${simulation_flag} => using null asyncqueue" + ${ns}::sics_log 9 "makesctcontroller sct_${name} aqadapter NULL" + makesctcontroller sct_${name} aqadapter NULL + } 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] + makesctcontroller sct_${name} std ${ip_address}:${tcp_port} + } else { + makesctcontroller sct_${name} aqadapter ${asyncqueue} + } + } else { + if { [dict exists $v "asyncprotocol"] } { + set asyncprotocol [dict get $v "asyncprotocol"] + } else { + set asyncprotocol ${name}_protocol + MakeAsyncProtocol ${asyncprotocol} + if { [dict exists $v "sendterminator"] } { + ${asyncprotocol} sendterminator "[dict get $v "sendterminator"]" + } elseif { [dict exists $v "terminator"] } { + ${asyncprotocol} sendterminator "[dict get $v "terminator"]" + } + if { [dict exists $v "replyterminator"] } { + ${asyncprotocol} replyterminator "[dict get $v "replyterminator"]" + } elseif { [dict exists $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"]" + } + makesctcontroller sct_${name} aqadapter ${asyncqueue} + } + set arg_list [list] + set missing_list [list] + array unset default_map + array set default_map [list cards NNNNNNNN assoc 00000000 ttol 1 ptol 5 vtol 5] + foreach arg {id cards assoc ttol ptol vtol} { + if {[dict exists $u $arg]} { + lappend arg_list "[dict get $u $arg]" + } elseif {[dict exists $v $arg]} { + lappend arg_list "[dict get $v $arg]" + } elseif {[info exists default_map($arg)]} { + lappend arg_list $default_map($arg) + } else { + ${ns}::sics_log 9 "Missing configuration value $arg" + lappend missing_list $arg + } + } + if { [llength $missing_list] > 0 } { + error "$name is missing configuration values $missing_list" + } + ${ns}::mkDriver sct_${name} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} {*}$arg_list + } + } + } + } catch_message ] + handle_exception ${catch_status} ${catch_message} +} + +if { [info exists ::config_dict] } { + ::scobj::oxford_mercury::read_config +} else { + ::scobj::oxford_mercury::sics_log 5 "No config dict" +} diff --git a/site_ansto/instrument/config/environment/temperature/sct_west_6100.tcl b/site_ansto/instrument/config/environment/temperature/sct_west_6100.tcl index 1372950a..56ae1327 100644 --- a/site_ansto/instrument/config/environment/temperature/sct_west_6100.tcl +++ b/site_ansto/instrument/config/environment/temperature/sct_west_6100.tcl @@ -27,6 +27,33 @@ proc ::scobj::west_6100::sics_log {debug_level debug_string} { } catch_message ] } +# checklimits function for driveable interface +proc ::scobj::west_6100::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::west_6100::checkrange {tc_root} { set catch_status [ catch { @@ -53,6 +80,40 @@ proc ::scobj::west_6100::checkrange {tc_root} { handle_exception ${catch_status} ${catch_message} } +# checkstatus function for driveable interface +proc ::scobj::west_6100::checkstatus {tc_root} { + set catch_status [ catch { +# 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::west_6100::getDecimal {tc_root nextState cmd_str} { set catch_status [ catch { @@ -101,6 +162,18 @@ proc ::scobj::west_6100::getInteger {tc_root nextState cmd_str} { handle_exception ${catch_status} ${catch_message} } +# halt function for driveable interface +proc ::scobj::west_6100::halt {tc_root} { + set catch_status [ catch { + debug_log ${tc_root} 1 "halt tc_root=${tc_root} sct=[sct] driving=[sct driving]" + ### TODO hset [sct] [hval [sct]] +# halt hook code goes here + sct driving 0 + return "idle" + } catch_message ] + handle_exception ${catch_status} ${catch_message} +} + # function to check the write parameter on a device proc ::scobj::west_6100::noResponse {tc_root} { set catch_status [ catch { @@ -262,8 +335,8 @@ proc ::scobj::west_6100::wrInteger {tc_root nextState cmd_str} { handle_exception ${catch_status} ${catch_message} } -proc ::scobj::west_6100::mkDriver { sct_controller name device_class simulation_flag ip_address tcp_port dev_id } { - ::scobj::west_6100::sics_log 9 "::scobj::west_6100::mkDriver ${sct_controller} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} ${dev_id}" +proc ::scobj::west_6100::mkDriver { sct_controller name device_class simulation_flag ip_address tcp_port id {datype T} } { + ::scobj::west_6100::sics_log 9 "::scobj::west_6100::mkDriver ${sct_controller} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} ${id}" set ns "[namespace current]" set catch_status [ catch { @@ -358,6 +431,8 @@ proc ::scobj::west_6100::mkDriver { sct_controller name device_class simulation_ hsetprop ${scobj_hpath}/sensor data true hsetprop ${scobj_hpath}/sensor mutable true hsetprop ${scobj_hpath}/sensor nxsave true + hsetprop ${scobj_hpath}/sensor permlink data_set "${datype}[format "%02d" ${id}]S01" + hsetprop ${scobj_hpath}/sensor @description "${datype}[format "%02d" ${id}]S01" hsetprop ${scobj_hpath}/sensor oldval 0.0 hsetprop ${scobj_hpath}/sensor klass "parameter" hsetprop ${scobj_hpath}/sensor sdsinfo "::nexus::scobj::sdsinfo" @@ -370,14 +445,25 @@ proc ::scobj::west_6100::mkDriver { sct_controller name device_class simulation_ hsetprop ${scobj_hpath}/setpoint write ${ns}::wrDecimal ${scobj_hpath} noResponse {2} hsetprop ${scobj_hpath}/setpoint noResponse ${ns}::noResponse ${scobj_hpath} hsetprop ${scobj_hpath}/setpoint check ${ns}::checkrange ${scobj_hpath} + hsetprop ${scobj_hpath}/setpoint driving 0 + hsetprop ${scobj_hpath}/setpoint checklimits ${ns}::checklimits ${scobj_hpath} + hsetprop ${scobj_hpath}/setpoint checkstatus ${ns}::checkstatus ${scobj_hpath} + hsetprop ${scobj_hpath}/setpoint halt ${ns}::halt ${scobj_hpath} + hsetprop ${scobj_hpath}/setpoint driveable sensor hsetprop ${scobj_hpath}/setpoint control true hsetprop ${scobj_hpath}/setpoint data true hsetprop ${scobj_hpath}/setpoint mutable true hsetprop ${scobj_hpath}/setpoint nxsave true + hsetprop ${scobj_hpath}/setpoint lowerlimit 0 + hsetprop ${scobj_hpath}/setpoint upperlimit 1600 + hsetprop ${scobj_hpath}/setpoint tolerance 1 + hsetprop ${scobj_hpath}/setpoint permlink data_set "${datype}[format "%02d" ${id}]SP01" + hsetprop ${scobj_hpath}/setpoint @description "${datype}[format "%02d" ${id}]SP01" hsetprop ${scobj_hpath}/setpoint oldval 0.0 hsetprop ${scobj_hpath}/setpoint klass "parameter" hsetprop ${scobj_hpath}/setpoint sdsinfo "::nexus::scobj::sdsinfo" - hsetprop ${scobj_hpath}/setpoint type "part" + hsetprop ${scobj_hpath}/setpoint settle_time "30" + hsetprop ${scobj_hpath}/setpoint type "drivable" hsetprop ${scobj_hpath}/setpoint nxalias "${name}_setpoint" hfactory ${scobj_hpath}/w_sp plain user float @@ -471,14 +557,17 @@ proc ::scobj::west_6100::mkDriver { sct_controller name device_class simulation_ hsetprop ${scobj_hpath} klass ${device_class} hsetprop ${scobj_hpath} data true hsetprop ${scobj_hpath} debug_threshold 5 + if {[string equal -nocase "${simulation_flag}" "false"]} { + ansto_makesctdrive ${name}_setpoint ${scobj_hpath}/setpoint ${scobj_hpath}/sensor ${sct_controller} + } # mkDriver hook code goes here } catch_message ] handle_exception ${catch_status} ${catch_message} } -proc ::scobj::west_6100::add_driver {name device_class simulation_flag ip_address tcp_port dev_id} { +proc ::scobj::west_6100::add_driver {name device_class simulation_flag ip_address tcp_port id {datype T} } { set catch_status [ catch { - ::scobj::west_6100::sics_log 9 "::scobj::west_6100::add_driver ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} ${dev_id}" + ::scobj::west_6100::sics_log 9 "::scobj::west_6100::add_driver ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} ${id}" if {[string equal -nocase "${simulation_flag}" "false"]} { if {[string equal -nocase "aqadapter" "${ip_address}"]} { ::scobj::west_6100::sics_log 9 "makesctcontroller sct_${name} aqadapter ${tcp_port}" @@ -490,8 +579,8 @@ proc ::scobj::west_6100::add_driver {name device_class simulation_flag ip_addres } else { ::scobj::west_6100::sics_log 9 "simulation_flag={simulation_flag} => No sctcontroller for west_6100" } - ::scobj::west_6100::sics_log 1 "::scobj::west_6100::mkDriver sct_${name} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} ${dev_id}" - ::scobj::west_6100::mkDriver sct_${name} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} ${dev_id} + ::scobj::west_6100::sics_log 1 "::scobj::west_6100::mkDriver sct_${name} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} ${id}" + ::scobj::west_6100::mkDriver sct_${name} ${name} ${device_class} ${simulation_flag} ${ip_address} ${tcp_port} ${id} $datype } catch_message ] handle_exception ${catch_status} ${catch_message} } @@ -504,9 +593,9 @@ namespace eval ::scobj::west_6100 { namespace export add_driver } -proc add_west_6100 {name ip_address tcp_port dev_id} { +proc add_west_6100 {name ip_address tcp_port id {datype T} } { set simulation_flag "[string tolower [SplitReply [environment_simulation]]]" - ::scobj::west_6100::add_driver ${name} "environment" "${simulation_flag}" ${ip_address} ${tcp_port} "${dev_id}" + ::scobj::west_6100::add_driver ${name} "environment" "${simulation_flag}" ${ip_address} ${tcp_port} "${id} ${datype}" } clientput "file evaluation of sct_west_6100.tcl" @@ -572,7 +661,7 @@ proc ::scobj::west_6100::read_config {} { } set arg_list [list] set missing_list [list] - foreach arg {dev_id} { + foreach arg {id datype} { if {[dict exists $u $arg]} { lappend arg_list "[dict get $u $arg]" } elseif {[dict exists $v $arg]} { diff --git a/site_ansto/instrument/server_config.tcl b/site_ansto/instrument/server_config.tcl index 64e1ece4..100e6e31 100644 --- a/site_ansto/instrument/server_config.tcl +++ b/site_ansto/instrument/server_config.tcl @@ -254,25 +254,20 @@ proc waitaction {obj action args} { publish waitaction user proc server_set_sobj_attributes {} { - if [ catch { - motor_set_sobj_attributes - ::utility::set_motor_attributes -#XXX::utility::set_histomem_attributes - ::utility::set_sobj_attributes - ::utility::set_envcontrol_attributes - ::plc::set_sobj_attributes - ::counter::set_sobj_attributes - ::nexus::set_sobj_attributes - ::histogram_memory::set_sobj_attributes - ::utility::set_chopper_attributes - ::utility::set_sct_object_attributes -## TODO move the following to the new ansto gumxml.tcl - sicslist setatt getgumtreexml privilege internal - clientput "serverport $::serverport" - } message ] { - if {$::errorCode=="NONE"} {return $message} - return -code error $message - } + if [ catch { motor_set_sobj_attributes } msg ] { puts $msg } + if [ catch { ::utility::set_motor_attributes } msg ] { puts $msg } + #XXX::utility::set_histomem_attributes + if [ catch { ::utility::set_sobj_attributes } msg ] { puts $msg } + if [ catch { ::utility::set_envcontrol_attributes } msg ] { puts $msg } + if [ catch { ::plc::set_sobj_attributes } msg ] { puts $msg } + if [ catch { ::counter::set_sobj_attributes } msg ] { puts $msg } + if [ catch { ::nexus::set_sobj_attributes } msg ] { puts $msg } + if [ catch { ::histogram_memory::set_sobj_attributes } msg ] { puts $msg } + if [ catch { ::utility::set_chopper_attributes } msg ] { puts $msg } + if [ catch { ::utility::set_sct_object_attributes } msg ] { puts $msg } + ## TODO move the following to the new ansto gumxml.tcl + if [ catch { sicslist setatt getgumtreexml privilege internal } msg ] { puts $msg } + clientput "serverport $::serverport" } proc server_init {} { @@ -313,6 +308,7 @@ proc server_init {} { fileeval ../extraconfig.tcl } server_set_sobj_attributes + if [ catch { hsetprop /sics/magnet1/magneticFieldTesla permlink data_set B1S1 } msg ] { puts $msg } buildHDB instrument_dictionary } message ] diff --git a/site_ansto/instrument/tas/config/motors/motor_configuration.tcl b/site_ansto/instrument/tas/config/motors/motor_configuration.tcl index b37eaad2..b8f46acd 100644 --- a/site_ansto/instrument/tas/config/motors/motor_configuration.tcl +++ b/site_ansto/instrument/tas/config/motors/motor_configuration.tcl @@ -4,9 +4,6 @@ # FastShutter is currently set on Quokka only #::utility::mkVar FastShutter text manager FastShutter false instrument true false -# SET TO 1 TO USE THE TILT STAGE ie sample phi and chi -set use_tiltstage 0 - set animal taipan set sim_mode [SplitReply [motor_simulation]] @@ -93,6 +90,75 @@ set move_count 100 ############################ # +# CHOOSE HERE for sample stage configuration +########################################## +# Set axis_config as follows to use different axis configurations +# 0: normal stage configuration +# 1: Oxford magnet sample stick +set axis_config 0 + +if { [ info exists ::config_dict ] } { + if { [ dict exists $::config_dict sample_stage implementation ] } { + set implementation [ dict get $::config_dict sample_stage implementation ] + if {$implementation == "normal_sample_stage"} { + set axis_config 0 + } elseif {$implementation == "12tmagnet_sample_insert"} { + set axis_config 1 + } elseif {$implementation == "eulerian_cradle"} { + set axis_config 2 + } else { + set axis_config 0 + } + } + if { [ dict exists $::config_dict m2s2 implementation ] } { + set implementation [ dict get $::config_dict m2s2 implementation ] + if {$implementation == "normal_m2s2"} { + set m2_speed 0.4 + set m2_accel 0.04 + set m2_decel 0.04 + set s2_speed 0.8 + set s2_accel 0.2 + set s2_decel 0.2 + } elseif {$implementation == "extended_m2s2"} { + set m2_speed 0.1 + set m2_accel 0.025 + set m2_decel 0.025 + set s2_speed 0.4 + set s2_accel 0.1 + set s2_decel 0.1 + } else { + set m2_speed 0.4 + set m2_accel 0.04 + set m2_decel 0.04 + set s2_speed 0.8 + set s2_accel 0.2 + set s2_decel 0.2 + } + } +} + +switch $axis_config { + 0 { + set use_s1_stage "true" + set tilt_motor_driver_type $motor_driver_type + fileeval $cfPath(motors)/tilt_configuration.tcl + } + 1 { + set magmot s1 + set magmot_aq "mc2" + set magmot_axis "A" + set use_s1_stage "false" + set tilt_motor_driver_type asim + fileeval $cfPath(motors)/tilt_configuration.tcl + fileeval $cfPath(motors)/magnet_configuration.tcl + } + 2 { + set use_s1_stage "true" + fileeval $cfPath(motors)/euler_configuration.tcl + } +} + + # Dummy translation motor, useful for testing scans Motor dummy_motor asim [params \ @@ -138,36 +204,6 @@ dummy_s1 softupperlim 180 dummy_s1 precision 0.02 dummy_s1 home 0 -if { [ info exists ::config_dict ] && [ dict get $::config_dict s1_sample_insert enabled ] } { - set samp_stage_name "s1ss" - set tilt_motor_driver_type asim - - Motor s1 $motor_driver_type [params \ - asyncqueue mc2\ - host mc2-taipan\ - port pmc2-taipan\ - axis A\ - units degrees\ - hardlowerlim -1440\ - hardupperlim 1440\ - maxSpeed 1\ - maxAccel 1\ - maxDecel 1\ - stepsPerX [expr 67.0 * 25000 / 360]\ - absEnc 1\ - absEncHome 31275743\ - cntsPerX [expr 67.0 * 8192 / 360]] - s1 part sample - s1 long_name s1 - s1 softlowerlim -180 - s1 softupperlim 180 - s1 home 0 -} else { - set samp_stage_name "s1" - set tilt_motor_driver_type $motor_driver_type -} - -#if $use_tiltstage { # mc1: Monochromator crystal selection rotation/Tilt Motor mtilt $motor_driver_type [params \ asyncqueue mc1\ @@ -182,16 +218,14 @@ Motor mtilt $motor_driver_type [params \ maxDecel 1\ stepsPerX 25000\ absEnc 1\ - absEncHome 79650\ + absEncHome 27115\ cntsPerX 4096] mtilt part crystal mtilt long_name mtilt mtilt softlowerlim -5 mtilt softupperlim 5 mtilt home 0 -#} -set atest mtilt # mc1: Monochromator Linear (Translate) Motor mtrans $motor_driver_type [params \ @@ -207,7 +241,7 @@ Motor mtrans $motor_driver_type [params \ maxDecel 1\ stepsPerX 25000\ absEnc 1\ - absEncHome 469388\ + absEncHome 859242\ cntsPerX 4096] mtrans part crystal mtrans long_name mtrans @@ -249,9 +283,9 @@ m2 motOffDelay 0 m2 backlash_offset -0.5 m2 creep_offset 0.1 m2 creep_precision 0.0 -m2 speed 0.4 -m2 accel 0.04 -m2 decel 0.04 +m2 speed $m2_speed +m2 accel $m2_accel +m2 decel $m2_decel # mc1: Detector Rotate Motor a2 $motor_driver_type [params \ @@ -291,120 +325,31 @@ a2 decel 0.2 ############################ # -# mc2: Sample Tilt 1 -Motor sgu $tilt_motor_driver_type [params \ - asyncqueue mc2\ - host mc2-taipan\ - port pmc2-taipan\ - axis A\ - units degrees\ - hardlowerlim -13\ - hardupperlim 16.5\ - maxSpeed 2\ - maxAccel 1\ - maxDecel 1\ - stepsPerX 25000\ - absEnc 1\ - absEncHome 7745478\ - cntsPerX 8192] -sgu part sample -sgu long_name sgu -sgu softlowerlim -13 -sgu softupperlim 16.5 -sgu home 0 -sgu backlash_offset -0.2 - -# mc2: Sample Tilt 2 -Motor sgl $tilt_motor_driver_type [params \ - asyncqueue mc2\ - host mc2-taipan\ - port pmc2-taipan\ - axis B\ - units degrees\ - hardlowerlim -16.5\ - hardupperlim 17.5\ - maxSpeed 2\ - maxAccel 1\ - maxDecel 1\ - stepsPerX 25000\ - absEnc 1\ - absEncHome 7499135\ - cntsPerX 8192] -sgl part sample -sgl long_name sgl -sgl softlowerlim -16.5 -sgl softupperlim 17.5 -sgl home 0 -sgl backlash_offset -0.2 - -# mc2: Sample Up Tanslation -Motor stu $motor_driver_type [params \ - asyncqueue mc2\ - host mc2-taipan\ - port pmc2-taipan\ - axis C\ - units mm\ - hardlowerlim -15\ - hardupperlim 15\ - maxSpeed 2\ - maxAccel 1\ - maxDecel 1\ - stepsPerX -25000\ - absEnc 1\ - absEncHome 7392933\ - cntsPerX -8192] -stu part sample -stu long_name stu -stu softlowerlim -15 -stu softupperlim 15 -stu home 0.0 -stu backlash_offset -0.2 - -# mc2: Sample Lower Tanslation -Motor stl $motor_driver_type [params \ - asyncqueue mc2\ - host mc2-taipan\ - port pmc2-taipan\ - axis D\ - units mm\ - hardlowerlim -15\ - hardupperlim 15\ - maxSpeed 2\ - maxAccel 1\ - maxDecel 1\ - stepsPerX 25000\ - absEnc 1\ - absEncHome 7582773\ - cntsPerX 8192] -stl part sample -stl long_name stl -stl softlowerlim -15 -stl softupperlim 15 -stl home 0.0 -stl backlash_offset -0.2 - # mc2: Sample Rotate -Motor $samp_stage_name $motor_driver_type [params \ - asyncqueue mc2\ - host mc2-taipan\ - port pmc2-taipan\ - axis E\ - units degrees\ - hardlowerlim -194\ - hardupperlim 134\ - maxSpeed 4\ - maxAccel 2\ - maxDecel 2\ - stepsPerX 12495\ - absEnc 1\ - absEncHome 10695068\ - cntsPerX 4096] -$samp_stage_name part sample -$samp_stage_name long_name $samp_stage_name -$samp_stage_name softlowerlim -170 -$samp_stage_name softupperlim 120 -$samp_stage_name home 35.997 -$samp_stage_name backlash_offset -0.2 +if {$use_s1_stage == "true"} { + Motor s1 $motor_driver_type [params \ + asyncqueue mc2\ + host mc2-taipan\ + port pmc2-taipan\ + axis E\ + units degrees\ + hardlowerlim -194\ + hardupperlim 134\ + maxSpeed 4\ + maxAccel 2\ + maxDecel 2\ + stepsPerX 12495\ + absEnc 1\ + absEncHome 10695068\ + cntsPerX 4096] + s1 part sample + s1 long_name s1 + s1 softlowerlim -170 + s1 softupperlim 120 + s1 home 35.997 + s1 backlash_offset -0.2 +} + # mc2: Analyser Detector Rotate -- Sample Scattering Angle # absEncHome 20728908\ at -50 @@ -437,9 +382,9 @@ s2 backlash_offset 0.5 s2 blockage_thresh 1 s2 creep_offset 0.015 s2 creep_precision 0.005 -s2 speed 0.8 -s2 accel 0.2 -s2 decel 0.2 +s2 speed $s2_speed +s2 accel $s2_accel +s2 decel $s2_decel # mc2: Analyser Horizontal Focus Motor ahfocus $motor_driver_type [params \ @@ -517,9 +462,10 @@ mvfocus long_name mvfocus mvfocus softlowerlim 0 mvfocus softupperlim 300 mvfocus home 0.0 -mvfocus Blockage_Thresh 2 +mvfocus Blockage_Thresh 4 mvfocus Blockage_Check_Interval 2 mvfocus creep_offset 0.2 +mvfocus backlash_offset -4 # mc3: Monochromator Horizontal Focus Motor mhfocus $motor_driver_type [params \ asyncqueue mc3\ @@ -528,25 +474,26 @@ Motor mhfocus $motor_driver_type [params \ axis B\ units degrees\ precision 0.2\ - hardlowerlim -80\ - hardupperlim 240\ + hardlowerlim -10\ + hardupperlim 280\ maxSpeed 3.6\ maxAccel 1.728\ maxDecel 1.728\ stepsPerX [expr 25000.0 * 50.0 / 360.0]\ absEnc 1\ bias_bits 12\ - bias_bias 1540\ - absEncHome 2788\ - cntsPerX [expr -4096.0 / 360.0]] + bias_bias 1300\ + absEncHome 243\ + cntsPerX [expr 4096.0 / 360.0]] mhfocus part crystal mhfocus long_name mhfocus -mhfocus softlowerlim -75 -mhfocus softupperlim 235 +mhfocus softlowerlim -10 +mhfocus softupperlim 280 mhfocus home 0 -mhfocus Blockage_Thresh 2 +mhfocus Blockage_Thresh 4 mhfocus Blockage_Check_Interval 2 mhfocus creep_offset 0.2 +mhfocus backlash_offset -4 # mc3: Monochromator Rotate Motor m1 $motor_driver_type [params \ @@ -563,13 +510,13 @@ Motor m1 $motor_driver_type [params \ maxDecel 0.25\ stepsPerX 100000\ absEnc 1\ - absEncHome 16323070\ + absEncHome 16189898\ cntsPerX -2048] m1 part crystal m1 long_name m1 m1 softlowerlim 5 m1 softupperlim 40 -m1 home 20.45933 +m1 home 0 m1 backlash_offset -1.0 # mc4: Analyzer Tilt 1 -- Two-theta Angle diff --git a/site_ansto/instrument/tas/taipan_configuration.tcl b/site_ansto/instrument/tas/taipan_configuration.tcl index 2e910fc4..c605b795 100644 --- a/site_ansto/instrument/tas/taipan_configuration.tcl +++ b/site_ansto/instrument/tas/taipan_configuration.tcl @@ -35,21 +35,27 @@ namespace eval anticollider { proc ::anticollider::init {} {} } #fileeval $cfPath(anticollider)/anticollider.tcl #fileeval $cfPath(tasmad)/taspub_sics/tasp.tcl #fileeval $cfPath(tasmad)/taspub_sics/tasscript.tcl + +fileeval $cfPath(environment)/sct_agilent_33220A.tcl +fileeval $cfPath(environment)/sct_protek_common.tcl +fileeval $cfPath(environment)/sct_protekmm.tcl fileeval $cfPath(environment)/temperature/sct_eurotherm_2000.tcl +fileeval $cfPath(environment)/temperature/sct_eurotherm_3200.tcl fileeval $cfPath(environment)/temperature/sct_julabo_lh45.tcl fileeval $cfPath(environment)/temperature/sct_lakeshore_336.tcl +fileeval $cfPath(environment)/temperature/sct_ls336.tcl fileeval $cfPath(environment)/temperature/sct_lakeshore_340.tcl +fileeval $cfPath(environment)/temperature/sct_ls340.tcl fileeval $cfPath(environment)/temperature/sct_lakeshore_370.tcl +fileeval $cfPath(environment)/temperature/sct_lakeshore_m370.tcl fileeval $cfPath(environment)/temperature/sct_oxford_itc.tcl fileeval $cfPath(environment)/temperature/sct_oxford_mercury.tcl -fileeval $cfPath(environment)/temperature/sct_mercury_base.tcl -fileeval $cfPath(environment)/temperature/sct_mercury_temp.tcl -fileeval $cfPath(environment)/temperature/sct_mercury_pres.tcl -fileeval $cfPath(environment)/temperature/sct_mercury_level.tcl -fileeval $cfPath(environment)/temperature/sct_mercury_valve.tcl fileeval $cfPath(environment)/temperature/west400.tcl +fileeval $cfPath(environment)/temperature/sct_west_6100.tcl fileeval $cfPath(environment)/he3/sct_he3.tcl fileeval $cfPath(environment)/magneticField/oxford_labview.tcl +fileeval $cfPath(environment)/magneticField/sct_oxford12tlv.tcl +fileeval $cfPath(beamline)/sct_he3_polanal.tcl fileeval config/load_setup.tcl fileeval log.tcl publish logbook spy @@ -58,12 +64,44 @@ source gumxml.tcl ::utility::mkVar ::anticollider::protect_detector text manager protect_detector false detector true false ::anticollider::protect_detector "true" +if { [ dict exists $::config_dict sample_stage implementation ] } { + set sample_stage [ dict get $::config_dict sample_stage implementation ] +} else { + set sample_stage "normal_sample_stage" +} +switch $sample_stage { + "eulerian_cradle" { + # s1-> eom, sgu -> ephi, sgl -> echi + set OMEGA s1 + set PHI ephi + set CHI echi + } + "normal_sample_stage" - default { + set OMEGA s1 + set PHI sgu + set CHI sgl + } +} # init for the tasUB #make mcv mch acv ach into mvfocus mhfocus avfocus ahfocus when it works puts "doing tasub" -MakeTasUB tasub m1 m2 mcv mch s1 s2 sgu sgl a1 a2 acv ach +MakeTasUB tasub m1 m2 mvfocus mhfocus $OMEGA s2 $PHI $CHI a1 a2 avfocus ahfocus tasub mono dd 3.35416 tasub ana dd 3.35416 +# NOTE Autofocussing parameters (vbn, hbn) persist in status.tcl +# To override this behaviour you can set them in extraconfig.tcl +tasub mono vb1 102.2 +tasub mono vb2 1.78 +tasub mono hb1 18.28 +tasub mono hb2 60.1 +tasub mono hb3 0.951 +tasub ana vb1 115 +tasub ana vb2 2.13 +tasub ana hb1 45.68 +tasub ana hb2 105.7 +tasub ana hb3 0.945 +tasub focusfn energy +tasub autofocus 0 tasub updatetargets puts "done tasub" @@ -74,6 +112,16 @@ server_init ########################################### # WARNING: Do not add any code below server_init, if you do SICS may fail to initialise properly. +puts "Making hkl command" +MakeMono mono PG m1 m2 +mono dd 3.35416 +MakeWaveLength lambda mono +MakeEnergy energy mono +#MakeSingleX singlex +#MakeHKL s2 $OMEGA $PHI $CHI +#MakeHKLMot hkl +#MakeUBcalc ubcalc hkl + # Provide tasmot notifications to GumTree when real motors move proc m2tasupdate {} { tasub update @@ -109,7 +157,7 @@ proc a2tasupdate {} { publish a2tasupdate user scriptcallback connect m2 MOTEND m2tasupdate -scriptcallback connect s1 MOTEND s1s2tasupdate +scriptcallback connect $OMEGA MOTEND s1s2tasupdate scriptcallback connect s2 MOTEND s1s2tasupdate scriptcallback connect a2 MOTEND a2tasupdate diff --git a/site_ansto/instrument/tas/util/sics_config.ini b/site_ansto/instrument/tas/util/sics_config.ini index a6d20e29..2051ff37 100644 --- a/site_ansto/instrument/tas/util/sics_config.ini +++ b/site_ansto/instrument/tas/util/sics_config.ini @@ -1,156 +1,304 @@ -[12tmagnet] -desc = "12 Tesla Oxford Magnet" -driver = "12tmagnet" -enabled = False -group = environment:magnet -id = 11 -ip = 10.157.205.3 -name = magnetic -port = 55001 -type = B - [12tmagnet_setup] -cascade = 12tmagnet,s1_sample_insert,mercury_scpi +cascade = B1:12tmagnet_oxford,sample_stage:12tmagnet_sample_insert,T1:mercury_scpi_01 enabled = False -group = 0setup - -[ls336_1] -desc = "tc1: Lakeshore 336 temperature controller" -driver = "ls336" +[CF1] +cascade = T1:CF1_ls340,sample_stage:normal_sample_stage +enabled = False +[Default] +cascade = sample_stage:normal_sample_stage +enabled = True +[B1] +datype = B enabled = False -group = environment:temperature id = 1 -ip = 10.157.205.28 -name = tc1 -port = 7777 -terminator = \r\n -tol1 = 1.0 -tol2 = 1.0 -type = T - -[ls336_12] -desc = "tc6: Lakeshore 336 temperature controller" -driver = "ls336" +implementation = none +name = magnet1 +optype = magnetic_field +[Function_Generator] +datype = V enabled = False -group = environment:temperature -id = 6 -ip = 10.157.205.31 -name = tc6 -port = 7777 -terminator = \r\n -tol1 = 1.0 -tol2 = 1.0 -type = T - -[ls336_2] -desc = "tc2: Lakeshore 336 temperature controller" -driver = "ls336" +id = 1 +implementation = none +name = pulser +optype = function_generator +[I1] +datype = I +enabled = False +id = 1 +implementation = none +name = curr1 +optype = multimeter +[I2] +datype = I enabled = False -group = environment:temperature id = 2 -ip = 10.157.205.29 +implementation = none +name = curr2 +optype = multimeter +[T1] +datype = T +enabled = False +id = 1 +implementation = none +name = tc1 +optype = temperature +[T2] +datype = T +enabled = False +id = 2 +implementation = none name = tc2 -port = 7777 -terminator = \r\n -tol1 = 1.0 -tol2 = 1.0 -type = T - -[ls336_4] -desc = "tc3: Lakeshore 336 temperature controller" -driver = "ls336" +optype = temperature +[T3] +datype = T enabled = False -group = environment:temperature id = 3 -ip = 10.157.205.30 +implementation = none name = tc3 -port = 7777 -terminator = \r\n -tol1 = 1.0 -tol2 = 1.0 -type = T - -[ls336_5] -desc = "tc4: Lakeshore 336 temperature controller" -driver = "ls336" +optype = temperature +[T4] +datype = T enabled = False -group = environment:temperature id = 4 -ip = 137.157.201.21 +implementation = none name = tc4 -port = 7777 -terminator = \r\n -tol1 = 1.0 -tol2 = 1.0 -type = T - -[ls336_6] -desc = "tc5: Lakeshore 336 temperature controller" -driver = "ls336" +optype = temperature +[V1] +datype = V enabled = False -group = environment:temperature -id = 5 -ip = 137.157.201.21 -name = tc5 -port = 7777 -terminator = \r\n -tol1 = 1.0 -tol2 = 1.0 -type = T +id = 1 +implementation = none +name = volts1 +optype = multimeter +[V2] +datype = V +enabled = False +id = 2 +implementation = none +name = volts2 +optype = multimeter +[sample_stage] +enabled = Always +implementation = normal_sample_stage +name = sample_stage +optype = motion_axis +[12tmagnet_oxford] +asyncqueue = sct +desc = "12 Tesla Oxford Magnet" +driver = "oxford12tlv" +imptype = magnetic_field +interval = 5 +ip = 10.157.205.3 +port = 55001 -[ls340_1] -desc = "tc13: Lakeshore 340 temperature controller" +[12tmagnet_sample_insert] +desc = "s1 will be redefined as the magnet sample insert rotation." +imptype = motion_axis + +[CF1_ls340] +desc = "cf1: Bottom loading cryofurnace" driver = "ls340" -enabled = False -group = environment:temperature -id = 13 -ip = 137.157.203.137 -name = tc13 +imptype = temperature +ip = 10.157.205.43 port = 4001 terminator = \r\n tol1 = 1.0 tol2 = 1.0 -type = T -[ls370] -desc = "tc8: Lakeshore 370 temperature controller" -driver = "ls370" -enabled = False -group = environment:temperature -id = 8 -ip = 137.157.203.137 -name = tc8 -port = 4003 +[agilent_33220A] +asyncqueue = sct +desc = "Function Generator" +driver = agilent_33220A +imptype = function_generator +ip = 10.157.205.16 +name = pulser +port = 5025 + +[ls336_01] +asyncqueue = sct +desc = "Lakeshore 336 temperature controller" +driver = "ls336" +imptype = temperature +ip = 10.157.205.28 +port = 7777 terminator = \r\n -tol = 2.0 -type = T +tol1 = 1.0 +tol2 = 1.0 -[mercury_scpi] -desc = "tc9: Oxford Mercury temperature controller in Mercury mode" -driver = "mercury_scpi" -enabled = False -group = environment:temperature -id = 9 +[ls336_02] +asyncqueue = sct +desc = "Lakeshore 336 temperature controller" +driver = "ls336" +imptype = temperature +ip = 10.157.205.29 +port = 7777 +terminator = \r\n +tol1 = 1.0 +tol2 = 1.0 + +[ls336_04] +asyncqueue = sct +desc = "Lakeshore 336 temperature controller" +driver = "ls336" +imptype = temperature +ip = 10.157.205.30 +port = 7777 +terminator = \r\n +tol1 = 1.0 +tol2 = 1.0 + +[ls336_05] +asyncqueue = sct +desc = "Lakeshore 336 temperature controller" +driver = "ls336" +imptype = temperature +ip = 137.157.201.21 +port = 7777 +terminator = \r\n +tol1 = 1.0 +tol2 = 1.0 + +[ls336_06] +asyncqueue = sct +desc = "Lakeshore 336 temperature controller" +driver = "ls336" +imptype = temperature +ip = 10.157.205.30 +port = 7777 +terminator = \r\n +tol1 = 1.0 +tol2 = 1.0 + +[ls336_11] +desc = "Lakeshore 336 temperature controller" +driver = "ls336" +imptype = temperature +ip = 10.157.205.27 +port = 7777 +terminator = \r\n +tol1 = 1.0 +tol2 = 1.0 + +[ls336_12] +asyncqueue = sct +desc = "Lakeshore 336 temperature controller" +driver = "ls336" +imptype = temperature +ip = 10.157.205.31 +port = 7777 +terminator = \r\n +tol1 = 1.0 +tol2 = 1.0 + +[ls340_01] +asyncqueue = sct +desc = "Lakeshore 340 temperature controller" +driver = "ls340" +imptype = temperature +ip = 137.157.201.86 +port = 4001 +terminator = \r\n +tol1 = 1.0 +tol2 = 1.0 + +[ls340_02] +asyncqueue = sct +desc = "Lakeshore 340 temperature controller" +driver = "ls340" +imptype = temperature +ip = 137.157.201.86 +port = 4002 +terminator = \r\n +tol1 = 1.0 +tol2 = 1.0 + +[ls340_11] +desc = "Lakeshore 340 temperature controller" +driver = "ls340" +imptype = temperature +ip = 137.157.201.86 +port = 4001 +terminator = \r\n +tol1 = 1.0 +tol2 = 1.0 + +[mercury_scpi_01] +desc = "Oxford Mercury temperature controller with three temperature loops." +driver = "mercury_base" +imptype = temperature ip = 10.157.205.5 -name = tc9 -offifon = mercury_itc500 +permlink = LT port = 7020 -terminator = \r -tol = 2.0 -type = T +terminator = \r\n +tol = 1.0 +valve_tol = 2 -[s1_sample_insert] -desc = "s1 will be defined as the sample insert rotation. Sample stage will be renamed to s1ss and sgu and sgl will be simulated" -enabled = False -group = motors +[mercury_scpi_02] +desc = "Oxford Mercury temperature controller with four temperature loops and needle valve control" +driver = "mercury_scpi" +imptype = temperature +ip = 10.157.205.47 +permlink = LT +port = 7020 +terminator = \r\n +tol = 1.0 +valve_tol = 2 -[west4100] -desc = "tc10: Blue furnace temperature controller" +[normal_sample_stage] +desc = "This is the default sample stage configuration" +imptype = motion_axis + +[protek_01] +asyncqueue = sct +desc = "Protek Multimeter" +driver = "protekmm" +imptype = multimeter +ip = 10.157.205.36 +port = 4001 + +[protek_02] +asyncqueue = sct +desc = "Protek Multimeter" +driver = "protekmm" +imptype = multimeter +ip = 10.157.205.37 +port = 4001 + +[vf1_west4100] +asyncqueue = sct +desc = "VF1 Blue furnace temperature controller" +dev_id = 1 driver = "west4100" -enabled = False -group = environment:temperature -id = 10 -ip = 10.157.205.19 -name = tc10 -type = T +imptype = temperature +ip = 10.157.205.24 +port = 502 + +[vf1_west6100] +asyncprotocol = modbus_ap +desc = "VF1 Blue furnace 6100 temperature controller" +dev_id = 1 +driver = "west_6100" +imptype = temperature +ip = 10.157.205.24 +port = 502 +timeout = 2000 + +[vf2_west4100] +asyncqueue = sct +desc = "VF2 Blue furnace temperature controller" +dev_id = 1 +driver = "west4100" +imptype = temperature +ip = 10.157.205.25 +port = 502 + +[vf2_west6100] +asyncprotocol = modbus_ap +desc = "VF2 Blue furnace 6100 temperature controller" +dev_id = 1 +driver = "west_6100" +imptype = temperature +ip = 10.157.205.25 +port = 502 +timeout = 2000