build.bat

@echo off
setlocal EnableDelayedExpansion

goto:rem
---------------------------------------
build.bat
---------------------------------------
This batch script is made to help download all the required software for RetroBat,
to set the default configuration and to build the setup from sources.
---------------------------------------
:rem

:: ---- BUILDER OPTION ----

set retrobat_version=6.0.0
set retroarch_version=1.15.0

set get_batgui=0
set get_batocera_ports=1
set get_bios=1
set get_decorations=1
set get_default_theme=1
set get_emulationstation=1
set get_emulators=0
set get_lrcores=1
set get_retroarch=1
set get_retrobat_binaries=1
set get_system=1
set get_wiimotegun=1

:: ---- ARCHIVE OPTIONS ----

:: archive_format: zip|7z
:: archive_compression: 0|1|3|5|7|9

set archive_format=zip
set archive_compression=3

:: ---- LOOP LIST ----

set setup_compiler=ISCC

set deps_list=(git !setup_compiler! 7za wget curl)
set submodules_list=(bios decorations system)
set packages_list=(retrobat_binaries batgui emulationstation default_theme batocera_ports mega_bezels retroarch roms wiimotegun)
set legacy_cores_list=(4do emuscv imageviewer mame2014 mame2016 px68k)
set emulators_black_list=(3dsen pico8 retroarch ryujinx steam teknoparrot yuzu yuzu-early-access)

:: ---- GET STARTED ----

set script_type=builder
set user_choice=0
set git_branch=master
set branch=beta
set release_version=null
set log_file=build.log
set exit_timeout=0

:loop_arg

if not "%1"=="" (

	if "%1"=="-config" (

		set custom_config=%2
		shift
	)

	shift
	goto :loop_arg
)

call :set_root
call :set_install
call :set_builder

if %user_choice% NEQ 0 (

	if %user_choice% EQU 1 (
		call :get_packages
		call :set_config
		call :build_setup
		call :create_archive
		call :exit_door
		goto :eof
	)
	
	if %user_choice% EQU 2 (
		call :get_packages
		call :set_config
		call :exit_door
		goto :eof
	)
	
	if %user_choice% EQU 3 (
		call :build_setup
		call :exit_door
		goto :eof
	)
	
	if %user_choice% EQU 4 (
		call :create_archive
		call :exit_door
		goto :eof
	)
	
	if %user_choice% EQU 5 (
		call :butler_push
		call :exit_door
		goto :eof
	)
)

:: ---- UI ----

call :banner

echo  This script can help you to download all the required 
echo  softwares and build the RetroBat Setup with the NullSoft 
echo  Scriptable Install System.
echo +===========================================================+
echo  (1) - full compilation
echo  (2) - download, configure
echo  (3) - build setup executable
echo  (4) - archive
if exist "!root_path!\butler_push.txt" echo  (5) - push
echo  (Q) - Quit
echo +===========================================================+
if not exist "!root_path!\butler_push.txt" choice /C 1234Q /N /T 20 /D 1 /M "Please type your choice here: "
if exist "!root_path!\butler_push.txt" choice /C 12345Q /N /T 20 /D 1 /M "Please type your choice here: "
echo +===========================================================+
set user_choice=%ERRORLEVEL%

if %user_choice% EQU 1 (

	call :get_packages
	call :set_config
	call :build_setup
	call :create_archive
	call :exit_door
	goto :eof
)

if %user_choice% EQU 2 (

	call :get_packages
	call :set_config
	call :exit_door
	goto :eof
)

if %user_choice% EQU 3 (

	call :build_setup
	call :exit_door
	goto :eof
)

if %user_choice% EQU 4 (

	call :create_archive
	call :exit_door
	goto :eof
)

if not exist "!root_path!\butler_push.txt" if %user_choice% EQU 5 (

	(set exit_code=0)
	call :exit_door
	goto :eof
)

if exist "!root_path!\butler_push.txt" if %user_choice% EQU 5 (

	call :butler_push
	call :exit_door
	goto :eof
)

if exist "!root_path!\butler_push.txt" if %user_choice% EQU 6 (

	(set exit_code=0)
	call :exit_door
	goto :eof
)

:: ---- LABELS ----

:: ---- SET ROOT PATH ----

:set_root

set task=set_root

set current_file=%~nx0
set current_drive="%cd:~0,2%"
set current_dir="%cd:~3%"
set current_drive=%current_drive:"=%
set current_dir=%current_dir:"=%
set current_path=!current_drive!\!current_dir!
set root_path=!current_path!

