tree_print

one of the documented procedures in this installation of the ACS
Usage:
tree_print   tree   { indent "0" }
What it does:
prints a tree
Defined in: /web/philip/tcl/ad-trees.tcl

Source code:


    set result ""
    for {set i 0} {$i<$indent} {incr i} { 
	append result " "
    }
    append result [head $tree]\n
    foreach t [tail $tree] {
	append result [print_tree $t [expr $indent+2]]
    }
    return $result


philg@mit.edu