home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional Developers Kit 1992 November / Disc01 / Disc01.mdf / install / instdbug.cmd < prev    next >
Encoding:
Text File  |  1992-10-03  |  3.1 KB  |  93 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.  * INSTDBUG                                                            *
  10.  *                                                                     *
  11.  * Purpose: To call the debug install utility DBUGINST with the        *
  12.  *  the correct command line:                                          *
  13.  *                                                                     *
  14.  *    d:\os2tkt20\debug\dbuginst /Sd:\os2tk20\debug x                  *
  15.  *                                                                     *
  16.  *  Arguments: The instalation drive and directory.                    *
  17.  ***********************************************************************
  18.  *                (C) Copyright IBM Corporation 1992                   *
  19.  ***********************************************************************/
  20. parse arg CDr .
  21. trace 'o'
  22.  
  23. call Initialize
  24.  
  25. if RxCaDD.OpType = 'REMOVE'
  26.   then do
  27.     call 'MessageBox' Ctl.!ProgName, 'Remove is not supported.  Add the application',
  28.          'again to recreate the program object.'
  29.     call 'CaDDExit'
  30.     exit 0
  31.   end  /* Do */
  32.  
  33.  
  34. call UseDbugInst
  35.  
  36. call 'CaddComplete' InstallRC
  37. call 'CaddExit'
  38. exit 0
  39.  
  40.  
  41. UseDbugInst:
  42. /**************************************************
  43.  * Call the dbuginstall program with the appropriate parameters
  44.  **************************************************/
  45.  
  46. CurDir = directory()                       
  47. call directory CDr'os2tk20\debug'          
  48. '@dbuginst ' '/S'CDr'os2tk20\debug' BDrl   
  49. InstallRC = RC                             
  50. call directory CurDir                      
  51. if InstallRC <> 0 then
  52. do 
  53.       if InstallRC = 3 then
  54.         call 'MessageBox' 'Kernel Mismatch', 'No Kernel Debugger available for the installed level of OS/2.  Unable to install the Kernel Debugger.' 
  55.       else
  56.  
  57.          call 'CaddComplete' InstallRC
  58.  
  59.       call 'CaddExit'
  60.       exit InstallRC
  61.   end
  62. return
  63.                                    
  64. Initialize:
  65. /*******************************************************************/
  66. /* Load required REXXUTIL (part of 2.0) utilites and the required  */
  67. /* RXUTILS (part of CORE and avail on OS2TOOLS) utilites           */
  68. /* figure out which drive is the boot drive                        */
  69. /*******************************************************************/
  70. CurDir = directory()
  71. call directory CDr'INSTALL'
  72. call Rxfuncadd 'CADDINIT', 'RXCADD', 'CADDINIT'
  73. signal on syntax
  74. ver = 'CAddInit'()
  75. signal off syntax
  76. if abbrev(ver, 'ERROR:')
  77.   then call syntax
  78. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  79. call SysLoadFuncs
  80. /************************************************
  81.  * Find Boot Drive letter for OS2.              *
  82.  ************************************************/
  83. Path = value('PATH',,'OS2ENVIRONMENT')
  84. parse upper var Path BDrl'\OS2;'.
  85. BDrl = left(BDrl,1)
  86. return
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.