if not "%log_file%" == "" if exist "!root_path!\%log_file%" del/Q "!root_path!\%log_file%" >nul
(echo %date% %time% [START] Run: !current_file!)>> "!root_path!\%log_file%"
(echo %date% %time% [LABEL] :!task!)>> "!root_path!\%log_file%"
(echo %date% %time% [INFO] Current Path: "!current_path!")>> "!root_path!\%log_file%"

goto :eof

:: ---- SET INSTALL INFOS ----

:set_install

set task=set_install
(echo %date% %time% [LABEL] :!task!)>> "!root_path!\%log_file%"

:: ---- SET CUSTOM OPTIONS ----

if not "!custom_config!" == "" if exist "!root_path!\!custom_config!" (

	for /f "delims=" %%x in (!root_path!\!custom_config!) do (set %%x)
	(echo %date% %time% [INFO] Using build config file: "!custom_config!")>> "!root_path!\%log_file%"
)

:: ---- SET TMP FILE ----

set tmp_infos_file=!root_path!\rb_infos.tmp
if not "%tmp_infos_file%" == "" if exist "!tmp_infos_file!" del/Q "!tmp_infos_file!"

:: ---- CALL SHARED VARIABLES SCRIPT ----

if exist "!root_path!\system\scripts\shared-variables.cmd" (

	cd "!root_path!\system\scripts"
	call shared-variables.cmd	
	
) else (

	(set exit_code=2)
	call :exit_door
	goto :eof
)

:: ---- GET INFOS STORED IN TMP FILE ----

if exist "!tmp_infos_file!" (

	for /f "delims=" %%x in ('type "!tmp_infos_file!"') do (set "%%x") 
	if not "%tmp_infos_file%" == "" del/Q "!tmp_infos_file!"
	
) else (

	(set/A exit_code=2)
	call :exit_door
	goto :eof
)

(echo %date% %time% [INFO] Version: %name%-%retrobat_version%-%branch%)>> "!root_path!\%log_file%"
(echo %date% %time% [INFO] Build Path: "!build_path!")>> "!root_path!\%log_file%"
(echo %date% %time% [INFO] Download Path: "!download_path!")>> "!root_path!\%log_file%"

:: ---- WINDOW TITLE ----

title !name! builder script

goto :eof

:: ---- DEPENDENCIES CHECKING ----

:set_builder

set task=set_builder
(echo %date% %time% [LABEL] :!task!)>> "!root_path!\%log_file%"

call :banner

echo :: SETTING BUILD ENVIRONMENT...

if not exist "!build_path!\." md "!build_path!"
if not exist "!download_path!\." md "!download_path!"

(set/A found_total=0)

if "%archx%"=="x86_64" (set "git_path=%ProgramFiles%\Git\cmd") else (set "git_path=%ProgramFiles(x86)%\Git\cmd")

for %%i in %deps_list% do (

	(set/A found_%%i=0)
	(set/A found_total=!found_total!+1)
	(set package_name=%%i)
	(set buildtools_path=!root_path!\system\tools)
	
	if "!package_name!"=="git" (set buildtools_path=!git_path!)
	if "!package_name!"=="makensis" (set "buildtools_path=%ProgramFiles(x86)%\NSIS" & set "compiler_path=!buildtools_path!")
	if "!package_name!"=="ISCC" (set "buildtools_path=%ProgramFiles(x86)%\Inno Setup 6" & set "compiler_path=!buildtools_path!")
	
	if exist "!buildtools_path!\!package_name!.exe" (
	
		(set/A found_%%i=!found_%%i!+1)
		(echo %%i: found)
		(echo %date% %time% [INFO] %%i: found)>> "!root_path!\%log_file%"
		
	) else (
	
		(echo %%i: not found)
		(echo %date% %time% [INFO] %%i: not found)>> "!root_path!\%log_file%"
	)
	
	(set/A found_total=!found_total!-!found_%%i!)		
)

if !found_total! NEQ 0 (
	
	(set/A exit_code=2)
	call :exit_door
	goto :eof
)
	
timeout /t 3 >nul

goto :eof

:: ---- GET PACKAGES ----

:get_packages

set task=get_packages
(echo %date% %time% [LABEL] :!task!)>> "!root_path!\%log_file%"

echo :: GETTING REQUIRED PACKAGES...

cd !root_path!
git submodule update --init

if %ERRORLEVEL% NEQ 0 (

	(set/A exit_code=%ERRORLEVEL%)
	call :exit_door
	goto :eof
)

