freetype1/contrib/ftos2/query.cmd

   1 /* */
   2 call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
   3 call SysLoadFuncs
   4
   5 app = "PM_Font_Drivers"
   6 key = "TRUETYPE"
   7
   8 val = SysIni('USER', app, key)
   9
  10 if val = "ERROR:" then val = "none"
  11 /* strip the terminating NULL character */
  12 else val = substr(val, 1, pos(d2c(0), val) - 1)
  13
  14 say 'The current TrueType driver is ' || val
  15 pause