/* */
call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
call SysLoadFuncs
Parse Upper Arg a1 a2
app = "FreeType/2"
key = "OPENFACES"
if Arg() = 0 then call usage
if a1 = 'Q' then call query
if a1 = 'S' then call set
call usage
set:
val = a2
if val = '' then do
say 'Invalid limit!'
exit
end
if val < 8 then do
say 'The lowest acceptable limit is 8!'
pause
exit
end
szval = val || d2c(0)
rc = SysIni('USER', app, key, szval)
say rc
if rc = 'ERROR:' then do
say 'Error updating OS2.INI!'
pause
exit
end
say "Open faces limit updated to " || val || ". Please reboot to activate changes."
pause
exit
query:
val = SysIni('USER', app, key)
if val = "ERROR:" then val = "not set"
/* strip the terminating NULL character */
else val = substr(val, 1, pos(d2c(0), val) - 1)
say 'The current open faces limit is ' || val
pause
exit
usage:
say 'This program is used to set the limit of concurrently open typefaces for'
say 'FreeType/2. Use lower numbers to limit memory consumption and higher to'
say 'improve performance if you use lots of fonts.'
say
say 'Usage: LIMIT q - query the current limit'
say ' LIMIT s <val> - set limit to <val> (effective on next reboot).'
pause