hmm_configuration_common_1.tcl
The post_count callback should be called when the count ends. quokka_configuration.tcl Added lakeshore 336, qlink, and rheometer configurations. quokka sct_flipper.tcl Report "-1" for fields which return corrupt or invalid readings. quokka environment.tcl Implement histogram memory pre_count and post_count callbacks to record temperature before and after an acquisition. quokka motor_configuration.tcl Set correct max speed for detector motor, ie it is now 53mm/s instead of 40 wombat_configuration.tcl Added lakeshore 336 driver and julabo and qlink. r3034 | ffr | 2010-12-03 11:07:49 +1100 (Fri, 03 Dec 2010) | 17 lines
This commit is contained in:
committed by
Douglas Clowes
parent
e7e857b70e
commit
8d066dec11
@@ -50,6 +50,7 @@ namespace eval ::scobj::rfgen {
|
||||
proc ::scobj::rfgen::mkStatArr {stateArrName stateReport} {
|
||||
upvar $stateArrName stateArr
|
||||
array set stateArr $stateReport
|
||||
|
||||
if {$stateArr(curr) != 0} {
|
||||
set val [string trimleft $stateArr(curr) 0]
|
||||
if {[string is integer $val]} {
|
||||
@@ -170,6 +171,18 @@ proc ::scobj::rfgen::rdStatFunc {} {
|
||||
return stateChange
|
||||
}
|
||||
set statList [split $statStr "|="]
|
||||
foreach {k v} $statList {
|
||||
if {$k == "type"} {
|
||||
lappend temp "$k $v"
|
||||
continue
|
||||
}
|
||||
if {[string is integer $v]} {
|
||||
lappend temp "$k $v"
|
||||
} else {
|
||||
lappend temp "$k -1"
|
||||
}
|
||||
}
|
||||
set statList [join $temp]
|
||||
mkStatArr stateArr $statList
|
||||
|
||||
if {$statList != [sct oldStateRep]} {
|
||||
|
||||
Reference in New Issue
Block a user