mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-12-23 13:31:49 +00:00
265 lines
7.5 KiB
Perl
Executable File
265 lines
7.5 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) 2010-2013 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
|
|
|
|
BEGIN {
|
|
use File::Spec;
|
|
my $p = File::Spec->rel2abs( __FILE__ );
|
|
$p =~ s/[\/\\]?diff_po\.pl$//;
|
|
unshift(@INC, "$p");
|
|
}
|
|
|
|
use strict;
|
|
use parsePoLine;
|
|
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 = 1;
|
|
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);
|
|
$tmpfile->seek( 0, SEEK_END ); # Flush()
|
|
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 (0) {
|
|
@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 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";
|
|
}
|
|
}
|
|
}
|