home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / numcomma.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1997-11-06  |  715b  |  29 lines
  1. /* Install 'dll' entry into USER INI file */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. dll = 'NUMCOMMA'
  7.  
  8. /* get INI entry, and strip out null terminator */
  9. string = SysIni("USER","SYS_DLLS","LoadOneTime")
  10. string = left(string,length(string)-1)
  11.  
  12. flag = 0
  13. do wrd = 1 to WORDS(string)
  14.   if word(string,wrd) = dll then
  15.      flag = 1
  16. end
  17. if flag = 0 then
  18. do
  19.    if SysIni("USER","SYS_DLLS","LoadOneTime",string dll||d2c(0)) = '' then
  20.    do
  21.       say dll 'successfully installed.'
  22.       say 'Make sure you have copied' dll 'in \OS2\DLL.'
  23.    end
  24.    else
  25.       say 'An error occured while installing' dll 'in OS2.INI.'
  26. end
  27. else
  28.    say dll 'already installed.'
  29.