Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

608 lines
23 KiB

@perl -x %0 %*
@goto :eof
#!perl
# Copyright 1999 Microsoft Corporation
################################################################################
#
# Script begins here. Above is overhead to make a happy batch file.
#
# Revision history:
# 5/18/00 - Use binplace instead of copy for all 'COPY*' ops. except when
# renaming the file.
# 11/10/00 - CopyLIB no longer uses lib[fre|chk]. Now just goes to lib in
# order to match razzle more closely
# 06/04/02 - add support for legacy headers/libs and don't error if they're
# missing since the legacy content is not required
################################################################################
use strict;
#use File::Temp qw(tempfile);
my($WarnLevel);
my $OS_SUBDIR = "wnet";
#if (@ARGV != 3 ) {
# print(STDERR "Usage: $0 <ini_file> <kit_name> [ProjectRoot value]\n");
# exit(0);
#}
die ("nmake : $0: DDK_ERROR_FATAL: ProjectRoot is not defined. Aborting DDK scripts.\n") unless defined($ARGV[2]);
die ("nmake : $0: DDK_ERROR_FATAL: Kit is not defined. Aborting DDK scripts.\n") unless defined($ARGV[1]);
# ---------------------------------------------------------
# Make sure our dependent variables are defined.
# ---------------------------------------------------------
if (! defined $ENV{_NTTREE}) {
print(STDERR "$0 \%_NTTREE\% not defined - assuming a 'no_binaries' build. Script aborted.\n");
exit(0);
}
# ---------------------------------------------------------
# The default is to build samples on X86Fre machines only.
# Set _DDK_SAMPLES = FALSE to disable
# ---------------------------------------------------------
if (defined $ENV{_NO_DDK}) {
print("BUILDMSG: $0: Not building the DDK because \%_NO_DDK\% is set.\n");
exit(0);
}
my $FileNameCheck = 0;
if ( defined $ENV{_DDK_FILENAME_CHECKING} || ($WarnLevel >= 2) ) {
$FileNameCheck = 1;
}
#
# Setting the warning level based on %_DDK_WARN_LEVEL%, else default to
# 0. Valid values are 0-4 with increasingly restrictive checking.
#
# All level 0 errors and warnings are DDK requirements.
#
if (defined($ENV{_DDK_WARN_LEVEL})) {
if ($ENV{_DDK_WARN_LEVEL} =~ /^\d*$/) {
if (($ENV{_DDK_WARN_LEVEL} >= 0) && ($ENV{_DDK_WARN_LEVEL} <= 4)) {
$WarnLevel = $ENV{_DDK_WARN_LEVEL};
} else {
warn("\%_DDK_WARN_LEVEL\% out of range. (Expected 0-4). Using default value.\n");
}
} else {
warn("\%_DDK_WARN_LEVEL\% is not numeric. Using default value.\n");
}
} else {
$WarnLevel = 0;
}
$0 =~ /.*\\(.*)$/;
$0=$1 if (defined($1));
sub FALSE {return(0);} # BOOLEAN FALSE
sub TRUE {return(1);} # BOOLEAN TRUE
#
# Global variables
#
my($Version) = "2000.02.29.1"; # Version of this file (YYYY.MM.DD.#)
my($DEBUG) = FALSE; # Set to TRUE for testing
my($ini_file)=$ARGV[0]; # File we're processing
my($hFILE, $hDIR); # File handle, Directory handle
my($kit) =$ARGV[1]; # Kit file is for
my(@lines_to_process); # Array to hold file contents
my($current_line); # Hold ini line to be processed
my($cur_line_num)=0; # Count which line we're on
my($token,@dirs); # Temp Var
my($dest_root); # Root to base destination on
my($cd_root); # Root to CD image of kit
my($hsplit);
my(@files); # Array for directory-level ops
my($ProjectRoot)=$ARGV[2]; # Root of the project use
$dest_root="$ENV{_NTTREE}\\${kit}_flat";
$cd_root ="$ENV{_NTTREE}\\${kit}_cd";
my($source_dir, $source_file); # Contents of the current line
my($dest_dir, $dest_file, $operation);
my $Arch;
if ($ENV{_BuildArch} eq "x86") {
$Arch = "i386";
} else {
$Arch = $ENV{_BuildArch};
}
system("mkdir .\\obj\\${Arch}\\${kit}tmp 2> NUL");
my $tmpdir = ".\\obj\\${Arch}\\${kit}tmp";
# Make sure our tree exists
#system("mkdir $dest_root 2> NUL");
#system("mkdir $cd_root 2> NUL");
#
# Open the ini, slurp the contents to an array, close the ini
#
open(hFILE, $ini_file) || die("nmake : $0: DDK_ERROR_FATAL: $ini_file could not be opened!\n");
print("Processing $ini_file...\n");
@lines_to_process = <hFILE>;
close(hFILE);
#
# Loop through the contents
#
foreach $current_line (@lines_to_process) {
chomp $current_line;
$cur_line_num++;
# If the first character on the line is a ';' or is blank, skip it
next if ($current_line =~ /^[\s\t]*\;/);
next if (($current_line =~ /^[\s\t]*$/) or ($current_line =~ /^$/));
# Swap out environment variables
while ($current_line =~ /\%(.+?)\%/) {
$token=$1;
$current_line =~ s/\%$token\%/$ENV{$token}/;
}
if ($current_line =~ /\%PROJECT_ROOT\%/i) {
warn("BUILDMSG: Warning $0: DDK_WARNING: Correct reference to \%_DDK_CONTENT\% ($ini_file: $cur_line_num) \n");
next;
}
($source_dir, $source_file, $dest_dir, $dest_file, $operation) =
split(/,/,$current_line);
#
# Break on undefined op!
#
if (not defined $operation) {
warn("BUILDMSG: Warning $0: DDK_WARNING: Line is malformed ($ini_file: $cur_line_num) \n");
next;
}
$source_dir =~ s/^[\s\t]*//; # Kill leading and trailing spaces
$source_dir =~ s/[\s\t]*$//;
$source_dir =~ s/^/$ProjectRoot\\/;
$source_file=~ s/^[\s\t]*//; # Kill leading and trailing spaces
$source_file=~ s/[\s\t]*$//;
$dest_dir =~ s/^[\s\t]*//; # Kill leading and trailing spaces
$dest_dir =~ s/[\s\t]*$//;
$dest_file =~ s/^[\s\t]*//; # Kill leading and trailing spaces
$dest_file =~ s/[\s\t]*$//;
$operation =~ s/^[\s\t]*//; # Kill leading and trailing spaces
$operation =~ s/[\s\t]*$//;
my $tmpfile;
###############################################
#+-------------------------------------------+#
#| DDK ERROR REPORTING RULES SHOULD GO HERE! |#
#+-------------------------------------------+#
###############################################
# This variable was only valid during porting/testing.
if ($current_line =~ /\%_DDK_CONTENT\%/i) {
warn("BUILDMSG: Warning $0: DDK_WARNING: Correct reference to \%_DDK_CONTENT\% ($ini_file: $cur_line_num) \n");
next;
}
# Don't allow files that have 'internal' in the source path
if ($source_dir =~ /internal/i) {
# except termsrv.
if ($kit eq "termsrv") {
# termsrv ddk is exception to above rule, this ddk goes only to citrix.
}
else {
warn("nmake : $0: DDK_ERROR: Attempting to copy a file from path with 'internal' ($ini_file: $cur_line_num)\n");
next;
}
}
# Watch what gets copied to %NTDDK%\inc
if (($dest_dir =~ /^inc$/i) and
(($source_dir !~ /public.*inc?/) and ($source_dir !~ /legacy_files/i) and ($source_dir !~ /sdktools\\ddk\\inc$/i)))
{
warn("nmake : $0: DDK_ERROR: Only files from the public depot can be copied into the \%DDK_ROOT\%\\incs directory. ($ini_file: $cur_line_num)\n");
next;
}
# Look for files marked with MS Confidential
(CheckForMSConfidential("${source_dir}","${source_file}")||next) unless ($operation =~ /^COPYLIB/i);
#####################################################################
#+-----------------------------------------------------------------+#
#| |#
#| Remainder of script 'does the right thing' based on $operation. |#
#| |#
#+-----------------------------------------------------------------+#
#####################################################################
#
# COPYX86CHK - Use COPYX86 if platform is CHK
#
if (uc($operation) eq "COPYX86CHK") {
if (uc($ENV{_BUILDTYPE}) eq "CHK") {
$operation = "COPYX86";
} else {
next;
}
}
#
# COPYX86FRE - Use COPYX86 if platform is FRE
#
if (uc($operation) eq "COPYX86FRE") {
if (uc($ENV{_BUILDTYPE}) eq "FRE") {
$operation = "COPYX86";
} else {
next;
}
}
#
# COPYAMD64CHK - Use COPYAMD64 if platform is CHK
#
if (uc($operation) eq "COPYAMD64CHK") {
if (uc($ENV{_BUILDTYPE}) eq "CHK") {
$operation = "COPYAMD64";
} else {
next;
}
}
#
# COPYAMD64FRE - Use COPYAMD64 if platform is FRE
#
if (uc($operation) eq "COPYAMD64FRE") {
if (uc($ENV{_BUILDTYPE}) eq "FRE") {
$operation = "COPYAMD64";
} else {
next;
}
}
#
# COPYIA64CHK - Use COPYIA64 if platform is CHK
#
if (uc($operation) eq "COPYIA64CHK") {
if (uc($ENV{_BUILDTYPE}) eq "CHK") {
$operation = "COPYIA64";
} else {
next;
}
}
#
# COPYIA64FRE - Use COPYIA64 if platform is FRE
#
if (uc($operation) eq "COPYIA64FRE") {
if (uc($ENV{_BUILDTYPE}) eq "FRE") {
$operation = "COPYIA64";
} else {
next;
}
}
#
# COPYX86 - Use COPY if platform is x86
#
if (uc($operation) eq "COPYX86") {
if (uc($ENV{_BUILDARCH}) eq "X86") {
$operation = "COPY";
} else {
next;
}
}
#
# COPYAMD64 - Use COPY if platform is AMD64
#
if (uc($operation) eq "COPYAMD64") {
if (uc($ENV{_BUILDARCH}) eq "AMD64") {
$operation = "COPY";
} else {
next;
}
}
#
# COPYIA64 - Use COPY if platform is IA64
#
if (uc($operation) eq "COPYIA64") {
if (uc($ENV{_BUILDARCH}) eq "IA64") {
$operation = "COPY";
} else {
next;
}
}
#
# COPYLIB32 - Do the right thing with libs on 32-bit platforms
#
if (uc($operation) eq "COPYLIB32") {
if (uc($ENV{_BUILDARCH}) eq "X86") {
$operation = "COPYLIB";
} else {
next;
}
}
#
# COPYLIB64 - Do the right thing with libs on 64-bit platforms
#
if (uc($operation) eq "COPYLIB64") {
if (uc($ENV{_BUILDARCH}) eq "IA64") {
$operation = "COPYLIB";
} elsif (uc($ENV{_BUILDARCH}) eq "AMD64") {
$operation = "COPYLIB";
} else {
next;
}
}
#
# COPYLIBAMD64 - Do the right thing with libs on AMD64 64-bit platforms
#
if (uc($operation) eq "COPYLIBAMD64") {
if (uc($ENV{_BUILDARCH}) eq "AMD64") {
$operation = "COPYLIB";
} else {
next;
}
}
#
# COPYLIBIA64 - Do the right thing with libs on IA64 64-bit platforms
#
if (uc($operation) eq "COPYLIBIA64") {
if (uc($ENV{_BUILDARCH}) eq "IA64") {
$operation = "COPYLIB";
} else {
next;
}
}
#
# COPYLIB - Do the right thing with libs
#
if (uc($operation) eq "COPYLIB") {
# Determine base dest_dir
$dest_dir = "lib\\$OS_SUBDIR";
# Determine subdir for both dest and source
if (uc($ENV{_BUILDARCH}) eq "X86") {
$source_dir .= "\\i386";
$dest_dir .= "\\i386";
} elsif (uc($ENV{_BUILDARCH}) eq "AMD64") {
$source_dir .= "\\amd64";
$dest_dir .= "\\amd64";
} elsif (uc($ENV{_BUILDARCH}) eq "IA64") {
$source_dir .= "\\ia64";
$dest_dir .= "\\ia64";
}
$operation = "COPY";
}
## Uncomment the following line to turn off HSPLITting
##$operation = "COPY" if (uc($operation) eq "HSPLIT");
# Always make sure the destination dir exists. A little wastefull, but worthwhile
if (uc($operation) eq "COPYCDFILE") {
$token="$cd_root";
} else {
$token="$dest_root";
}
@dirs=split(/\\/,$dest_dir);
#
# COPY
#
if (uc($operation) eq "COPY") {
if ($dest_file eq "*") {
if ($source_file =~ "[\*|\?]+") {
if (-e("${source_dir}")) {
system("binplace -xa -s obj -n obj -e -:DEST $dest_dir -r ${dest_root} ${source_dir}\\${source_file}");
} else {
# Don't error on optional legacy support directories
if ( $source_dir !~ /.*\\public\\.*\\(wxp|w2k|legacy)$/ ) {
warn("nmake : $0: DDK_ERROR: ${source_dir} not found. ($ini_file: $cur_line_num) \n");
}
next;
}
} else {
if (-e("${source_dir}\\${source_file}")) {
system("binplace -xa -s obj -n obj -e -:DEST $dest_dir -r ${dest_root} ${source_dir}\\${source_file}");
} else {
# Don't error on optional legacy support directories
if ( $source_dir !~ /.*\\public\\.*\\(wxp|w2k|legacy)$/ ) {
warn("nmake : $0: DDK_ERROR: ${source_file} not found. ($ini_file: $cur_line_num) \n");
}
next;
}
}
} else {
warn("nmake : $0: DDK_ERROR: ${source_file} not found. ($ini_file: $cur_line_num) \n"), next unless (-e("${source_dir}\\${source_file}"));
system("binplace -xa -s obj -n obj -f -e -:DEST $dest_dir -:REN ${dest_file} -r ${dest_root} ${source_dir}\\${source_file}");
}
#
# COPYCDFILE
# use binplace -f to force the updates.
} elsif (uc($operation) eq "COPYCDFILE") {
if ($dest_file eq "*") {
if ($source_file =~ "[\*|\?]+") {
warn("nmake : $0: DDK_ERROR: ${source_dir} not found. ($ini_file: $cur_line_num) \n"), next unless (-e("${source_dir}"));
system("binplace -xa -s obj -n obj -f -e -:DEST ${dest_dir} -r ${cd_root} ${source_dir}\\${source_file}");
} else {
warn("nmake : $0: DDK_ERROR: ${source_file} not found. ($ini_file: $cur_line_num) \n"), next unless (-e("${source_dir}\\${source_file}"));
system("binplace -xa -s obj -n obj -f -e -:DEST ${dest_dir} -r ${cd_root} ${source_dir}\\${source_file}");
}
} else {
warn("nmake : $0: DDK_ERROR: ${source_file} not found. ($ini_file: $cur_line_num) \n"), next unless (-e("${source_dir}\\${source_file}"));
system("binplace -xa -s obj -n obj -f -e -:DEST ${dest_dir} -r ${cd_root} -:REN ${dest_file} ${source_dir}\\${source_file}");
}
#
# APPENDCDFILE
# ugly hack, but should only be used for cabs.ini. If it gets more use, this should be
# made more efficent.
} elsif (uc($operation) eq "APPENDCDFILE") {
if ($dest_file eq "*") {
if ($source_file =~ "[\*|\?]+") {
warn("nmake : $0: DDK_ERROR: APPENDCDFILE cannot be used on wildcards.");
next;
} else {
$tmpfile = "${dest_dir}_${source_file}";
$tmpfile =~ s/\\/_/g;
warn("nmake : $0: DDK_ERROR: ${source_file} not found. ($ini_file: $cur_line_num) \n"), next unless (-e("${source_dir}\\${source_file}"));
system("copy ${cd_root}\\${dest_dir}\\${dest_file} ${tmpdir}\\${tmpfile} >NUL");
system("cat -o ${source_dir}\\${source_file} >> ${tmpdir}\\${tmpfile} 2>NUL");
system("binplace -xa -s obj -n obj -r ${cd_root} -:REN ${dest_file} -:DEST ${dest_dir} ${tmpdir}\\${tmpfile}");
}
} else {
$tmpfile = "${dest_dir}_${dest_file}";
$tmpfile =~ s/\\/_/g;
warn("nmake : $0: DDK_ERROR: ${source_file} not found. ($ini_file: $cur_line_num) \n"), next unless (-e("${source_dir}\\${source_file}"));
system("copy ${cd_root}\\${dest_dir}\\${dest_file} ${tmpdir}\\${tmpfile} >NUL");
system("cat -o ${source_dir}\\${source_file} >> ${tmpdir}\\${tmpfile} 2>NUL");
system("binplace -xa -s obj -n obj -r ${cd_root} -:REN ${dest_file} -:DEST ${dest_dir} ${tmpdir}\\${tmpfile}");
}
#
# HSPLIT
#
} elsif (uc($operation) eq "HSPLIT") {
# Look to see if we're using a wildcard
if (($source_file =~ /\*/) || ($source_file =~ /\?/)) {
# CMD Wildcard to RegExp Wildcard
$source_file =~ s/\./\\\./g;
$source_file =~ s/\?/\./g;
$source_file =~ s/\*/\.\*/g;
$source_file .= "\$";
opendir(hDIR, ${source_dir});
@files=readdir(hDIR);
closedir(hDIR);
foreach $token (@files) {
next unless -e("${source_dir}\\${token}");
next if -d("${source_dir}\\${token}");
if ($token =~ /$source_file/i) {
$tmpfile = "${dest_dir}_${token}";
$tmpfile =~ s/\\/_/g;
# Don't try to HSPLIT not text files
# GIF files not correctly detected as binary.
if (( -B "${source_dir}\\${token}") || ($token =~ /\.gif$/i)) {
if ($WarnLevel > 1) { # This is an info message, require a higher warning level
warn("BUILDMSG: $0: DDK_INFO: Not HSPLITTING ${token} - Detected as binary. ($ini_file: $cur_line_num) \n");
}
system("binplace -xa -s obj -n obj -r ${dest_root} -:DEST ${dest_dir} ${source_dir}\\${token}");
} else {
if ( $FileNameCheck ) {
if (-e "${tmpdir}\\${tmpfile}" ) {
warn("nmake : $0: DDK_ERROR: ${tmpfile} already exists in $tmpdir. ($ini_file: $cur_line_num) \n");
}
}
system("hsplit -o ${tmpdir}\\${tmpfile} nul -bt2 BEGIN_DDKSPLIT END_DDKSPLIT -c \@\@ -i ${source_dir}\\${token} ");
system("binplace -xa -s obj -n obj -r ${dest_root} -:REN ${token} -:DEST ${dest_dir} ${tmpdir}\\${tmpfile}");
## This was a bad mistake- we need to split to a temp file, then split the temp file again to get cumlative hsplits. Pulling thi
## extra split for a quick fix so we can RI. A proper fix that uses both hsplits will be test and checked in for the next RI.
##system("hsplit -o ${dest_root}\\${dest_dir}\\${token} nul -bt2 BEGIN_MSINTERNAL END_MSINTERNAL -c \@\@ -i ${source_dir}\\${token} ");
}
}
}
} else {
# No wildcard- just do the split
$dest_file=$source_file if ($dest_file eq "*");
$tmpfile = "${dest_dir}_${dest_file}";
$tmpfile =~ s/\\/_/g;
warn("nmake : $0: DDK_ERROR: ${source_file} not found ($ini_file: $cur_line_num) \n"), next unless (-e("${source_dir}\\${source_file}"));
# Don't try to HSPLIT not text files.
# GIF files not correctly detected as binary.
if (( -B "${source_dir}\\${source_file}") || ($token =~ /\.gif$/i)){
if ($WarnLevel > 0) { # This is an explicit HSPLIT of a binary file. Warn at a low warning level.
warn("BUILDMSG: Warning $0: DDK_WARNING: Binary files cannot be HSPLIT- ${source_file} ($ini_file: $cur_line_num)\n");
}
system("binplace -xa -s obj -n obj -r ${dest_root} -:REN ${dest_file} -:DEST ${dest_dir} ${source_dir}\\${source_file}");
} else {
if ( $FileNameCheck ) {
if (-e "${tmpdir}\\${tmpfile}" ) {
warn("nmake : $0: DDK_ERROR: ${tmpfile} already exists in $tmpdir. ($ini_file: $cur_line_num) \n");
}
}
system("hsplit -o ${tmpdir}\\${tmpfile} nul -bt2 BEGIN_DDKSPLIT END_DDKSPLIT -c \@\@ -i ${source_dir}\\${source_file} ");
system("binplace -xa -s obj -n obj -r ${dest_root} -:REN ${dest_file} -:DEST ${dest_dir} ${tmpdir}\\${tmpfile}");
## This was a bad mistake- we need to split to a temp file, then split the temp file again to get cumlative hsplits. Pulling thi
## extra split for a quick fix so we can RI. A proper fix that uses both hsplits will be test and checked in for the next RI.
##system("hsplit -o ${dest_root}\\${dest_dir}\\${dest_file} nul -bt2 BEGIN_MSINTERNAL END_MSINTERNAL -c \@\@ -i ${source_dir}\\${source_file} ");
}
}
} else {
warn("nmake : $0: DDK_ERROR: Unknown operation ($operation) ($ini_file: $cur_line_num)\n");
}
}
#
# Check file or glob for " Confidential"
#
sub CheckForMSConfidential {
my($dir) = shift;
my($source) = shift;
my($return) = 1;
my($file, @files);
my($hDIR, $hFILE);
my(@lines);
# Files that have the string 'Confidential' but are shippable
my(%exclusions) = ( "LICENSE.RTF" => TRUE,
"NTLMSP.H" => TRUE,
"MMREG.H" => TRUE );
if (($source =~ /\*/) || ($source =~ /\?/)) {
# CMD Wildcard to RegExp Wildcard
$source =~ s/\?/\./g;
$source =~ s/\*/\.\*/g;
opendir(hDIR, ${dir});
@files=readdir(hDIR);
closedir(hDIR);
foreach $file (@files) {
next unless -e("${dir}\\${file}");
next if -d("${dir}\\${file}");
next if (( -B "${dir}\\${file}") || ($file =~ /\.gif$/));
if ($file =~ /$source/i) {
return(11) unless (-e "$dir\\$file");
return(12) if (( -B "${dir}\\${file}") || ($file =~ /\.gif$/i));
open(hFILE, "${dir}\\${file}") || die("nmake : $0: DDK_ERROR_FATAL: $dir\\$file could not be opened!\n");
@lines=<hFILE>;
close(hFILE);
if (grep(/\ Confidential/i,@lines) > 0) {
warn("nmake : $0: DDK_ERROR: $file contains \"Confidential\". ($ini_file: $cur_line_num)\n"),
$return=0 unless(defined($exclusions{uc($file)}));
}
}
}
} else {
# No wildcard
return(21) unless (-e "$dir\\$source");
return(22) if (( -B "${dir}\\${source}") || ($source =~ /\.gif$/i));
open(hFILE, "$dir\\$source") || die("nmake : $0: DDK_ERROR_FATAL: $dir\\$source could not be opened!\n");
@lines=<hFILE>;
close(hFILE);
if (grep(/\ Confidential/i,@lines) > 0) {
warn("nmake : $0: DDK_ERROR: $source contains \"Confidential\". ($ini_file: $cur_line_num)\n"),
$return=0 unless(defined($exclusions{uc($source)}));
}
}
return($return);
}
__END__
:endofperl