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

172 lines
4.7 KiB
Batchfile

@rem = '
@echo off
goto End_PERL
rem ';
## ======================= Perl program start
use lib $ENV{ "RazzleToolPath" } . "\\PostBuildScripts"; # for cmdevt.pl
use Win32;
use Win32::Process;
use Cwd;
require 5.003;
$CDIR = cwd;
$CDIR = join("_", split(/[\/\:]+/, $CDIR));
$SYSGEN = shift @ARGV if ($ARGV[0]=~/sysgen/i);
my $num=$ARGV[0];
my ($chars, $total, $LOGFILE, $ERRFILE, $ExitCode, %PROCESS, $PROCESSITEM) = ();
$num=16 if(!defined $num);
die "The parameter is incorrect!!!" if ($num!~/\d/);
open(F, "..\\makefile.mak");
@text=<F>;
close(F);
## $#text + 1 // The lines of the makefile.mak is
## = 1 + 2 + 4 + ... + $total * 2 // the first 1 is the all: target in makefile.mak
## // the remains are the total of process(n)'s line, ex: process04 has 8 lines
## <Mathmetic calculate>
## => $#text = 2 + 4 + ... + $total * 2 // remove + 1 in two side
## => $#text = 2 * (1 + 2 + ... + $total) // take 2 out of the sum serious
## => $#text = 2 * ((1 + $total) * $total) / 2 // the formula of the sum serious
## => $#text = (1 + $total) * $total // remove *2 & /2
## => $#text = $total^2 + $total // expand
## => $total^2 + $total - $#text = 0 // get =0 equation
## => $total = (-1 + sqrt(1^2 - 4 * 1 * (-$#text)) / (2 * 1) // the roots is (-b + sqrt(b^2 - 4*a*c) / 2a. ignore the negative one
## => $total = (sqrt(4 * $#text + 1) -1) / 2
$total= (sqrt(4 * $#text + 1) - 1) / 2;
if ((int($total) ne $total) || ($text[$#text]!~/process\Q${total}${total}\E/)) {
$total=$_[0]=16;
print "The makefile.mak is incorrect, set process to $total, re-generate.....\n";
require "dispatch.pl";
}
# Get the number of characters of the $total
$chars=int(1+log($total)/log(10));
# Search \\\makedir\makedir
open(F, "makefile");
for ($t=0; $t<100; $t++) {
$_=<F>;
last if (/\\\\\\makedir\\makedir/i);
}
close(F);
$LOGFILE = (defined $ENV{LOGFILE})?$ENV{LOGFILE} : ((defined $SYSGEN)?"SYSGEN.LOG":die "ERROR: Not Define LOGFILE");
$ERRFILE = (defined $ENG{ERRFILE})?$ENV{ERRFILE} : ((defined $SYSGEN)?"SYSGEN.ERR":die "ERROR: Not Define ERRFILE");
if ($t < 100) {
system("nmake /NOLOGO /R /S /C /F makefile \\\\\\makedir\\makedir");
}
for($i=1; $i <= $num; $i++) {
$PROCESS{$i}->{LOGFILE} = $ENV{LOGFILE} = "${LOGFILE}.0${i}";
$PROCESS{$i}->{ERRFILE} = $ENV{ERRFILE} = "${ERRFILE}.0${i}";
system(sprintf("start /MIN $0 -w ${CDIR}_process\%0${chars}d\%0${chars}d nmake /NOLOGO /f ..\\makefile.mak process\%0${chars}d\%0${chars}d", $num, $i, $num, $i));
$PROCESSITEM .= sprintf("${CDIR}_process\%0${chars}d\%0${chars}d ", $num, $i);
}
system("\%PERLEXE\% \%RazzleToolPath\%\\postbuildscripts\\cmdevt.pl -w $PROCESSITEM");
1;
__END__
:End_PERL
if not "%_echo%" == "" echo on
if not "%verbose%" == "" echo on
for %%a in (./ .- .) do if ".%1." == "%%a?." goto Usage
if "%3"=="nmake" goto NMake
SETLOCAL ENABLEDELAYEDEXPANSION
for %%i in (perl.exe) do if not defined PERLEXE set PERLEXE=%%~$PATH:i
%PERLEXE% %~f0 %*
IF /I "%1"=="SYSGEN" (
IF NOT defined LOGFILE set LOGFILE=sysgen.log
IF NOT defined ERRFILE set ERRFILE=sysgen.err
)
SET FILES=
IF EXIST %LOGFILE% set FILES= + %LOGFILE%
FOR %%f in (%LOGFILE%.0*) do if "%%~zf" neq "0" set FILES=!FILES! + %%f
IF defined FILES (
IF "%FILES%" neq " + %LOGFILE%" copy /A /Y %FILES:~3% %LOGFILE%
)
DEL %LOGFILE%.0*
SET FILES=
IF EXIST %ERRFILE% set FILES= + %ERRFILE%
FOR %%f in (%ERRFILE%.0*) do if "%%~zf" neq "0" set FILES=!FILES! + %%f
IF defined FILES (
IF "%FILES%" neq " + %ERRFILE%" copy /A /Y %FILES:~3% %ERRFILE%
)
DEL %ERRFILE%.0*
set RET_VALUE=0
for /f %%i in ('findstr /c:"**** ERROR :" *') do set /A RET_VALUE+=1
ENDLOCAL && seterror "%RET_VALUE%"
goto :EXIT
:Usage
echo %0 - Multi-Taskly NMake makefile with process^<total^>^<id^>
echo ====================================================================
echo Syntax:
echo %0 [SYSGEN] ^<numprocess^>
echo.
echo Argument :
echo SYSGEN : by default it will define sysgen.err and sysgen.log for
echo it's standard input / output file
echo.
echo numprocess : number of session you want to run at the same time.
echo.
echo Example:
echo 1. run nmake at 4 sessions
echo =^> $0 4
echo 2. run nmake for sysgen with 8 sessions
echo =^> $0 SYSGEN 8
echo.
echo Parameter:
echo numrpcess : number of process
goto :EXIT
:NMake
set myswitch=%1
set mytitle=%2
Title %mytitle%
shift
shift
%PERLEXE% %RazzleToolPath%\PostbuildScripts\cmdevt.pl -h %mytitle%
del %logfile% 2>nul
del %errfile% 2>nul
%1 %2 %3 %4 %5 %6 %7 %8 %9
if errorlevel 1 echo **** ERROR : %mytitle% - ErrorLevel %errorlevel%>>%ERRFILE%
%PERLEXE% %RazzleToolPath%\PostbuildScripts\cmdevt.pl -s %mytitle%
exit
goto :EXIT
:EXIT