@verb #8084:"do_tree" this none this rxdo #60
@program #8084:"do_tree" this none this
"Copied from code utilities (#38):do_tree by Cecil (#7407)Jan 11 11:08:51 2002"
{data} = args
endflag = 0
if (typeof(data) == $STR)
  return {data}
endif
lines = {data[1]}
for child in (`data[2] ! E_RANGE => {}')
  for line in (this:do_tree(child))
    if (line[1] in {"+", "|", "`", " "})
      prefix = endflag ? "   " | "|  "
    else
      if (child in data[2] != length(data[2]))
        prefix = "+- "
      else
        endflag = 1
        prefix = "`- "
      endif
    endif
    lines = {@lines, prefix + line}
  endfor
  $command_utils:suspend_if_needed(0)
endfor
return lines
"Last modified by Dax (#789) on Tue May  3 13:43:12 2005 MDT."
.