#!/usr/bin/perl
|
|
sub usage {
|
print STDERR "Usage: findunusedtranslations values/strings.xml\n";
|
print STDERR "\n";
|
print STDERR "Will read values/strings.xml and rewrite\n";
|
print STDERR "values-xx/strings.xml and values-xx-rYY/strings.xml\n";
|
print STDERR "files to remove strings that no longer appear in the\n";
|
print STDERR "base strings file.\n";
|
|
exit 1;
|
}
|
|
if ($#ARGV != 0) {
|
usage();
|
}
|
|
unless ($ARGV[0] =~ /^(.*)\/values([^\/]*)\/(.*\.xml)/) {
|
print STDERR "Bad format for $ARGV[0]\n";
|
usage();
|
}
|
|
unless (-f $ARGV[0]) {
|
print STDERR "$0: $ARGV[0]: No such file\n";
|
}
|
|
$prefix = $1;
|
$values = $2;
|
$suffix = $3;
|
|
if ($values =~ /^(-mcc[^-]*)*(-mnc[^-]*)*(.*)$/) {
|
$pattern1 = "$prefix/values$1$2-??$3/$suffix";
|
$pattern2 = "$prefix/values$1$2-??-r??$3/$suffix";
|
} else {
|
$pattern1 = "$prefix/values-??$values/$suffix";
|
$pattern2 = "$prefix/values-??-r??$values/$suffix";
|
}
|
|
@matches = (glob($pattern1), glob($pattern2));
|
|
open(IN, "<$ARGV[0]");
|
while (<IN>) {
|
if (/<string [^>]*name="([^"]*)"/) {
|
$string{$1} = 1;
|
}
|
if (/<string-array [^>]*name="([^"]*)"/) {
|
$stringarray{$1} = 1;
|
}
|
if (/<plurals [^>]*name="([^"]*)"/) {
|
$plurals{$1} = 1;
|
}
|
}
|
close(IN);
|
|
for $match (@matches) {
|
print "Rewriting $match\n";
|
$suppress = 0;
|
$text = "";
|
$changes = 0;
|
|
open(IN, "<$match");
|
while (<IN>) {
|
if (/<string [^>]*name="([^"]*)"/) {
|
if ($string{$1} == 0) {
|
$suppress = 1;
|
$changes = 1;
|
}
|
}
|
if (/<string-array [^>]*name="([^"]*)"/) {
|
if ($stringarray{$1} == 0) {
|
$suppress = 1;
|
$changes = 1;
|
}
|
}
|
if (/<plurals [^>]*name="([^"]*)"/) {
|
if ($plurals{$1} == 0) {
|
$suppress = 1;
|
$changes = 1;
|
}
|
}
|
|
$text .= $_ unless ($suppress);
|
|
if (/<\/string/) {
|
$suppress = 0;
|
}
|
if (/<\/string-array/) {
|
$suppress = 0;
|
}
|
if (/<\/plurals/) {
|
$suppress = 0;
|
}
|
}
|
close(IN);
|
|
if ($changes) {
|
open(OUT, ">$match");
|
print OUT $text;
|
close(OUT);
|
} else {
|
print "(no changes)\n";
|
}
|
}
|
