[SCM] gawk branch, master, updated. gawk-4.1.0-3890-g02cea1f

[John Malmberg]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "gawk".

The branch, master has been updated
       via  02cea1f5bcaff4eaea5ed2db9f9d5cb7d8ab682b (commit)
      from  87bc72662b25f10578041eaad3455639cbd812b1 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=02cea1f5bcaff4eaea5ed2db9f9d5cb7d8ab682b

commit 02cea1f5bcaff4eaea5ed2db9f9d5cb7d8ab682b
Author: John Malmberg <address@hidden>
Date:   Tue Feb 4 08:31:59 2020 -0600

    Minor fix to vmstest.com manufiles test.

diff --git a/vms/ChangeLog b/vms/ChangeLog
index bfad790..3327017 100644
--- a/vms/ChangeLog
+++ b/vms/ChangeLog
@@ -1,5 +1,9 @@
 2020-02-04         John E. Malmberg      <address@hidden>
 
+       * vmstest.com: Fix manyfile test cleanup to handle a search list.
+
+2020-02-04         John E. Malmberg      <address@hidden>
+
        * generate_config_vms_h_gawk.com:
        Create stdint.h if not supplied by OpenVMS and
        add in the definitions required by support/dfa.h
diff --git a/vms/vmstest.com b/vms/vmstest.com
index 5c9108d..952d9f0 100644
--- a/vms/vmstest.com
+++ b/vms/vmstest.com
@@ -1192,15 +1192,22 @@ $       chnlc = f$getsyi("CHANNELCNT")
 $      fillm = f$getjpi("","FILLM")
 $      if fillm.ge.chnlc then  fillm = chnlc - 1
 $      if fillm.ge.f_cnt then  f_cnt = fillm + 10
-$      if f$search("[.junk]*.*").nes."" then  rm [.junk]*.*;*
-$      if f$parse("[.junk]").eqs."" then  create/Dir/Prot=(O:rwed) [.junk]
-$      gawk -- "BEGIN {for (i = 1; i <= ''f_cnt'; i++) print i, i}" 
>_manyfiles.dat
+$      if f$search("sys$disk:[.junk]*.*").nes.""
+$      then
+$          rm sys$disk:[.junk]*.*;*
+$      endif
+$      if f$parse("sys$disk:[.junk]") .eqs. ""
+$      then
+$          create/Dir/Prot=(O:rwed) sys$disk:[.junk]
+$      endif
+$      gawk -- "BEGIN {for (i = 1; i <= ''f_cnt'; i++) print i, i}" -
+           >_manyfiles.dat
 $      echo "(processing ''f_cnt' files; this may take quite a while)"
 $      set noOn        ! continue even if gawk fails
 $      gawk -f manyfiles.awk _manyfiles.dat _manyfiles.dat
 $      define/User sys$error _NL:
 $      define/User sys$output _manyfiles.tmp
-$      search/Match=Nor/Output=_NL:/Log [.junk]*.* ""
+$      search/Match=Nor/Output=_NL:/Log sys$disk:[.junk]*.* ""
 $!/Log output: "%SEARCH-S-NOMATCH, <filename> - <#> records" plus 1 line 
summary
 $      gawk -v "F_CNT=''f_cnt'" -f - _manyfiles.tmp
 $deck  !some input begins with "$"
@@ -1210,7 +1217,8 @@ $eod
 $      set On
 $      skip_reason = "Test detection not implemented yet"
 $      gosub junit_report_skip
-$      rm _manyfiles.tmp;,_manyfiles.dat;,[.junk]*.*;*,[]junk.dir;
+$      rm sys$disk:_manyfiles.tmp;,sys$disk:_manyfiles.dat;
+$       rm sys$disk:[.junk]*.*;*,sys$disk:[]junk.dir;
 $      return
 $
 $compare:      echo "compare"

-----------------------------------------------------------------------

Summary of changes:
 vms/ChangeLog   |  4 ++++
 vms/vmstest.com | 18 +++++++++++++-----
 2 files changed, 17 insertions(+), 5 deletions(-)


hooks/post-receive
-- 
gawk