home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / uptruety.zip / UPTRUETY.CMD
OS/2 REXX Batch file  |  2000-10-16  |  658b  |  29 lines
  1. /*update ini for TRUETYPE*/
  2.  
  3. call rxfuncadd 'sysloadfuncs', 'rexxutil', 'sysloadfuncs'
  4. call sysloadfuncs
  5.  
  6. rc = sysini('USER', 'PM_Font_Drivers', 'All:', 'trtype')
  7. flag=0
  8. if rc='' then
  9. do
  10.    do i = 1 to trtype.0
  11.         if trtype.i='TRUETYPE' then
  12.            flag=1
  13.    end
  14.    if flag=0 then
  15.    do
  16.        rc = sysini('USER', 'PM_Font_Drivers',"TRUETYPE" ,"\OS2\DLL\TRUETYPE.DLL")
  17.       if rc='' then
  18.          say 'updated INI file'
  19.       else
  20.          say 'Unable to update INI file'
  21.    end
  22.    else
  23.         say 'Entry already present in INI file'
  24. end /* no error opening INI file */
  25. else
  26.     say 'Could not open the INI file'
  27. exit
  28.  
  29.