home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xwplascr.zip / XWPL0208.ZIP / cleanup.cmd < prev    next >
OS/2 REXX Batch file  |  2002-02-09  |  2KB  |  66 lines
  1. /* Cleanup XWorkplace */
  2. signal on halt
  3. '@echo off'
  4.  
  5. /* Compiled XWorkplace files */
  6. say 'Do you wish to delete all .OBJ, .RES, .EXE, .DLL, .MAP, .SYM files in'
  7. call charout , 'the source directories [Y/N] ? '
  8. parse upper linein yn .
  9. if yn = 'Y' then do
  10.   call deletefiles 'bin\*.obj'
  11.   call deletefiles 'bin\*.res'
  12.   call deletefiles 'bin\exe_mt\*.obj'
  13.   call deletefiles 'bin\exe_mt\*.res'
  14.   call deletefiles 'bin\exe_st\*.obj'
  15.   call deletefiles 'bin\modules\*.exe'
  16.   call deletefiles 'bin\modules\*.dll'
  17.   call deletefiles 'bin\modules\*.map'
  18.   call deletefiles 'bin\modules\*.sym'
  19.   call deletefiles 'bin\widgets\*.obj'
  20. end
  21.  
  22. /* LIB files */
  23. call charout , 'Do you wish to delete the LIB files [Y/N] ? '
  24. parse upper linein yn .
  25. if yn = 'Y' then do
  26.   call deletefiles 'bin\*.lib'
  27.   call deletefiles 'bin\exe_mt\*.lib'
  28. end
  29.  
  30. /* INF/HLP files */
  31. call charout , 'Do you wish to delete the INF/HLP files [Y/N] ? '
  32. parse upper linein yn .
  33. if yn = 'Y' then do
  34.   call deletefiles 'bin\modules\*.inf'
  35.   call deletefiles 'bin\modules\*.hlp'
  36. end
  37.  
  38. /* IPF source files */
  39. call charout , 'Do you wish to delete the IPF source files [Y/N] ? '
  40. parse upper linein yn .
  41. if yn = 'Y' then do
  42.   call deletefiles 'bin\modules\*.ipf'
  43.   call deletefiles '001\inf.001\*.bmp'
  44.   call deletefiles '049_de\inf.049\*.bmp'
  45.   call deletefiles '001\xwphelp2\img\*.bmp'
  46. end
  47.  
  48. /* SOM headers */
  49. call charout , 'Do you wish to delete all the SC-created .DEF, .IH and .H files [Y/N] ? '
  50. parse upper linein yn .
  51. if yn = 'Y' then do
  52.   call deletefiles 'idl\*.def'
  53.   call deletefiles 'include\classes\*.h'
  54.   call deletefiles 'include\classes\*.ih'
  55. end
  56. return
  57.  
  58. halt:
  59.   say
  60.   return
  61.  
  62. deletefiles: procedure
  63.   arg name
  64.   'if exist' name 'del' name
  65.   return
  66.