home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 035 / vxrxs21a.zip / patch.cmd < prev   
OS/2 REXX Batch file  |  1994-10-31  |  2KB  |  58 lines
  1. /*  PATCH.CMD
  2. */
  3.  
  4. say "Patching files..."
  5. if( Stream("VROBJ.DLL", "C","QUERY EXISTS" ) \= "" ) then do
  6.     "@bpatch -p APATCHES\DLL\VROBJ.A" 
  7. end
  8. if( Stream("VREDIT.DLL", "C","QUERY EXISTS" ) \= "" ) then do
  9.     "@bpatch -p APATCHES\DLL\VREDIT.A" 
  10. end
  11. if( Stream("VRSED.DLL", "C","QUERY EXISTS" ) \= "" ) then do
  12.     "@bpatch -p APATCHES\DLL\VRSED.A" 
  13. end
  14. if( Stream("MACROS.DLL", "C","QUERY EXISTS" ) \= "" ) then do
  15.     "@bpatch -p APATCHES\DLL\MACROS.A" 
  16. end
  17. if( Stream("DBMACROS.DLL", "C","QUERY EXISTS" ) \= "" ) then do
  18.     "@bpatch -p APATCHES\DLL\DBMACROS.A" 
  19. end
  20. if( Stream("README.INF", "C","QUERY EXISTS" ) \= "" ) then do
  21.     "@bpatch -p APATCHES\INF\README.A" 
  22. end
  23. if( Stream("A2Z.INF", "C","QUERY EXISTS" ) \= "" ) then do
  24.     "@bpatch -p APATCHES\INF\A2Z.A" 
  25. end
  26. if( Stream("PROGGUID.INF", "C","QUERY EXISTS" ) \= "" ) then do
  27.     "@bpatch -p APATCHES\INF\PROGGUID.A" 
  28. end
  29. if( Stream("VRXEDIT.EXE", "C","QUERY EXISTS" ) \= "" ) then do
  30.     "@bpatch -p APATCHES\EXE\VRXEDIT.A" 
  31. end
  32. if( Stream("PMDBG.EXE", "C","QUERY EXISTS" ) \= "" ) then do
  33.     "@bpatch -p APATCHES\EXE\PMDBG.A" 
  34. end
  35. if( Stream("PMRUN.EXE", "C","QUERY EXISTS" ) \= "" ) then do
  36.     "@bpatch -p APATCHES\EXE\PMRUN.A" 
  37. end
  38. if( Stream("PMEXE.EXE", "C","QUERY EXISTS" ) \= "" ) then do
  39.     "@bpatch -p APATCHES\EXE\PMEXE.A" 
  40. end
  41.  
  42. say 'A number of files are no longer needed.'
  43. say 'Do you want to delete them (you will be prompted for each)?'
  44. parse upper pull response
  45. if( Left( response, 1 ) = 'Y' ) then do
  46.     say 'Delete BUILDVRX.FUL (y/n)?'
  47.     parse upper pull response
  48.     if( Left( response, 1 ) = 'Y' ) then 'erase BUILDVRX.FUL'
  49.     say 'Delete MACROS\SETTABS.VRM (y/n)?'
  50.     parse upper pull response
  51.     if( Left( response, 1 ) = 'Y' ) then 'erase MACROS\SETTABS.VRM'
  52.     say 'Delete MACROS\SETTABS.VRW (y/n)?'
  53.     parse upper pull response
  54.     if( Left( response, 1 ) = 'Y' ) then 'erase MACROS\SETTABS.VRW'
  55. end
  56.  
  57. say "You can now erase the APATCHES directory"
  58.