diff options
author | Ben Elliston <bje@gnu.org> | 2016-02-20 11:49:15 +1100 |
---|---|---|
committer | Ben Elliston <bje@gnu.org> | 2016-02-20 11:49:15 +1100 |
commit | 992fbc3a8f03c3cd5e554eea5361f1a531e9e71f (patch) | |
tree | d34eac0216449a51ff21187107be4856df21106a | |
parent | 56448d0134f0583686c01a50c37395bad2e54222 (diff) | |
download | dejagnu-992fbc3a8f03c3cd5e554eea5361f1a531e9e71f.zip dejagnu-992fbc3a8f03c3cd5e554eea5361f1a531e9e71f.tar.gz dejagnu-992fbc3a8f03c3cd5e554eea5361f1a531e9e71f.tar.bz2 |
* lib/utils.exp (prune): Remove proc.
* doc/ref.xml: Update documentation.
* doc/dejagnu.texi: Regenerate.
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | doc/dejagnu.texi | 13 | ||||
-rw-r--r-- | doc/ref.xml | 8 | ||||
-rw-r--r-- | lib/utils.exp | 19 |
4 files changed, 8 insertions, 38 deletions
@@ -1,5 +1,11 @@ 2016-02-20 Ben Elliston <bje@gnu.org> + * lib/utils.exp (prune): Remove proc. + * doc/ref.xml: Update documentation. + * doc/dejagnu.texi: Regenerate. + +2016-02-20 Ben Elliston <bje@gnu.org> + * lib/utils.exp (slay): Remove proc. * doc/ref.xml: Update documentation. * doc/dejagnu.texi: Regenerate. diff --git a/doc/dejagnu.texi b/doc/dejagnu.texi index 99dd8f1..bff10cf 100644 --- a/doc/dejagnu.texi +++ b/doc/dejagnu.texi @@ -5412,7 +5412,6 @@ tool, and its version number. * Find Procedure: find procedure. * Which Procedure: which procedure. * Grep Procedure: grep procedure. -* Prune Procedure: prune procedure. * Runtest_file_p Procedure: runtest_file_p procedure. * Diff Procedure: diff procedure. * Setenv Procedure: setenv procedure. @@ -5499,7 +5498,7 @@ The executable program or shell script to look for. @end table -@node grep procedure, prune procedure, which procedure, Utility Procedures +@node grep procedure, runtest_file_p procedure, which procedure, Utility Procedures @subsubsection Grep Procedure Search the file called @file{filename} (a fully @@ -5536,15 +5535,7 @@ Prefix the line number to each line where the regexp matches. @end table -@node prune procedure, runtest_file_p procedure, grep procedure, Utility Procedures -@subsubsection Prune Procedure - -This procedure is deprecated and will be removed in -the next release of DejaGnu. If a testsuite uses this -procedure, a copy of the procedure should be made and placed -in the lib directory of the testsuite. - -@node runtest_file_p procedure, diff procedure, prune procedure, Utility Procedures +@node runtest_file_p procedure, diff procedure, grep procedure, Utility Procedures @subsubsection Runtest_file_p Procedure Search @emph{runtest}s for diff --git a/doc/ref.xml b/doc/ref.xml index 05013ae..b1329e0 100644 --- a/doc/ref.xml +++ b/doc/ref.xml @@ -3578,14 +3578,6 @@ </variablelist> </sect4> - <sect4 id="prune" xreflabel="prune procedure"> - <title>Prune Procedure</title> - <para>This procedure is deprecated and will be removed in - the next release of &dj;. If a testsuite uses this - procedure, a copy of the procedure should be made and placed - in the lib directory of the testsuite.</para> - </sect4> - <sect4 id="runtestfilep" xreflabel="runtest_file_p procedure"> <title>Runtest_file_p Procedure</title> diff --git a/lib/utils.exp b/lib/utils.exp index 24f2591..cb8c1e9 100644 --- a/lib/utils.exp +++ b/lib/utils.exp @@ -201,25 +201,6 @@ proc grep { args } { return $grep_out } -# -# Remove elements based on patterns. elements are delimited by spaces. -# pattern is the pattern to look for using glob style matching -# list is the list to check against -# returns the new list -# -proc prune { list pattern } { - set tmp {} - foreach i $list { - verbose "Checking pattern \"$pattern\" against $i" 3 - if {![string match $pattern $i]} { - lappend tmp $i - } else { - verbose "Removing element $i from list" 3 - } - } - return $tmp -} - # Check if a testcase should be run or not # |