tree_make xs { node_level "head" }What it does:
Generates a tree from a level sequence that was returned by a 'connect by' SQL query.Defined in: /web/philip/tcl/ad-trees.tcl
Source code:
set root [head $xs] set subtrees [map tree_make [tree_group [tail $xs] $node_level]] cons $root $subtrees