home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 7 Games / 07-Games.zip / guess.zip / SETUP.CMD < prev    next >
OS/2 REXX Batch file  |  1996-08-23  |  4KB  |  101 lines
  1. /* PROGRAM:  setup.cmd                           AUTHOR:  C.Cortez  */
  2. /* CREATED:  07/10/96                                               */
  3. /* DESCRIPTION:  Setup program GUESS                                */
  4. /*                                                                  */
  5. /* ================================================================ */
  6. /*REVISION:                                                         */
  7. /*   Date     Description                                           */
  8. /* ---------------------------------------------------------------- */
  9. /*                                                                  */
  10. /* **************************************************************** */
  11. /* M A I N L I N E                                                  */
  12. /* **************************************************************** */
  13. if LOADREXXUTIL()  then
  14.    signal PAU
  15.  
  16. /*
  17.  * make sure needed files are in directory
  18.  */
  19.    if \INIT() then
  20.    do
  21.       errlvl = 1
  22.       signal err
  23.    end
  24.  
  25. /*
  26.  * Create desktop object
  27.  */
  28.    call CRTOBJ
  29.  
  30. signal PAU
  31. /* **************************************************************** */
  32. /* S U B R O U T I N E S                                            */
  33. /* **************************************************************** */
  34. /* INIT: Initialzation routine                                      */
  35. /* ---------------------------------------------------------------- */
  36. INIT: 
  37.    rc = 1
  38.    knt = 0
  39.    ok = SysFileTree("*.*","files.","FO")
  40.    do lp = 1 to files.0
  41.       fname = reverse(files.lp)
  42.       c=pos("\",fname) - 1
  43.       file = reverse(left(fname,c))
  44.       if (file = "GUESS.EXE") | (file = "VROBJ.DLL") | (file = "COLOURS.ICO") then
  45.          knt = knt + 1
  46.    end /* do */
  47.    if knt < 3 then
  48.       rc = 0
  49.  
  50. RETURN rc
  51.  
  52. /* **************************************************************** */
  53. /* CRTOBJ:  Create object on desktop                                */
  54. /* ---------------------------------------------------------------- */
  55. CRTOBJ:
  56.  
  57.    rc = SysFileTree("..\guess.","dirs.","DO")
  58.  
  59.    setupstr = "ICONFILE="dirs.1"\colours.ico"
  60.    setupstr = setupstr || ";EXENAME="dirs.1"\GUESS.EXE"
  61.    setupstr = setupstr || ";STARTUPDIR="dirs.1
  62.  
  63.    rc= SysCreateObject("WPProgram","Guess","<WP_DESKTOP>",setupstr,"ReplaceIfExists")
  64.  
  65. RETURN
  66.  
  67. /* **************************************************************** */
  68. /* LOADRESSUTIL:  Loads additional Rexx functions                   */
  69. /* ---------------------------------------------------------------- */
  70. LOADREXXUTIL:  PROCEDURE
  71.    if rxfuncquery('sysloadfuncs') then
  72.    do
  73.       if rxfuncadd('sysloadfuncs', 'rexxutil', 'sysloadfuncs') then
  74.       do
  75.          say 'Error:  Couldn''''t load RexxUtil Library.'
  76.          return 1
  77.       end /* do */
  78.       call sysloadfuncs
  79.    end /* do */
  80. return 0
  81.  
  82. /* **************************************************************** */
  83. /* ERROR HANDLING ROUTINE                                           */
  84. /* **************************************************************** */
  85. ERR:
  86.    if errlvl = 1 then
  87.    do
  88.       say "One or more files are missing.  Please make sure the following files"
  89.       say "are in this directory."
  90.       say ""
  91.       say "     VROBJ.DLL"
  92.       say "     GUESS.EXE"
  93.       say "     COLOURS.ICO"
  94.    end
  95. /* **************************************************************** */
  96. /* E N D   O F   P R O G R A M                                      */
  97. /* **************************************************************** */
  98.  
  99. PAU:
  100. exit
  101.