home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / lsmt213c.zip / rgutils.cmd < prev    next >
OS/2 REXX Batch file  |  1996-06-11  |  2KB  |  45 lines
  1. /*---------------------------------------------------------------------------*\
  2. |  Register all the RXUTILS.DLL Functions     (C) Alain Rykaert - DEC95-JUN96 |
  3. \*---------------------------------------------------------------------------*/
  4.  
  5.     Parse Upper Arg Option .
  6.  
  7.     if Strip(Translate(Option)) = '/M'
  8.      then MUTE = 1
  9.      else MUTE = 0
  10.  
  11.     Result_Query=RxFuncQuery('RxLoadFuncs')
  12.     if Result_Query = 0
  13.      then do
  14.              if \MUTE then Say '*** OK, RxUtils was registered. ***'
  15.           end
  16.      else do
  17.              Result_Add = RxFuncAdd('RxLoadFuncs','RXUTILS','RxLoadFuncs')
  18.              if Result_Add = 0
  19.               then do
  20.                       if \MUTE then Say '*** OK, RxUtils is registered. ***'
  21.                       Signal ON Syntax Name Load_Check
  22.                       Call RxLoadFuncs
  23.                       Load_Check: /* RC of 43 means RXUTILS not found */
  24.                       if RC = 43
  25.                        then do
  26.                                Say '*** ERROR: Not able to load the RxUtils.'
  27.                                Say '    Perhaps REXX not installed,'
  28.                                Say '    or RXUTILS.DLL not found in a LIBPATH drive/directory.'
  29.                               '@Pause'
  30.                             end
  31.                       Signal OFF Syntax
  32.                    end
  33.               else do
  34.                       Say '*** ERROR: RxUtils registration has failed. ***'
  35.                      '@Pause'
  36.                    end
  37.           end
  38.  
  39.     if \MUTE then say '0A0D'X ' RXUTILS version' RXUTILSVER()
  40.  
  41.     Exit
  42.  
  43.  /*--------------------------------------------------------------------------*/
  44.  
  45.