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

Generated sct tcl drivers from sct templates.

Browse Source
This commit is contained in:
Ferdi Franceschini
2014-08-06 10:59:14 +10:00
parent 18c862a609
commit 639e4dc3c8
31 changed files with 426 additions and 131 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
site_ansto/instrument/config/environment/temperature/sct_mercury_pres.tcl
View File

@@ -285,15 +285,19 @@ proc ::scobj::mercury_pres::mkDriver { sct_controller name id tol } {
set scobj_hpath /sics/${name}
hfactory ${scobj_hpath}/Loop8 plain spy none
hsetprop ${scobj_hpath}/Loop8 data "true"
hsetprop ${scobj_hpath}/Loop8 klass "@none"
hsetprop ${scobj_hpath}/Loop8 type "part"
hfactory ${scobj_hpath}/Loop8/nick plain user text
hsetprop ${scobj_hpath}/Loop8/nick read ${ns}::getValue ${scobj_hpath} rdText {READ:DEV:DB8.P1:PRES:NICK}
hsetprop ${scobj_hpath}/Loop8/nick rdText ${ns}::rdText ${scobj_hpath}
hsetprop ${scobj_hpath}/Loop8/nick control true
hsetprop ${scobj_hpath}/Loop8/nick data true
hsetprop ${scobj_hpath}/Loop8/nick mutable false
hsetprop ${scobj_hpath}/Loop8/nick mutable true
hsetprop ${scobj_hpath}/Loop8/nick nxsave true
hsetprop ${scobj_hpath}/Loop8/nick oldval UNKNOWN
hsetprop ${scobj_hpath}/Loop8/nick klass "parameter"
hsetprop ${scobj_hpath}/Loop8/nick sdsinfo "::nexus::scobj::sdsinfo"
hsetprop ${scobj_hpath}/Loop8/nick type "part"
hsetprop ${scobj_hpath}/Loop8/nick nxalias "${name}_Loop8_nick"
@@ -303,12 +307,13 @@ proc ::scobj::mercury_pres::mkDriver { sct_controller name id tol } {
hsetprop ${scobj_hpath}/Loop8/sensor rdValue ${ns}::rdValue ${scobj_hpath}
hsetprop ${scobj_hpath}/Loop8/sensor control true
hsetprop ${scobj_hpath}/Loop8/sensor data true
hsetprop ${scobj_hpath}/Loop8/sensor mutable false
hsetprop ${scobj_hpath}/Loop8/sensor mutable true
hsetprop ${scobj_hpath}/Loop8/sensor nxsave true
hsetprop ${scobj_hpath}/Loop8/sensor units mB
hsetprop ${scobj_hpath}/Loop8/sensor permlink data_set "P[format "%02d" ${id}]S08"
hsetprop ${scobj_hpath}/Loop8/sensor @description "P[format "%02d" ${id}]S08"
hsetprop ${scobj_hpath}/Loop8/sensor oldval 0.0
hsetprop ${scobj_hpath}/Loop8/sensor klass "parameter"
hsetprop ${scobj_hpath}/Loop8/sensor sdsinfo "::nexus::scobj::sdsinfo"
hsetprop ${scobj_hpath}/Loop8/sensor type "part"
hsetprop ${scobj_hpath}/Loop8/sensor nxalias "${name}_Loop8_sensor"
@@ -326,7 +331,7 @@ proc ::scobj::mercury_pres::mkDriver { sct_controller name id tol } {
hsetprop ${scobj_hpath}/Loop8/setpoint driveable Loop8/sensor
hsetprop ${scobj_hpath}/Loop8/setpoint control true
hsetprop ${scobj_hpath}/Loop8/setpoint data true
hsetprop ${scobj_hpath}/Loop8/setpoint mutable false
hsetprop ${scobj_hpath}/Loop8/setpoint mutable true
hsetprop ${scobj_hpath}/Loop8/setpoint nxsave true
hsetprop ${scobj_hpath}/Loop8/setpoint lowerlimit 0
hsetprop ${scobj_hpath}/Loop8/setpoint upperlimit 333
@@ -335,6 +340,7 @@ proc ::scobj::mercury_pres::mkDriver { sct_controller name id tol } {
hsetprop ${scobj_hpath}/Loop8/setpoint permlink data_set "P[format "%02d" ${id}]SP08"
hsetprop ${scobj_hpath}/Loop8/setpoint @description "P[format "%02d" ${id}]SP08"
hsetprop ${scobj_hpath}/Loop8/setpoint oldval 0.0
hsetprop ${scobj_hpath}/Loop8/setpoint klass "parameter"
hsetprop ${scobj_hpath}/Loop8/setpoint sdsinfo "::nexus::scobj::sdsinfo"
hsetprop ${scobj_hpath}/Loop8/setpoint settle_time "15"
hsetprop ${scobj_hpath}/Loop8/setpoint type "drivable"
@@ -349,6 +355,7 @@ proc ::scobj::mercury_pres::mkDriver { sct_controller name id tol } {
::scobj::mercury_pres::sics_log 9 "[environment_simulation] => No poll/write for mercury_pres"
}
hsetprop ${scobj_hpath} klass environment
hsetprop ${scobj_hpath} data true
hsetprop ${scobj_hpath} debug_threshold 5
if {[string equal -nocase [SplitReply [environment_simulation]] "false"]} {
ansto_makesctdrive ${name}_Loop8_setpoint ${scobj_hpath}/Loop8/setpoint ${scobj_hpath}/Loop8/sensor ${sct_controller}