Posted to tcl by FEDE31C0 at Tue Dec 04 14:51:22 GMT 2007view raw

  1. proc get_all_pkgs_recursive {pkg_name path {pkg_list_recursive {}} {recursion_cnt 0}} {
  2. incr recursion_cnt
  3. if {$recursion_cnt > 2} {
  4. debug "Max recursion level reached. Skipping directory $path."
  5. return $pkg_list_recursive
  6. }
  7.  
  8. ...
  9.  
  10. if {$type == "d"} {
  11. set pkg_list_recursive [concat $pkg_list_recursive \
  12. [get_all_pkgs_recursive $pkg_name $path/$file $pkg_list_recursive $recursion_cnt]]
  13. } else {
  14. lappend pkg_list_recursive $path/$file
  15. }
  16.  
  17. ...
  18.  
  19. return $pkg_list_recursive
  20. }