diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2020-02-09 21:35:51 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2020-02-09 21:35:51 +0200 |
| commit | 4be99b75c7cf84c7b21d3bcb4011f3870a926c4c (patch) | |
| tree | 6be368c9a4d424d2ac7091bf2b37afb128100792 /vms/vmstest.com | |
| parent | ec041138efb27d105b391d022300a782552efdd2 (diff) | |
| parent | 02cea1f5bcaff4eaea5ed2db9f9d5cb7d8ab682b (diff) | |
| download | egawk-4be99b75c7cf84c7b21d3bcb4011f3870a926c4c.tar.gz egawk-4be99b75c7cf84c7b21d3bcb4011f3870a926c4c.tar.bz2 egawk-4be99b75c7cf84c7b21d3bcb4011f3870a926c4c.zip | |
Merge branch 'master' of ssh://git.sv.gnu.org/srv/git/gawk
Diffstat (limited to 'vms/vmstest.com')
| -rw-r--r-- | vms/vmstest.com | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/vms/vmstest.com b/vms/vmstest.com index 5c9108de..952d9f0d 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" |