Browse Source

* doc/dejagnu.texi (getdirs procedure): Improve documentation

including documenting the -all option.
	(find procedure): Fix a typo.
	* lib/utils.exp (getdirs): Improve comments.
dejagnu-1.6.2
Ben Elliston 8 years ago
parent
commit
389f380926
  1. 7
      ChangeLog
  2. 23
      doc/dejagnu.texi
  3. 8
      lib/utils.exp

7
ChangeLog

@ -1,3 +1,10 @@
2018-11-23 Ben Elliston <bje@gnu.org>
* doc/dejagnu.texi (getdirs procedure): Improve documentation
including documenting the -all option.
(find procedure): Fix a typo.
* lib/utils.exp (getdirs): Improve comments.
2018-11-22 Jacob Bachmeyer <jcb62281@gmail.com>
* runtest.exp: Ensure that multipass pass variables are always

23
doc/dejagnu.texi

@ -4539,21 +4539,28 @@ tool, and its version number.
@node getdirs procedure, find procedure, , Utility Procedures
@subsubsection getdirs Procedure
Returns a list of all the directories in the single directory a single
directory that match an optional pattern.
Returns a list of all the subdirectories in a single directory that
match a glob pattern.
@quotation
@t{@b{getdirs}@{@i{rootdir}
@t{@b{getdirs}@{@i{-all}
@i{rootdir}
@i{pattern}@}}
@end quotation
@table @asis
@item @code{args}
@item @code{-all}
If this option is given, then subdirectories will be matched
recursively.
@item @code{rootdir}
The top level directory to start the search from.
@item @code{pattern}
If you do not specify @code{pattern}, @code{Getdirs} assumes a default
pattern of @emph{*}. You may use the common shell wildcard characters in
the pattern. If no directories match the pattern, then a NULL string is
If you do not specify @code{pattern}, @code{getdirs} uses a default
pattern of @code{*}. You may use the common shell wildcard characters in
the pattern. If no directories match the pattern, then an empty list is
returned.
@end table
@ -4575,7 +4582,7 @@ pattern, then a NULL string is returned.
@table @asis
@item @code{rootdir}
The top level directory to search the search from.
The top level directory to start the search from.
@item @code{pattern}
A csh "glob" style regular expression representing the files to find.

8
lib/utils.exp

@ -24,12 +24,10 @@
# Gets the directories in a directory, or in a directory tree.
# args: the first is the dir to look in, the next
# is the pattern to match. It
# defaults to *. Patterns are csh style
# globbing rules
# args: the first is the directory to look in, the next is the
# glob pattern to match (default "*").
# options: -all search the tree recursively
# returns: a list of dirs or NULL; the root directory is not returned.
# returns: a list of directories excluding the root directory
#
proc getdirs { args } {
if { [lindex $args 0] == "-all" } {

Loading…
Cancel
Save