freetype1/contrib/ftos2/install.cmd

   1 /* */
   2 call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
   3 call SysLoadFuncs
   4
   5
   6 say "Warning: This is your last chance to back out. If you do not wish to"
   7 say "continue, please just press ENTER. Otherwise please type ""yes"""
   8
   9 pull letter
  10 if letter <> "YES" then exit
  11
  12 /* Find drive where OS/2 is installed        */
  13 bootdrive = SysSearchPath('PATH', 'OS2.INI')
  14 /* say os2path */
  15 bootdrive = left(bootdrive, 2)
  16
  17 copy "FREETYPE.DLL " || bootdrive || "\os2\dll"
  18 if rc <> 0 then do
  19    say "Error: Could not copy file!"
  20    pause
  21    exit
  22 end
  23
  24 app = "PM_Font_Drivers"
  25 key = "TRUETYPE"
  26 val = "\OS2\DLL\FREETYPE.DLL" || d2c(0)
  27
  28 SysIni('BOTH', app, key, val)
  29 say "Font Driver is installed. Please reboot."
  30 pause