home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / gotch175.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  2003-01-15  |  3KB  |  101 lines
  1. /*************************************************************************/
  2. /*  Gotcha! installation file - Creates a WPS-object for Gotcha!         */
  3. /*  To run this file, just type "install" on the OS/2 command line.      */
  4. /*************************************************************************/
  5.  
  6. PARSE SOURCE operSystem . sourceFile
  7.  
  8. IF \(operSystem = "OS/2") THEN DO
  9.     SAY "Please use only with IBM-OS/2 Operating system!"
  10.     EXIT
  11.     END
  12.  
  13. /*************************************************************************/
  14.  
  15. '@ECHO OFF'
  16.  
  17. CALL rxfuncadd 'sysloadfuncs', 'rexxutil', 'sysloadfuncs'
  18. CALL sysloadfuncs
  19.  
  20. /*************************************************************************/
  21.  
  22. Ver = "1.75"
  23. GotchaDir = FILESPEC("drive", sourceFile)FILESPEC("path", sourceFile)
  24.  
  25. SAY ""
  26.  
  27. /*************************************************************************/
  28.  
  29. CALL SysFileTree GotchaDir"GOTCHA.EXE",'file','F'
  30. IF file.0 = 0 THEN DO
  31.     SAY "GOTCHA.EXE was not found in the same directory as ",
  32.     FILESPEC("name",sourceFile)
  33.  
  34.     DO UNTIL \(file.0 = 0)
  35.         SAY ""
  36.         SAY "Please give the full path to the file GOTCHA.EXE."
  37.         SAY "(Press ENTER/RETURN alone to exit)"
  38.         PULL GotchaDir
  39.         IF GotchaDir = "" THEN
  40.             EXIT
  41.         IF (FILESPEC("drive",GotchaDir) = "") | (FILESPEC("path",GotchaDir) = "") THEN
  42.             SAY 'You must give a full path in format "d:\path\"'
  43.         ELSE DO
  44.             IF \(SUBSTR(GotchaDir,length(GotchaDir),1) = "\" ) THEN
  45.                 GotchaDir = GotchaDir"\"
  46.             CALL SysFileTree GotchaDir"GOTCHA.EXE",'file','F'
  47.             IF file.0 = 0 THEN
  48.                 SAY "Can not find "GotchaDir"GOTCHA.EXE. Please try again."
  49.             END
  50.         END
  51.     SAY ""
  52.     END
  53.  
  54. /*************************************************************************/
  55.  
  56. setup = 'PROGTYPE=PM;EXENAME='GotchaDir'GOTCHA.EXE;STARTUPDIR='GotchaDir';'
  57. setup = setup'OBJECTID=<THTH_GOTCHA>;'
  58.  
  59. SAY ""
  60. SAY "* Creating Gotcha! WPS-object ..."
  61. check = SysCreateObject('WPProgram', 'Gotcha! 'Ver, '<WP_DESKTOP>', setup)
  62.  
  63. IF check = 0 THEN DO
  64.     SAY "* Could not create WPS-object!"
  65.     SAY "  (Does perhaps an object for Gotcha! already exist?)"
  66.     CALL CHAROUT , "* Do you want to replace the existing object [Y/N] ? "
  67.     key = SysGetKey('ECHO')
  68.     PARSE upper var key key
  69.     SAY ""
  70.     IF key <> 'Y' THEN
  71.         EXIT
  72.  
  73.     SAY "* Replacing old Gotcha! WPS-object ..."
  74.     check = SysCreateObject('WPProgram','Gotcha! 'Ver,'<WP_DESKTOP>',setup,"r")
  75.  
  76.     IF check = 0 THEN DO
  77.         SAY ""
  78.         SAY "* Sorry, object-creation failed again. Aborting ..."
  79.         EXIT
  80.         END
  81.     ELSE DO
  82.         SAY ""
  83.         SAY "* Old Gotcha! WPS-object replaced successfully!"
  84.         END
  85.     END
  86. ELSE DO
  87.     SAY ""
  88.     SAY "* Gotcha! WPS-object created successfully!"
  89.     END
  90.  
  91. /*************************************************************************/
  92.  
  93. SAY ""
  94. SAY "* See the online help for more information about Gotcha!"
  95. SAY ""
  96. SAY "* Don't forget to copy gotcha.dll to some directory in your LIBPATH!"
  97.  
  98. /*************************************************************************/
  99.  
  100. EXIT
  101.