2010-05-24 18:56:00 -04:00
|
|
|
@echo off
|
2010-05-25 21:50:22 -04:00
|
|
|
if not exist Nmakefile goto wrongdir
|
|
|
|
|
|
|
|
cl 2>&1 | find "x86" >nul
|
|
|
|
if not errorlevel 1 goto cl32
|
|
|
|
|
|
|
|
cl 2>&1 | find "x64" >nul
|
|
|
|
if not errorlevel 1 goto cl64
|
|
|
|
|
|
|
|
goto nocl
|
|
|
|
|
|
|
|
:cl32
|
|
|
|
echo x86-32 cl.exe detected.
|
|
|
|
set _target="x86-32"
|
|
|
|
set _bootimage="boot.winnt-x86.32.image"
|
|
|
|
goto platformdefined
|
|
|
|
|
|
|
|
:cl64
|
|
|
|
echo x86-64 cl.exe detected.
|
|
|
|
set _target="x86-64"
|
|
|
|
set _bootimage="boot.winnt-x86.64.image"
|
|
|
|
goto platformdefined
|
|
|
|
|
|
|
|
:nocl
|
|
|
|
echo "Unable to detect cl.exe target platform."
|
|
|
|
goto fail
|
|
|
|
|
|
|
|
:platformdefined
|
2010-05-24 18:56:00 -04:00
|
|
|
|
|
|
|
if "%1"=="/?" goto usage
|
|
|
|
|
|
|
|
if "%1"=="" (
|
|
|
|
set _bootimage_version="latest"
|
|
|
|
set _git_branch=master
|
|
|
|
)
|
|
|
|
if "%1"=="latest" (
|
|
|
|
set _bootimage_version="latest"
|
|
|
|
set _git_branch=master
|
|
|
|
)
|
|
|
|
if "%1"=="clean" (
|
|
|
|
set _bootimage_version="clean"
|
|
|
|
set _git_branch=clean-winnt-%_target%
|
|
|
|
)
|
|
|
|
|
|
|
|
if not defined _bootimage_version goto usage
|
|
|
|
|
|
|
|
echo Updating working copy...
|
2010-05-25 21:50:22 -04:00
|
|
|
call git pull http://factorcode.org/git/factor.git %_git_branch%
|
|
|
|
if errorlevel 1 goto fail
|
2010-05-24 18:56:00 -04:00
|
|
|
|
|
|
|
echo Building vm...
|
|
|
|
nmake /nologo /f Nmakefile clean
|
2010-05-25 21:50:22 -04:00
|
|
|
if errorlevel 1 goto fail
|
2010-05-24 18:56:00 -04:00
|
|
|
nmake /nologo /f Nmakefile %_target%
|
2010-05-25 21:50:22 -04:00
|
|
|
if errorlevel 1 goto fail
|
2010-05-24 18:56:00 -04:00
|
|
|
|
|
|
|
echo Fetching %_bootimage_version% boot image...
|
|
|
|
cscript /nologo build-support\http-get.vbs http://factorcode.org/images/%_bootimage_version%/%_bootimage% %_bootimage%
|
2010-05-25 21:50:22 -04:00
|
|
|
if errorlevel 1 goto fail
|
2010-05-24 18:56:00 -04:00
|
|
|
|
|
|
|
echo Bootstrapping...
|
|
|
|
.\factor.com -i=%_bootimage%
|
2010-05-25 21:50:22 -04:00
|
|
|
if errorlevel 1 goto fail
|
2010-05-24 18:56:00 -04:00
|
|
|
|
2010-05-25 22:01:55 -04:00
|
|
|
echo Copying fresh factor.image to factor.image.fresh
|
|
|
|
copy factor.image factor.image.fresh
|
|
|
|
if errorlevel 1 goto fail
|
|
|
|
|
2010-05-24 18:56:00 -04:00
|
|
|
echo Build complete.
|
|
|
|
goto cleanup
|
|
|
|
|
|
|
|
:fail
|
|
|
|
echo Build failed.
|
|
|
|
goto cleanup
|
|
|
|
|
2010-05-25 21:50:22 -04:00
|
|
|
:wrongdir
|
2010-05-24 18:56:00 -04:00
|
|
|
echo build-support\factor.cmd must be run from the root of the Factor source tree.
|
|
|
|
goto cleanup
|
|
|
|
|
|
|
|
:usage
|
|
|
|
echo Usage: build-support\factor.cmd [latest/clean]
|
|
|
|
echo Updates the working copy, cleans and builds the vm using nmake,
|
|
|
|
echo fetches a boot image, and bootstraps factor.
|
|
|
|
echo If latest is specified, then the working copy is updated to the
|
|
|
|
echo upstream "master" branch and the boot image corresponding to the
|
|
|
|
echo most recent factor build is downloaded. This is the default.
|
|
|
|
echo If clean is specified, then the working copy is updated to the
|
|
|
|
echo upstream "clean-winnt-*" branch corresponding to the current
|
|
|
|
echo platform and the corresponding boot image is downloaded.
|
|
|
|
goto cleanup
|
|
|
|
|
|
|
|
:cleanup
|
|
|
|
set _target=
|
|
|
|
set _bootimage=
|
|
|
|
set _bootimage_version=
|
|
|
|
set _git_branch=
|