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

writetree - sorted items and continue on error for more resiliency

Browse Source
This commit is contained in:
Douglas Clowes
2014-04-22 15:03:19 +10:00
parent ad50eaca6a
commit a43ca1cf94
1 changed files with 21 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
site_ansto/instrument/util/write_tree.tcl
View File

@ -15,36 +15,36 @@
} else {
set line "$nam ([hinfo $tc_root]) = $val"
}
clientput "$space* $line"
} message ] {
clientput "Error in writeNode/hinfo for $tc_root : $message"
return
}
clientput "$space* $line"
if {"[string tolower "$do_props"]" == "-prop"} {
if [ catch {
set props [hlistprop $tc_root]
} message ] {
clientput "Error in writeNode/hlistprop for $tc_root : $message"
return
}
#clientput "<<$props>>"
foreach prop $props {
#clientput "prop: $prop"
set flds [split $prop "="]
#clientput "flds: $flds"
if {[llength $flds] > 1} {
set fld0 [lindex $flds 0]
#clientput "fld0: $fld0"
if {[hpropexists $tc_root $fld0]} {
set rst [hgetprop $tc_root $fld0]
set nam [lindex [split [lindex $rst 0] "."] 1]
set rst [join [lrange [split $rst " "] 1 end] " "]
clientput "$space - $nam $rst"
set props [lsort [hlistprop $tc_root]]
#clientput "<<$props>>"
foreach prop $props {
if [ catch {
# guard against embedded spaces producing false properties
#clientput "prop: $prop"
set flds [split $prop "="]
#clientput "flds: $flds"
if {[llength $flds] > 1} {
set nam [lindex $flds 0]
if {[hpropexists $tc_root $nam]} {
set rst [hgetpropval $tc_root $nam]
clientput "$space - $nam=$rst"
}
}
} message ] {
clientput "Error in writeNode/hlistprop for $tc_root : $message"
}
}
} message ] {
clientput "Error in writeNode/hlistprop for $tc_root : $message"
}
}
foreach node [hlist $tc_root] {
foreach node [lsort [hlist $tc_root]] {
::utility::writeNode $tc_root/$node "$do_props" [expr {$level + 1}]
}
} message ] {