home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / install / alldebug.cmd < prev    next >
Encoding:
Text File  |  1994-03-01  |  2.5 KB  |  73 lines
  1. /***********************************************************************/
  2. /* INSTDBUG                                                            */
  3. /*                                                                     */
  4. /* Purpose: To call the debug install utility DBUGINST with the        */
  5. /*  the correct command line:                                          */
  6. /*                                                                     */
  7. /*   d:\devtools\os2tkt21\debug\dbuginst /Sd:\devtools\os2tk21\debug x */
  8. /*                                                                     */
  9. /*  Arguments: The installation drive and directory.                   */
  10. /***********************************************************************/
  11. /*                (C) Copyright IBM Corporation 1994                   */
  12. /***********************************************************************/
  13. parse arg BDrl CDr .
  14. trace 'o'
  15.  
  16. call Initialize
  17.  
  18. if RxCaDD.OpType = 'REMOVE'
  19.   then do
  20.     call 'MessageBox' Ctl.!ProgName, 'Remove is not supported.  Add the application',
  21.          'again to recreate the program object.'
  22.     call 'CaDDExit'
  23.     exit 0
  24.   end  /* Do */
  25.  
  26.  
  27. call UseDbugInst
  28.  
  29. call 'CaddComplete' 12
  30. call 'CaddExit'
  31. exit 0
  32.  
  33.  
  34. UseDbugInst:
  35. /****************************************************************/
  36. /* Call the dbuginstall program with the appropriate parameters */
  37. /****************************************************************/
  38.  
  39. CurDir = directory()
  40. call directory CDr'devtools\debugger'
  41. '@dbuginst ' '/S'CDr'devtools\debugger' BDrl
  42. InstallRC = RC
  43. call directory CurDir
  44. if InstallRC <> 0 then
  45. do
  46.         if InstallRC = 3 then do
  47.                 call 'MessageBox' 'Kernel Mismatch', 'No Kernel Debugger available for the installed level of OS/2.  Unable to install the Kernel Debugger.'
  48.                 call 'CaddComplete' 12
  49.         end
  50.         else do
  51.          call 'CaddComplete' 12
  52.         end
  53.  
  54.       exit 0
  55.   end
  56. return
  57.  
  58. Initialize:
  59. /*******************************************************************/
  60. /* Load required REXXUTIL (part of 2.0) utilites and the required  */
  61. /* RXUTILS (part of CORE and avail on OS2TOOLS) utilites           */
  62. /* figure out which drive is the boot drive                        */
  63. /*******************************************************************/
  64. CurDir = directory()
  65. call directory CDr'INSTALL'
  66. call Rxfuncadd 'CADDINIT', 'RXCADD', 'CADDINIT'
  67. signal on syntax
  68. ver = 'CAddInit'()
  69. signal off syntax
  70. if abbrev(ver, 'ERROR:')
  71.   then call syntax
  72. return
  73.