home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
xwplascr.zip
/
XWPL0208.ZIP
/
cleanup.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
2002-02-09
|
2KB
|
66 lines
/* Cleanup XWorkplace */
signal on halt
'@echo off'
/* Compiled XWorkplace files */
say 'Do you wish to delete all .OBJ, .RES, .EXE, .DLL, .MAP, .SYM files in'
call charout , 'the source directories [Y/N] ? '
parse upper linein yn .
if yn = 'Y' then do
call deletefiles 'bin\*.obj'
call deletefiles 'bin\*.res'
call deletefiles 'bin\exe_mt\*.obj'
call deletefiles 'bin\exe_mt\*.res'
call deletefiles 'bin\exe_st\*.obj'
call deletefiles 'bin\modules\*.exe'
call deletefiles 'bin\modules\*.dll'
call deletefiles 'bin\modules\*.map'
call deletefiles 'bin\modules\*.sym'
call deletefiles 'bin\widgets\*.obj'
end
/* LIB files */
call charout , 'Do you wish to delete the LIB files [Y/N] ? '
parse upper linein yn .
if yn = 'Y' then do
call deletefiles 'bin\*.lib'
call deletefiles 'bin\exe_mt\*.lib'
end
/* INF/HLP files */
call charout , 'Do you wish to delete the INF/HLP files [Y/N] ? '
parse upper linein yn .
if yn = 'Y' then do
call deletefiles 'bin\modules\*.inf'
call deletefiles 'bin\modules\*.hlp'
end
/* IPF source files */
call charout , 'Do you wish to delete the IPF source files [Y/N] ? '
parse upper linein yn .
if yn = 'Y' then do
call deletefiles 'bin\modules\*.ipf'
call deletefiles '001\inf.001\*.bmp'
call deletefiles '049_de\inf.049\*.bmp'
call deletefiles '001\xwphelp2\img\*.bmp'
end
/* SOM headers */
call charout , 'Do you wish to delete all the SC-created .DEF, .IH and .H files [Y/N] ? '
parse upper linein yn .
if yn = 'Y' then do
call deletefiles 'idl\*.def'
call deletefiles 'include\classes\*.h'
call deletefiles 'include\classes\*.ih'
end
return
halt:
say
return
deletefiles: procedure
arg name
'if exist' name 'del' name
return