freetype1/contrib/ftos2/uninstall.cmd

   1 /* */
   2 call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
   3 call SysLoadFuncs
   4
   5
   6 say "This utility will remove the FreeType/2 font driver and install "
   7 say "the original TRUETYPE.DLL if it exists. If you do not wish to"
   8 say "continue, please just press ENTER. Otherwise please type ""y"""
   9
  10 pull letter
  11 if letter <> "Y" then exit
  12
  13 /* Find drive where OS/2 is installed        */
  14 bootdrive = SysSearchPath('PATH', 'OS2.INI')
  15 bootdrive = left(bootdrive, 1)
  16
  17 app = "PM_Font_Drivers"
  18 key = "TRUETYPE"
  19
  20 /* look for TRUETYPE.DLL */
  21 rc = SysFileTree(left(bootdrive,1) || ":\OS2\DLL\TRUETYPE.DLL", "file", "F")
  22
  23 if file.0 = 1 then do
  24    say "Restoring TRUETYPE.DLL..."
  25    val = "\OS2\DLL\TRUETYPE.DLL" || d2c(0)
  26    SysIni('BOTH', app, key, val)
  27 end
  28 else do
  29    say "Uninstalling FREETYPE.DLL..."
  30    SysIni('BOTH', app, key, "DELETE:")
  31 end
  32
  33 say "FTIFI is uninstalled. Please reboot."
  34 pause