mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-11-26 03:11:59 +00:00
Tool for comparing po-files. Interesting only for translators.
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@39226 a592a061-630c-0410-9148-cb99ea01b6c8
This commit is contained in:
Kornel Benko
parent
c774fd94ff
commit
e44de2f856
216
po/diff_po.pl
Executable file
216
po/diff_po.pl
Executable file
@ -0,0 +1,216 @@
|
|||||||
|
#! /usr/bin/env perl
|
||||||
|
|
||||||
|
# file diff_po.pl
|
||||||
|
# script to compare changes between translation files before merging them
|
||||||
|
#
|
||||||
|
# This file is free software; you can redistribute it and/or
|
||||||
|
# modify it under the terms of the GNU General Public
|
||||||
|
# License as published by the Free Software Foundation; either
|
||||||
|
# version 2 of the License, or (at your option) any later version.
|
||||||
|
#
|
||||||
|
# This software is distributed in the hope that it will be useful,
|
||||||
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||||
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||||
|
# General Public License for more details.
|
||||||
|
#
|
||||||
|
# You should have received a copy of the GNU General Public
|
||||||
|
# License along with this software; if not, write to the Free Software
|
||||||
|
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||||
|
#
|
||||||
|
# author: Kornel Benko, kornel@lyx.org
|
||||||
|
#
|
||||||
|
# TODO: Search for good correlations of deleted and inserted string
|
||||||
|
# using Text::Levenshtein or Algorithm::Diff
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
|
||||||
|
my ($status, $foundline, $msgid, $msgstr, $fuzzy);
|
||||||
|
|
||||||
|
my %Messages = (); # Used for original po-file
|
||||||
|
my %newMessages = (); # new po-file
|
||||||
|
my %Untranslated = (); # inside new po-file
|
||||||
|
my %Fuzzy = (); # inside new po-file
|
||||||
|
my $result = 0; # exit value
|
||||||
|
|
||||||
|
if (@ARGV != 2) {
|
||||||
|
die("Expected exactly 2 parameters");
|
||||||
|
}
|
||||||
|
|
||||||
|
&check("original", $ARGV[0]);
|
||||||
|
&check("new", $ARGV[1]);
|
||||||
|
|
||||||
|
&parse_po_file($ARGV[0], \%Messages);
|
||||||
|
&parse_po_file($ARGV[1], \%newMessages);
|
||||||
|
|
||||||
|
my @MsgKeys = &getLineSortedKeys(\%newMessages);
|
||||||
|
|
||||||
|
for my $k (@MsgKeys) {
|
||||||
|
if ($newMessages{$k}->{msgstr} eq "") {
|
||||||
|
# this is still untranslated string
|
||||||
|
$Untranslated{$newMessages{$k}->{line}} = $k;
|
||||||
|
}
|
||||||
|
elsif ($newMessages{$k}->{fuzzy}) {
|
||||||
|
#fuzzy string
|
||||||
|
$Fuzzy{$newMessages{$k}->{line}} = $k;
|
||||||
|
}
|
||||||
|
if (exists($Messages{$k})) {
|
||||||
|
&printIfDiff($k, $Messages{$k}, $newMessages{$k});
|
||||||
|
delete($Messages{$k});
|
||||||
|
delete($newMessages{$k});
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
@MsgKeys = &getLineSortedKeys(\%Messages);
|
||||||
|
for my $k (@MsgKeys) {
|
||||||
|
$result |= 8;
|
||||||
|
print "deleted message\n";
|
||||||
|
print "< line = " . $Messages{$k}->{line} . "\n";
|
||||||
|
print "< fuzzy = " . $Messages{$k}->{fuzzy} . "\n";
|
||||||
|
print "< msgid = \"$k\"\n";
|
||||||
|
print "< msgstr = \"" . $Messages{$k}->{msgstr} . "\"\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
@MsgKeys = &getLineSortedKeys(\%newMessages);
|
||||||
|
for my $k (@MsgKeys) {
|
||||||
|
$result |= 16;
|
||||||
|
print "new message\n";
|
||||||
|
print "> line = " . $newMessages{$k}->{line} . "\n";
|
||||||
|
print "> fuzzy = " . $newMessages{$k}->{fuzzy} . "\n";
|
||||||
|
print "> msgid = \"$k\"\n";
|
||||||
|
print "> msgstr = \"" . $newMessages{$k}->{msgstr} . "\"\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
&printExtraMessages("fuzzy", \%Fuzzy);
|
||||||
|
&printExtraMessages("untranslated", \%Untranslated);
|
||||||
|
|
||||||
|
exit($result);
|
||||||
|
|
||||||
|
sub check($$)
|
||||||
|
{
|
||||||
|
my ($spec, $filename) = @_;
|
||||||
|
|
||||||
|
if (! -e $filename ) {
|
||||||
|
die("$spec po file does not exist");
|
||||||
|
}
|
||||||
|
if ( ! -f $filename ) {
|
||||||
|
die("$spec po file is not regular");
|
||||||
|
}
|
||||||
|
if ( ! -r $filename ) {
|
||||||
|
die("$spec po file is not readable");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sub printDiff($$$$)
|
||||||
|
{
|
||||||
|
my ($k, $nk, $rM, $rnM) = @_;
|
||||||
|
print "diffline = " . $rM->{line} . "," . $rnM->{line} . "\n";
|
||||||
|
print " msgid = \"$k\"\n";
|
||||||
|
if ($rM->{fuzzy} eq $rnM->{fuzzy}) {
|
||||||
|
print " fuzzy = " . $rM->{fuzzy} . "\n";
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
print "< fuzzy = " . $rM->{fuzzy} . "\n";
|
||||||
|
}
|
||||||
|
print "< msgstr = " . $rM->{msgstr} . "\n";
|
||||||
|
if ($k ne $nk) {
|
||||||
|
print "> msgid = \"$nk\"\n";
|
||||||
|
}
|
||||||
|
if ($rM->{fuzzy} ne $rnM->{fuzzy}) {
|
||||||
|
print "> fuzzy = " . $rnM->{fuzzy} . "\n";
|
||||||
|
}
|
||||||
|
print "> msgstr = " . $rnM->{msgstr} . "\n";
|
||||||
|
print "\n";
|
||||||
|
}
|
||||||
|
|
||||||
|
sub printIfDiff($$$)
|
||||||
|
{
|
||||||
|
my ($k, $rM, $rnM) = @_;
|
||||||
|
my $doprint = 0;
|
||||||
|
$doprint = 1 if ($rM->{fuzzy} != $rnM->{fuzzy});
|
||||||
|
$doprint = 1 if ($rM->{msgstr} ne $rnM->{msgstr});
|
||||||
|
if ($doprint) {
|
||||||
|
$result |= 4;
|
||||||
|
&printDiff($k, $k, $rM, $rnM);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sub parse_po_file($$)
|
||||||
|
{
|
||||||
|
my ($file, $rMessages) = @_;
|
||||||
|
if (open(FI, '<', $file)) {
|
||||||
|
$status = "normal";
|
||||||
|
$fuzzy = 0;
|
||||||
|
my $lineno = 0;
|
||||||
|
while (my $line = <FI>) {
|
||||||
|
$lineno++;
|
||||||
|
&parse_po_line($line, $lineno, $rMessages);
|
||||||
|
}
|
||||||
|
&parse_po_line("", $lineno + 1, $rMessages);
|
||||||
|
close(FI);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sub parse_po_line($$$)
|
||||||
|
{
|
||||||
|
my ($line, $lineno, $rMessages) = @_;
|
||||||
|
chomp($line);
|
||||||
|
|
||||||
|
if ($status eq "normal") {
|
||||||
|
if ($line =~ /^#, fuzzy/) {
|
||||||
|
$fuzzy = 1;
|
||||||
|
}
|
||||||
|
elsif ($line =~ s/^msgid\s+//) {
|
||||||
|
$foundline = $lineno;
|
||||||
|
$status = "msgid";
|
||||||
|
$msgid = "";
|
||||||
|
&parse_po_line($line);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
elsif ($status eq "msgid") {
|
||||||
|
if ($line =~ /^\s*"(.*)"\s*/) {
|
||||||
|
$msgid .= $1;
|
||||||
|
}
|
||||||
|
elsif ($line =~ s/^msgstr\s+//) {
|
||||||
|
$status = "msgstr";
|
||||||
|
$msgstr = "";
|
||||||
|
&parse_po_line($line);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
elsif ($status eq "msgstr") {
|
||||||
|
if ($line =~ /^\s*"(.*)"\s*/) {
|
||||||
|
$msgstr .= $1;
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
if ($msgid ne "") {
|
||||||
|
$rMessages->{$msgid}->{line} = $foundline;
|
||||||
|
$rMessages->{$msgid}->{fuzzy} = $fuzzy;
|
||||||
|
$rMessages->{$msgid}->{msgstr} = $msgstr;
|
||||||
|
}
|
||||||
|
$fuzzy = 0;
|
||||||
|
$status = "normal";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
die("invalid status");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sub getLineSortedKeys($)
|
||||||
|
{
|
||||||
|
my ($rMessages) = @_;
|
||||||
|
|
||||||
|
return sort {$rMessages->{$a}->{line} <=> $rMessages->{$b}->{line};} keys %{$rMessages};
|
||||||
|
}
|
||||||
|
|
||||||
|
sub printExtraMessages($$)
|
||||||
|
{
|
||||||
|
my ($type, $rExtra) = @_;
|
||||||
|
my @UntranslatedKeys = sort { $a <=> $b;} keys %{$rExtra};
|
||||||
|
|
||||||
|
if (@UntranslatedKeys > 0) {
|
||||||
|
print "Still " . 0 + @UntranslatedKeys . " $type messages found in $ARGV[1]\n";
|
||||||
|
for my $l (@UntranslatedKeys) {
|
||||||
|
print "> line $l: \"" . $rExtra->{$l} . "\"\n";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue
Block a user