mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-12-11 16:31:09 +00:00
e2997ca1b8
printed next to each other. To test, try e.g.
"diff_po.pl -r39000:39100 sk.po"
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@39246 a592a061-630c-0410-9148-cb99ea01b6c8
324 lines
8.6 KiB
Perl
Executable File
324 lines
8.6 KiB
Perl
Executable File
#! /usr/bin/env perl
|
|
|
|
# file diff_po.pl
|
|
# script to compare changes between translation files before merging them
|
|
#
|
|
# Examples of usage:
|
|
# ./diff_po.pl cs.po.old cs.po
|
|
# svn diff -r38367 --diff-cmd ./diff_po.pl cs.po
|
|
# git difftool --extcmd=./diff_po.pl sk.po
|
|
# ./diff_po.pl -r HEAD~100 cs.po #fetch git revision and compare
|
|
# ./diff_po.pl -r39229 cs.po #fetch svn revision and compare
|
|
#
|
|
# 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
|
|
#
|
|
# Copyright (c) 1010-2011 Kornel Benko, kornel@lyx.org
|
|
#
|
|
# TODO:
|
|
# 1.) Check for ".git" or ".svn" to decide about revisioning
|
|
# 2.) Search for good correlations of deleted <==> inserted string
|
|
# using Text::Levenshtein or Algorithm::Diff
|
|
|
|
use strict;
|
|
use Term::ANSIColor qw(:constants);
|
|
use File::Temp;
|
|
|
|
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
|
|
my $printlines = 0;
|
|
my @names = ();
|
|
|
|
# Check first, if called as standalone program for git
|
|
if ($ARGV[0] =~ /^-r(.*)/) {
|
|
my $rev = $1;
|
|
shift(@ARGV);
|
|
if ($rev eq "") {
|
|
$rev = shift(@ARGV);
|
|
}
|
|
for my $argf (@ARGV) {
|
|
my $baseargf;
|
|
my $filedir;
|
|
if ($argf =~ /^(.*)\/([^\/]+)$/) {
|
|
$baseargf = $2;
|
|
$filedir = $1;
|
|
}
|
|
else {
|
|
$baseargf = $argf;
|
|
$filedir = ".";
|
|
}
|
|
if (-d "$filedir/../.git") {
|
|
my @args = ();
|
|
my $tmpfile = File::Temp->new();
|
|
push(@args, "-L", $argf . " (" . $rev . ")");
|
|
push(@args, "-L", $argf . " (local copy)");
|
|
open(FI, "git show $rev:po/$baseargf|");
|
|
$tmpfile->unlink_on_destroy( 1 );
|
|
while(my $l = <FI>) {
|
|
print $tmpfile $l;
|
|
}
|
|
close(FI);
|
|
push(@args, $tmpfile->filename, $argf);
|
|
print "===================================================================\n";
|
|
&diff_po(@args);
|
|
}
|
|
elsif (-d "$filedir/.svn") {
|
|
# call it again indirectly
|
|
my @cmd = ("svn", "diff", "-r$rev", "--diff-cmd", $0, $argf);
|
|
print "cmd = " . join(' ', @cmd) . "\n";
|
|
system(@cmd);
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
&diff_po(@ARGV);
|
|
}
|
|
|
|
exit($result);
|
|
#########################################################
|
|
|
|
sub diff_po($$)
|
|
{
|
|
my @args = @_;
|
|
%Messages = ();
|
|
%newMessages = ();
|
|
%Untranslated = ();
|
|
%Fuzzy = ();
|
|
@names = ();
|
|
while(defined($args[0])) {
|
|
last if ($args[0] !~ /^\-/);
|
|
my $param = shift(@args);
|
|
if ($param eq "-L") {
|
|
my $name = shift(@args);
|
|
push(@names, $name);
|
|
}
|
|
}
|
|
if (! defined($names[0])) {
|
|
push(@names, "original");
|
|
}
|
|
if (! defined($names[1])) {
|
|
push(@names, "new");
|
|
}
|
|
|
|
if (@args != 2) {
|
|
die("names = \"", join('" "', @names) . "\"... args = \"" . join('" "', @args) . "\" Expected exactly 2 parameters");
|
|
}
|
|
|
|
&check($names[0], $args[0]);
|
|
&check($names[1], $args[1]);
|
|
|
|
&parse_po_file($args[0], \%Messages);
|
|
&parse_po_file($args[1], \%newMessages);
|
|
|
|
my @MsgKeys = &getLineSortedKeys(\%newMessages);
|
|
|
|
print RED "<<< \"$names[0]\"\n", RESET;
|
|
print GREEN ">>> \"$names[1]\"\n", RESET;
|
|
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});
|
|
}
|
|
}
|
|
|
|
if (1) {
|
|
@MsgKeys = sort keys %Messages, keys %newMessages;
|
|
for my $k (@MsgKeys) {
|
|
if (defined($Messages{$k})) {
|
|
$result |= 8;
|
|
print "deleted message\n";
|
|
print "< line = " . $Messages{$k}->{line} . "\n" if ($printlines);
|
|
print RED "< fuzzy = " . $Messages{$k}->{fuzzy} . "\n", RESET;
|
|
print RED "< msgid = \"$k\"\n", RESET;
|
|
print RED "< msgstr = \"" . $Messages{$k}->{msgstr} . "\"\n", RESET;
|
|
}
|
|
if (defined($newMessages{$k})) {
|
|
$result |= 16;
|
|
print "new message\n";
|
|
print "> line = " . $newMessages{$k}->{line} . "\n" if ($printlines);
|
|
print GREEN "> fuzzy = " . $newMessages{$k}->{fuzzy} . "\n", RESET;
|
|
print GREEN "> msgid = \"$k\"\n", RESET;
|
|
print GREEN "> msgstr = \"" . $newMessages{$k}->{msgstr} . "\"\n", RESET;
|
|
}
|
|
}
|
|
}
|
|
else {
|
|
@MsgKeys = &getLineSortedKeys(\%Messages);
|
|
for my $k (@MsgKeys) {
|
|
$result |= 8;
|
|
print "deleted message\n";
|
|
print "< line = " . $Messages{$k}->{line} . "\n" if ($printlines);
|
|
print RED "< fuzzy = " . $Messages{$k}->{fuzzy} . "\n", RESET;
|
|
print RED "< msgid = \"$k\"\n", RESET;
|
|
print RED "< msgstr = \"" . $Messages{$k}->{msgstr} . "\"\n", RESET;
|
|
}
|
|
|
|
@MsgKeys = &getLineSortedKeys(\%newMessages);
|
|
for my $k (@MsgKeys) {
|
|
$result |= 16;
|
|
print "new message\n";
|
|
print "> line = " . $newMessages{$k}->{line} . "\n" if ($printlines);
|
|
print GREEN "> fuzzy = " . $newMessages{$k}->{fuzzy} . "\n", RESET;
|
|
print GREEN "> msgid = \"$k\"\n", RESET;
|
|
print GREEN "> msgstr = \"" . $newMessages{$k}->{msgstr} . "\"\n", RESET;
|
|
}
|
|
}
|
|
&printExtraMessages("fuzzy", \%Fuzzy);
|
|
&printExtraMessages("untranslated", \%Untranslated);
|
|
}
|
|
|
|
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" if ($printlines);
|
|
print " msgid = \"$k\"\n";
|
|
if ($rM->{fuzzy} eq $rnM->{fuzzy}) {
|
|
print " fuzzy = " . $rM->{fuzzy} . "\n" if ($printlines);
|
|
}
|
|
else {
|
|
print RED "< fuzzy = " . $rM->{fuzzy} . "\n", RESET;
|
|
}
|
|
print RED "< msgstr = " . $rM->{msgstr} . "\n", RESET;
|
|
if ($k ne $nk) {
|
|
print GREEN "> msgid = \"$nk\"\n", RESET;
|
|
}
|
|
if ($rM->{fuzzy} ne $rnM->{fuzzy}) {
|
|
print GREEN "> fuzzy = " . $rnM->{fuzzy} . "\n", RESET;
|
|
}
|
|
print GREEN "> msgstr = " . $rnM->{msgstr} . "\n", RESET;
|
|
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";
|
|
}
|
|
}
|
|
}
|