]>
Commit | Line | Data |
---|---|---|
f0d91962 RL |
1 | $! |
2 | $! Delete various test results files. | |
3 | $! | |
4 | $ def_orig = f$environment( "default") | |
5 | $ proc = f$environment( "procedure") | |
6 | $ proc_dev_dir = f$parse( "A.;", proc) - "A.;" | |
7 | $! | |
8 | $ on control_c then goto tidy | |
9 | $ on error then goto tidy | |
10 | $! | |
11 | $ set default 'proc_dev_dir' | |
12 | $! | |
13 | $ files := *.cms;*, *.srl;*, *.ss;*, - | |
14 | cms.err;*, cms.out;*, newreq.pem;*, - | |
15 | p.txt-zlib-cipher;*, - | |
16 | smtst.txt;*, testkey.pem;*, testreq.pem;*, - | |
17 | test_*.err;*, test_*.out;*, - | |
18 | .rnd;* | |
19 | $! | |
20 | $ delim = "," | |
21 | $ i = 0 | |
22 | $ loop: | |
23 | $ file = f$edit( f$element( i, delim, files), "trim") | |
24 | $ if (file .eqs. delim) then goto loop_end | |
25 | $ if (f$search( file) .nes. "") then - | |
26 | delete 'p1' 'file' | |
27 | $ i = i+ 1 | |
28 | $ goto loop | |
29 | $ loop_end: | |
30 | $! | |
31 | $ tidy: | |
32 | $ | |
33 | $ if (f$type( def_orig) .nes. "") then - | |
34 | set default 'def_orig' | |
35 | $! |