4 # Build up a directory list recursively.
5 #------------------------------------------------------------------------------
6 # Copyright 1992 Karl Lehenbauer and Mark Diekhans.
8 # Permission to use, copy, modify, and distribute this software and its
9 # documentation for any purpose and without fee is hereby granted, provided
10 # that the above copyright notice appear in all copies. Karl Lehenbauer and
11 # Mark Diekhans make no representations about the suitability of this
12 # software for any purpose. It is provided "as is" without express or
14 #------------------------------------------------------------------------------
15 # $Id: globrecur.tcl,v 2.0 1992/10/16 04:52:04 markd Rel $
16 #------------------------------------------------------------------------------
19 #@package: TclX-globrecur recursive_glob
21 proc recursive_glob
{globlist
} {
23 foreach pattern
$globlist {
24 foreach file [glob -nocomplain $pattern] {
26 if [file isdirectory
$file] {
27 set result
[concat $result [recursive_glob
$file/*]]