No fprintf in the txt_db component
[openssl.git] / util / deltree.com
1 $! DELTREE.COM
2 $
3 $ call deltree 'p1'
4 $ exit $status
5 $
6 $ deltree: subroutine ! P1 is a name of a directory
7 $       on control_y then goto dt_STOP
8 $       on warning then goto dt_exit
9 $       _dt_def = f$trnlnm("SYS$DISK")+f$directory()
10 $       if f$parse(p1) .eqs. "" then exit
11 $       set default 'f$parse(p1,,,"DEVICE")''f$parse(p1,,,"DIRECTORY")'
12 $       p1 = f$parse(p1,,,"NAME") + f$parse(p1,,,"TYPE")
13 $       _fp = f$parse(".DIR",p1)
14 $ dt_loop:
15 $       _f = f$search(_fp)
16 $       if _f .eqs. "" then goto dt_loopend
17 $       call deltree [.'f$parse(_f,,,"NAME")']*.*
18 $       goto dt_loop
19 $ dt_loopend:
20 $       _fp = f$parse(p1,".;*")
21 $       if f$search(_fp) .eqs. "" then goto dt_exit
22 $       set noon
23 $       set file/prot=(S:RWED,O:RWED,G:RWED,W:RWED) '_fp'
24 $       set on
25 $       delete/nolog '_fp'
26 $ dt_exit:
27 $       set default '_dt_def'
28 $       goto dt_end
29 $ dt_STOP:
30 $       set default '_dt_def'
31 $       stop/id=""
32 $       exit
33 $ dt_end:
34 $       endsubroutine