set binpack=ftp32015
set allpack=ftp32015.lzh
set srcpack=lhminsrc.lzh

if "%1"=="" goto binpack
if "%1"=="all" goto allpack
if "%1"=="src" goto srcpack

:binpack
copy %binpack%.exe lhaold.exe
del %binpack%.lzh
rm -r package
mkdir package
cp ftp32.txt package
cp c:\windows\system\ftp32.dll history.txt package
mkdir package\src
mkdir package\sdk

cp src\pack.sh pack.bat package\src\
cp sdk\* package\sdk\
rm package\sdk\*.bak
cp src\ftp32___\ftp32.lib src\{ftp32.h,ftp32api.h} package\sdk\
cp src\*.{c,h,def,rc,dsp,dsw,ico} src\makefile package\src\
cp miniftp.exe package\miniftp.exe
cp src\release\miniftp.exe package\miniftp.exe
cd package

lha a -xr %binpack%.lzh
copy  %binpack%.lzh ..
cd ..
goto end

:allpack
del %allpack%
lha a %allpack%
cp %allpack% ..\backup\
goto end

:srcpack
del %srcpack%
lha a %srcpack% *.vbp *.frm *.bas *.frx *.cls *.ico *.sap

:end