137 lines
4.3 KiB
Tcl
137 lines
4.3 KiB
Tcl
# Define procs in ::scobj::xxx namespace
|
|
# MakeSICSObj $obj SCT_<class>
|
|
# The MakeSICSObj cmd adds a /sics/$obj node. NOTE the /sics node is not browsable.
|
|
|
|
|
|
namespace eval ::scobj::qlink {
|
|
# Temperature controllers must have at least the following nodes
|
|
# /tempcont/setpoint
|
|
# /tempcont/sensor/value
|
|
proc debug_log {args} {
|
|
set fd [open "../log/qlink.log" a]
|
|
puts $fd $args
|
|
close $fd
|
|
}
|
|
|
|
proc getValue {nextState cmd} {
|
|
sct send "#01$cmd"
|
|
return $nextState
|
|
}
|
|
|
|
proc rdValue {tc_root} {
|
|
set data [sct result]
|
|
if {[ catch {
|
|
debug_log "rdValue $tc_root [sct] result=$data"
|
|
} message ]} {
|
|
debug_log "rdValue $tc_root failure"
|
|
}
|
|
switch -glob -- $data {
|
|
"ASCERR:*" {
|
|
sct geterror $data
|
|
}
|
|
default {
|
|
if {$data != [sct oldval]} {
|
|
sct oldval $data
|
|
sct update $data
|
|
sct utime readtime
|
|
debug_log "rdValue new data for $tc_root [sct] result=$data"
|
|
}
|
|
}
|
|
}
|
|
return idle
|
|
}
|
|
|
|
proc noResponse {} {
|
|
return idle
|
|
}
|
|
proc wrtValue {wcmd args} {
|
|
}
|
|
|
|
proc mk_sct_qlink {sct_controller klass tempobj tol} {
|
|
if {[ catch {
|
|
set ns ::scobj::qlink
|
|
|
|
MakeSICSObj $tempobj SCT_OBJECT
|
|
sicslist setatt $tempobj klass $klass
|
|
sicslist setatt $tempobj long_name $tempobj
|
|
|
|
set scobj_hpath /sics/$tempobj
|
|
hfactory $scobj_hpath/pressure plain spy none
|
|
hfactory $scobj_hpath/pressure/value plain internal float
|
|
hsetprop $scobj_hpath/pressure/value read ${ns}::getValue rdValue "D1"
|
|
hsetprop $scobj_hpath/pressure/value rdValue ${ns}::rdValue $scobj_hpath
|
|
hsetprop $scobj_hpath/pressure/value oldval UNKNOWN
|
|
hsetprop $scobj_hpath/pressure/value units "BAR"
|
|
|
|
hfactory $scobj_hpath/temperature plain spy none
|
|
hfactory $scobj_hpath/temperature/value plain internal float
|
|
hsetprop $scobj_hpath/temperature/value read ${ns}::getValue rdValue "D2"
|
|
hsetprop $scobj_hpath/temperature/value rdValue ${ns}::rdValue $scobj_hpath
|
|
hsetprop $scobj_hpath/temperature/value oldval UNKNOWN
|
|
hsetprop $scobj_hpath/temperature/value units "K"
|
|
|
|
hfactory $scobj_hpath/itc500_lasterror plain user text
|
|
hset $scobj_hpath/itc500_lasterror ""
|
|
|
|
if {[SplitReply [environment_simulation]]=="false"} {
|
|
$sct_controller poll $scobj_hpath/pressure/value
|
|
$sct_controller poll $scobj_hpath/temperature/value
|
|
}
|
|
|
|
::scobj::hinitprops $tempobj
|
|
hsetprop $scobj_hpath klass NXenvironment
|
|
::scobj::set_required_props $scobj_hpath
|
|
hsetprop $scobj_hpath type part
|
|
foreach snsr {pressure temperature} {
|
|
foreach {rootpath hpath klass priv} "
|
|
$scobj_hpath $snsr NXsensor spy
|
|
$scobj_hpath $snsr/value sensor user
|
|
" {
|
|
hsetprop $rootpath/$hpath klass $klass
|
|
hsetprop $rootpath/$hpath privilege $priv
|
|
hsetprop $rootpath/$hpath control true
|
|
hsetprop $rootpath/$hpath data true
|
|
hsetprop $rootpath/$hpath nxsave true
|
|
}
|
|
hsetprop $scobj_hpath/$snsr type part
|
|
hsetprop $scobj_hpath/$snsr/value nxalias tc1_${snsr}_value
|
|
hsetprop $scobj_hpath/$snsr/value mutable true
|
|
hsetprop $scobj_hpath/$snsr/value sdsinfo ::nexus::scobj::sdsinfo
|
|
}
|
|
hsetprop $scobj_hpath privilege spy
|
|
# ::scobj::hinitprops $tempobj setpoint
|
|
} message ]} {
|
|
return -code error $message
|
|
}
|
|
}
|
|
namespace export mk_sct_qlink
|
|
}
|
|
|
|
##
|
|
# @brief Create a Quartzdyne Q-Link controller
|
|
#
|
|
# @param name, the name of the temperature controller (eg tc1)
|
|
# @param IP, the IP address of the device, this can be a hostname, (eg ca1-kowari)
|
|
# @param port, the IP protocol port number of the device
|
|
# @param _tol (optional), this is the initial tolerance setting
|
|
proc add_qlink {name IP port {_tol 5.0}} {
|
|
set fd [open "../log/qlink.log" a]
|
|
if {[SplitReply [environment_simulation]]=="false"} {
|
|
puts $fd "makesctcontroller sct_qlink std ${IP}:$port"
|
|
makesctcontroller sct_qlink std ${IP}:$port
|
|
}
|
|
puts $fd "mk_sct_qlink sct_qlink environment $name $_tol"
|
|
mk_sct_qlink sct_qlink environment $name $_tol
|
|
close $fd
|
|
}
|
|
|
|
clientput "file evaluation of sct_qlink.tcl"
|
|
set fd [open "../log/qlink.log" w]
|
|
puts $fd "file evaluation of sct_qlink.tcl"
|
|
close $fd
|
|
|
|
namespace import ::scobj::qlink::*
|
|
|
|
#add_qlink qlink 137.157.201.213 502 5
|
|
#add_qlink qlink localhost 30508 5
|