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.
 
 
 
 
 
 

111 lines
3.1 KiB

@echo off
REM ------------------------------------------------------------------
REM
REM unicode.cmd
REM convert ansi files in the product to unicode
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 File::Copy;
use ParseTable;
sub Usage { print<<USAGE; exit(1) }
unicode [-l <language>]
Converts ansi files to unicode with unitext. The codepage to use for
the conversion is looked up in tools\\codes.txt. The list of files to
convert is somewhat hardcoded. This script should be modified to use
the data files tools\\postbuildscripts\\a2u*.txt as this is a
replacement for a2u.pm.
USAGE
parseargs('?' => \&Usage);
my %lang_data;
parse_table_file("$ENV{RAZZLETOOLPATH}\\codes.txt", \%lang_data);
if (lc $ENV{LANG} eq 'usa') {
logmsg("skipping unicode conversion for usa");
exit 0;
}
if (!$lang_data{uc $ENV{LANG}}) {
wrnmsg("language information not found for $ENV{LANG}");
exit 0;
}
my $include_re = qr/(tsclient\\ncadmin\.inf|
install.ins|
\.mof|
\.adm|
\.inf)$/ix;
my $exclude_re = qr/(biosinfo\.inf|
layout\.inf|
drvindex\.inf|
inetcorp\.adm|
inetset\.adm|
compatws\.inf|
hisecws\.inf|
hisecdc\.inf|
homepage\.inf|
iefiles5\.inf|
instcm\.inf|
mmdriver\.inf|
pad\.inf|
reminst\.inf|
rootsec\.inf|
securedc\.inf|
securews\.inf|
setup16\.inf|
switch\.inf|
wavemix\.inf|
pvc\.inf|
svc\.inf|
IMKRINST\.INF|
template\.inf|
bfcab\.inf|
update\.inf|
msdtctr\.mof)$/ix;
my @convert;
open FILE, "$ENV{_NTPOSTBLD}\\layout.inf" or die "unable to open layout";
while (<FILE>) {
s/;.*$//;
s/^(\S+)\s*=\s*//;
my $file = lc $1;
next unless $file =~ /$include_re/;
next unless $file !~ /$exclude_re/;
if (-e "$ENV{_NTPOSTBLD}\\$file") { push @convert, "$ENV{_NTPOSTBLD}\\$file" }
if (-e "$ENV{_NTPOSTBLD}\\perinf\\$file") { push @convert, "$ENV{_NTPOSTBLD}\\perinf\\$file" }
}
close FILE;
for (@convert) {
if (-e "$ENV{TEMP}\\unicode.tmp") { unlink "$ENV{TEMP}\\unicode.tmp" }
my $cmd = "unitext -m -$lang_data{uc $ENV{LANG}}->{ACP} -z $_ $ENV{TEMP}\\unicode.tmp";
logmsg("Running $cmd");
system($cmd);
if ($?) {
wrnmsg("unitext conversion failed for $_");
}
else {
if (-e "$ENV{TEMP}\\unicode.tmp") { copy("$ENV{TEMP}\\unicode.tmp", "$_") }
}
}