home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 30 fixes_v / 30-fixes_v.zip / vxrxc21c.zip / PATCH.CMD next >
OS/2 REXX Batch file  |  1995-06-20  |  5KB  |  136 lines
  1. /*  PATCH.CMD
  2. */
  3.  
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. call SysLoadFuncs
  6.  
  7. say 'About to apply the C 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. say
  23. say "Patching files..."
  24. say
  25. if( Stream("A2Z.INF", "C", "QUERY EXISTS" ) \= "" ) then do
  26.     say "Patching file A2Z.INF" 
  27.     "@bpatch -p CPATCHES\INF\A2Z.C" 
  28. end
  29. if( Stream("BINDDBI.EXE", "C", "QUERY EXISTS" ) \= "" ) then do
  30.     say "Patching file BINDDBI.EXE" 
  31.     "@bpatch -p CPATCHES\EXE\BINDDBI.C" 
  32. end
  33. if( Stream("DBIDB22.DLL", "C", "QUERY EXISTS" ) \= "" ) then do
  34.     say "Patching file DBIDB22.DLL" 
  35.     "@bpatch -p CPATCHES\DLL\DBIDB22.C" 
  36. end
  37. if( Stream("DBIODBC.DLL", "C", "QUERY EXISTS" ) \= "" ) then do
  38.     say "Patching file DBIODBC.DLL" 
  39.     "@bpatch -p CPATCHES\DLL\DBIODBC.C" 
  40. end
  41. if( Stream("DBIWSQL.DLL", "C", "QUERY EXISTS" ) \= "" ) then do
  42.     say "Patching file DBIWSQL.DLL" 
  43.     "@bpatch -p CPATCHES\DLL\DBIWSQL.C" 
  44. end
  45. if( Stream("PMDBG.EXE", "C", "QUERY EXISTS" ) \= "" ) then do
  46.     say "Patching file PMDBG.EXE" 
  47.     "@bpatch -p CPATCHES\EXE\PMDBG.C" 
  48. end
  49. if( Stream( "PMEXE.NRZ", "C", "QUERY EXISTS" ) \= "" ) then do
  50.     say "Erasing file PMEXE.NRZ" 
  51.     "@erase PMEXE.NRZ" 
  52. end
  53. if( Stream( "PMRUN.NRZ", "C", "QUERY EXISTS" ) \= "" ) then do
  54.     say "Erasing file PMRUN.NRZ" 
  55.     "@erase PMRUN.NRZ" 
  56. end
  57. if( Stream("QUERYED.DLL", "C", "QUERY EXISTS" ) \= "" ) then do
  58.     say "Patching file QUERYED.DLL" 
  59.     "@bpatch -p CPATCHES\DLL\QUERYED.C" 
  60. end
  61. if( Stream("README.INF", "C", "QUERY EXISTS" ) \= "" ) then do
  62.     say "Patching file README.INF" 
  63.     "@bpatch -p CPATCHES\INF\README.C" 
  64. end
  65. if( Stream("README2.INF", "C", "QUERY EXISTS" ) \= "" ) then do
  66.     say "Patching file README2.INF" 
  67.     "@bpatch -p CPATCHES\INF\README2.C" 
  68. end
  69. if( Stream("VRCHT.DLL", "C", "QUERY EXISTS" ) \= "" ) then do
  70.     say "Patching file VRCHT.DLL" 
  71.     "@bpatch -p CPATCHES\DLL\VRCHT.C" 
  72. end
  73. if( Stream("VRCHT.INF", "C", "QUERY EXISTS" ) \= "" ) then do
  74.     say "Patching file VRCHT.INF" 
  75.     "@bpatch -p CPATCHES\INF\VRCHT.C" 
  76. end
  77. if( Stream("VRCHTD.DLL", "C", "QUERY EXISTS" ) \= "" ) then do
  78.     say "Patching file VRCHTD.DLL" 
  79.     "@bpatch -p CPATCHES\DLL\VRCHTD.C" 
  80. end
  81. if( Stream("VRCHTR.DLL", "C", "QUERY EXISTS" ) \= "" ) then do
  82.     say "Patching file VRCHTR.DLL" 
  83.     "@bpatch -p CPATCHES\DLL\VRCHTR.C" 
  84. end
  85. if( Stream("VRCHTW.DLL", "C", "QUERY EXISTS" ) \= "" ) then do
  86.     say "Patching file VRCHTW.DLL" 
  87.     "@bpatch -p CPATCHES\DLL\VRCHTW.C" 
  88. end
  89. if( Stream("VRDB.DLL", "C", "QUERY EXISTS" ) \= "" ) then do
  90.     say "Patching file VRDB.DLL" 
  91.     "@bpatch -p CPATCHES\DLL\VRDB.C" 
  92. end
  93. if( Stream("VRDB.INF", "C", "QUERY EXISTS" ) \= "" ) then do
  94.     say "Patching file VRDB.INF" 
  95.     "@bpatch -p CPATCHES\INF\VRDB.C" 
  96. end
  97. if( Stream("VREDIT.DLL", "C", "QUERY EXISTS" ) \= "" ) then do
  98.     say "Patching file VREDIT.DLL" 
  99.     "@bpatch -p CPATCHES\DLL\VREDIT.C" 
  100. end
  101. if( Stream("VROBJ.DLL", "C", "QUERY EXISTS" ) \= "" ) then do
  102.     say "Patching file VROBJ.DLL" 
  103.     "@bpatch -p CPATCHES\DLL\VROBJ.C" 
  104. end
  105. if( Stream("VRSED.DLL", "C", "QUERY EXISTS" ) \= "" ) then do
  106.     say "Patching file VRSED.DLL" 
  107.     "@bpatch -p CPATCHES\DLL\VRSED.C" 
  108. end
  109. if( Stream("VRXEDIT.EXE", "C", "QUERY EXISTS" ) \= "" ) then do
  110.     say "Patching file VRXEDIT.EXE" 
  111.     "@bpatch -p CPATCHES\EXE\VRXEDIT.C" 
  112. end
  113. if( Stream("VRXEDIT.HLP", "C", "QUERY EXISTS" ) \= "" ) then do
  114.     say "Patching file VRXEDIT.HLP" 
  115.     "@bpatch -p CPATCHES\HLP\VRXEDIT.C" 
  116. end
  117.  
  118. say
  119. say 'A number of files are no longer needed.'
  120. say 'Do you want to delete them (you will be prompted for each)?'
  121. parse upper pull response
  122. if( Left( response, 1 ) = 'Y' ) then do
  123.     say 'Delete WDB221B.BND (y/n)?'
  124.     parse upper pull response
  125.     if( Left( response, 1 ) = 'Y' ) then '@erase WDB221B.BND'
  126. end
  127.  
  128. say
  129. say "Patch application is complete."
  130. say
  131. say "You can now erase the CPATCHES directory"
  132. say
  133. say "The patch process has saved an original copy of each file that has been"
  134. say "patched. These files have a .BAK extension and may be used to restore the"
  135. say "original files or may be deleted."
  136.