if "%get_retrobat_binaries%"=="1" (
	for %%i in (txt) do (xcopy "!root_path!\*.%%i" "!build_path!" /v /y)
	if exist "!build_path!\butler_push.txt" del/Q "!build_path!\butler_push.txt"
	
	(echo %date% %time% [INFO] retrobat_binaries copied to "!build_path!")>> "!root_path!\%log_file%"
)

for %%i in %submodules_list% do (

	if "!get_%%i!"=="1" (
	
		(set package_name=%%i)
		(set destination_path=!%%i_path!)
	
		if "!package_name!"=="bios" (set folder=bios)
		if "!package_name!"=="default_theme" (set folder=emulationstation\.emulationstation\themes\es-theme-carbon)
		if "!package_name!"=="decorations" (set folder=system\decorations)
		if "!package_name!"=="system" (set folder=system)
		
		xcopy "!root_path!\!folder!" "!destination_path!\" /s /e /v /y
		
		(echo %date% %time% [INFO] !package_name! copied to "!destination_path!")>> "!root_path!\%log_file%"		
	)
)

for %%i in %packages_list% do (

	if "!get_%%i!"=="1" (
		
		(set package_name=%%i)
		(set package_file=%%i.7z)
		(set download_url=!%%i_url!)
		(set destination_path=!%%i_path!)

		if "!package_name!"=="retrobat_binaries" (set package_file=%%i_%git_branch%.7z)
		if "!package_name!"=="emulationstation" (set package_file=EmulationStation-Win32.zip)
		if "!package_name!"=="batocera_ports" (set package_file=batocera-ports.zip)
		if "!package_name!"=="retroarch" (set package_file=RetroArch.7z)
		if "!package_name!"=="wiimotegun" (set package_file=WiimoteGun.zip)
		if "!package_name!"=="default_theme" (set package_file=master.zip)
		
		call :download
		call :hash_file
		call :extract		
	)
)

if "%get_lrcores%"=="1" (

	for /f "usebackq delims=" %%x in ("%system_path%\configgen\lrcores_names.lst") do (

		(set package_name=%%x)
		(set package_file=%%x_libretro.dll.zip)
		(set download_url=%lrcores_url%/!package_file!)
		(set destination_path=%lrcores_path%)

		call :download
		call :hash_file
		call :extract	
	)
)

if "%get_emulators%"=="1" (

	for /f "usebackq delims=" %%x in ("%system_path%\configgen\emulators_names.lst") do (

		(set package_name=%%x)
		(set package_file=%%x.7z)
		(set download_url=%emulators_url%)
		(set destination_path=!emulators_path!\%%x)
		
		set skip=0
		
		for %%i in %emulators_black_list% do (
		
			if "!package_name!"=="%%i" (set skip=1)
		)
		
		if "!skip!"=="0" (

			call :download
			call :hash_file
			call :extract
		)
	)
)

goto :eof

:: ---- SET RETROBAT CONFIG ----

:set_config

set task=set_config
(echo %date% %time% [LABEL] :!task!)>> "!root_path!\%log_file%"

echo :: SETTING CONFIG FILES...

for /f "usebackq delims=" %%x in ("%system_path%\configgen\retrobat_tree.lst") do (if not exist "!build_path!\%%x\." md "!build_path!\%%x")
for /f "usebackq delims=" %%x in ("%system_path%\configgen\emulators_names.lst") do (if not exist "!build_path!\emulators\%%x\." md "!build_path!\emulators\%%x")
for /f "usebackq delims=" %%x in ("%system_path%\configgen\systems_names.lst") do (if not exist "!build_path!\roms\%%x\." md "!build_path!\roms\%%x")
for /f "usebackq delims=" %%x in ("%system_path%\configgen\systems_names.lst") do (if not exist "!build_path!\saves\%%x\." md "!build_path!\saves\%%x")

if exist "!build_path!\retrobat.exe" (

	"!build_path!\retrobat.exe" /NOF #GetConfigFiles
	"!build_path!\retrobat.exe" /NOF #SetEmulationStationSettings
	"!build_path!\retrobat.exe" /NOF #SetEmulatorsSettings
	
	if %ERRORLEVEL% NEQ 0 (
		(set/A exit_code=%ERRORLEVEL%)
		call :exit_door
		goto :eof
	)

) else (

	(set/A exit_code=2)
	call :exit_door
	goto :eof	
)

if exist "!build_path!\retrobat.ini" del/Q "!build_path!\retrobat.ini"

if exist "!system_path!\templates\emulationstation\es_features.locale\." xcopy "!system_path!\templates\emulationstation\es_features.locale" "!emulationstation_path!\es_features.locale\" /s /e /v /y

