home *** CD-ROM | disk | FTP | other *** search
/ The Developer Connection…ice Driver Kit for OS/2 3 / DEV3-D1.ISO / install / instk21j.cmd < prev    next >
Encoding:
Text File  |  1994-03-01  |  1.7 KB  |  53 lines
  1. /***********************************************************************/
  2. /* INSTTK21                                                            */
  3. /*                                                                     */
  4. /* Purpose: To CD to the directory that contains the toolkit install   */
  5. /*          and call that install.                                     */
  6. /*                                                                     */
  7. /***********************************************************************/
  8. /*                (C) Copyright IBM Corporation 1994                   */
  9. /***********************************************************************/
  10. parse arg CDr .
  11. trace 'o'
  12.  
  13. call Initialize
  14.  
  15. if RxCaDD.OpType = 'REMOVE'
  16.   then do
  17.     call 'MessageBox' Ctl.!ProgName, 'Remove is not supported.  Add the application',
  18.          'again to recreate the program object.'
  19.     call 'CaDDExit'
  20.     exit 0
  21.   end  /* Do */
  22.  
  23. CurDir = directory()
  24. call directory CDr'devtools\os2tk21j'
  25.  
  26. '@install'
  27. InstallRC = RC
  28.  
  29. call directory CurDir
  30.  
  31.  
  32. call 'CaddComplete' 12
  33. call 'CaddExit'
  34. exit 0
  35.  
  36.  
  37. Initialize:
  38. /*******************************************************************/
  39. /* Load required REXXUTIL (part of 2.0) utilites and the required  */
  40. /* RXUTILS (part of CORE and avail on OS2TOOLS) utilites           */
  41. /*******************************************************************/
  42. CurDir = directory()
  43. call directory CDr'INSTALL'
  44. call Rxfuncadd 'CADDINIT', 'RXCADD', 'CADDINIT'
  45. signal on syntax
  46. ver = 'CAddInit'()
  47. signal off syntax
  48. if abbrev(ver, 'ERROR:')
  49.   then call syntax
  50. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  51. call SysLoadFuncs
  52. return
  53.