SICS-309 nxscript_common_1.tcl

The savetree function now checks to see if an hdb node has a "permlink" property set when making data links
SICS-309 quokka parameters.tcl, sct_velsel.tcl

r2933 | ffr | 2010-05-23 15:12:59 +1000 (Sun, 23 May 2010) | 4 lines

site_ansto/instrument/sans/config/parameters/parameters.tcl

@@ -26,6 +26,7 @@ foreach {var lname type priv units klass} {
     sicslist setatt $var units $units
   }
 }
+sicslist setatt Transmission link data_set
 
 proc sicsmsgfmt {args} {return "[info level -1] = $args"}
 

site_ansto/instrument/sans/config/velsel/sct_velsel.tcl

@@ -502,6 +502,7 @@ proc halt {root} {
   hsetprop $velselPath/Lambda rdpar ${scobjNS}::readLambda $statusPath
   hsetprop $velselPath/Lambda oldval "UNKNOWN"
   hsetprop $velselPath/Lambda units "Angstrom"
+  hsetprop $velselPath/Lambda permlink data_set
 
 # Set Lambda
   hfactory $velselPath/setLambda plain spy float

site_ansto/instrument/sans/config/velsel/velsel.tcl

@@ -1,3 +1,4 @@
+# Set currVelSel to select either the NVS40 or NVS43
 set currVelSel 43
 
 namespace eval ::scobj::velocity_selector {
@@ -5,6 +6,7 @@ namespace eval ::scobj::velocity_selector {
   variable velsel_IP
   variable velsel_port
 
+# Set configuration parameters for either the NVS40 or NVS43 velocity selector
   set ::currVelSel [string tolower $::currVelSel]
   switch $::currVelSel {
     40 {