if exist "!system_path!\resources\emulationstation\video\*.mp4" xcopy /v /y "!system_path!\resources\emulationstation\video\*.mp4" "!build_path!\emulationstation\.emulationstation\video"
if exist "!system_path!\resources\emulationstation\music\*.ogg" xcopy /v /y "!system_path!\resources\emulationstation\music\*.ogg" "!build_path!\emulationstation\.emulationstation\music"

if not exist "!build_path!\system\version.info" (

	(set timestamp=%date:~6,4%%date:~3,2%%date:~0,2%)
	
	if "%branch%" == "stable" (
		(set release_version=%retrobat_version%-%branch%-%arch%)
	) else (
		(set release_version=%retrobat_version%-!timestamp!-%branch%-%arch%)
	)
	
	(echo|set/P=!release_version!)> "!build_path!\system\version.info"	
)

echo build version is: !release_version!

(set/A exit_code=0)

goto :eof

:: ---- BUILD RETROBAT SETUP ----

:build_setup

set task=build_setup
(echo %date% %time% [LABEL] :!task!)>> "!root_path!\%log_file%"

echo :: BUILDING RETROBAT SETUP...

call :check_version

set package_file=%name%-v%release_version%-setup.exe

if not exist "!build_path!\%package_file%" (

	if "%setup_compiler%"=="makensis" ("!compiler_path!\makensis.exe" /V4 /DRELEASE_VERSION=%release_version%  "!root_path!\installer\setup.nsi")
	if "%setup_compiler%"=="ISCC" if "%archx%"=="x86_64" ("!compiler_path!\ISCC.exe" /DMyAppVersion=%release_version% /DMyAppArchitecture=x64 /DSourceDir="!build_path!" /DInstallRootUrl="%installroot_url%/repo/%arch%" "!root_path!\installer\installer.iss")
	if "%setup_compiler%"=="ISCC" if "%archx%"=="x86" ("!compiler_path!\ISCC.exe" /DMyAppVersion=%release_version% /DMyAppArchitecture=x86 /DSourceDir="!build_path!" /DInstallRootUrl="%installroot_url%/repo/%arch%" "!root_path!\installer\installer.iss")
)

timeout/t 2 >nul
 
if exist "!root_path!\installer\%package_file%" (

	(set/A exit_code=0)
	move /Y "!root_path!\installer\%package_file%" "!build_path!"
	(echo %date% %time% [INFO] Build "%package_file%" in "!build_path!")>> "!root_path!\%log_file%"
)

call :hash_file	

goto :eof

:: ---- CREATE ARCHIVE ----

:create_archive

set task=create_archive
(echo %date% %time% [LABEL] :!task!)>> "!root_path!\%log_file%"

echo :: CREATING ARCHIVE...

call :check_version

set package_file=%name%-v%release_version%.%archive_format%
set exclude_list=(exclude.lst hash_list.txt %name%-v%release_version%-setup.exe %name%-v%release_version%-setup.exe.sha256.txt %name%-v%release_version%.%archive_format% %name%-v%release_version%.%archive_format%.sha256.txt)

if not exist "!build_path!\%package_file%" (

	if exist "!build_path!\exclude.lst" del/Q "!build_path!\exclude.lst"	
	for %%i in %exclude_list% do ((echo "%%i")>> "!build_path!\exclude.lst")

	!buildtools_path!\7za.exe a -t%archive_format% "!build_path!\%package_file%" "!build_path!\*" -xr@"!build_path!\exclude.lst" -mx=%archive_compression%	
	if exist "!build_path!\exclude.lst" del/Q "!build_path!\exclude.lst"
)

if exist "!build_path!\%package_file%" (

	(set/A exit_code=0)
	(echo %date% %time% [INFO] Created "%package_file%" in "!build_path!")>> "!root_path!\%log_file%"
)

call :hash_file

goto :eof

:: ---- BUTLER PUSH ----

:: need butler installed and dummy butler_push.txt

:butler_push

set task=butler_push
(echo %date% %time% [LABEL] :!task!)>> "!root_path!\%log_file%"

echo :: PUSHING BUTLER...

call :check_version

