able/windows-nt
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
windows-nt/Source/XPSP1/NT/tools/sp/ddkspcabs.bat

1371 lines
44 KiB
Batchfile
Raw Normal View History

Add source files
2020-09-26 03:20:57 -05:00
@perl -x -w %0 %*
@goto :eof
#!perl
# line 5
################################################################################
# 05-Jun-00 : skupec: Add fail safes to avoid hangs in post build
# 1) delete all old lock files before we start
# 2) set max. wait limit for new process to 30*2 seconds
#
# 01-Jul-00 : skupec: Convert to use Win32::Process to avoid sporadic hangs
# that are showing up in postbuild.
#
# 10-Nov-00 : skupec: Add Verbose mode
# No longer use \lib[fre|chk]\%arch%. Now just \lib\%arch%
#
# 11-Jan-01 : skupec: Don't ship checked versions of the tools.
#
# 10-Feb-01 : skupec: Create per-architecture cabs for tools. Instead of just
# TOOL_*.cab, we now also have TOOL_*x.cab and TOOL_*i.cab
# (x86/ia64 respectively) IFF per-arch directories exist
# when cabbing is done. TOOL_*.cab should still be the
# primary cab in cabs.ini so a single checkbox will install
# on either platform.
#
# 27-Feb-01 : skupec: Modify the cabbing of \incs to properly handle the new
# platform specific subdir layout.
#
# 04-Apr-01 : skupec: Add cabbing of legacy libs for Win2K DDK env
#
# 17-May-01 : skupec: Add DDK_DBG[i|x] cabs only on CHK builds
#
# 02-May-02 : skupec: forked for XPSP builds
#
# 09-Jul-02 : skupec: add QFE build num to cabs.ini
#
use lib $ENV{RAZZLETOOLPATH} . '\\postbuildscripts';
use PbuildEnv;
use BuildName;
# Only accept one parameter which must be numeric
my ($numproc, $lpCount, $force, $spoof,$verbose) = (2,0,0,0,0);
for ($lpCount=0; $lpCount <= ($#ARGV); $lpCount++) {
SWITCH: {
Dependencies() if lc $ARGV[$lpCount] eq "-plan";
if ((substr($ARGV[$lpCount],0,1) eq "-") or (substr($ARGV[$lpCount],0,1) eq "/")) {
for ($i=1;$i<length($ARGV[$lpCount]);$i++) {
exit(Usage()) if uc(substr($ARGV[$lpCount],$i,1)) eq "?";
exit(Usage()) if uc(substr($ARGV[$lpCount],$i,1)) eq "H";
if (uc substr($ARGV[$lpCount],$i,1) eq "L") {
if ($ARGV[$lpCount] =~ /:+(.*)/) {
if ((defined $1) and ($1 ne "")) { # handle -l:<language>
$lang = $1;
} else { # handle -l: where language was forgotten
$lang = "usa";
}
$ARGV[$lpCount] =~ s/:+(.*)//;
} elsif (defined $ARGV[$lpCount+1]) { # handle -l <language>
$lang = $ARGV[$lpCount+1];
splice(@ARGV,$lpCount+1,1);
} else { # handle -l where language was forgotten
$lang = "usa"; # default
}
unless (uc $lang eq "USA") { # only execute on USA
exit 0;
}
next;
} elsif (uc substr($ARGV[$lpCount],$i,1) eq "N") {
if (defined($ARGV[$lpCount+1]) and ($ARGV[$lpCount+1] =~ /^\d*$/)) {
$numproc=$ARGV[$lpCount+1];
splice(@ARGV,$lpCount+1,1);
} else {
exit(Usage());
}
} elsif (uc substr($ARGV[$lpCount],$i,1) eq "F") {
$force = 1;
} elsif (uc substr($ARGV[$lpCount],$i,1) eq "S") {
$spoof = 1;
} elsif (uc substr($ARGV[$lpCount],$i,1) eq "V") {
$verbose = 1;
} else {
print("-",substr($ARGV[$lpCount],$i,1)," switch ignored. Use '-?' or '-h' to get usage.\n");
}
}
} else {
print("$ARGV[$lpCount] argument ignored.\n");
}
1; #Last line should do nothing
}
}
if ( -f "$ENV{_NTPOSTBLD}\\..\\build_logs\\skip.txt" ) {
if ( !open SKIP, "$ENV{_NTPOSTBLD}\\..\\build_logs\\skip.txt" ) {
print STDERR "ERROR: Unable to open skip list file.\n";
die;
}
while (<SKIP>) {
chomp;
exit if lc$_ eq lc$0;
}
close SKIP;
}
if ($spoof) {
# nothing to do for spoofing in XPSP builds, we're currently hardcoding $bldno=2600
}
# Only build if (1) -f is passed, (2) %OFFICIAL_BUILD_MACHINE% is set, or (3) %__BUILDMACHINE__% == LB6RI
if (! defined $ENV{OFFICIAL_BUILD_MACHINE} && (! $force) && (uc($ENV{__BUILDMACHINE__}) ne "LB6RI") ) {
print STDERR "Not building because this isn't an official build machine. Use -f to force.\n";
exit 0;
};
print(STDERR "$0: Started. ");
use strict;
# use Win32;
use Win32::Process;
# Set %temp% as working directory
Win32::SetCwd $ENV{Temp};
my $time = time();
my $hLogFile;
my $handle;
################################################################################
#
# Create .tmp file so postbuild.cmd knows we're running.
#
################################################################################
open (hLogFile, ">$ENV{TEMP}\\ddkcabs.tmp") || die("Can't open $ENV{TEMP}\\ddkcabs.tmp for writing: $!\n");
print (hLogFile "1");
close (hLogFile);
################################################################################
#
# Find the correct logfile to use
#
################################################################################
# Either use the defined log file
if (defined $ENV{LOGFILE}) {
$handle="$ENV{LOGFILE}";
# or use our default log file.
} else {
$handle="$ENV{TEMP}\\ddkcabs.log";
}
print(STDERR "Writing log to $handle.\n");
################################################################################
#
# Test for all conditions that require us to terminate early.
#
################################################################################
# If %_DDK_NOCAB% is defined, don't make CABS
if (defined $ENV{_DDK_NOCAB} ) {
logmsg("_DDK_NOCAB is set. Not making CABS.");
unlink("$ENV{TEMP}\\ddkcabs.tmp");
exit(0);
}
# If any of the needed environment variables aren't defined, output an
# error and abort the cabbing process
foreach ("_NTDRIVE","_NTROOT","_BUILDARCH","_BUILDTYPE","_NTPOSTBLD","RazzleToolPath","PROCESSOR_ARCHITECTURE","NUMBER_OF_PROCESSORS") {
unless (defined $ENV{$_}) {
logerror("Aborting: \%$_\% is not defined.");
unlink("$ENV{TEMP}\\ddkcabs.tmp");
exit(0);
}
}
# Don't build on AXP64 or Alpha
if ($ENV{_BuildArch} =~ /^(axp64|alpha)/i) {
unlink("$ENV{TEMP}\\ddkcabs.tmp");
logmsg("DDK unsupported on $ENV{_BuildArch}. Exiting.");
exit(0);
}
################################################################################
#
# Global Variables
#
################################################################################
my $bldno = 2600;
#
# Add QFE build num if available
#
if (-e "$ENV{_NTPOSTBLD}\\ddk_cd\\common\\QFE_NUM.TXT") {
if ( open(hQFE,"$ENV{_NTPOSTBLD}\\ddk_cd\\common\\QFE_NUM.TXT") ) {
my $QFENum = <hQFE>;
close(hQFE);
chomp $QFENum;
$QFENum =~ s/^\s*//;
$QFENum =~ s/\s*$//;
$bldno = "$bldno.$QFENum";
}
}
logdebug("$numproc processes per processor");
my $MAX_PROCESSES = $ENV{NUMBER_OF_PROCESSORS}*$numproc;
my @Processes;
my $exe = "$ENV{RazzleToolPath}\\$ENV{PROCESSOR_ARCHITECTURE}\\cabarc.exe";
my $global_param = " -s 6144 -m MSZIP -i 1 N ";
my $INCREMENTAL = 0; # Full build by default
my %MAKECAB;
my @dir_list1;
my @dir_list2;
my $dir;
my $dir2;
my $file;
my $cabname;
my $samplename;
my $friendlyname;
my $kit;
my $i;
sub TRUE {return(1);} # BOOLEAN TRUE
sub FALSE {return(0);} # BOOLEAN FALSE
my $CABDEBUG = FALSE;
$CABDEBUG = TRUE if (defined($ENV{_CABDEBUG}));
my $bindir;
my $sdkincs = "$ENV{_NTPOSTBLD}\\ddk_flat\\inc";
# Directory to look for .lib's in
my $libdir = "lib\\wxp";
if (uc($ENV{_BuildArch}) eq "IA64") {
$libdir .= "\\ia64";
} else {
$libdir .= "\\i386";
}
################################################################################
#
# Determine if we should build incrementally
#
################################################################################
#
# Incremental DDKs disabled for XPSP
#
# --------------------------------------------------------------------------
# Make the samples CABs. One cab per 2nd level directory under src. Name of each cab is
# the first 4 character of the first level directory + the first 6 of the second level
# directory.
# --------------------------------------------------------------------------
SAMPLES:{
foreach $kit ("ddk","ifs", "hal", "processor") {
mkdir("$ENV{_NTPOSTBLD}\\${kit}_cd\\common", 777) unless (-e "$ENV{_NTPOSTBLD}\\${kit}_cd\\common");
opendir(hDIR, "$ENV{_NTPOSTBLD}\\${kit}_flat\\src"); # Get the first level directories
@dir_list1=readdir(hDIR);
closedir(hDIR);
foreach $dir (@dir_list1) {
# Skip . & .. as well as non-directory files (which shouldn't be there anyhow).
next unless ((-d "$ENV{_NTPOSTBLD}\\${kit}_flat\\src\\$dir") and ($dir ne ".") and ($dir ne ".."));
chomp $dir;
opendir(hDIR, "$ENV{_NTPOSTBLD}\\${kit}_flat\\src\\$dir"); # Get the second level directories
@dir_list2=readdir(hDIR);
closedir(hDIR);
foreach $dir2 (@dir_list2) {
# Skip . & .. as well as non-directory files (which shouldn't be there anyhow).
next unless ((-d "$ENV{_NTPOSTBLD}\\${kit}_flat\\src\\$dir\\$dir2") and ($dir2 ne ".") and ($dir2 ne ".."));
chomp $dir2;
$cabname=sprintf("%s_%s\n",uc(substr($dir,0,4)),lc(substr($dir2,0,6)));
chomp $cabname;
next if (($INCREMENTAL) and (! defined $MAKECAB{$cabname}));
# Create a complete listing of files under the second level directory
system("dir $ENV{_NTPOSTBLD}\\${kit}_flat\\src\\$dir\\$dir2 /s/b/a-d > ${dir}${dir2}.ddk.ini 2>nul");
# Create the .ini
CreateCAB ("${dir}${dir2}.ddk.ini","$cabname","Samples","$dir", "$kit", "$bldno");
}
}
}
}
# --------------------------------------------------------------------------
DDKINCS: {
if ($INCREMENTAL) {
last DDKINCS unless ( defined $MAKECAB{DDKINCS} );
}
# Get the WXP INCS
system("dir $ENV{_NTPOSTBLD}\\ddk_flat\\inc\\ddk\\wxp /s/b/a-d > ddkincs.ddk.ini 2>nul");
system("dir $ENV{_NTPOSTBLD}\\ddk_flat\\inc\\ddk\\wdm\\wxp /s/b/a-d >> ddkincs.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "ddkincs.ddk.ini","DDKINCS","Build_Environment",
"DDK_Include_Files", "DDK", $bldno);
# Get the W2K backport incs
system("dir $ENV{_NTPOSTBLD}\\ddk_flat\\inc\\ddk\\w2k /s/b/a-d > w2k_incs.ddk.ini 2>nul");
system("dir $ENV{_NTPOSTBLD}\\ddk_flat\\inc\\ddk\\wdm\\w2k /s/b/a-d >> w2k_incs.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "w2k_incs.ddk.ini","W2K_INCS","Build_Environment",
"DDK_Include_Files", "DDK", $bldno);
}
# --------------------------------------------------------------------------
IFSINCS: {
if ($INCREMENTAL) {
last IFSINCS unless ( defined $MAKECAB{IFSINCS} );
}
system("dir $ENV{_NTPOSTBLD}\\ifs_flat\\inc /s/b/a-d > ifsincs.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "ifsincs.ddk.ini","IFSINCS","Build_Environment",
"IFS_Include_Files","IFS",$bldno);
}
# --------------------------------------------------------------------------
PDKINCS: {
if ($INCREMENTAL) {
last PDKINCS unless ( defined $MAKECAB{PDKINCS} );
}
system("dir $ENV{_NTPOSTBLD}\\processor_flat\\inc /s/b/a-d > pdkincs.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "pdkincs.ddk.ini","PDKINCS","Build_Environment",
"PDK_Include_Files","processor",$bldno);
}
# --------------------------------------------------------------------------
HALINCS: {
if ($INCREMENTAL) {
last HALINCS unless ( defined $MAKECAB{HALINCS} );
}
system("dir $ENV{_NTPOSTBLD}\\HAL_flat\\inc /s/b/a-d > HALincs.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "HALincs.ddk.ini","HALINCS","Build_Environment",
"HAL_Include_Files","HAL",$bldno);
}
# --------------------------------------------------------------------------
HALBINS: {
if ($INCREMENTAL) {
last HALBINS unless ( defined $MAKECAB{HALBINS} );
}
# List all files under \inc\ddk\...
system("dir $ENV{_NTPOSTBLD}\\HAL_flat\\bin /s/b/a-d > HALbins.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "HALbins.ddk.ini","HALBINS","Build_Environment",
"HAL_Binary_Files","HAL",$bldno);
}
# --------------------------------------------------------------------------
DDKDBG: {
if ($INCREMENTAL) {
last DDKDBG unless ( defined $MAKECAB{DDKDBG} );
}
# Make DBG cabs only on CHK builds
last DDKDBG if (uc $ENV{_BuildType} ne "CHK");
my $plat = substr($ENV{_BUILDARCH}, 0, 1);
system("dir $ENV{_NTPOSTBLD}\\ddk_flat\\debug /s/b/a-d > ddkdbg.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "ddkdbg.ddk.ini","DDK_DBG${plat}","Build_Environment",
"Extra_Debug_Files","DDK",$bldno);
}
# --------------------------------------------------------------------------
DDKTOOLS: {
if ($INCREMENTAL) {
last DDKTOOLS unless ( defined $MAKECAB{DDKTOOLS} );
}
# We don't want to ship checked versions of the tools
last DDKTOOLS if (uc $ENV{_BuildType} eq "CHK");
opendir(hDIR, "$ENV{_NTPOSTBLD}\\DDK_flat\\tools"); # Get the first level directories
@dir_list1=readdir(hDIR);
closedir(hDIR);
foreach $dir (@dir_list1) {
# Skip . & .. as well as non-directory files (which shouldn't be there anyhow).
next unless ((-d "$ENV{_NTPOSTBLD}\\DDK_flat\\tools\\$dir") and ($dir ne ".") and ($dir ne ".."));
chomp $dir;
$cabname=sprintf("%s_%s\n","TOOL",lc substr($dir,0,6) );
chomp $cabname;
next if (($INCREMENTAL) and (! defined $MAKECAB{$cabname}));
##
## Need to handle tools on the per-arch basis. Can't just look for \%arch, since
## the tools may also have files in root. (.htm's, etc). Instead, break we'll
## break this into 3 cabs per tool, TOOL_%tool%, TOOL_%tool%x (x86) TOOL_%tool%i (ia64)
##
# At tools\\$dir, now, we need all the sub dirs
my @subs = `dir $ENV{_NTPOSTBLD}\\DDK_flat\\tools\\$dir /s/b/ad`;
my $sub;
my $plat = substr($ENV{_BUILDARCH}, 0, 1);
# Drop in an empty file as placeholder so we can force the general cab for this tool
# to be built.
system("echo. >$ENV{_NTPOSTBLD}\\DDK_flat\\tools\\$dir\\.empty");
# Make sure we're not appending to old .ini's
unlink("TOOLS${dir}${plat}.ddk.ini") if (-e "TOOLS${dir}${plat}.ddk.ini");
unlink("TOOLS${dir}.ddk.ini") if (-e "TOOLS${dir}.ddk.ini");
# Now, create the .ini for the common cab
foreach (`dir $ENV{_NTPOSTBLD}\\DDK_flat\\tools\\$dir /b/a-d`) {
chomp;
system("echo $ENV{_NTPOSTBLD}\\DDK_flat\\tools\\$dir\\$_ >> TOOLS${dir}.ddk.ini");
}
# For every subdir, if it ends in %arch%, create the arch specific cab, otherwise
# create the general cab.
foreach $sub (@subs) {
chomp $sub;
if ($sub =~ /DDK_flat\\.*\\$ENV{_BUILDARCH}/i) {
system("dir $ENV{_NTPOSTBLD}\\DDK_flat\\tools\\$dir /s/b/a-d >> TOOLS${dir}${plat}.ddk.ini 2>nul");
} elsif ( uc($ENV{_BUILDARCH}) eq "X86" ) {
# i386 is a valid alias of x86
if ($sub =~ /DDK_flat\\.*\\i386/i) {
system("dir $ENV{_NTPOSTBLD}\\DDK_flat\\tools\\$dir /s/b/a-d >> TOOLS${dir}${plat}.ddk.ini 2>nul");
}
}
}
# Create the cabs
CreateCAB ("TOOLS${dir}.ddk.ini","${cabname}","Build_Environment","${dir}_TOOL", "ddk", "$bldno");
CreateCAB ("TOOLS${dir}${plat}.ddk.ini","${cabname}${plat}","Build_Environment","${dir}_TOOL", "ddk", "$bldno")
if (-e "TOOLS${dir}${plat}.ddk.ini"); # May not have arch-specific cab
}
}
# --------------------------------------------------------------------------
IFSTOOLS: {
if ($INCREMENTAL) {
last IFSTOOLS unless ( defined $MAKECAB{IFSTOOLS} );
}
# List all files under \inc\ddk\...
system("dir $ENV{_NTPOSTBLD}\\IFS_flat\\tools /s/b/a-d > ifstools.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "ifstools.ddk.ini","IFSTOOLS","Build_Environment",
"Development_Tools","IFS",$bldno);
}
# --------------------------------------------------------------------------
SDKINCS: {
if ($INCREMENTAL) {
last SDKINCS unless ( defined $MAKECAB{SDKINCS} );
}
# List all files under \inc\.
opendir(hDIR, "$sdkincs");
@dir_list1 = readdir(hDIR);
closedir(hDIR);
#
# Look for all WXP specific headers
#
opendir(hDIR, "$sdkincs\\wxp");
@dir_list2 = readdir(hDIR);
closedir(hDIR);
foreach (@dir_list2) {
$_ = "wxp\\$_";
}
push(@dir_list1, @dir_list2);
undef(@dir_list2);
#
# Look for all CRT headers
#
opendir(hDIR, "$sdkincs\\crt");
@dir_list2 = readdir(hDIR);
closedir(hDIR);
foreach (@dir_list2) {
$_ = "crt\\$_";
}
push(@dir_list1, @dir_list2);
undef(@dir_list2);
opendir(hDIR, "$sdkincs\\crt\\sys");
@dir_list2 = readdir(hDIR);
closedir(hDIR);
foreach (@dir_list2) {
$_ = "crt\\sys\\$_";
}
push(@dir_list1, @dir_list2);
undef(@dir_list2);
opendir(hDIR, "$sdkincs\\crt\\gl");
@dir_list2 = readdir(hDIR);
closedir(hDIR);
foreach (@dir_list2) {
$_ = "crt\\gl\\$_";
}
push(@dir_list1, @dir_list2);
undef(@dir_list2);
opendir(hDIR, "$sdkincs\\crt\\wxp");
@dir_list2 = readdir(hDIR);
closedir(hDIR);
foreach (@dir_list2) {
$_ = "crt\\wxp\\$_";
}
push(@dir_list1, @dir_list2);
undef(@dir_list2);
open(sdk1, ">sdk1.ddk.ini");
open(sdk2, ">sdk2.ddk.ini");
open(sdk3, ">sdk3.ddk.ini");
for ($i=0;$i<=$#dir_list1;$i++) {
next if ($dir_list1[$i] =~ /\.$/);
next if (-d "$sdkincs\\$dir_list1[$i]");
if (($i%3) == 0) {
print(sdk1 "$sdkincs\\$dir_list1[$i]\n");
} elsif (($i%3) == 1) {
print(sdk2 "$sdkincs\\$dir_list1[$i]\n");
} else {
print(sdk3 "$sdkincs\\$dir_list1[$i]\n");
}
}
close(sdk1);
close(sdk2);
close(sdk3);
# CAB 1
# Create the .ini
CreateCAB( "sdk1.ddk.ini","SDKINCS1","Build_Environment",
"SDK_Include_Files","DDK",$bldno);
# CAB 2
# Create the .ini
CreateCAB( "sdk2.ddk.ini","SDKINCS2","Build_Environment",
"SDK_Include_Files","DDK",$bldno);
# CAB 3
# Create the .ini
CreateCAB( "sdk3.ddk.ini","SDKINCS3","Build_Environment",
"SDK_Include_Files","DDK",$bldno);
}
# --------------------------------------------------------------------------
DDKLIBS: {
if ($INCREMENTAL) {
last DDKLIBS unless ( defined $MAKECAB{DDKLIBS} );
}
if ( -e "$ENV{_NTPOSTBLD}\\ddk_flat\\lib\\w2k\\i386" && (uc($ENV{_BuildArch}) eq "X86")) {
# List all files under \inc\ddk\...
system("dir $ENV{_NTPOSTBLD}\\ddk_flat\\lib\\w2k /s/b/a-d > w2klibs.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "w2klibs.ddk.ini","W2K_LIBS","Build_Environment",
"W2K_Library_Files","DDK",$bldno);
}
if (uc($ENV{_BUILDARCH}) eq "IA64") {
$cabname="IA6dLIB";
} else {
$cabname="X86dLIB";
}
$samplename ="$ENV{_BuildArch}_Libraries";
$friendlyname="$ENV{_BuildArch}_Libraries";
# List all files under \tools
opendir(hDIR, "$ENV{_NTPOSTBLD}\\ddk_flat\\$libdir");
@dir_list1=readdir hDIR;
closedir(hDIR);
open(LIBS1, ">libs1.ddk.ini");
open(LIBS2, ">libs2.ddk.ini");
open(LIBS3, ">libs3.ddk.ini");
for ($i=0;$i<=$#dir_list1;$i++) {
next if ($dir_list1[$i] =~ /^\./);
if (($i % 3) == 0) {
print(LIBS1 "$ENV{_NTPOSTBLD}\\ddk_flat\\$libdir\\$dir_list1[$i]\n");
} elsif (($i % 3) == 1) {
print(LIBS2 "$ENV{_NTPOSTBLD}\\ddk_flat\\$libdir\\$dir_list1[$i]\n");
} else {
print(LIBS3 "$ENV{_NTPOSTBLD}\\ddk_flat\\$libdir\\$dir_list1[$i]\n");
}
}
close(LIBS1);
close(LIBS2);
close(LIBS3);
# CAB 1
# Create the .ini
CreateCAB( "libs1.ddk.ini","${cabname}1","Build_Environment",
"${samplename}","DDK",$bldno);
# CAB 2
# Create the .ini
CreateCAB( "libs2.ddk.ini","${cabname}2","Build_Environment",
"$samplename","DDK",$bldno);
# CAB 3
# Create the .ini
CreateCAB( "libs3.ddk.ini","${cabname}3","Build_Environment",
"$samplename","DDK",$bldno);
}
# --------------------------------------------------------------------------
IFSLIBS: {
if ($INCREMENTAL) {
last IFSLIBS unless ( defined $MAKECAB{IFSLIBS} );
}
if (uc($ENV{_BUILDARCH}) eq "IA64") {
$cabname="IA6iLIB";
} else {
$cabname="X86iLIB";
}
# List all files under \inc\ddk\...
system("dir $ENV{_NTPOSTBLD}\\ifs_flat\\$libdir /s/b/a-d > ifslibs.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "ifslibs.ddk.ini","${cabname}1","Build_Environment",
"Library_Files","IFS",$bldno);
}
# --------------------------------------------------------------------------
PDKLIBS: {
if ($INCREMENTAL) {
last PDKLIBS unless ( defined $MAKECAB{PDKLIBS} );
}
if (uc($ENV{_BUILDARCH}) eq "IA64") {
$cabname="IA6pLIB";
} else {
$cabname="X86pLIB";
}
# List all files under \inc\ddk\...
system("dir $ENV{_NTPOSTBLD}\\processor_flat\\$libdir /s/b/a-d > pdklibs.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "pdklibs.ddk.ini","${cabname}1","Build_Environment",
"Library_Files","processor",$bldno);
}
# --------------------------------------------------------------------------
HALLIBS: {
if ($INCREMENTAL) {
last HALLIBS unless ( defined $MAKECAB{HALLIBS} );
}
if (uc($ENV{_BUILDARCH}) eq "IA64") {
$cabname="IA6hLIB";
} else {
$cabname="X86hLIB";
}
# List all files under \inc\ddk\...
system("dir $ENV{_NTPOSTBLD}\\hal_flat\\$libdir /s/b/a-d > hallibs.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "hallibs.ddk.ini","${cabname}1","Build_Environment",
"Library_Files","HAL",$bldno);
}
# --------------------------------------------------------------------------
DDKBINS: {
if ($INCREMENTAL) {
last DDKBINS unless ( defined $MAKECAB{DDKBINS} );
}
$bindir ="$ENV{_NTPOSTBLD}\\ddk_flat\\bin";
# List all files under bin
opendir(hDIR, "$bindir"); # Get the first level directories
@dir_list1=readdir(hDIR);
closedir(hDIR);
open(hDIR, ">cmnbins.ddk.ini");
foreach $dir (@dir_list1) {
# Skip . & .. as well as files.
next if ( -d "$bindir\\$dir");
next if (($dir eq ".") or ($dir eq ".."));
print(hDIR "$bindir\\$dir\n");
}
close(hDIR);
system("dir $ENV{_NTPOSTBLD}\\ddk_flat\\bin\\wppconfig /s/b/a-d >>cmnbins.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "cmnbins.ddk.ini","CMNBINS","Build_Environment",
"Comon_Build_Tools","DDK",$bldno);
if (uc($ENV{_BUILDARCH}) eq "IA64") {
$cabname="IA6dBIN";
} else {
$cabname="X86bBIN";
}
$samplename ="$ENV{_BuildArch}_$ENV{_BuildType}_Binaries";
$friendlyname="$ENV{_BuildArch}_$ENV{_BuildType}_Binaries";
if (-e "$bindir\\x86") {
# List all files under bin\x86
opendir(hDIR, "$bindir\\x86"); # Get the first level directories
@dir_list1=readdir(hDIR);
closedir(hDIR);
open(hDIR, ">x86bins.ddk.ini");
foreach $dir (@dir_list1) {
# Skip . & .. as well as directory files (which shouldn't be there anyhow).
next unless ((! -d "$bindir\\x86\\$dir") and ($dir ne ".") and ($dir ne ".."));
print(hDIR "$bindir\\x86\\$dir\n");
}
close(hDIR);
# Create the .ini
CreateCAB( "x86bins.ddk.ini","X86dBINS","Build_Environment",
"X86_Build_Tools","DDK",$bldno);
}
if (-e "$bindir\\ia64") {
# List all files under bin\ia64
opendir(hDIR, "$bindir\\ia64"); # Get the first level directories
@dir_list1=readdir(hDIR);
closedir(hDIR);
open(hDIR, ">ia64bins.ddk.ini");
foreach $dir (@dir_list1) {
# Skip . & .. as well as directory files (which shouldn't be there anyhow).
next unless ((! -d "$bindir\\ia64\\$dir") and ($dir ne ".") and ($dir ne ".."));
print(hDIR "$bindir\\ia64\\$dir\n");
}
close(hDIR);
# Create the .ini
CreateCAB( "ia64bins.ddk.ini","IA6dBINS","Build_Environment",
"IA64_Build_Tools","DDK",$bldno);
}
}
# --------------------------------------------------------------------------
COREDDK: {
if ($INCREMENTAL) {
last COREDDK unless ( defined $MAKECAB{COREDDK} );
}
system("dir $ENV{_NTPOSTBLD}\\ddk_flat /b/a-d > core.ddk.ini 2>nul");
# Create the .ini
CreateCAB( "core.ddk.ini","COREDDK","Build_Environment",
"DDK_Core_Files","DDK",$bldno);
}
# --------------------------------------------------------------------------
COREPDK: {
if ($INCREMENTAL) {
last COREPDK unless ( defined $MAKECAB{COREPDK} );
}
last COREPDK unless (-e "$ENV{_NTPOSTBLD}\\processor_flat\\src\\processor");
@dir_list1=`dir $ENV{_NTPOSTBLD}\\processor_flat\\src\\processor /b/a-d`;
foreach (@dir_list1) {
next if (m/^\s*$/);
chomp;
system("echo $ENV{_NTPOSTBLD}\\processor_flat\\src\\processor\\$_ >> pdkcore.ddk.ini");
}
# Create the .ini
CreateCAB( "pdkcore.ddk.ini","COREPDK","Build_Environment",
"PDK_Core_Files","processor",$bldno);
}
# --------------------------------------------------------------------------
COREHAL: {
if ($INCREMENTAL) {
last COREHAL unless ( defined $MAKECAB{COREHAL} );
}
last COREHAL unless (-e "$ENV{_NTPOSTBLD}\\hal_flat\\src\\hals");
@dir_list1=`dir $ENV{_NTPOSTBLD}\\hal_flat\\src\\hals /b/a-d`;
foreach (@dir_list1) {
next if (m/^\s*$/);
chomp;
system("echo $ENV{_NTPOSTBLD}\\hal_flat\\src\\hals\\$_ >> halcore.ddk.ini");
}
# Create the .ini
CreateCAB( "halcore.ddk.ini","COREHAL","Build_Environment",
"HAL_Core_Files","HAL",$bldno);
}
# --------------------------------------------------------------------------
COREIFS: {
if ($INCREMENTAL) {
last COREIFS unless ( defined $MAKECAB{COREIFS} );
}
last COREIFS unless (-e "$ENV{_NTPOSTBLD}\\ifs_flat");
@dir_list1=`dir $ENV{_NTPOSTBLD}\\ifs_flat\\src\\filesys /b/a-d`;
foreach (@dir_list1) {
next if (m/^\s*$/);
chomp;
system("echo $ENV{_NTPOSTBLD}\\ifs_flat\\src\\filesys\\$_ >> ifscore.ddk.ini");
}
# Create the .ini
CreateCAB( "ifscore.ddk.ini","COREIFS","Build_Environment",
"IFS_Core_Files","IFS",$bldno);
}
# --------------------------------------------------------------------------
DDKDOCS: {
if ($INCREMENTAL) {
last DDKDOCS unless ( defined $MAKECAB{DDKDOCS} );
}
# Make the Docs
opendir(hDir, "$ENV{_NTPOSTBLD}\\ddk_flat\\help")||warn("Can't open $ENV{_NTPOSTBLD}\\ddk_flat\\help: $!\n");
@dir_list1=readdir(hDir);
closedir(hDir);
my @general_cab;
foreach $file (@dir_list1) {
next if ($file =~ /^\./);
next if ($file =~ /\.chi$/); # Don't use .chi, use .chm below
next if (-d "$ENV{_NTPOSTBLD}\\ddk_flat\\help\\$file");
if ($file =~ /\.chm$/i) {
# We have a .chm
$file =~ s/\.chm$//i; # Remove the extension
system("dir $ENV{_NTPOSTBLD}\\ddk_flat\\help\\$file.* /s/b/a-d > $file.ddk.ini 2>nul");
$file=uc($file); # Force uppercase
# Create the .ini
CreateCAB( "$file.ddk.ini","$file","Documentation",
"${file}_Doc","DDK",$bldno);
} else {
system("dir $ENV{_NTPOSTBLD}\\ddk_flat\\help\\$file /s/b/a-d >> general_docs.ddk.ini 2>nul");
}
}
CreateCAB("general_docs.ddk.ini","CMNDOCS", "Documentation", "Common_Docs_Files", "DDK",$bldno);
}
# --------------------------------------------------------------------------
IFSDOCS: {
if ($INCREMENTAL) {
last IFSDOCS unless ( defined $MAKECAB{IFSDOCS} );
}
# Make the Docs
opendir(hDir, "$ENV{_NTPOSTBLD}\\ifs_flat\\help")||warn("Can't open $ENV{_NTPOSTBLD}\\ifs_flat\\help: $!\n");
@dir_list1=readdir(hDir);
closedir(hDir);
foreach $file (@dir_list1) {
next if ($file =~ /^\./);
next if ($file =~ /\.chi$/); # Don't use .chi, use .chm below
next if (-d "$ENV{_NTPOSTBLD}\\ifs_flat\\help\\$file");
if ($file =~ /\.chm$/i) {
# We have a .chm
$file =~ s/\.chm$//i; # Remove the extension
system("dir $ENV{_NTPOSTBLD}\\ifs_flat\\help\\$file.* /s/b/a-d > $file.ddk.ini 2>nul");
$file=uc($file); # Force uppercase
# Create the .ini
CreateCAB( "$file.ddk.ini","$file","Documentation",
"${file}_Doc","IFS",$bldno);
} else {
logdebug("Not including \\help\\$file\n");
}
}
}
# Don't exit until all subprocesses have completed.
WaitForAllProcesses();
if (-e "$ENV{_NTPOSTBLD}\\ddk_cd\\common\\cabs.in_") {
system("copy $ENV{_NTPOSTBLD}\\ddk_cd\\common\\cabs.in_ $ENV{_NTPOSTBLD}\\ddk_cd\\common\\cabs.ini >nul");
open(hF, ">>$ENV{_NTPOSTBLD}\\ddk_cd\\common\\cabs.ini");
print(hF "Build=$bldno\n");
close(hF);
}
if (-e "$ENV{_NTPOSTBLD}\\ifs_cd\\common\\cabs.in_") {
system("copy $ENV{_NTPOSTBLD}\\ifs_cd\\common\\cabs.in_ $ENV{_NTPOSTBLD}\\ifs_cd\\common\\cabs.ini >nul");
open(hF, ">>$ENV{_NTPOSTBLD}\\ifs_cd\\common\\cabs.ini");
print(hF "Build=$bldno\n");
close(hF);
}
if (-e "$ENV{_NTPOSTBLD}\\hal_cd\\common\\cabs.in_") {
system("copy $ENV{_NTPOSTBLD}\\hal_cd\\common\\cabs.in_ $ENV{_NTPOSTBLD}\\hal_cd\\common\\cabs.ini >nul");
open(hF, ">>$ENV{_NTPOSTBLD}\\hal_cd\\common\\cabs.ini");
print(hF "Build=$bldno\n");
close(hF);
}
if (-e "$ENV{_NTPOSTBLD}\\processor_cd\\common\\cabs.in_") {
system("copy $ENV{_NTPOSTBLD}\\processor_cd\\common\\cabs.in_ $ENV{_NTPOSTBLD}\\processor_cd\\common\\cabs.ini >nul");
open(hF, ">>$ENV{_NTPOSTBLD}\\processor_cd\\common\\cabs.ini");
print(hF "Build=$bldno\n");
close(hF);
}
$time = time() - $time;
logmsg("Total run time: $time seconds.\n");
print(STDERR "$0: Finished.\n\n");
END {
# Delete .tmp file so postbuild.cmd knows the script has finished
unlink ("$ENV{TEMP}\\ddkcabs.tmp");
}
# --------------------------------------------------------------------------
# Creates a CAB and INF from a list of files
# --------------------------------------------------------------------------
sub CreateCAB {
print(".") unless ($verbose); # Print something so the user knows the script is still running
my $filelist = shift;
my $cabname = shift;
my $groupname = shift;
my $samplename = shift;
my $kit = shift;
my $bldno = shift;
my $FileIndex = -1;
my $friendlyname = $samplename;
my $GroupIndex = -1;
my $InfCopyFileList = "InfFiles";
my $PrevCommand = "";
my $PrevDestDir = "";
my $TotalSize = 0;
my @files;
my $file;
my $FileProcessed;
my $hFILE;
my $NewSection;
my $source_file;
my $source_dir;
my $dest_dir;
my $ERRORLEVEL;
my $FileSize;
my $CabFileName;
chomp($cabname);
unless (-e $filelist) {
logerror("$filelist did not exist - cannot build cab.");
return(5);
}
# These files get rolled into the INF once the entire filelist
# is processed.
open(hFILE, ">${cabname}_DestDirsFiles")
|| die("Couldn't write to ${cabname}_DestDirsFile: $!\n");
printf(hFILE "[DestinationDirs]\n");
close(hFILE);
open(hFILE, ">${cabname}_SourceFiles")
|| die("Couldn't write to ${cabname}_SourceFiles: $!\n");
printf(hFILE "\n");
close(hFILE);
open(hFILE, ">${cabname}_SourceDisk")
|| die("Couldn't write to ${cabname}_SourceDisk: $!\n");
printf(hFILE "[SourceDisksFiles]\n");
close(hFILE);
#
# Process the filelist
#
open(hFILE, "$filelist");
@files=<hFILE>;
close(hFILE);
# For every file in the list, split it up into the format expected by genddkcab.bat:
# $source_dir, $source_file, $dest_dir, $dest_file, $command
foreach $file (@files) {
chomp($file);
$file =~ m/^(.*)\\.*$/;
# source_dir is %_NTPOSTBLD%\[ddk|hal|ifs]_flat + dest_dir
if (! defined($1)) {
$source_dir = "$ENV{_NTPOSTBLD}\\ddk_flat";
} else {
$source_dir = $1;
}
$file =~ m/^.*\\(.*)$/;
# source_file is filename
if (! defined($1)) {
$source_file = $file;
} else {
$source_file = $1;
}
$file =~ m/^.*_flat(\\.*\\).*$/;
# dest_dir is dir less %_NTPOSTBLD%\[ddk|hal|ifs]_flat
if (! defined($1)) {
$dest_dir= "\\";
} else {
$dest_dir= $1;
}
$FileProcessed=FALSE;
# Optimization to not generate excessive install sections in the inf.
$NewSection=TRUE;
$NewSection=FALSE if (uc($dest_dir) eq uc($PrevDestDir));
$PrevDestDir=$dest_dir;
if ($NewSection) {
$GroupIndex+=1;
open(hDDF, ">>${cabname}_DestDirsFiles");
printf(hDDF "Files_${GroupIndex}=49000,\"$dest_dir\"\n");
close(hDDF);
$InfCopyFileList="${InfCopyFileList},Files_${GroupIndex}";
open(hDDF, ">>${cabname}_SourceFiles");
printf(hDDF "[Files_${GroupIndex}]\n");
close(hDDF);
}
if (! -e "$source_dir\\$source_file") {
logerror("489: File $source_dir\\$source_file does not exist");
next;
}
# Move on to the next file number
$FileIndex += 1;
# Generate the name of the file within the cabfile.
$CabFileName="${cabname}_FILE_${FileIndex}";
# process the source file into the temporary cabfile name
$ERRORLEVEL=system("COPY $source_dir\\$source_file $CabFileName >nul 2>nul");
# check for errors
if ($ERRORLEVEL) {
logerror("545: COPY of file $source_dir\\$source_file failed (ErrorLevel $ERRORLEVEL)");
}
# Get the size of the file, so the size requirements of the cab can be computed.
$FileSize = (stat("$CabFileName"))[7];
printf("adding $CabFileName size $FileSize\n") if ($CABDEBUG);
$TotalSize += $FileSize;
# Write the DestinationFileName, CabFileName into the inf so the files
# can be extracted and installed properly.
open(hDDF, ">>${cabname}_SourceDisk")
|| die("Couldn't write to ${cabname}_SourceDisk: $!\n");;
printf(hDDF "${CabFileName}=1,,$FileSize\n");
close(hDDF);
open(hDDF, ">>${cabname}_SourceFiles");
printf(hDDF "$source_file,$CabFileName,,\n");
close(hDDF);
}
# If there were not files, just leave
if ($FileIndex == -1) {
logdebug("241: Skipping $cabname - no files in the cab");
unlink("$filelist") ||die("$!\n");;
unlink("${cabname}_SourceFiles") ||die("$!\n");;
unlink("${cabname}_SourceDisk") ||die("$!\n");;
unlink("${cabname}_DestDirsFiles")||die("$!\n");;
return(15);
}
if ($verbose) {
print STDERR "Creating $cabname\n";
}
# Create the INF
CreateINF($cabname, $friendlyname, $InfCopyFileList, $FileIndex, $TotalSize);
# start cabarc
CreateNewProcess($cabname, $kit);
# Delete the temporary file list
unlink("$filelist");
return(1);
}
# --------------------------------------------------------------------------
# Builds the installation inf
# --------------------------------------------------------------------------
sub CreateINF {
my $CabName = shift;
my $FriendlyName = shift;
my $InfCopyFileList = shift;
my $FileIndex = shift;
my $TotalSize = shift;
my @lines;
open(hFILE, ">>${CabName}.inf")||return(25);
print hFILE<<EOF;
[Version]
AdvancedInf = 2
Signature =\"\$CHICAGO\$\"
SetupClass = Base
[DefaultInstall]
CopyFiles=${InfCopyFileList}
CustomDestination= PDCDest
RequiredEngine = setupapi;
AddReg = RegVersion,DocKey
[DefaultUninstall]
DelFiles=${InfCopyFileList}
CustomDestination= PDCDest
DelReg = RegVersion,DocKey
EOF
open(hADDFILE, "<${CabName}_DestDirsFiles");
@lines=<hADDFILE>;
close(hADDFILE);
foreach (@lines) {
printf(hFILE "$_");
}
unlink("${CabName}_DestDirsFiles")||die("$!\n");;
print hFILE<<EOF;
InfFiles=17,\"msddk\\${bldno}\"
DefaultDestDir=49000,\"${CabName}\"
[RegVersion]
\"HKLM\",\"SOFTWARE\\Microsoft\\WINDDK\\Restart\\Cabs\",\"${CabName}\",0,\"done\"
[PDCDest]
49000,49001,49002=SDKCust, 17
[SDKCust]
;if key below exists, use this string to seed install path
\"HKLM\", \"Software\\Microsoft\\WINDDK\", \"SFNDirectory\",,\"%DefaultDir%\"
[DocKey]
[InfFiles]
${CabName}.inf
EOF
open(hADDFILE, "<${CabName}_SourceFiles");
@lines=<hADDFILE>;
close(hADDFILE);
foreach (@lines) {
printf(hFILE "$_");
}
unlink("${CabName}_SourceFiles")||die("$!\n");;
printf(hFILE "\n");
printf(hFILE "[SourceDisksNames]\n");
printf(hFILE "1=\"${CabName}.cab\",${CabName}.cab,0\n");
open(hADDFILE, "<${CabName}_SourceDisk");
@lines=<hADDFILE>;
close(hADDFILE);
foreach (@lines) {
printf(hFILE "$_");
}
unlink("${CabName}_SourceDisk")||die("$!\n");
$FileIndex++;
printf(hFILE "\n\n");
printf(hFILE "[Strings]\n");
printf(hFILE "FriendlyName=${FriendlyName}\n");
printf(hFILE "AppKey=SOFTWARE\\Microsoft\\WINDDK\n");
printf(hFILE "FileCount=${FileIndex}\n");
printf(hFILE "TotalSize=${TotalSize}\n");
close(hFILE);
return(0);
}
# --------------------------------------------------------------------------
# Starts a new process once there is room in the process table
# --------------------------------------------------------------------------
sub CreateNewProcess {
my $CabName = shift;
my $kit = shift;
my $ERRORLEVEL = 0;
my $ExitCode = 0;
my $i;
# Limit total running processes- label/goto construct needed because otherwise
# all processes are tested for instead of just finding the first one that has
# finished.
top:
while (@Processes >= $MAX_PROCESSES) {
for ($i=0;$i<=$#Processes;$i++) {
$Processes[$i][0]->GetExitCode( $ExitCode );
if ($ExitCode != 259 ) {
# Do post processes commands before removing it
$ERRORLEVEL= system("move /Y $Processes[$i][1].CAB $ENV{_NTPOSTBLD}\\$Processes[$i][2]_cd\\Common >nul 2>nul");
logerror("341: $Processes[$i][1].CAB could not be placed") if ($ERRORLEVEL);
$ERRORLEVEL= system("move /Y $Processes[$i][1].INF $ENV{_NTPOSTBLD}\\$Processes[$i][2]_cd\\Common >nul 2>nul");
logerror("342: $Processes[$i][1].INF could not be placed") if ($ERRORLEVEL);
$ERRORLEVEL=system("del /f $Processes[$i][1]_FILE_* 2>nul");
splice(@Processes,$i,1);
$i--; # Decrement count since the array changed
goto top;
}
}
sleep(2);
}
# Create the new process
Win32::Process::Create($i, $exe, "$exe $global_param ${CabName}.cab ${CabName}_FILE_*",
0, DETACHED_PROCESS, "$ENV{TEMP}");
# Update the process table
push(@Processes, [$i,$CabName,$kit]);
}
# --------------------------------------------------------------------------
# Waits for all currently running processes to finish
# --------------------------------------------------------------------------
sub WaitForAllProcesses {
my $i;
my $ERRORLEVEL = 0;
for ($i=0;$i<=$#Processes;$i++) {
# Wait for current process to end
print(".") unless ($verbose);
$Processes[$i][0]->Wait( INFINITE );
# Do post processes commands
$ERRORLEVEL= system("move /Y $Processes[$i][1].CAB $ENV{_NTPOSTBLD}\\$Processes[$i][2]_cd\\Common >nul 2>nul");
$ERRORLEVEL+=system("move /Y $Processes[$i][1].INF $ENV{_NTPOSTBLD}\\$Processes[$i][2]_cd\\Common >nul 2>nul");
logerror(__LINE__.": $Processes[$i][1] could not be placed") if ($ERRORLEVEL);
$ERRORLEVEL=system("del /f $Processes[$i][1]_FILE_* 2>nul");
}
print("\n");
}
# --------------------------------------------------------------------------
# Error logging routines
# --------------------------------------------------------------------------
sub logdebug { my($errormsg)="DEBUG_MSG : @_";
logprint($errormsg);
return(TRUE);}
sub logerror { my($errormsg)="ERROR_MSG : @_";
logprint($errormsg);
return(TRUE);}
sub logmsg { my($errormsg)="BUILD_MSG : @_";
logprint($errormsg);
return(TRUE);}
sub logprint { open(hLogFile,">>$handle")||warn("@_\n");
printf(hLogFile "$0 : @_\n");
close(hLogFile);
return(TRUE);}
# --------------------------------------------------------------------------
# Program description and usage
# --------------------------------------------------------------------------
sub Usage {
print "
Usage: $0 [-n <N>] [-f] [-l <language>] [-s] [-v]
This tool requires a Razzle window.
Generates CABs for the Kernelmode Development Kits. N, which is
optional, indicates the number of processes to start per processor.
The default value is 2.
By default, $0 will exit early if the environment variable
OFFICAL_BUILD_MACHINE is not defined. To override this behavior,
and for CAB generation, use -F.
-L is used, and any language other than 'usa' is passed, CAB
generation will not take place.
-V turns on verbose mode. See what cabs are being built.
-S spoofs full postbuild. (DDKCabs.bat otherwise relies upon build_number.cmd)
Dependencies:
o The following environment variables are expected to be defined:
%_NTDRIVE%, %_NTROOT%, %_BUILDARCH%, %_BUILDTYPE%, %_NTPOSTBLD%,
%RazzleToolPath%, %NUMBER_OF_PROCESSORS%, %TEMP%, and
%PROCESSOR_ARCHITECTURE%.
o The following directory trees are assumed to exist:
1) %_NTPOSTBLD%\\ddk_cd
2) %_NTPOSTBLD%\\ddk_flat
3) %_NTPOSTBLD%\\ifs_cd
4) %_NTPOSTBLD%\\ifs_flat
5) %_NTPOSTBLD%\\hal_cd
6) %_NTPOSTBLD%\\hal_flat
";
return(30);
}
# --------------------------------------------------------------------------
# List dependencies needed for this script.
# --------------------------------------------------------------------------
sub Dependencies {
if ( !open DEPEND, ">>$ENV{_NTPOSTBLD}\\..\\build_logs\\dependencies.txt" ) {
print STDERR "ERROR: Unable to open dependency list file.\n";
die;
}
print DEPEND<<DEPENDENCIES;
\[$0\]
IF {...} ADD {}
DEPENDENCIES
close DEPEND;
exit;
}
__END__
:endofperl
Reference in a new issue Copy permalink