mirror of https://github.com/GNOME/gimp.git
51 lines
1.1 KiB
Perl
Executable File
51 lines
1.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# a lame attempt at xgettext for perl
|
|
# line line numbers, yet
|
|
|
|
# 5.005_02 in particular seems to have a BIG BUG
|
|
# resulting in an endless loop and a memory leak in the
|
|
# regex machinery :(
|
|
exit 0 unless ( $] >= 5.005_03 || $] <= 5.005 );
|
|
|
|
undef $/;
|
|
|
|
print <<'EOF';
|
|
# SOME DESCRIPTIVE TITLE.
|
|
# Copyright (C) YEAR Free Software Foundation, Inc.
|
|
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
|
|
#
|
|
#, fuzzy
|
|
msgid ""
|
|
msgstr ""
|
|
"Project-Id-Version: gimp-perl 1.14\n"
|
|
"POT-Creation-Date: 1999-09-12 17:58+0200\n"
|
|
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
|
|
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
|
|
"Language-Team: LANGUAGE <LL@li.org>\n"
|
|
"MIME-Version: 1.0\n"
|
|
"Content-Type: text/plain; charset=CHARSET\n"
|
|
"Content-Transfer-Encoding: ENCODING\n"
|
|
EOF
|
|
|
|
while(<>) {
|
|
while (/(?:N|_)_\(?"((?:[^"\\]+|\\.)*)"\)?/sg) {
|
|
my $s = $1;
|
|
my $e = "\n";
|
|
if ($s =~ /\n/) {
|
|
$e .= "msgid \"\"\n";
|
|
for (split /\n/, $s) {
|
|
$e .= "\"$_\\n\"\n";
|
|
}
|
|
} else {
|
|
$e .= "msgid \"$s\"\n";
|
|
}
|
|
$e .= "msgstr \"\"\n";
|
|
push @{$entry{$e}}, $fileposition;
|
|
}
|
|
}
|
|
|
|
print keys %entry;
|
|
|
|
|