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.
 
 
 
 
 
 

501 lines
14 KiB

#----------------------------------------------------------------//
# Script: copylang.pl
#
# (c) 2000 Microsoft Corporation. All rights reserved.
#
# Purpose: This script copy the files between Source Tree and
# Loc Tree listed in $ENV{RazzleToolPath}\intlsrc.txt.
#
# Version: <1.00> 06/30/2000 : Suemiao Rossognol
#----------------------------------------------------------------//
###-----Set current script Name/Version.----------------//
package copylang;
$VERSION = '1.00';
$ENV{script_name} = 'copylang.pl';
###-----Require section and extern modual.---------------//
require 5.003;
use strict;
use lib $ENV{ "RazzleToolPath" };
use lib $ENV{ "RazzleToolPath" } . "\\PostBuildScripts";
no strict 'vars';
no strict 'subs';
no strict 'refs';
use GetParams;
use Logmsg;
use cklang;
use cktarg;
use HashText;
use comlib;
%hashCodes=();
&HashText::Read_Text_Hash( 0, $ENV{RazzleToolPath}."\\Codes.txt", \%hashCodes );
# Delete everything that's not international
delete $hashCodes{RO};
delete $hashCodes{CA};
delete $hashCodes{CHP};
delete $hashCodes{PSU};
delete $hashCodes{MIR};
delete $hashCodes{TST};
my ( $infsSrcTree, $unfsLocTree, $isNtsetup );
#------------------------------------------------------------------//
#Function: main
#Parameter: (1) Language
# (2) Root of the Source Tree
# (3) Root of the Localized Tree
# (4) Incremental Flag
# (5) Powerless Flag
#------------------------------------------------------------------//
sub main
{
my ( $pLang, $pSrcRoot, $pLocRoot, $pIsIncr, $pIsPowerless ) = @_;
if( $pLang eq "USA" )
{
$theFromTree = "SourceTree";
$theFromRoot = $pSrcRoot;
$theFromFile = "SourceFilename";
$theToTree = "LocTree";
$theToRoot = $pLocRoot;
$theToFile = "LocTreeFilename";
}else
{
$theFromTree = "LocTree";
$theFromRoot = $pLocRoot;
$theFromFile = "LocTreeFilename";
$theToTree = "SourceTree";
$theToRoot = $pSrcRoot;
$theToFile = "SourceFilename";
}
###---Set xcopy flag.--------------------------------//
my $copyOpt = "/V /F /R /Y";
if( $pIsPowerless )
{
$copyOpt .= " /L /D";
}
else
{
if( $pIsIncr ){ $copyOpt .= " /D"; }
}
###---Get Hash value from intlsrc.txt file.----------//
my @srcHash=();
&HashText::Read_Text_Hash( 1, "$ENV{\"RazzleToolPath\"}\\intlsrc.txt", \@srcHash );
@theHashKey = ("Target", "SourceFilename", "SourceTree", "LocTree","LocTreeFilename","Comments");
%tmp=();
for $line( @srcHash)
{
for $curKey ( @theHashKey )
{
if( $line->{ $curKey } =~ /^(.*)(\$\(LANG\))(.*)$/ )
{
$line->{ $curKey } = $1 . lc($pLang) .$3;
}
if( $line->{ $curKey } =~ /^(.*)([c|h])(\$\(PRIMARY_LANG_ID\))(.*)$/ )
{
if( $pLang eq "CHT" || $pLang eq "CHS" )
{
$LCID = substr( $hashCodes{uc($pLang)}->{LCID}, 2, length($hashCodes{uc($pLang)}->{LCID})-2);
$line->{ $curKey } = "prf" . $2 . $LCID .$4;
}
else
{
$priLangID = "0". substr( $hashCodes{uc($pLang)}->{PriLangID}, 2, length($hashCodes{uc($pLang)}->{PriLangID})-2);
$line->{ $curKey } = $1 . $2. $priLangID .$4;
}
}
}
$to = $theToRoot."\\". $line->{ $theToTree };
if( !exists $tmp{$to} ){ $tmp{$to}=(); }
}
if( $pLang eq "USA" )
{
for( keys %tmp )
{
&CkCleanDir( $_, $pIsIncr, $pIsPowerless );
}
}
###---Perform Copy now.------------------------------//
for $line ( @srcHash )
{
if( $pLang ne "USA" )
{
next if( !&cktarg::CkTarg( $line->{'Target'}, uc($pLang) ) );
}
next if(&IsTargInfsNtsetup( $line, $pLang,$pSrcRoot, $pLocRoot, $pIsIncr, $pIsPowerless, $copyOpt));
$from = $theFromRoot ."\\". $line->{ $theFromTree }."\\".$line->{ $theFromFile};
if( $pLang ne "USA" )
{
if( $line->{ $theFromFile } eq ".")
{
$from = $theFromRoot ."\\". $line->{ $theFromTree }."\\".$line->{ $theToFile };
}
}
$to = $theToRoot."\\". $line->{ $theToTree }. "\\".$line->{ $theToFile };
&PerformCopy( $line->{Target}, $from, $to, $copyOpt);
}
exit( !&comlib::CheckError( $ENV{ERRFILE}, "Copy Successfully" ) );
}
#------------------------------------------------------------------//
#Function: IsTargInfsNtsetup
#Parameter: (1) Line from intlsrc.txt
# (2) Language
# (3) Root of the Source Tree
# (4) Root of the Localized Tree
# (5) Incremental Flag
# (6) Powerless Flag
# (7) xcopy optional flags
#------------------------------------------------------------------//
sub IsTargInfsNtsetup
{
my( $pLine, $pLang, $pSrcRoot, $pLocRoot, $pIsIncr, $pIsPowerless,$pCopyOpt )= @_;
my( $from, $to );
return 0 if( $pLine->{Target} ne "INFS_NTSETUP" && $pLine->{Target} ne "INFS_COMPDATA");
if( $pLine->{Target} eq "INFS_NTSETUP" )
{
$infsSrcTree = "$pSrcRoot\\MergedComponents\\SetupInfs";
$infsLocTree = "$pLocRoot\\infs\\setup";
$isNtsetup=1;
}
else
{
$infsSrcTree = "$pSrcRoot\\MergedComponents\\SetupInfs\\compdata";
$infsLocTree = "$pLocRoot\\infs\\setup\\compdata";
$isNtsetup=0;
}
if( $pLang eq "USA")
{
###(1)Copy $infsSrcTree\\*.inx => infs\setup
$from = "$infsSrcTree\\*\.inx";
$to = "$infsLocTree\\.";
&CkCleanDir( $to, $pIsIncr, $pIsPowerless );
&PerformCopy( $line->{Target}, $from, $to, $pCopyOpt);
###(2)Copy $infsSrcTree\\usa\* => $infsLocTree\usa_all
$from = "$infsSrcTree\\usa\\*";
$to = "$infsLocTree\\usa_all";
&CkCleanDir( $to, $pIsIncr, $pIsPowerless );
&PerformCopy( $line->{Target}, $from, "$to\\.", $pCopyOpt);
}
###(3)If copylang.pl -l:usa, precompile MergedComponents\SetupInfs\usa => to infs\setup\$lang
### for all $lang's in codes.txt.
### This step is necessary to make LocStudio load the unlocalized text files,
### as LS does not understand if statements.
###
###(1)Otherwise, copy loc\res\$lang\windows\sources\infs\setup => MergedComponents\SetupInfs\$lang
### for the localizable txt files, and
### copy MergedComponents\SetupInfs\usa => MergedComponents\SetupInfs\$lang
### for the unlocalizable txt files.
### In the end, MergedComponents\SetupInfs\$lang will have the same list of files as
### MergedComponents\SetupInfs\usa.
&ClSrc( $pLang, $pSrcRoot, $pLocRoot, $pIsIncr,$pIsPowerless, $pCopyOpt );
return 1;
}
#------------------------------------------------------------------//
#Function: ClSrc
#Parameter: (1) Language
# (2) Root of the Source Tree
# (3) Root of the Localized Tree
# (4) Incremental Flag
# (5) Powerless Flag
# (6) xcopy optional flags
#------------------------------------------------------------------//
sub ClSrc
{
my( $pLang, $pSrcRoot, $pLocRoot,$pIsIncr, $pIsPowerless, $pCopyOpt )=@_;
###---Get LCID from codes.txt.---------------------------------//
my $srcDir = "$infsSrcTree\\usa";
my @srcFiles = `dir /on /b $srcDir`;
chomp @srcFiles;
if( $pLang eq "USA")
{
my @myLang = sort keys %hashCodes;
for( my $i=0; $i < @myLang; $i++)
{
$destDir = "$infsLocTree\\$myLang[$i]";
&CkCleanDir( $destDir, $pIsIncr, $pIsPowerless );
&PerformCompile( $myLang[$i], \@srcFiles, $srcDir, $destDir, $pIsPowerless, $pCopyOpt);
}
return 1;
}
###(1)Copy $infsLocTree\* $infsSrcTree\<LANG>
$destDir = "$infsSrcTree\\$pLang";
&CkCleanDir( $destDir, $pIsIncr, $pIsPowerless );
$locDir = $infsLocTree;
@locFiles = `dir /on /b $locDir`;
chomp @locFiles;
for( my $i=0; $i < @locFiles; $i++)
{
&PerformCopy( "INFS_NTSETUP", "$locDir\\$locFiles[$i]", "$destDir\\.", $pCopyOpt);
}
###Sepcial case for chh
if( lc($pLang) eq "cht" && $isNtsetup )
{
$destDir =~ /(.*)cht$/ || $destDir =~ /(.*)CHT$/;
{
$tmpDestDir = "$1chh";
}
&PerformCopy( "INFS_NTSETUP", "$locDir\\chh\\hivesft\.txt", "$tmpDestDir\\.", $pCopyOpt) ;
}
###(2)Precompile the files in srcDir but not in locDir=>destDir
%tmp=();
for ( @locFiles ){ $tmp{lc($_)}=1;}
@srcFiles = map( { exists $tmp{lc($_)}?():lc($_)} @srcFiles);
&PerformCompile( $pLang, \@srcFiles, $srcDir, $destDir, $pIsPowerless, $pCopyOpt);
return 1;
}
#------------------------------------------------------------------//
#Function: PerformCompile
#Parameter: (1) Language
# (2) Source File name
# (3) Source File Path
# (4) Target File Path
# (5) Powerless Flag
# (6) xcopy optional flags
#------------------------------------------------------------------//
sub PerformCompile
{
my( $pLang, $pSrcFiles, $pSrcDir, $pDestDir, $pIsPowerless, $pCopyOpt)=@_;
my $PREFLAGS ="";
for ( my $i=0; $i < @$pSrcFiles; $i++)
{
if( lc($pSrcFiles->[$i]) eq "intl\.txt" )
{
&PerformCopy( "INFS_NTSETUP", "$pSrcDir\\$pSrcFiles->[$i]", "$pDestDir\\.", $pCopyOpt);
next;
}
###Special CHH case for hivesft.txt
if( lc($pSrcFiles->[$i]) eq "hivesft\.txt" && lc($pLang) eq "chh" )
{
$PREFLAGS = "/DLANGUAGE_ID=0xc04 /EP";
}
else
{
$PREFLAGS = "/DLANGUAGE_ID=$hashCodes{uc($pLang)}->{LCID} /EP";
}
$cmdLine="cl /nologo $PREFLAGS $pSrcDir\\$pSrcFiles->[$i] 1\>$pDestDir\\$pSrcFiles->[$i]";
if ( !$pIsPowerless )
{
&comlib::ExecuteSystem( $cmdLine );
}
else
{
print "$cmdLine\n";
}
}
}
#------------------------------------------------------------------//
#Function: CkCleanDir
#Parameter: (1) Directory to be checked and cleaned
# (2) Incremental flag
# (3) Powerless flag
#------------------------------------------------------------------//
sub CkCleanDir
{
my ( $pDir, $pIsIncr, $pIsPowerless )=@_;
if( !$pIsIncr && !$pIsPowerless )
{
if( -e $pDir ){
&comlib::ExecuteSystem( "rd /S /Q $pDir" );
}
}
if( !(-e $pDir) ){
&comlib::ExecuteSystem( "md $pDir");
}
}
#------------------------------------------------------------------//
#Function: PerformCopy
#Parameter: (1) Any String - information purpose, it could be NULL.
# (2) Source of the xcopy
# (3) Target of the xcopy
# (4) xcopy optional flags
#------------------------------------------------------------------//
sub PerformCopy
{
my( $pTarg, $pFrom, $pTo, $pCopyOpt )=@_;
&comlib::ExecuteSystem( "echo F|xcopy $pCopyOpt $pFrom $pTo", "$pTarg:");
}
#------------------------------------------------------------------//
#Function: Usage
#-----------------------------------------------------------------//
sub Usage
{
print <<USAGE;
Perform files copy between the source and localization trees as
described in tools\\intlsrc.txt.
Usage:
$0 -l:<lang> [-x:<SourcePath>] [-y:<LocPath>] [-i] [-p]
-l Language.
-x Root path of the SourceTree.
Defaults to $ENV{_NTBINDIR}.
-y Root path of the LocTree.
Defaults to $ENV{_NTBINDIR}\\usasrc when language is usa.
Defaults to $ENV{_NTBINDIR}\\loc\\res\\<lang>\\windows\\sources otherwise.
-i Incremental. This flag is used for incremental copy.
-p Powerless. Only lists the files that would get copied,
in case the script is run without the powerless flag.
/? Displays usage.
Examples:
$0 -l:usa -x:\\\\ntbld03\\sources -y:\\\\intlnt\\2500.x86.src
Copies sources from the usa build machines for localization.
$0 -l:usa -y:\\\\intlnt\\2500.x86.src
Copies sources from local machines for localization.
$0 -l:jpn -i -p
Queries which localized sources would get copied from the
localization tree to the source tree for jpn.
USAGE
exit(1);
}
#--------------------------------------------------------//
#Cmd entry point for script.
#--------------------------------------------------------//
if (eval("\$0 =~ /" . __PACKAGE__ . "\\.pl\$/i"))
{
# <run perl.exe GetParams.pm /? to get the complete usage for GetParams.pm>
&GetParams ('-n', 'l:','-o', 'x:y:ip', '-p', 'lang srcroot locroot isincr ispowerless', @ARGV);
#Validate or Set default
$lang = uc($lang);
if( !&ValidateParams( $lang, \$srcroot, \$locroot ) ) {exit(1); }
exit( !&copylang::main( $lang, $srcroot,$locroot, $isincr, $ispowerless ) );
}
#--------------------------------------------------------//
#Function: ValidateParams
#--------------------------------------------------------//
sub ValidateParams
{
my ( $pLang, $pSrcRoot, $pLocRoot ) = @_;
if ( !&cklang::CkLang( uc($pLang) ) ) {
$ENV{LOGFILE} = "copylang.log";
$ENV{ERRFILE} = "copylang.err";
errmsg("Invalid language $pLang.");
return 0;
}
#Create log/err file
if( !( -e "$ENV{_NTTREE}\\$lang\\build_logs") )
{
&comlib::ExecuteSystem( "md \"$ENV{_NTTREE}\\$lang\\build_logs\"");
}
$ENV{LOGFILE} = "$ENV{_NTTREE}\\$lang\\build_logs\\copylang.log";
$ENV{ERRFILE} = "$ENV{_NTTREE}\\$lang\\build_logs\\copylang.err";
&comlib::ExecuteSystem( "del $ENV{LOGFILE}" ) if( -e $ENV{LOGFILE} );
&comlib::ExecuteSystem( "del $ENV{ERRFILE}" ) if( -e $ENV{ERRFILE} );
if( !${$pSrcRoot} )
{
$$pSrcRoot = "$ENV{_NTBINDIR}";
}
if( !${$pLocRoot} )
{
if( $pLang eq "USA" )
{
$$pLocRoot = "$ENV{_NTBINDIR}\\usasrc";
}
else
{
$$pLocRoot = "$ENV{_NTBINDIR}\\loc\\res\\$pLang\\windows\\sources";
}
}
return 1;
}
#----------------------------------------------------------------//
#Function: GetParams
#----------------------------------------------------------------//
sub GetParams
{
use GetParams;
#Call pm getparams with specified arguments
&GetParams::getparams(@_);
#Call the usage if specified by /?
if ($HELP){ &Usage();}
}
###------------------------------------------------------//
=head1 NAME
B<Copylang> - Perform Files copy
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 INSTANCES
=head2 <myinstances>
<Description of myinstances>
=head1 METHODS
=head2 <mymathods>
<Description of mymathods>
=head1 SEE ALSO
=head1 AUTHOR
<Suemiao Rossignol <[email protected]>>
=cut
1;