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

71 lines
1.5 KiB
Batchfile

@echo off
REM ------------------------------------------------------------------
REM
REM loc.cmd - JeremyD
REM Localize service pack binaries
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;
sub Usage { print<<USAGE; exit(1) }
loc -l <language>
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 {...} ADD {}
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;
}
if (!$ENV{LANG}) {
&Usage;
}
if (lc $ENV{LANG} eq 'usa') {
system("compdir /enustd $ENV{_NTFILTER} $ENV{_NTPOSTBLD}");
}
else {
{
local $ENV{_NTTREE} = $ENV{_NTFILTER};
system("perl $ENV{RAZZLETOOLPATH}\\postbuildscripts\\locag.pl -c -l:$ENV{LANG}");
}
system("$ENV{RAZZLETOOLPATH}\\sp\\unicode.cmd");
}