home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / table120.zip / Install.cmd next >
OS/2 REXX Batch file  |  2001-08-07  |  3KB  |  110 lines
  1. /* Install / UnInstall for Table */
  2.  
  3. PARSE ARG action
  4. IF RxFuncQuery('SysLoadFuncs') THEN DO
  5.     CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  6.     CALL SysLoadFuncs
  7. END
  8. CALL SysCls
  9. action = TRANSLATE(LEFT(action,1))
  10. SELECT
  11.     WHEN action = 'I' THEN CALL InstallMe
  12.     WHEN action = 'U' THEN CALL UnInstallMe
  13.     OTHERWISE CALL WhatAction
  14. END
  15. Exit /* End of TameInst.cmd */
  16.  
  17. /* WhatAction - no action selected */
  18.  
  19. WhatAction:     PROCEDURE
  20.  
  21. CALL SysCls
  22. SAY 'Please enter installation parameter (I=Install, U=UnInstall, other=Exit):'
  23. PARSE PULL action
  24. SELECT
  25.     WHEN TRANSLATE(LEFT(action,1)) = 'I' THEN CALL InstallMe
  26.     WHEN TRANSLATE(LEFT(action,1)) = 'U' THEN CALL UnInstallMe
  27.     OTHERWISE CALL NoAction 'Installation failed.'
  28. END
  29. RETURN /* End of WhatAction */
  30.  
  31. /* NoAction - abort Install */
  32.  
  33. NoAction:   PROCEDURE
  34.  
  35. CALL SysCls
  36. PARSE ARG noinstmsg
  37. SAY noinstmsg
  38. SAY 'Press Enter to exit ...'
  39. PULL answer
  40. CALL SysCls
  41. Exit /* End of NoAction */
  42.  
  43. /* InstallMe - install Table */
  44.  
  45. InstallMe:  PROCEDURE
  46.  
  47. prgname = 'Table 1.2.0'
  48.  
  49. CALL SysCls
  50. SAY 'Welcome to '||prgname||' Installation procedure!'
  51. SAY 'This procedure will create object for '||prgname||' on your Desktop,'
  52. SAY 'Press "Y" (and Enter) to start Installation, Enter to exit...'
  53. PARSE PULL answer
  54.  
  55. IF TRANSLATE(LEFT(answer,1)) <> "Y" THEN DO
  56.     CALL NoAction 'Installation aborted'
  57. END
  58.  
  59. SAY ' '
  60. InstallDir = Directory()
  61. WorkDir = Directory()
  62.  
  63. ProgTitle = prgname
  64. EXE = 'Table.exe'
  65. ICO = 'Table.ico'
  66. Setup = 'OBJECTID=<TABLE_PROGRAM>;EXENAME='InstallDir'\'EXE';ICONFILE='InstallDir'\'ICO';STARTUPDIR='WorkDir''
  67. Action = 'U'
  68. dummy = SysCreateObject('WPProgram',ProgTitle,'<WP_DESKTOP>',Setup,Action)
  69. SAY 'Creating '||prgname||' Program object - '||Rc2(dummy)
  70.  
  71. SAY ' '
  72. SAY 'Installation finished! Press Enter to exit ...'
  73. PULL answer
  74. CALL SysCls
  75. RETURN /* End of InstallMe */
  76.  
  77. /* UnInstallMe - uninstall Table */
  78.  
  79. UnInstallMe: PROCEDURE
  80.  
  81. prgname = 'Table 1.2.0'
  82. CALL SysCls
  83. SAY 'This is '||prgname||' UnInstallation procedure!'
  84. SAY 'This procedure will destroy '||prgname||' Program object'
  85. SAY 'Press "Y" (and Enter) to start UnInstall, any other key to exit...'
  86. PULL answer
  87. IF answer <> "Y" THEN DO
  88.     CALL NoAction 'UnInstall terminated.'
  89. END
  90. SAY ' '
  91. SAY 'Destroying Program object'
  92. CALL SysDestroyObject '<TABLE_PROGRAM>'
  93. SAY ' '
  94. SAY 'UnInstallation complete.'
  95. SAY 'You can delete files in directory '||Directory()
  96. SAY 'To install '||prgname||' again, start Install I. Press Enter to exit...'
  97. PULL answer
  98. RETURN /* End of UnInstallMe */
  99.  
  100. /* Rc2 - return code - SysCreateObject */
  101.  
  102. Rc2:        PROCEDURE
  103.  
  104. PARSE ARG rcSysCreateObject
  105. SELECT
  106.     WHEN rcSysIni = 0 THEN rc2 = 'Error'
  107.     OTHERWISE rc2 = 'OK'
  108. END
  109. RETURN rc2 /* End of Rc2 */
  110.