source: git/lib/launchpad-merge-po @ f2826cd

RELEASE/1.2debug-cidebug-ci-sanitisersfaster-cavernloglog-selectstereostereo-2025walls-datawalls-data-hanging-as-warningwarn-only-for-hanging-survey
Last change on this file since f2826cd was f2826cd, checked in by Olly Betts <olly@…>, 8 years ago

Use a pipeline when merging a launchpad po to diff
  • Property mode set to 100755
File size: 1.6 KB
RevLine 
[bb51ecd]1#!/usr/bin/perl -w
2use strict;
3
4open O, '<', $ARGV[0] or die $!;
[f2826cd]5if ($ARGV[1] eq '-') {
6    *N = *STDIN;
7} else {
8    open N, '<', $ARGV[1] or die $!;
9}
[bb51ecd]10
11my $fuzzy = 0;
12my $diff = 0;
13my ($o, $n);
14while (1) {
15    $o //= <O>;
16    $n //= <N>;
[e4ff92f4]17    defined $o and $o =~ s/[ \t]+$//;
18    defined $n and $n =~ s/[ \t]+$//;
[bb51ecd]19    if (!defined $n) {
20        last unless defined $o;
21        print '-' if $diff;
22        print $o;
23        $o = undef;
24        next;
25    }
26    if (!defined $o) {
27        print '+' if $diff;
28        print $n;
29        $n = undef;
30        next;
31    }
32
[e4ff92f4]33    if ($o eq "\n" || $n eq "\n") {
[bb51ecd]34        $fuzzy = 0;
35    }
36
37    if ($o eq $n) {
38        print ' ' if $diff;
39        print $n;
40        $n = $o = undef;
41        next;
42    }
43
44    if ($o eq "#~ $n") {
45        print ' ' if $diff;
46        print $o;
47        $n = $o = undef;
48        next;
49    }
50
51    if ($o =~ /^("PO(?:-Revision|T-Creation)-Date: \d+-\d+-\d+ \d+:\d+):\d\d (.*\n)$/ &&
52        $n eq "$1:00 $2") {
53        print ' ' if $diff;
54        print $o;
55        $n = $o = undef;
56        next;
57    }
58
59    if ($o =~ /^"PO-Revision-Date:/ && $n =~ /^"PO-Revision-Date:/) {
60        print ' ' if $diff;
61        print $o;
62        $n = $o = undef;
63        next;
64    }
65
[e4ff92f4]66    if ($o eq "\n") {
67        print '+' if $diff;
68        print $n;
69        $n = undef;
70        next;
71    }
72
73    if ($n eq "\n") {
74        print '-$o' if $diff;
75        $o = undef;
76        next;
77    }
78
[bb51ecd]79    if ($o eq "#, fuzzy\n") {
80        print ' ' if $diff;
81        print $o;
82        $o = undef;
83        $fuzzy = 1;
84        next;
85    }
86
87    my $tmp = $o;
88    if ($tmp =~ s/, fuzzy// && $n eq $tmp) {
89        print ' ' if $diff;
90        print $o;
91        $n = $o = undef;
92        $fuzzy = 1;
93        next;
94    }
95
96    if ($fuzzy && $o =~ /^(?:#~ )?msgstr / && $n eq "msgstr \"\"\n") {
97        print ' ' if $diff;
98        print $o;
99        $n = $o = undef;
100        $fuzzy = 0;
101        next;
102    }
103
104    print "-$o" if $diff;
105    print '+' if $diff;
106    print $n;
107    $n = $o = undef;
108}
Note: See TracBrowser for help on using the repository browser.