SVN: rc-scripts/trunk: makepot.pl po/Makefile.am po/makepot.pl
glen
glen at pld-linux.org
Sun Aug 14 13:41:12 CEST 2011
Author: glen
Date: Sun Aug 14 13:41:12 2011
New Revision: 12316
Added:
rc-scripts/trunk/po/makepot.pl
- copied, changed from rev 12309, rc-scripts/trunk/makepot.pl
Removed:
rc-scripts/trunk/makepot.pl
Modified:
rc-scripts/trunk/po/Makefile.am
Log:
move makepot to po/ dir with rest of it's files
Modified: rc-scripts/trunk/po/Makefile.am
==============================================================================
--- rc-scripts/trunk/po/Makefile.am (original)
+++ rc-scripts/trunk/po/Makefile.am Sun Aug 14 13:41:12 2011
@@ -5,7 +5,7 @@
POTSRC = @POTSRC@
-makepot = $(top_srcdir)/makepot.pl
+makepot = $(top_srcdir)/po/makepot.pl
CATOBJEXT = .gmo
INSTOBJEXT = .mo
Copied: rc-scripts/trunk/po/makepot.pl (from rev 12309, rc-scripts/trunk/makepot.pl)
==============================================================================
--- rc-scripts/trunk/makepot.pl (original)
+++ rc-scripts/trunk/po/makepot.pl Sun Aug 14 13:41:12 2011
@@ -9,19 +9,19 @@
# Changes:
# 2000-08-25 Arkadiusz Miskiewicz <misiek at pld-linux.org>
# - support for $(nls "xyz"), progress "xyz" and '' instead of "".
-#
+#
my %pot;
sub potentry {
my( $msg, $lnr, $filename ) = @_;
-#print STDERR "msg = $msg\nlnr = $lnr\nfilename = $filename\n";
+#print STDERR "msg = $msg\nlnr = $lnr\nfilename = $filename\n";
if (defined $pot{"$msg"}) {
$pot{"$msg"} = $pot{"$msg"} . "\n#: $filename:$lnr";
-#print STDERR "append $msg\n";
+#print STDERR "append $msg\n";
} else {
$pot{"$msg"} = "\n#: $filename:$lnr";
-#print STDERR "new $msg\n";
+#print STDERR "new $msg\n";
};
};
@@ -29,7 +29,7 @@
if (1) {
print <<EOF ;
-# Polish translation of rc-scripts.
+# translation of rc-scripts.
#
msgid \"\"
msgstr \"\"
@@ -55,7 +55,7 @@
for (my $a = 0; $a <= $#ARGV; $a++) {
my $lnr = 0;
my $filename = $ARGV[$a];
- print STDERR " " .$filename . "\n";
+ print STDERR " " .$filename . "\n";
open (POTSRC, "< " . $filename) || die "Can't open " . $filename;
foreach (<POTSRC>) {
chop;
@@ -76,13 +76,9 @@
};
close (POTSRC);
-
+
};
foreach $key (keys %pot) {
print $pot{"$key"} . "\nmsgid \"$key\"\nmsgstr \"\"\n";
};
-
-
-
-
More information about the pld-cvs-commit
mailing list