/* MAKEWPI.CMD
 */
ARG param

pkgname  = 'imerj'
verstr   = '2_0'
fullpkg  = pkgname'.wpi'

IF STREAM( fullpkg, 'C', 'QUERY EXISTS') \= '' THEN
    '@del' fullpkg

CALL RxFuncAdd 'SysIni', 'REXXUTIL', 'SysIni'
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' fullpkg '-a 1 -c.. imerj.exe'   exeflag
'@wic.exe' fullpkg '-a 1 -c.. imerj.hlp'   exeflag
'@wic.exe' fullpkg '-a 1 -c.. COPYING'     exeflag
'@wic.exe' fullpkg '-a 1 -c.. readme.txt'  exeflag
'@wic.exe' fullpkg '-a 1 -c.. setdict.cmd' exeflag
'@wic.exe' fullpkg '-a 4 -c.. AUXDICT'     exeflag
'@wic.exe' fullpkg '-a 2 -c2 *'            exeflag
'@wic.exe' fullpkg '-a 3 -c3 *'            exeflag
'@wic.exe' fullpkg '-a 5 -c5 *.dll'        exeflag
'@wic.exe' fullpkg '-a 6 -c6 *.dll'        exeflag
'@wic.exe' fullpkg '-s' pkgname'.wis'
CALL ENDLOCAL

RETURN rc