home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / netdor3.zip / VNDINST / FRNTENDS / EASEL / PACKRUN.CMD < prev   
OS/2 REXX Batch file  |  1996-04-04  |  2KB  |  75 lines
  1. /******************************************************************
  2.  
  3. Description:    IBM EASEL Run Exec.
  4.  
  5. Details:        This exec sets up the proper Easel environment.
  6.  
  7.                 It gets local directory info from OS2.INI where
  8.                 the install program placed it.
  9.  
  10. Dependencies:
  11.    Externals:   RXUTILS.DLL - RXUTILS package on OS2TOOLS.
  12.    Drive(s):    User must always use same drive.
  13.    Directories: Assumes DLLs and EXEs in root directory of
  14.                  assigned drive.
  15.    Window Type: FS/Win
  16.    App Title:   None
  17.  
  18. Last Updated:   4/2/91
  19. ******************************************************************/
  20. trace 'O'
  21. '@echo off'
  22.  
  23. /* Add external functs */
  24. call RxFuncAdd 'RXCLS',      'RXUTILS', 'RXCLS'
  25. call RxFuncAdd 'RXOS2INI',   'RXUTILS', 'RXOS2INI'
  26.  
  27.  
  28. /* Give header */
  29. say
  30. say ' IBM EASEL ver 1.10'
  31. say ' ------------------'
  32. say
  33.  
  34.  
  35. /* Get/set variables */
  36. parse source . . exec
  37. Env      = 'OS2ENVIRONMENT'
  38. Edr      = left(exec, lastpos('\', exec))
  39. oldpath  = value('PATH',,Env)
  40. olddpath = value('DPATH',,Env)
  41. newpath  = Edr';'oldpath
  42. newdpath = Edr';'olddpath
  43. LocalDir = RxOS2Ini(, 'EASEL', 'WORKDIR')
  44.  
  45.  
  46. /* Quit if local dir not found */
  47. if RxDirExist(LocalDir)=0 then do
  48.   say d2c(7)
  49.   say ' Easel is not properly configured.'
  50.   say
  51.   say ' Possible problems:'
  52.   say
  53.   say '   - You have not yet run the Easel Installation program.'
  54.   say '   - Local Easel directory information is not in OS2.INI.'
  55.   say '   - Your local Easel directory no longer exists.'
  56.   say
  57.   say ' Please run the Easel Installation program...'
  58.   say
  59.   'pause'
  60.   'exit'
  61. end
  62.  
  63.  
  64. /* Perform setup */
  65. say ' Setting up IBM EASEL V1.1 environment for this session...'
  66. say
  67. say ' Local directory = 'LocalDir
  68. say
  69. call value 'PATH',  newpath,  Env
  70. call value 'DPATH', newdpath, Env
  71. say ' Done.  You may run Easel now!'
  72. say
  73.  
  74. exit
  75.