if exist "!build_path!\system\version.info" (
	butler push "!build_path!\%name%-v%release_version%-setup.exe" retrobatofficial/retrobat:%arch%-%branch% --userversion-file "!build_path!\system\version.info"
	butler push --ignore "!build_path!\%name%-v%release_version%-setup.exe" --ignore "!build_path!\%name%-v%release_version%-setup.exe.sha256" --ignore "%name%-v%release_version%.%archive_format%" --ignore "%name%-v%release_version%.%archive_format%.sha256" --ignore "!build_path!\*.log" --ignore "!build_path!\hash_list.txt" --ignore "!build_path!\emulationstation\.emulationstation\es_settings.cfg" "!build_path!\" retrobatofficial/retrobat:%arch%-%branch% --userversion-file "!build_path!\system\version.info"
	(set/A exit_code=%ERRORLEVEL%)
)

if %exit_code% EQU 0 ((echo %date% %time% [INFO] Pushed "%name%-v%release_version%")>> "!root_path!\%log_file%")

goto :eof

:: ---- BANNER ----

:banner

cls
echo +===========================================================+
echo  !name! builder script
echo +===========================================================+
goto :eof

:: ---- DOWNLOAD PACKAGES ----

:download

echo *************************************************************

for %%j in %legacy_cores_list% do (

	if "!package_name!"=="%%j" (set download_url=https://www.retrobat.ovh/repo/%arch%/legacy/lrcores)
)

if exist "%download_path%\%package_file%" goto :eof

"%buildtools_path%\wget" --continue --no-check-certificate --retry-connrefused --waitretry=1 --read-timeout=20 --timeout=15 -t 3 -P "%download_path%" !download_url!/!package_file! -q --show-progress
(set/A exit_code=%ERRORLEVEL%)

if not exist "%download_path%\%package_file%" (

	call :exit_door
	goto :eof
)

(echo %date% %time% [INFO] Get !package_name! from !download_url!)>> "!root_path!\%log_file%"

goto :eof

:: ---- EXTRACT PACKAGES ----

:extract

echo *************************************************************

if not exist "%extraction_path%\." md "%extraction_path%"
"%buildtools_path%\7za.exe" -y x "%download_path%\%package_file%" -aoa -o"%extraction_path%"

set true=1

if "!package_name!"=="retroarch" (

	set true=0
	
	if "%archx%"=="x86_64" (
				
		xcopy "%extraction_path%\RetroArch-Win64" "%destination_path%\" /s /e /v /y
		rmdir /s /q "%download_path%\extract\RetroArch-Win64"
	)
	
	if "%archx%"=="x86" (
	
		xcopy "%extraction_path%\RetroArch" "%destination_path%\" /s /e /v /y
		rmdir /s /q "%download_path%\extract\RetroArch"
	)	
) 

if "%true%"=="1" (

	xcopy "%extraction_path%" "%destination_path%\" /e /v /y
)
 
rmdir /s /q "%download_path%\extract"
if not "%package_file%" == "" del/Q "%download_path%\%package_file%"

(echo %date% %time% [INFO] Copy !package_name! to !destination_path!)>> "!root_path!\%log_file%"

goto :eof

:: ---- CHECK VERSION ----

:check_version

if "%release_version%"=="null" (

	if exist "!build_path!\system\version.info" (
	
		set/P release_version=<"!build_path!\system\version.info"
		
	) else (
	
		(set/A exit_code=2)
		goto :eof
	)
)

goto :eof

:: ---- HASH FILE ----

:hash_file

if "!task!" == "get_packages" (

	set hash_path=!download_path!
	
) else (

	set hash_path=!build_path!

)

if exist "!hash_path!\!package_file!" (

	(set "first_line=1")
	for /f "skip=1 delims=" %%i in ('certutil -hashfile "!hash_path!\!package_file!" SHA256') do (
		if [!first_line!]==[1] (
			(set file_hash=%%i)
			(set "first_line=0")
		)
	)

	if "!task!" == "get_packages" (
		(echo !package_name!_sha256=!file_hash!)>> "!build_path!\hash_list.txt"
		(echo %date% %time% [INFO] !package_name!_sha256=!file_hash! ^> "!build_path!\hash_list.txt")>> "!root_path!\%log_file%"
	)
	
	if not "!task!" == "get_packages" (
		(echo|set/P=!file_hash!)> "!build_path!\!package_file!.sha256.txt"
		(echo %date% %time% [INFO] Created "!package_file!.sha256.txt" in "!build_path!")>> "!root_path!\%log_file%"
	)
)

goto :eof

:: ---- EXIT ----

:exit_door

echo :: EXITING...

if "%exit_code%" == "" (set/A exit_code=2)
(echo %date% %time% [EXIT] !exit_code!)>> "!root_path!\build.log"

if %exit_timeout% GTR 0 (timeout /t %exit_timeout%)>nul
if %exit_timeout% EQU 0 (pause)

exit !exit_code!