Source code of Windows XP (NT5)
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.
 
 
 
 
 
 

67 lines
1.7 KiB

@echo off
REM ------------------------------------------------------------------
REM
REM indexsym.cmd
REM Begin symbol indexing for the current build
REM
REM Copyright (c) Microsoft Corporation. All rights reserved.
REM
REM ------------------------------------------------------------------
perl -x "%~f0" %*
goto :EOF
#!perl
use strict;
use lib $ENV{RAZZLETOOLPATH} . "\\PostBuildScripts";
use lib $ENV{RAZZLETOOLPATH};
use PbuildEnv;
use ParseArgs;
use Logmsg;
use BuildName;
use symindex;
sub Usage { print<<USAGE; exit(1) }
indexsym [-l <language>]
Begins symbol indexing of symbols found under the binaries tree.
USAGE
parseargs('?' => \&Usage);
if ($ENV{LANG} !~ /usa/i) {
#logmsg( "Symbol indexing is not currently implemented for localized builds.");
#return;
}
# the next two checks are redundant because of the $lang !~ /usa/i check above
# but if that check is ever taken out, we still want to skip symbol indexing
# for pseudo and mirror
# Don't index symbols for pseudoloc builds
if ($ENV{LANG} =~ /psu/i) {
logmsg("Don't index pseudoloc builds - exiting");
exit;
}
# Don't index symbols for mirrored builds
if ($ENV{LANG} =~ /mir/i) {
logmsg("Don't index mirrored builds - exiting");
exit;
}
# check if there is a binaries tree to work with
if (!-e $ENV{_NTPOSTBLD}) {
errmsg("Binaries tree $ENV{_NTPOSTBLD} does not exist");
exit;
}
# get BuildName:
my $BuildName = build_name();
logmsg( "Symbols will be indexed for $BuildName.");
# this variable does not appear to be used anywhere, I'm setting it to a
# resonable value for now until I can clean up symindex --JeremyD
my $LogFileName = "$ENV{TEMP}\\indexsym.log";
&symindex::IndexSymbols($ENV{LANG}, $BuildName, $LogFileName);