summaryrefslogtreecommitdiff
path: root/devel/gettext
diff options
context:
space:
mode:
authorjmmv <jmmv@pkgsrc.org>2005-08-20 12:04:09 +0000
committerjmmv <jmmv@pkgsrc.org>2005-08-20 12:04:09 +0000
commit5774296b7abdb50dc9d7c39519c332b61ab12d5e (patch)
treedec41866383a4800320dac566a9c18f44f228965 /devel/gettext
parent756716bbec3ca1665c6762b7fa08c26514cd2901 (diff)
downloadpkgsrc-5774296b7abdb50dc9d7c39519c332b61ab12d5e.tar.gz
Fix the msgfmt.pl script to deal with messages with plurals whose strings
are identical (e.g., msgid == msgid_plural) by ignoring the duplicates. In fact, this is a rewrite of the script, since I couldn't understand the old one (ew). Also change the way we use it to only pull it in the build if the real msgfmt does not support plurals (i.e., it's older than 0.10.36). Fixes PR pkg/30596 and PR pkg/30938 (both related to epiphany). It also fixes the build of evolution-data-server and probably others.
Diffstat (limited to 'devel/gettext')
-rw-r--r--devel/gettext/files/msgfmt.pl118
1 files changed, 88 insertions, 30 deletions
diff --git a/devel/gettext/files/msgfmt.pl b/devel/gettext/files/msgfmt.pl
index 9b020fc337b..0d5149408cf 100644
--- a/devel/gettext/files/msgfmt.pl
+++ b/devel/gettext/files/msgfmt.pl
@@ -1,11 +1,11 @@
#!@PERL@
#
-# $NetBSD: msgfmt.pl,v 1.1 2004/04/01 18:33:20 jmmv Exp $
+# $NetBSD: msgfmt.pl,v 1.2 2005/08/20 12:04:09 jmmv Exp $
#
# msgfmt.pl - Workaround uses of msgid_plural to work with implementations
# that don't support it.
#
-# Copyright (c) 2004 Julio M. Merino Vidal <jmmv@NetBSD.org>
+# Copyright (c) 2004, 2005 Julio M. Merino Vidal <jmmv@NetBSD.org>
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
@@ -60,38 +60,96 @@ foreach (@ARGV) {
open INFILE, $file;
open OUTFILE, ">$file.tmp";
-$read_plural = 0;
-$skip = 0;
-@msgid_plural = ();
-
-printf "Fixing plural forms in $file\n";
+printf "Working-around plural forms in $file\n";
while (<INFILE>) {
- if (/^msgid_plural/) {
- $read_plural = 1;
- s/^msgid_plural[ \t]+"/"/;
- push @msgid_plural, $_;
- } elsif ($read_plural && /^msgstr\[0\]/) {
- $read_plural = 0;
- s/^msgstr\[0\]/msgstr/;
- print OUTFILE;
- } elsif ($read_plural) {
- push @msgid_plural, $_;
- } elsif (/^msgstr\[1\]/) {
- print OUTFILE "\n";
+ @msgid_singular = ();
+ @msgid_plural = ();
+
+ s/^#~//;
+
+ if (/^msgid[ \t]+(.*)$/) {
+ push @msgid_singular, "$1\n";
+ while (<INFILE>) {
+ if (/^[ \t]*"/) {
+ push @msgid_singular, $_;
+ } else {
+ last;
+ }
+ }
+ }
+
+ if (/^msgid_plural[ \t]+(.*)$/) {
+ push @msgid_plural, "$1\n";
+ while (<INFILE>) {
+ if (/^[ \t]*"/) {
+ push @msgid_plural, $_;
+ } else {
+ last;
+ }
+ }
+ }
+
+ if (/^msgstr[ \t]+(.*)$/) {
print OUTFILE "msgid ";
- foreach $line (@msgid_plural) {
- print OUTFILE "$line";
+ foreach $line (@msgid_singular) { print OUTFILE $line; }
+ print OUTFILE "msgstr $1\n";
+ while (<INFILE>) {
+ if (/^[ \t]*"/) {
+ print OUTFILE;
+ } else {
+ last;
+ }
}
- s/^msgstr\[1\]/msgstr/;
- print OUTFILE;
- @msgid_plural = ();
- } elsif (/^msgstr\[2\]/) {
- $skip = 1;
- } elsif (/^[ \t]*$/) {
- $skip = 0;
- print OUTFILE;
- } elsif (! $skip) {
+ }
+
+ if (/^msgstr\[0\][ \t]+(.*)$/) {
+ print OUTFILE "msgid ";
+ foreach $line (@msgid_singular) { print OUTFILE $line; }
+ print OUTFILE "msgstr $1\n";
+ while (<INFILE>) {
+ if (/^[ \t]*"/) {
+ print OUTFILE;
+ } else {
+ last;
+ }
+ }
+ }
+
+ if (/^msgstr\[1\][ \t]+(.*)$/) {
+ $equal = (@msgid_singular == @msgid_plural);
+ if ($equal) {
+ for ($i = 0; $i < @msgid_singular; $i++) {
+ if (@msgid_singular[$i] ne @msgid_plural[$i]) {
+ $equal = 0;
+ last;
+ }
+ }
+ }
+
+ if (! $equal) {
+ print OUTFILE "msgid ";
+ foreach $line (@msgid_plural) { print OUTFILE $line; }
+ print OUTFILE "msgstr $1\n";
+ while (<INFILE>) {
+ if (/^[ \t]*"/) {
+ print OUTFILE;
+ } else {
+ last;
+ }
+ }
+ } else {
+ while (<INFILE>) {
+ last if (! /^[ \t]*"/);
+ }
+ }
+ }
+
+ if (/^msgstr\[2\][ \t]+(.*)$/) {
+ }
+
+ if (/^#/ || /^[ \t]*$/) {
print OUTFILE;
+ next;
}
}