OLD | NEW |
(Empty) | |
| 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 $! |
OLD | NEW |