You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
35 lines
783 B
35 lines
783 B
$! |
|
$! Delete various test results files. |
|
$! |
|
$ def_orig = f$environment( "default") |
|
$ proc = f$environment( "procedure") |
|
$ proc_dev_dir = f$parse( "A.;", proc) - "A.;" |
|
$! |
|
$ on control_c then goto tidy |
|
$ on error then goto tidy |
|
$! |
|
$ set default 'proc_dev_dir' |
|
$! |
|
$ files := *.cms;*, *.srl;*, *.ss;*, - |
|
cms.err;*, cms.out;*, newreq.pem;*, - |
|
p.txt-zlib-cipher;*, - |
|
smtst.txt;*, testkey.pem;*, testreq.pem;*, - |
|
test_*.err;*, test_*.out;*, - |
|
.rnd;* |
|
$! |
|
$ delim = "," |
|
$ i = 0 |
|
$ loop: |
|
$ file = f$edit( f$element( i, delim, files), "trim") |
|
$ if (file .eqs. delim) then goto loop_end |
|
$ if (f$search( file) .nes. "") then - |
|
delete 'p1' 'file' |
|
$ i = i+ 1 |
|
$ goto loop |
|
$ loop_end: |
|
$! |
|
$ tidy: |
|
$ |
|
$ if (f$type( def_orig) .nes. "") then - |
|
set default 'def_orig' |
|
$!
|
|
|