/* MAKEWPI.CMD
 */
pkgname  = 'itheme'
wisname  = 'itheme.wis'

CALL RxFuncAdd 'SysIni', 'REXXUTIL', 'SysIni'

IF STREAM( pkgname'.wpi', 'C', 'QUERY EXISTS') \= '' THEN
    '@del' pkgname'.wpi'

PARSE VALUE SysIni('USER', 'WarpIN', 'Path') WITH warpin '00'x .
IF LEFT( warpin, 6 ) == 'ERROR:' THEN DO
    SAY 'Unable to locate WarpIN.'
    RETURN 1
END

CALL SETLOCAL
'@SET PATH='warpin';%PATH%'
'@SET BEGINLIBPATH='warpin
'@wic.exe' pkgname '-a 1 -c.. itheme.exe'
'@wic.exe' pkgname '-a 1 -c.. reicon.exe'
'@wic.exe' pkgname '-a 1 -c.. ithm_en.hlp'
'@wic.exe' pkgname '-a 1 -c.. ithm_en.msg'
'@wic.exe' pkgname '-a 1 -c.. icons.lst'
'@wic.exe' pkgname '-a 1 -c.. themes.en'
'@wic.exe' pkgname '-a 1 -c.. auxwp.bin'
'@wic.exe' pkgname '-a 1 -c.. addtheme.cmd'
'@wic.exe' pkgname '-a 1 -c.. COPYING'
'@wic.exe' pkgname '-a 1 -c.. readme.txt'
'@wic.exe' pkgname '-a 1 -c.. updtidx.cmd'
'@wic.exe' pkgname '-a 1 -r -c.. warp3\*'
'@wic.exe' pkgname '-a 1 -r -c.. warp4\*'
'@wic.exe' pkgname '-a 1 -r -c.. wserver\*'
'@wic.exe' pkgname '-a 1 -r -c.. retrowp\*'
'@wic.exe' pkgname '-a 1 -r -c.. oldstyle\*'
'@wic.exe' pkgname'.wpi -s' wisname
CALL ENDLOCAL

RETURN rc