home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ddkx86v1.zip / DDKX86 / setup / COPYCSET.CMD < prev    next >
OS/2 REXX Batch file  |  1995-04-10  |  1KB  |  65 lines
  1. /*  */
  2.  
  3.  
  4. parse upper arg cset basename .
  5.  
  6.  
  7. parse source . . command .
  8.  
  9. command = FILESPEC( 'Name', command )
  10.  
  11. i = POS( '.', command )
  12.  
  13.  
  14. if i <> 0 then
  15.  
  16.    command = substr( command, 1, i - 1 )
  17.  
  18.  
  19. if cset = '' then
  20.  
  21.    do
  22.  
  23.       say
  24.       say 'Usage:' command 'CSET/2_PATH DDK_PATH'
  25.       say
  26.       say '        Where:'
  27.       say '               CSET/2_PATH is the path to the IBM CSET/2 compiler.'
  28.       say '               e.g. D:\IBMC'
  29.       say
  30.       say '               DDKPATH  is the path where the DDK has been installed.    '
  31.       say '               e.g. D:\DDKx86'
  32.  
  33.       exit
  34.  
  35.    end
  36.  
  37.  
  38. ibmcdirs.1 = 'bin'
  39. ibmcdirs.2 = 'dll'
  40. ibmcdirs.3 = 'help'
  41. ibmcdirs.4 = 'include'
  42. ibmcdirs.5 = 'lib'
  43. ibmcdirs.6 = 'locale'
  44.  
  45. ibmcdirs.0 = 6
  46.  
  47.  
  48. do i = 1 to ibmcdirs.0
  49.  
  50.    'XCOPY' cset'\'ibmcdirs.i basename'\ibmc\c'ibmcdirs.i'\ /e/s/v'
  51.  
  52.    if rc <> 0 then
  53.  
  54.       do
  55.          say
  56.          say 'Error to copying' cset'\'ibmcdirs.i 'to' basename'\ibmc\c'ibmcdirs.i
  57.          say 'Directory bypassed.'
  58.          say
  59.       end
  60.  
  61. end
  62.  
  63.  
  64. exit
  65.