- Added intValue writing to hdbutil.tcl

- Added threshold proecessing to el737dec.tcl

tcl/el737sec.tcl

@@ -10,6 +10,7 @@
 #   pause,cont, stop: el737sendcmd - el737cmdreply
 #   status: el737readstatus - el737status
 #   values: el737readvalues - el737val
+#   threshold write: el737threshsend - el737threshrcv - el737cmdreply 
 # 
 # Mark Koennecke, February 2009
 #-----------------------------------------------------
@@ -192,6 +193,48 @@ proc el737val {} {
     return idle
 }
 #----------------------------------------------
+proc el737threshsend {} {
+    set val [string trim [sct target]]
+    set root [sctroot]
+    set cter [string trim [hval $root/thresholdcounter]]
+    sct send [format "DL %1.1d %f" $cter $val]
+    return el737threshrecv
+}
+#---------------------------------------------
+proc el737threshrecv {} {
+    set reply [sct result]
+    set status [catch {el737error $reply} err]
+    if {$status != 0} {
+	sct geterror $err
+	sct print "ERROR: $err"
+    }
+    set root [sctroot]
+    set cter [string trim [hval $root/thresholdcounter]]
+    sct send [format "DR %1.1d" $cter]
+    set sctcon [sct controller]
+    $sctcon queue [sct] progress read
+    return el737cmdreply
+}
+#---------------------------------------------
+proc el737threshread {} {
+    set root [sctroot]
+    set cter [string trim [hval $root/thresholdcounter]]
+    sct send [format "DL %1.1d" $cter]
+    return el737thresh
+}
+#----------------------------------------------
+proc el737thresh {} {
+    set reply [sct result]
+    set status [catch {el737error $reply} err]
+    if {$status != 0} {
+	sct geterror $err
+	sct print "ERROR: $err"
+    }
+    stscan $reply "%f" val
+    sct update $val
+    return idle
+}
+#----------------------------------------------
 proc el737func {controller path} {
     $controller queue $path write
 }
@@ -214,11 +257,24 @@ proc MakeSecEL737 {name netaddr} {
     hsetprop $path el737status el737status
     hsetprop $path moncount 0
     $conname poll $path 60
-    $conname debug -1
 
     set path /sics/${name}/control
     hsetprop $path write el737control
     hsetprop $path el737cmdreply el737cmdreply
     $conname write $path
-   
+
+    hfactory /sics/${name}/thresholdcounter plain mugger int
+    hseprop /sics/${name}/thresholdcounter __save true
+    set path /sics/${name}/threshold
+    hfactory $path plain mugger float
+    hsetprop $path write el737threshsend
+    hsetprop $path el737threshrcv el737threshrcv
+    hsetprop $path el737cmdreply el737cmdreply
+    $conname write $path
+    hsetprop $path read el737threshread
+    hsetprop $path el737thresh el737thresh
+    $conname poll $path 60
+    
+    $conname debug -1
+
 }