windows-nt/Source/XPSP1/NT/tools/sp/hnw.cmd
2020-09-26 16:20:57 +08:00

142 lines
3.6 KiB
Batchfile

@echo off
REM ------------------------------------------------------------------
REM
REM hnw.cmd
REM This will call iexpress to generate a self-extracting CAB that
REM will be used when running our tool off of a floppy disk.
REM
REM Copyright (c) Microsoft Corporation. All rights reserved.
REM
REM ------------------------------------------------------------------
if defined _CPCMAGIC goto CPCBegin
perl -x "%~f0" %*
goto :EOF
#!perl
use strict;
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts";
use lib $ENV{RAZZLETOOLPATH};
use PbuildEnv;
use ParseArgs;
use Logmsg;
sub Usage { print<<USAGE; exit(1) }
hnw.cmd [-l <language>]
This is for the Home Networking Wizard. It runs iexpress to generate
a self-extracting CAB and install into support\tools.
USAGE
sub Dependencies {
if ( !open DEPEND, ">>$ENV{_NTPOSTBLD}\\..\\build_logs\\dependencies.txt" ) {
errmsg("Unable to open dependency list file.");
die;
}
print DEPEND<<DEPENDENCIES;
\[$0\]
IF { NetSetup.EXE } ADD { hnw.sed }
DEPENDENCIES
close DEPEND;
exit;
}
my $qfe;
parseargs('?' => \&Usage,
'plan' => \&Dependencies,
'qfe:' => \$qfe);
if ( -f "$ENV{_NTPOSTBLD}\\..\\build_logs\\skip.txt" ) {
if ( !open SKIP, "$ENV{_NTPOSTBLD}\\..\\build_logs\\skip.txt" ) {
errmsg("Unable to open skip list file.");
die;
}
while (<SKIP>) {
chomp;
exit if lc$_ eq lc$0;
}
close SKIP;
}
# *** NEXT FEW LINES ARE TEMPLATE ***
$ENV{"_CPCMAGIC"}++;exit(system($0)>>8);
__END__
:CPCBegin
set _CPCMAGIC=
setlocal ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS
REM *** BEGIN YOUR CMD SCRIPT BELOW ***
REM
REM x86 only!
REM
if not defined x86 goto end
REM
REM Use iexpress.exe to generate the self-extracting executable;
REM
REM first update the sed with the proper binaries directory
set nswtemp=%temp%\nsw
set hnw.sed=%nswtemp%\hnw.sed
set hnw.sed2=%nswtemp%\hnw.sed2
set hnw.sed3=%nswtemp%\hnw.sed3
set doubledpath=%_NtPostBld:\=\\%
set doubledtemppath=%nswtemp:\=\\%
call logmsg.cmd "Deleting old netsetup.exe unpacked binaries from %nswtemp%"
del /q /f %nswtemp%
perl -n -e "s/BINARIES_DIR/%doubledpath%/g;print $_;" < %_NtPostBld%\hnw.sed > %hnw.sed%
call logmsg.cmd "Unpack Gold netsetup.exe into %nswtemp%"
%RazzleToolPath%\sp\data\GoldFiles\%Lang%\%_BuildArch%%_BuildType%\netsetup.exe -Q -C -T:%nswtemp%
call logmsg.cmd "Overlay new service pack files to %nswtemp%"
perl "%RazzleToolPath%\sp\hnw.pl" %hnw.sed% %nswtemp%
perl -n -e "s/TargetName=BINARIES_DIR/TargetName=%doubledpath%/g;print $_;" < %_NtPostBld%\hnw.sed > %hnw.sed2%
perl -n -e "s/BINARIES_DIR/%doubledtemppath%/g;print $_;" < %hnw.sed2% > %hnw.sed3%
perl -n -e "s/UPnPDown\\//g;print $_;" < %hnw.sed3% > %hnw.sed%
REM Now call iexpress on the new sed
if not exist %hnw.sed% (
call errmsg.cmd "File %hnw.sed% not found."
popd& goto end
)
set outpath=%_NTPostBld%
if exist %outpath%\netsetup.exe del /f %outpath%\netsetup.exe
REM
REM Munge the path so we use the correct wextract.exe to build the package with...
REM NOTE: We *want* to use the one we just built (and for Intl localized)!
REM
set _NEW_PATH_TO_PREPEND=%RazzleToolPath%\%PROCESSOR_ARCHITECTURE%\loc\%LANG%
set _OLD_PATH_BEFORE_PREPENDING=%PATH%
set PATH=%_NEW_PATH_TO_PREPEND%;%PATH%
call logmsg.cmd "Package all binaries from %nswtemp% into new netsetup.exe"
call ExecuteCmd.cmd "start /min /wait iexpress.exe /M /N /Q %hnw.sed%"
REM
REM Return the path to what it was before...
REM
set PATH=%_OLD_PATH_BEFORE_PREPENDING%
if not exist %outpath%\netsetup.exe (
call errmsg.cmd "IExpress.exe failed on %hnw.sed%."
popd& goto end
)
popd
:end
seterror.exe "%errors%"& goto :EOF