Merge branch 'master' of gitlab.psi.ch-samenv:samenv/sea

tcl/drivers/ccu4.tcl

@@ -385,12 +385,14 @@ proc stdConfig::ccu4 {{title CCU4} args} {
       } elseif {[string match valve* $a]} {
         set nvalve [string range $a 5 end]
         for {set ch 1} {$ch <= 12} {incr ch} {
-          node v$ch upd
+          node v$ch rd -int 10
+          prop read ccu4::readValve v$ch
           prop enum valve_off,valve_on,no_valve,timeout,timeout1,boost
           if {$ch > $nvalve} {
             prop visible false
           }
           node vc$ch out -int
+          prop write ccu4::writeValve v$ch
           prop enum valve_off,valve_on
           if {$ch > $nvalve} {
             prop visible false
@@ -404,6 +406,20 @@ proc stdConfig::ccu4 {{title CCU4} args} {
   return "CCU4"
 } 
 
+proc ccu4::readValve {valve} {
+  # for some strange reason, v... are not queried with '?'
+  # we have to do it here
+  sct send $valve
+  return ccu4::complete
+}
+
+proc ccu4::writeValve {valve} {
+  set res [ccu4::write]
+  # update readback value immediately
+  hupdate [sct parent]/$valve [sct target]
+  return $res
+}
+
 proc ccu4::completeStart {name} {
   set resval(cid) 0
   set resval(cir) ""

tcl/drivers/dil12.tcl

@@ -264,6 +264,7 @@ proc stdConfig::dil12 args {
   }
   hset $name/heatermode 0
   dolater 0 hset $name/autoprop/integ 5
+  dolater 0 apply_dilpars
 }
 
 proc dil12::check_set {} {

tcl/drivers/dilpars.tcl

@@ -0,0 +1,18 @@
+# any parameter to be entered by hand
+namespace eval dilpars {} {
+}
+
+proc stdConfig::dilpars {args} {
+  variable hostport none
+  variable name
+  controller syncedprot
+
+  scanargs $args var -circulateflow 4 -condenseflow 8
+
+  obj dummy -none
+  kids hidden {
+    node condenseflow par $condenseflow
+    node circulateflow par $circulateflow
+  }
+  dolater 0 apply_dilargs
+}

tcl/drivers/trun.tcl

@@ -497,9 +497,9 @@ proc trun::read_run {} {
   set now [DoubleTime]
   set tr [silent none sct target]
   set prev_tr [silent $tr sct prev_tr]
-  sct prev_tr $tr
   if {$tr eq "none"} {
     set tr $tmain
+    sct prev_tr $tr
   } else {
     set dif [expr $tr - $prev_tr]
     updateval_u [sct]/target $tr 0