diff options
| author | John Malmberg <wb8tyw@qsl.net> | 2020-02-04 08:31:59 -0600 |
|---|---|---|
| committer | John Malmberg <wb8tyw@qsl.net> | 2020-02-04 08:31:59 -0600 |
| commit | 02cea1f5bcaff4eaea5ed2db9f9d5cb7d8ab682b (patch) | |
| tree | d0f6069518a0e376a7745143dd5a45446af9914a /vms | |
| parent | 87bc72662b25f10578041eaad3455639cbd812b1 (diff) | |
| download | egawk-02cea1f5bcaff4eaea5ed2db9f9d5cb7d8ab682b.tar.gz egawk-02cea1f5bcaff4eaea5ed2db9f9d5cb7d8ab682b.tar.bz2 egawk-02cea1f5bcaff4eaea5ed2db9f9d5cb7d8ab682b.zip | |
Minor fix to vmstest.com manufiles test.
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/ChangeLog | 4 | ||||
| -rw-r--r-- | vms/vmstest.com | 18 |
2 files changed, 17 insertions, 5 deletions
diff --git a/vms/ChangeLog b/vms/ChangeLog index bfad7907..33270171 100644 --- a/vms/ChangeLog +++ b/vms/ChangeLog @@ -1,5 +1,9 @@ 2020-02-04 John E. Malmberg <wb8tyw@qsl.net> + * vmstest.com: Fix manyfile test cleanup to handle a search list. + +2020-02-04 John E. Malmberg <wb8tyw@qsl.net> + * 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 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" |