home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional Developers Kit 1992 November / Disc01 / Disc01.mdf / install.cmd < prev    next >
Encoding:
Text File  |  1992-10-28  |  2.9 KB  |  85 lines
  1. /*********************************************************************
  2.    @ECHO OFF
  3.    ECHO OS/2 Procedures Language 2/REXX not installed.
  4.    ECHO Run Selective Installation from the Setup Folder to
  5.    ECHO install REXX support.
  6.    pause
  7.    exit
  8.  *********************************************************************
  9.  *********************************************************************
  10.  * INSTALL.CMD                                                       *
  11.  *                                                                   *
  12.  * Just a simple copyright front end that will call ISIT.            *
  13.  *                                                                   * 
  14.  *  legal options: /N don't change the CONFIG.SYS                    *
  15.  *                                                                   *
  16.  *********************************************************************
  17.  *            (C) Copyright IBM Corporation 1992                     *
  18.  *********************************************************************/
  19.  
  20. '@ECHO OFF'
  21. setlocal
  22. trace 'o'
  23. curdir = directory()
  24.  
  25. call Initialize
  26. call directory CDr'install'
  27. '@start isit /fo=isvcat.dat'
  28.  
  29. call directory  curdir
  30. endlocal
  31. exit
  32.  
  33.  
  34.  
  35. Initialize:
  36. /************************************************
  37.  * Find what the CD-ROM Drive is and Boot Drive *
  38.  * INSTALL.CMD must be run from the CD-ROM.     *
  39.  ************************************************/
  40. parse source . . exec
  41. drive = left(exec,2)'\'
  42. temp = reverse(exec)
  43. parse var temp '\'CDr
  44. CDr = reverse(CDr)'\'
  45.  
  46. catdir = CDr'install'
  47. Path = value('PATH',,'OS2ENVIRONMENT')
  48. DPath = value('DPATH',,'OS2ENVIRONMENT')
  49. Help = value('HELP',,'OS2ENVIRONMENT')
  50. BookShelf = value('BOOKSHELF',,'OS2ENVIRONMENT')
  51. BookMgr   = value('BOOKMGR',,'OS2ENVIRONMENT')
  52. ReadIBM   = value('READIBM',,'OS2ENVIRONMENT')
  53.  
  54. /************************************************
  55.  * Make sure that all paths end in a ;          *
  56.  ************************************************/
  57. if right(PATH,1) <> ';'
  58.   then PATH = PATH';'
  59. if right(DPATH,1) <> ';'
  60.   then DPATH = DPATH';'
  61. if right(HELP,1) <> ';'
  62.   then HELP = HELP';'
  63.  
  64. /************************************************
  65.  * Find Boot Drive for OS2.                     *
  66.  ************************************************/
  67. parse upper var Path BDr'\OS2;'.
  68. BDr = right(BDr,2)
  69.  
  70. /************************************************
  71.  * Update all paths in the environment          *
  72.  ************************************************/
  73. if pos(translate(CDr'INSTALL'), path) = 0 
  74.   then call value 'PATH', PATH||CDr'INSTALL;','OS2ENVIRONMENT'
  75. if pos(translate(CDr'OS2BBS'), dpath) = 0
  76.   then call value 'DPATH', DPATH||CDr'OS2BBS;','OS2ENVIRONMENT'
  77. if pos(translate(CDr'INSTALL'), help) = 0
  78.   then call value 'HELP', HELP||CDr'INSTALL;','OS2ENVIRONMENT'
  79. call value 'CORE.DIR', CDr, 'OS2ENVIRONMENT'
  80. call value 'USER.DIR', BDr, 'OS2ENVIRONMENT'
  81.  
  82. return  /* Initialize */
  83.  
  84.  
  85.