home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vxrxs21d.zip / patch.cmd next >
OS/2 REXX Batch file  |  1995-09-22  |  2KB  |  65 lines
  1. /*  PATCH.CMD
  2. */
  3.  
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. call SysLoadFuncs
  6.  
  7. say 'About to apply the D level patches...'
  8. say
  9. say 'Note: To be patched correctly, all of the VX-REXX DLLs must exist in the'
  10. say 'VX-REXX directory. If you have moved your DLLs to another location you'
  11. say 'must copy them back to the VX-REXX directory before applying the patch.'
  12. say
  13. say 'If the DLLs are not in the VX-REXX directory, press X now to exit and'
  14. say 'restore them before applying the patch.'
  15. say
  16. say 'Press C to apply the patch or X to exit.'
  17. c = SysGetKey( NOECHO )
  18. if( c \= 'C' & c \= 'c' ) then do
  19.     say '*** Patch process aborted ***'
  20.     return
  21. end    
  22.  
  23. say "Patching files..."
  24. if( Stream("A2Z.INF", "C","QUERY EXISTS" ) \= "" ) then do
  25.     say "Patching A2Z.INF"
  26.     "@bpatch -p DPATCHES\INF\A2Z.D" 
  27. end
  28. if( Stream("PMDBG.EXE", "C","QUERY EXISTS" ) \= "" ) then do
  29.     say "Patching PMDBG.EXE"
  30.     "@bpatch -p DPATCHES\EXE\PMDBG.D" 
  31. end
  32. if( Stream("PROGGUID.INF", "C","QUERY EXISTS" ) \= "" ) then do
  33.     say "Patching PROGGUID.INF"
  34.     "@bpatch -p DPATCHES\INF\PROGGUID.D" 
  35. end
  36. if( Stream("README.INF", "C","QUERY EXISTS" ) \= "" ) then do
  37.     say "Patching README.INF"
  38.     "@bpatch -p DPATCHES\INF\README.D" 
  39. end
  40. if( Stream("VREDIT.DLL", "C","QUERY EXISTS" ) \= "" ) then do
  41.     say "Patching VREDIT.DLL"
  42.     "@bpatch -p DPATCHES\DLL\VREDIT.D" 
  43. end
  44. if( Stream("VROBJ.DLL", "C","QUERY EXISTS" ) \= "" ) then do
  45.     say "Patching VROBJ.DLL"
  46.     "@bpatch -p DPATCHES\DLL\VROBJ.D" 
  47. end
  48. if( Stream("VRSED.DLL", "C","QUERY EXISTS" ) \= "" ) then do
  49.     say "Patching VRSED.DLL"
  50.     "@bpatch -p DPATCHES\DLL\VRSED.D" 
  51. end
  52. if( Stream("VRXEDIT.EXE", "C","QUERY EXISTS" ) \= "" ) then do
  53.     say "Patching VRXEDIT.EXE"
  54.     "@bpatch -p DPATCHES\EXE\VRXEDIT.D" 
  55. end
  56.  
  57. call BUILDVRX.CMD
  58.  
  59. say "You can now erase the DPATCHES directory"
  60. say
  61. say "The patch process has saved an original copy of each file that has been"
  62. say "patched. These files have a .BAK extension and may be used to restore the"
  63. say "original files or may be deleted."
  64.  
  65.