home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / zeryxvp.zip / INSTALL.CMD next >
OS/2 REXX Batch file  |  2000-05-26  |  3KB  |  150 lines
  1. /**/
  2. '@ECHO OFF'
  3. rc = rxfuncadd("sysloadfuncs","rexxutil","sysloadfuncs")
  4. call sysloadfuncs
  5.  
  6. visprorx = value("VISPRORX",,"OS2ENVIRONMENT")
  7. none = 1
  8.  
  9. if visprorx<>"" then
  10.     do
  11.     call sysfiletree "C:\VISPRORX",file,'D'
  12.     if file.0 <> 0 then
  13.         visprorx = "C:\VISPRORX"
  14.     end
  15.  
  16. drop file.
  17.  
  18. if visprorx<>"" then
  19.     do
  20.     rc = instrx()
  21.     if rc<>0 then
  22.       do
  23.       say "Installation aborted"
  24.       say "resolve problem and try again"
  25.       return 0
  26.       end
  27.     end
  28. else
  29. say "Vispro Rexx not found installation failed"
  30.  
  31.  
  32. return 0
  33.  
  34. instc:
  35. 'copy vczxpbar.dll 'visproc'>NUL 2>NUL'
  36. if rc<>0 then
  37.    do
  38.     say "Could not copy file vczxpbar.dll in directory "visproc
  39.     say "Close Vispro C before installing zxpbar"
  40.     return 1
  41.    end
  42. 'copy vczxpbar.hlp 'visproc'>NUL 2>NUL'
  43. if rc<>0 then
  44.    do
  45.     say "Could not copy file vczxpbar.hlp in directory "visproc
  46.     say "Close ZxPbar help before installing"
  47.     return 1
  48.    end
  49. 'copy vczxpbar.lib 'visproc'>NUL 2>NUL'
  50. if rc<>0 then
  51.    do
  52.     say "Could not copy file vczxpbar.lib in directory "visproc
  53.     return 1
  54.    end
  55.  
  56. 'copy vczxpbar.h 'visproc '>NUL 2>NUL'
  57. if rc<>0 then
  58.    do
  59.     say "Could not copy file vczxpbar.lib in directory "visproc
  60.     return 1
  61.    end
  62. file = visproc'\vprclass'
  63. call sysfilesearch "VPZxPBar",file,'rez'
  64. if rez.0 = 0 then
  65.    do
  66.    rc = stream(file,'c','CLOSE')
  67.    call lineout file,"VPZxPBar"
  68.    call lineout file
  69.    end
  70. say "Installed files for Vispro c"
  71. none = 0
  72.  
  73. return 0
  74.  
  75. instrx:
  76.  
  77. 'copy vpzxpbar.dll 'visprorx'>NUL 2>NUL'
  78. if rc<>0 then
  79.    do
  80.     say "Close Vispro Rexx before installing zxpbar"
  81.     return 1
  82.    end
  83. 'copy vpzxpbar.hlp 'visprorx'>NUL 2>NUL'
  84.  if rc<>0 then
  85.     do
  86.      say "Could not copy file vpzxpbar.hlp in directory "visprorx
  87.      say "Close ZxPbar help before installing"
  88.      return 1
  89.     end
  90.  
  91. file = visprorx'\vprclass'
  92. call sysfilesearch "VPZxPBar",file,'rez'
  93. if rez.0 = 0 then
  94.    do
  95.    rc = stream(file,'c','CLOSE')
  96.    call lineout file,"VPZxPBar"
  97.    call lineout file
  98.    end
  99. say "Installed files for Vispro rexx"
  100. none = 0
  101.  
  102. return 0
  103.  
  104. instcp:
  105.  
  106. 'copy vszxpbar.dll 'visprocp'>NUL 2>NUL'
  107. if rc<>0 then
  108.    do
  109.     say "Close Vispro C++ before installing zxpbar"
  110.     say "Could not copy file vszxpbar.hlp in directory "visprocp
  111.     return 1
  112.    end
  113. 'copy vszxpbar.hlp 'visprocp'>NUL 2>NUL'
  114.  if rc<>0 then
  115.     do
  116.      say "Could not copy file vszxpbar.hlp in directory "visprocp
  117.      say "Close ZxPbar help before installing"
  118.      return 1
  119.     end
  120.  
  121. 'copy vszxpbar.lib 'visprocp'>NUL'
  122. if rc<>0 then
  123.    do
  124.     say "Could not copy file vszxpbar.lib in directory "visprocp
  125.     return 1
  126.    end
  127.  
  128. 'copy vszxpbar.hpp 'visprocp'>NUL'
  129. if rc<>0 then
  130.    do
  131.     say "Could not copy file vszxpbar.lib in directory "visprocp
  132.     return 1
  133.    end
  134.  
  135. file = visprocp'\vprclass'
  136. call sysfilesearch "VPZxPBar",file,'rez'
  137. if rez.0 = 0 then
  138.    do
  139.    rc = stream(file,'c','CLOSE')
  140.    call lineout file,"VPZxPBar"
  141.    call lineout file
  142.    end
  143. say "Installed files for Vispro c++"
  144. none = 0
  145.  
  146. return 0
  147.  
  148.  
  149.  
  150.