@echo off
rem Copyright 2007 TeX Users Group.
rem You may freely use, modify and/or distribute this file.

rem COPYLS (defaults to a:) or COPYLS a: or COPYLS b:

if "%1" == "-?" goto usage
if "%1" == "/?" goto usage
if "%1" == "" %0 a:
rem if "%1" == "" %0 b:
if "%1" == "a:" goto diskok
if "%1" == "b:" goto diskok
%0 a: %1 %2 %3 %4 %5 %6 %7 %8 %9
rem %0 b: %1 %2 %3 %4 %5 %6 %7 %8 %9

:diskok
break on
cls
echo %0 %1 %2 %3 %4 %5 %6 %7 %8 %9

if not exist c:\yyinstal\setup.w02 goto single
if not exist c:\yyinstal\setup.w03 goto single

echo Insert Disk 1 into %1
echo.
:insert1
pause

rem see if disk clean
if not exist %1*.* goto do1

if not exist %1setup1.w02 goto notwoa
cls
echo Please remove Disk 2 and insert Disk 1 in %1
echo 
goto insert1

:notwoa
if not exist %1setup1.w03 goto nothrea
cls
echo Please remove Disk 3 and insert Disk 1 in %1
echo 
goto insert1

:nothrea
rem don't make a fuss if reusing old `master' diskette #1
if not exist %1\setup1.exe echo WARNING: deleting files on disk first
echo y | del %1*.* 
dir %1 /B

:do1
label %1 DISK 1
echo ****Copying Disk 1****
echo.
rem xcopy c:\yyinstal\setup1.exe %1 /v
xcopy c:\yyinstal\setup1.exe %1
if errorlevel = 1 goto failed
if not exist %1setup1.exe goto failed
rem xcopy c:\yyinstal\copyrght.txt %1
if not "%2" == "S" goto fast1
echo Compare files c:\yyinstal\setup1.exe %1\setup1.exe
echo n | comp c:\yyinstal\setup1.exe %1\setup1.exe

:fast1
cls
dir %1 /B
echo.
echo Disk 1 copied; insert Disk 2 into %1
if "%2" == "Q" goto skip2
rem ring the bell
echo 

:skip2
:insert2
echo.
pause

rem see if disk clean
if not exist %1*.* goto do2

if not exist %1setup1.exe goto notone
cls
dir %1 /B
echo.
echo Please remove Disk 1 and insert Disk 2 into %1
echo 
goto insert2

:notone
if not exist %1setup1.w03 goto nodrei
cls
dir %1 /B
echo.
echo Please remove Disk 3 and insert Disk 2 into %1
echo 
goto insert2

:nodrei
rem don't make a fuss if reusing old `master' diskettes
if not exist %1\setup1.w02 echo WARNING: deleting files on disk first
echo y | del %1*.* 
dir %1 /B

:do2
label %1 DISK 2
echo ****Copying Disk 2****
echo.
rem xcopy c:\yyinstal\setup1.w02 %1 /v
xcopy c:\yyinstal\setup1.w02 %1
if errorlevel = 1 goto failed
if not exist %1setup1.w02 goto failed
if not "%2" == "S" goto fast2
echo Compare files c:\yyinstal\setup1.w02 %1\setup1.w02
echo n | comp c:\yyinstal\setup1.w02 %1\setup1.w02
:fast2
rem :insert3

cls
dir %1 /B
rem :insert3
echo.
echo Disk 2 copied; insert Disk 3 into %1
:insert3
echo.
if "%2" == "Q" goto skip4
rem ring the bell
echo 
:skip4
pause

rem see if disk clean
if not exist %1*.* goto do3
if not exist %1setup1.w02 goto nottwo
cls
dir %1 /B
echo.
echo Please remove Disk 2 and insert Disk 3 into %1
rem if "%2" == "Q" goto skip5
rem ring the bell
echo 
rem :skip5
rem pause
goto insert3

:nottwo
if not exist %1setup1.exe goto notown
cls
dir %1 /B
echo.
echo Please remove Disk 1 and insert Disk 3 into %1
rem if "%2" == "Q" goto skip6
rem ring the bell
echo 
rem :skip6
rem pause
goto insert3

:notown
rem don't make a fuss if reusing old `master' diskettes
if not exist %1\setup1.w03 echo WARNING: deleting files on disk first
echo y | del %1*.* 
dir %1 /B

:do3
label %1 DISK 3
echo ****Copying Disk 3****
echo.
rem xcopy c:\yyinstal\setup1.w03 %1 /v
xcopy c:\yyinstal\setup1.w03 %1
if errorlevel = 1 goto failed
if not exist %1setup1.w03 goto failed
if not "%2" == "S" goto fast3
echo Compare files c:\yyinstal\setup1.w03 %1\setup1.w03
echo n | comp c:\yyinstal\setup1.w03 %1\setup1.w03
:fast3

echo We no longer put BibTeX, MakeIndx, DVIcopy here
echo They are now in c:\yyinstal\util

goto end

echo Now deal with the UTIL files BIBTEX, MAKEINDX, and DVICOPY

echo mkdir %1\util
mkdir %1\util

echo xcopy d:\util\*.* %1\util
xcopy d:\util\*.* %1\util

cls
dir %1 /B
echo.
echo Fini!
if "%2" == "Q" goto skip7
rem ring the bell
echo 
:skip7
goto end

:failed
echo Sorry, copying to diskette failed!
dir %1
rem if "%2" == "Q" goto skip8
rem ring the bell
echo 
rem :skip8
dir %1
goto end

:usage
echo Usage: COPYLS (defaults to a:), or COPYLS a:, or COPYLS b:
echo Usage: COPYLS Q if you want to suppress noise
echo Usage: COPYLS S if you want to compare files after copy
goto end

:single
echo The installation file setup.exe is a single file - not split into  
echo three parts as required for creating a diskette installation.
echo.
echo Please run WISE compilation again by selecting `Make Floppy' and
echo changing the max file size to 1420 kbytes (rather than 0).
echo.
echo Change it back again afterwards to 0 kbytes for CD installation.

goto end

:end

rem Switched to XCOPY, since COPY does not set ERRORLEVEL on failure.

rem By the way, the del *.* takes care of top level files
rem so there could be problems if directories in diskette
rem That is why I added the dir %1 lines...
rem Maybe use deltree %1 ?  But then may need multiply y responses ...