62 lines
1.8 KiB
Tcl
62 lines
1.8 KiB
Tcl
namespace eval ::utility {}
|
|
proc ::utility::writeNode {tc_root { do_props 0 } { level 0 }} {
|
|
if [ catch {
|
|
set space [string repeat " " $level]
|
|
if [ catch {
|
|
set val [hval $tc_root]
|
|
} message ] {
|
|
clientput "Error in writeNode/hval for $tc_root : $message"
|
|
return
|
|
}
|
|
set nam [lindex [split $tc_root "/"] end]
|
|
if [ catch {
|
|
if {"$val" == ""} {
|
|
set line "$nam ([hinfo $tc_root])"
|
|
} else {
|
|
set line "$nam ([hinfo $tc_root]) = $val"
|
|
}
|
|
} 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"
|
|
}
|
|
}
|
|
}
|
|
}
|
|
foreach node [hlist $tc_root] {
|
|
::utility::writeNode $tc_root/$node "$do_props" [expr {$level + 1}]
|
|
}
|
|
} message ] {
|
|
clientput "Error in writeNode for $tc_root : $message"
|
|
}
|
|
}
|
|
|
|
proc writeTree {tc_root {do_props 0}} {
|
|
clientput "$tc_root"
|
|
::utility::writeNode $tc_root $do_props 1
|
|
return "Done"
|
|
}
|
|
publish writeTree user
|
|
|