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