[Po4a-devel][CVS] po4a Build.PL,1.8,1.9
by Martin Quinson
Update of /cvsroot/po4a/po4a
In directory haydn:/tmp/cvs-serv26842
Modified Files:
Build.PL
Log Message:
Do not try to update the emacs autosaves
Index: Build.PL
===================================================================
RCS file: /cvsroot/po4a/po4a/Build.PL,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Build.PL 30 Jul 2004 12:52:01 -0000 1.8
+++ Build.PL 7 Aug 2004 04:53:33 -0000 1.9
@@ -53,6 +53,7 @@
# update languages
@files = @{$self->rscan_dir('po/bin',qr{\.po$})};
foreach (@files) {
+ next if m|/.#|;
$_ =~ /.*\/(.*)\.po$/;
my $lang = $1;
20 years, 3 months
[Po4a-devel][CVS] po4a/lib/Locale/Po4a Dia.pm,1.3,1.4 Man.pm,1.21,1.22 Po.pm,1.18,1.19 Sgml.pm,1.30,1.31 Xml.pm,1.11,1.12
by Martin Quinson
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv26491
Modified Files:
Dia.pm Man.pm Po.pm Sgml.pm Xml.pm
Log Message:
Try to share strings to translate between modules by moving the module name out of the part to translate (sorry for the fuzzy).
Index: Sgml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- Sgml.pm 7 Aug 2004 03:02:06 -0000 1.30
+++ Sgml.pm 7 Aug 2004 04:51:33 -0000 1.31
@@ -168,10 +168,7 @@
eval qq{use SGMLS};
if ($@) {
- die gettext(
- "po4a::sgml: The needed module SGMLS.pm was not found and needs to be\n".
- "po4a::sgml: installed. It can be found on the CPAN, in package\n".
- "po4a::sgml: libsgmls-perl on debian, etc.")."\n";
+ die "po4a::sgml: ".gettext("The needed module SGMLS.pm was not found and needs to be installed. It can be found on the CPAN, in package libsgmls-perl on debian, etc.")."\n";
}
use File::Temp;
@@ -203,7 +200,7 @@
foreach my $opt (keys %options) {
if ($options{$opt}) {
- die sprintf(gettext ("po4a::sgml: Unknown option: %s"), $opt)."\n" unless exists $self->{options}{$opt};
+ die sprintf("po4a::sgml: ".gettext ("Unknown option: %s"), $opt)."\n" unless exists $self->{options}{$opt};
$self->{options}{$opt} = $options{$opt};
}
}
@@ -237,14 +234,14 @@
# don't translate entries composed of one entity
if ( (($string =~ /^&[^;]*;$/) || ($options{'wrap'} && $string =~ /^\s*&[^;]*;\s*$/))
&& !($self->{options}{'include-all'}) ){
- warn sprintf(gettext("po4a::sgml: msgid skipped to help translators (contains only an entity)"), $string)."\n"
+ warn sprintf("po4a::sgml: ".gettext("msgid skipped to help translators (contains only an entity)"), $string)."\n"
unless $self->verbose() <= 0;
return $string;
}
# don't translate entries composed of tags only
if ( $string =~ /^(((<[^>]*>)|\s)*)$/
&& !($self->{options}{'include-all'}) ) {
- warn sprintf(gettext("po4a::sgml: msgid skipped to help translators (contains only tags)"), $string)."\n"
+ warn sprintf("po4a::sgml: ".gettext("msgid skipped to help translators (contains only tags)"), $string)."\n"
unless $self->verbose() <= 0;
return $string;
}
@@ -293,13 +290,12 @@
while (<IN>) {
$origfile .= $_;
}
- close IN || die sprintf(gettext("po4a::sgml: can't close %s: %s"),$filename,$!)."\n";
+ close IN || die sprintf("po4a::sgml: ".gettext("can't close %s: %s"),$filename,$!)."\n";
# Detect the XML pre-prolog
if ($origfile =~ s/^(\s*<\?xml[^?]*\?>)//) {
warn sprintf(gettext(
"po4a::sgml: Trying to handle a XML document as a SGML one.\n".
- "po4a::sgml: Feel lucky if it works, help us implementing a proper XML\n".
- "po4a::sgml: backend if it does not."),$filename)."\n"
+ "po4a::sgml: Feel lucky if it works, help us implementing a proper XML backend if it does not."),$filename)."\n"
unless $self->verbose() <= 0;
$xmlprolog=$1;
}
@@ -410,11 +406,11 @@
} else {
if ($self->{options}{'force'}) {
- warn gettext("po4a::sgml: DTD of this file is unknown, but proceeding as requested.")."\n";
+ warn "po4a::sgml: ".gettext("DTD of this file is unknown, but proceeding as requested.")."\n";
$self->set_tags_kind();
} else {
- die sprintf(gettext(
- "po4a::sgml: DTD of this file is unknown. (supported: debiandoc, docbook).\n".
+ die sprintf("po4a::sgml: ".gettext(
+ "DTD of this file is unknown. (supported: debiandoc, docbook).\n".
"The prolog follows:\n%s"),
$filename,$prolog)."\n";
}
@@ -573,7 +569,7 @@
my $type;
if ($event->type eq 'start_element') {
- die sprintf(gettext("po4a::Sgml: %s: Unknown tag %s"),
+ die sprintf("po4a::sgml: ".gettext("%s: Unknown tag %s"),
$refs[$parse->line],$event->data->name)."\n"
unless $exist{$event->data->name};
Index: Xml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Xml.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- Xml.pm 7 Aug 2004 04:36:21 -0000 1.11
+++ Xml.pm 7 Aug 2004 04:51:33 -0000 1.12
@@ -189,7 +189,7 @@
foreach my $opt (keys %options) {
if ($options{$opt}) {
- die sprintf(dgettext ("po4a","po4a::xml: Unknown option: %s"), $opt)."\n" unless exists $self->{options}{$opt};
+ die sprintf("po4a::xml: ".dgettext ("po4a","Unknown option: %s"), $opt)."\n" unless exists $self->{options}{$opt};
$self->{options}{$opt} = $options{$opt};
}
}
@@ -266,7 +266,7 @@
} elsif ($options->{'type'} eq "attribute") {
$comment = "Attribute '".$options->{'attribute'}."' of: ".$self->get_path;
} else {
- die dgettext("po4a","po4a::xml: Internal error: unknown type identifier.")."\n";
+ die "po4a::xml: ".dgettext("po4a","Internal error: unknown type identifier.")."\n";
}
$text = $self->translate($text,$ref,$comment,'wrap'=>$wrap);
@@ -321,9 +321,9 @@
=cut
-##### Generic XML tag types #####
+##### Generic XML tag types #####'
-my @tag_types = (
+my @tag_types = (
{ beginning => "!--",
end => "--",
breaking => 1,
@@ -398,7 +398,7 @@
if (defined $self->{options}{'doctype'} ) {
my $doctype = $self->{options}{'doctype'};
if ( $tag[0] !~ /\Q$doctype\E/i ) {
- die sprintf(dgettext("po4a","po4a::xml: Bad document type. '%s' expected."),$doctype)."\n";
+ die "po4a::xml: ".sprintf(dgettext("po4a","Bad document type. '%s' expected."),$doctype)."\n";
}
}
my $i = 0;
@@ -448,7 +448,7 @@
my $test = pop @path;
if ( $test ne $name ) {
- die dgettext("po4a","po4a::xml: Unexpected closing tag. The main document may be wrong.")."\n";
+ die "po4a::xml: ".dgettext("po4a","Unexpected closing tag. The main document may be wrong.")."\n";
}
return $self->join_lines(@tag);
}
@@ -770,7 +770,7 @@
$text .= $self->found_string($value, $ref, { type=>"attribute", attribute=>$name });
} else {
$text .= $value;
- print sprintf(dgettext ("po4a","po4a::xml: Contents of attribute %s excluded: %s"),$self->get_path.$name,$value)."\n"
+ print sprintf("po4a::xml: ".dgettext ("po4a","Contents of attribute %s excluded: %s"),$self->get_path.$name,$value)."\n"
if $self->debug();
}
$text .= $quot;
@@ -778,7 +778,7 @@
}
}
- die sprintf(dgettext ("po4a","po4a::xml: Bad attribute syntax at %s"),$ref)."\n";
+ die sprintf("po4a::xml: ".dgettext ("po4a","Bad attribute syntax at %s"),$ref)."\n";
unless ($complete);
}
}
@@ -871,7 +871,7 @@
}));
} else {
# Inform that this tag isn't translated in debug mode
- print sprintf(dgettext ("po4a","po4a::xml: Contents of tag %s excluded: %s"), $self->get_path,$self->join_lines(@paragraph))."\n"
+ print sprintf("po4a::xml: ".dgettext ("po4a","Contents of tag %s excluded: %s"), $self->get_path,$self->join_lines(@paragraph))."\n"
if $self->debug();
$self->pushline($self->join_lines(@paragraph));
}
Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- Po.pm 7 Aug 2004 02:15:07 -0000 1.18
+++ Po.pm 7 Aug 2004 04:51:33 -0000 1.19
@@ -142,14 +142,14 @@
sub read{
my $self=shift;
my $filename=shift
- || croak (dgettext("po4a","po4a::po: Please provide a non-nul filename")."\n");
+ || croak ("po4a::po: ".dgettext("po4a","Please provide a non-nul filename")."\n");
my $fh;
if ($filename eq '-') {
$fh=*STDIN;
} else {
open $fh,"<$filename"
- || croak (sprintf(dgettext("po4a","Can't read from %s: %s"),$filename,$!)."\n");
+ || croak ("po4a::po: ".sprintf(dgettext("po4a","Can't read from %s: %s"),$filename,$!)."\n");
}
## Read paragraphs line-by-line
Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- Man.pm 30 Jul 2004 00:17:41 -0000 1.21
+++ Man.pm 7 Aug 2004 04:51:33 -0000 1.22
@@ -375,7 +375,7 @@
$done .= $first if ($lvl > 0);
$rest=substr($rest,1);
}
- die sprintf(gettext("po4a::man: %s: Unbalanced '<' and '>' in '%s'"),$ref||$self->{ref},$transstr)."\n"
+ die sprintf("po4a::man: %s: ".gettext("Unbalanced '<' and '>' in '%s'"),$ref||$self->{ref},$transstr)."\n"
if ($lvl > 0);
$done .= "\\fR$rest";
$str=$done;
@@ -463,13 +463,13 @@
}
$self->{ref}="$ref";
# print STDERR "LINE=$line<<\n";
- die sprintf(gettext("po4a::man: %s: Escape sequence \\c encountered. This is not handled yet.")
+ die sprintf("po4a::man: %s: ".gettext("Escape sequence \\c encountered. This is not handled yet.")
,$ref)."\n"
if ($line =~ /\\c/);
if ($line =~ /^\./) {
- die sprintf(gettext("po4a::man: Unparsable line: %s"),$line)."\n"
+ die sprintf("po4a::man: ".gettext("Unparsable line: %s"),$line)."\n"
unless ($line =~ /^\.+\\*?(\\\")(.*)/ ||
$line =~ /^\.([BI])(\W.*)/ ||
$line =~ /^\.(\S*)(.*)/);
@@ -650,9 +650,8 @@
# Special case:
# .Dd => Indicates that this is a mdoc page
if ($macro eq 'Dd') {
- die gettext(
- "po4a::man: This page seems to be a mdoc(7) formated one.\n".
- "po4a::man: This is not supported (yet).")."\n";
+ die "po4a::man: ".gettext(
+ "This page seems to be a mdoc(7) formated one. This is not supported (yet).")."\n";
}
unshift @args,$self;
@@ -884,9 +883,7 @@
$macro{'ad'}=\&untranslated;
# .de macro Define or redefine macro until .. is encountered.
$macro{'de'}=sub {
- die gettext(
- "po4a::man: This page defines a new macro with '.de'. Since po4a is not a\n".
- "po4a::man: real groff parser, this is not supported.")."\n";
+ die "po4a::man: ".gettext("This page defines a new macro with '.de'. Since po4a is not a real groff parser, this is not supported.")."\n";
};
# .ds stringvar anything
# Set stringvar to anything.
@@ -909,9 +906,9 @@
# .ie cond anything If cond then anything else goto .el.
# .if cond anything If cond then anything; otherwise do nothing.
$macro{'ie'}=$macro{'if'}=sub {
- die sprintf(gettext(
- "po4a::man: This page uses conditionals with '%s'. Since po4a is not a real\n".
- "po4a::man: groff parser, this is not supported.",$_[1]))."\n";
+ die sprintf("po4a::man: ".
+ gettext("This page uses conditionals with '%s'. Since po4a is not a real groff parser, this is not supported.",
+ $_[1]))."\n";
};
# .in N Change indent according to N (default scaling indicator m).
$macro{'in'}=\&untranslated;
Index: Dia.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Dia.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Dia.pm 30 Jul 2004 00:17:41 -0000 1.3
+++ Dia.pm 7 Aug 2004 04:51:33 -0000 1.4
@@ -141,7 +141,7 @@
} else {
#Dia's default is UTF-8
$charset_dia = 'UTF-8';
- warn gettext("po4a::dia: Couldn't find file encoding. Assuming UTF-8.")."\n";
+ warn "po4a::dia: ".dgettext("po4a","Couldn't find file encoding. Assuming UTF-8.")."\n";
}
#how to get command line options to override it?
$charset_po = 'ISO-8859-1';
20 years, 3 months
[Po4a-devel][CVS] po4a/lib/Locale/Po4a Xml.pm,1.10,1.11
by Martin Quinson
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv5774
Modified Files:
Xml.pm
Log Message:
Cosmetics (sorry)
Index: Xml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Xml.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- Xml.pm 7 Aug 2004 04:34:11 -0000 1.10
+++ Xml.pm 7 Aug 2004 04:36:21 -0000 1.11
@@ -777,7 +777,9 @@
}
}
}
- if (!$complete) { die sprintf(dgettext ("po4a","po4a::xml: Bad attribute syntax at %s"),$ref)."\n"; }
+
+ die sprintf(dgettext ("po4a","po4a::xml: Bad attribute syntax at %s"),$ref)."\n";
+ unless ($complete);
}
}
return $text;
20 years, 3 months
[Po4a-devel][CVS] po4a/lib/Locale/Po4a Xml.pm,1.9,1.10
by Martin Quinson
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv21323
Modified Files:
Xml.pm
Log Message:
Clarify a message (IMHO)
Index: Xml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Xml.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- Xml.pm 5 Aug 2004 00:12:06 -0000 1.9
+++ Xml.pm 7 Aug 2004 04:34:11 -0000 1.10
@@ -266,7 +266,7 @@
} elsif ($options->{'type'} eq "attribute") {
$comment = "Attribute '".$options->{'attribute'}."' of: ".$self->get_path;
} else {
- die dgettext("po4a","po4a::xml: Internal error: unknown string type.")."\n";
+ die dgettext("po4a","po4a::xml: Internal error: unknown type identifier.")."\n";
}
$text = $self->translate($text,$ref,$comment,'wrap'=>$wrap);
20 years, 3 months
[Po4a-devel][CVS] po4a/po/bin po4a.pot,1.26,1.27
by Martin Quinson
Update of /cvsroot/po4a/po4a/po/bin
In directory haydn:/tmp/cvs-serv20958/po/bin
Modified Files:
po4a.pot
Log Message:
Automatic update
Index: po4a.pot
===================================================================
RCS file: /cvsroot/po4a/po4a/po/bin/po4a.pot,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- po4a.pot 2 Aug 2004 14:40:58 -0000 1.26
+++ po4a.pot 7 Aug 2004 04:31:28 -0000 1.27
@@ -8,7 +8,7 @@
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
"Report-Msgid-Bugs-To: \n"
-"POT-Creation-Date: 2004-08-02 16:39+0200\n"
+"POT-Creation-Date: 2004-08-06 21:28-0700\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL(a)li.org>\n"
@@ -163,31 +163,31 @@
"po4a::man: groff parser, this is not supported."
msgstr ""
-#: ../../lib/Locale/Po4a/Po.pm:144
+#: ../../lib/Locale/Po4a/Po.pm:145
msgid "po4a::po: Please provide a non-nul filename"
msgstr ""
-#: ../../lib/Locale/Po4a/Po.pm:151 ../../lib/Locale/Po4a/TransTractor.pm:341
-#: ../../lib/Locale/Po4a/TransTractor.pm:454
+#: ../../lib/Locale/Po4a/Po.pm:152 ../../lib/Locale/Po4a/TransTractor.pm:346
+#: ../../lib/Locale/Po4a/TransTractor.pm:475
#, perl-format
msgid "Can't read from %s: %s"
msgstr ""
-#: ../../lib/Locale/Po4a/Po.pm:190
+#: ../../lib/Locale/Po4a/Po.pm:191
#, perl-format
msgid "Strange line at line %s: -->%s<--"
msgstr ""
-#: ../../lib/Locale/Po4a/Po.pm:215 ../../lib/Locale/Po4a/TransTractor.pm:362
+#: ../../lib/Locale/Po4a/Po.pm:216 ../../lib/Locale/Po4a/TransTractor.pm:376
msgid "Can't write to a file without filename"
msgstr ""
-#: ../../lib/Locale/Po4a/Po.pm:222
+#: ../../lib/Locale/Po4a/Po.pm:230
#, perl-format
msgid "Can't write to %s: %s"
msgstr ""
-#: ../../lib/Locale/Po4a/Po.pm:282
+#: ../../lib/Locale/Po4a/Po.pm:290
#, perl-format
msgid ""
"po4a gettextize: Original have more strings that the translation (%d>%d).\n"
@@ -195,7 +195,7 @@
"dummy entry."
msgstr ""
-#: ../../lib/Locale/Po4a/Po.pm:287
+#: ../../lib/Locale/Po4a/Po.pm:295
#, perl-format
msgid ""
"po4a gettextize: Original have less strings that the translation (%d<%d).\n"
@@ -208,7 +208,7 @@
"and you're fine."
msgstr ""
-#: ../../lib/Locale/Po4a/Po.pm:323
+#: ../../lib/Locale/Po4a/Po.pm:331
#, perl-format
msgid ""
"po4a gettextization: Structure disparity between original and translated "
@@ -220,17 +220,17 @@
"(result so far dumped to /tmp/gettextization.failed.po)"
msgstr ""
-#: ../../lib/Locale/Po4a/Po.pm:518
+#: ../../lib/Locale/Po4a/Po.pm:526
#, perl-format
msgid "Eval failure: %s"
msgstr ""
-#: ../../lib/Locale/Po4a/Po.pm:796
+#: ../../lib/Locale/Po4a/Po.pm:804
#, perl-format
msgid "msgid defined twice: %s"
msgstr ""
-#: ../../lib/Locale/Po4a/Po.pm:808
+#: ../../lib/Locale/Po4a/Po.pm:816
#, perl-format
msgid ""
"Translations don't match for:\n"
@@ -320,126 +320,141 @@
msgid "po4a::Sgml: %s: Unknown tag %s"
msgstr ""
-#: ../../lib/Locale/Po4a/Sgml.pm:641 ../../lib/Locale/Po4a/Sgml.pm:688
+#: ../../lib/Locale/Po4a/Sgml.pm:641 ../../lib/Locale/Po4a/Sgml.pm:690
#, perl-format
msgid "Closing tag for a translation container missing before %s, at %s"
msgstr ""
-#: ../../lib/Locale/Po4a/Sgml.pm:742
+#: ../../lib/Locale/Po4a/Sgml.pm:746
#, perl-format
msgid "%s:%d: Unknown SGML event type: %s"
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:337
+#: ../../lib/Locale/Po4a/TransTractor.pm:342
msgid "Can't read from file without having a filename"
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:349
+#: ../../lib/Locale/Po4a/TransTractor.pm:363
#, perl-format
msgid "Can't close %s after reading: %s"
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:369
+#: ../../lib/Locale/Po4a/TransTractor.pm:390
#, perl-format
msgid "can't write to %s: %s"
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:376
+#: ../../lib/Locale/Po4a/TransTractor.pm:397
#, perl-format
msgid "Can't close %s after writing: %s"
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:459
+#: ../../lib/Locale/Po4a/TransTractor.pm:480
#, perl-format
msgid "Can't read Po4a header from %s."
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:465
+#: ../../lib/Locale/Po4a/TransTractor.pm:486
#, perl-format
msgid "First line of %s does not look like a Po4a header."
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:471
+#: ../../lib/Locale/Po4a/TransTractor.pm:492
#, perl-format
msgid "Syntax error in Po4a header of %s, near \"%s\""
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:487
+#: ../../lib/Locale/Po4a/TransTractor.pm:508
#, perl-format
msgid "Invalid argument in the Po4a header of %s: %s"
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:494
+#: ../../lib/Locale/Po4a/TransTractor.pm:515
#, perl-format
msgid "The Po4a header of %s does not define the mode."
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:499
+#: ../../lib/Locale/Po4a/TransTractor.pm:520
#, perl-format
msgid ""
"Mode invalid in the Po4a header of %s: should be 'before' or 'after' not %s."
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:505
+#: ../../lib/Locale/Po4a/TransTractor.pm:526
#, perl-format
msgid "The Po4a header of %s does not define the position."
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:510
+#: ../../lib/Locale/Po4a/TransTractor.pm:531
msgid "No ending boundary given in the Po4a header, but mode=after."
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:535
+#: ../../lib/Locale/Po4a/TransTractor.pm:556
msgid "Can't apply addendum when not given the filename"
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:538
+#: ../../lib/Locale/Po4a/TransTractor.pm:559
#, perl-format
msgid "Addendum %s does not exist."
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:548
+#: ../../lib/Locale/Po4a/TransTractor.pm:569
#, perl-format
msgid "No candidate position for the addendum %s."
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:554
+#: ../../lib/Locale/Po4a/TransTractor.pm:575
#, perl-format
msgid "More than one cadidate position found for the addendum %s."
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:561
#: ../../lib/Locale/Po4a/TransTractor.pm:582
+#: ../../lib/Locale/Po4a/TransTractor.pm:603
#, perl-format
msgid "Addendum '%s' applied before this line: %s"
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:589
+#: ../../lib/Locale/Po4a/TransTractor.pm:610
#, perl-format
msgid "Addendum '%s' applied after the line: %s."
msgstr ""
-#: ../../lib/Locale/Po4a/TransTractor.pm:596
+#: ../../lib/Locale/Po4a/TransTractor.pm:617
#, perl-format
msgid "Addendum '%s' applied at the end of the file."
msgstr ""
-#: ../../lib/Locale/Po4a/Xml.pm:189
+#: ../../lib/Locale/Po4a/Xml.pm:192
#, perl-format
msgid "po4a::xml: Unknown option: %s"
msgstr ""
-#: ../../lib/Locale/Po4a/Xml.pm:262
+#: ../../lib/Locale/Po4a/Xml.pm:269
msgid "po4a::xml: Internal error: unknown string type."
msgstr ""
-#: ../../lib/Locale/Po4a/Xml.pm:392
+#: ../../lib/Locale/Po4a/Xml.pm:401
#, perl-format
msgid "po4a::xml: Bad document type. '%s' expected."
msgstr ""
-#: ../../lib/Locale/Po4a/Xml.pm:443
+#: ../../lib/Locale/Po4a/Xml.pm:451
msgid "po4a::xml: Unexpected closing tag. The main document may be wrong."
+msgstr ""
+
+#: ../../lib/Locale/Po4a/Xml.pm:773
+#, perl-format
+msgid "po4a::xml: Contents of attribute %s excluded: %s"
+msgstr ""
+
+#: ../../lib/Locale/Po4a/Xml.pm:780
+#, perl-format
+msgid "po4a::xml: Bad attribute syntax at %s"
+msgstr ""
+
+#: ../../lib/Locale/Po4a/Xml.pm:872
+#, perl-format
+msgid "po4a::xml: Contents of tag %s excluded: %s"
msgstr ""
#: ../../po4a:173 ../../po4a-gettextize:149 ../../po4a-normalize:102
20 years, 3 months
[Po4a-devel][CVS] po4a/po/pod po4a-pod.pot,1.29,1.30
by Martin Quinson
Update of /cvsroot/po4a/po4a/po/pod
In directory haydn:/tmp/cvs-serv20958/po/pod
Modified Files:
po4a-pod.pot
Log Message:
Automatic update
Index: po4a-pod.pot
===================================================================
RCS file: /cvsroot/po4a/po4a/po/pod/po4a-pod.pot,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- po4a-pod.pot 2 Aug 2004 13:08:23 -0000 1.29
+++ po4a-pod.pot 7 Aug 2004 04:31:28 -0000 1.30
@@ -6,7 +6,7 @@
msgid ""
msgstr ""
"Project-Id-Version: PACKAGE VERSION\n"
-"POT-Creation-Date: 2004-08-02 14:11+0200\n"
+"POT-Creation-Date: 2004-08-06 21:28-0700\n"
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
"Language-Team: LANGUAGE <LL(a)li.org>\n"
@@ -19,7 +19,7 @@
#: ../../lib/Locale/Po4a/Dia.pm:28 ../../lib/Locale/Po4a/Html.pm:28
#: ../../lib/Locale/Po4a/KernelHelp.pm:140 ../../lib/Locale/Po4a/Man.pm:3
[...1939 lines suppressed...]
# type: textblock
-#: ../../lib/Locale/Po4a/Xml.pm:1028
+#: ../../lib/Locale/Po4a/Xml.pm:1071
+msgid ""
+"MODIFY TAG TYPES FROM INHERITED MODULES (move the tag_types structure inside "
+"the $self hash?)"
+msgstr ""
+
+# type: textblock
+#: ../../lib/Locale/Po4a/Xml.pm:1074
msgid "breaking tag inside non-breaking tag (possible?) causes ugly comments"
msgstr ""
# type: textblock
-#: ../../lib/Locale/Po4a/Xml.pm:1032
+#: ../../lib/Locale/Po4a/Xml.pm:1078
msgid "L<po4a(7)>, L<Locale::Po4a::TransTractor(3pm)>."
msgstr ""
20 years, 3 months
[Po4a-devel][CVS] po4a msgsearch,1.1,1.2
by Martin Quinson
Update of /cvsroot/po4a/po4a
In directory haydn:/tmp/cvs-serv19917
Modified Files:
msgsearch
Log Message:
some more explanation about the program
Index: msgsearch
===================================================================
RCS file: /cvsroot/po4a/po4a/msgsearch,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- msgsearch 2 Aug 2004 09:35:39 -0000 1.1
+++ msgsearch 7 Aug 2004 04:27:48 -0000 1.2
@@ -23,7 +23,9 @@
msgsearch is an handy tool to extract some messages of a po file. Selection
depend on the file the message where extracted from, on the flags attached
-to the message or even on their actual content.
+to the message or even on their actual content. It can be seen as a
+generalization of msggrep allowing you to use OR between different
+categories.
The used filters are very similar to the LDAP ones:
20 years, 3 months
Re: [Po4a-devel][CVS] po4a/lib/Locale/Po4a TransTractor.pm,1.27,1.28
by Martin Quinson
Please don't forget to update the debian/changelog file when you change
stuff around.
In fact, we should separate the debian changelog from the main one, but I'm
too lazy for that right now.
Thanks for your time,
Mt.
On Thu, Aug 05, 2004 at 12:20:01PM +0000, Jordi Vilalta wrote:
> Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
> In directory haydn:/tmp/cvs-serv2275
>
> Modified Files:
> TransTractor.pm
> Log Message:
> First small step towars the encoding support :)
> Detect if the input document has non-ascii characters
--
Le pointeur est aux données ce que la boucle while est au code.
--- Olivier Aumage
20 years, 3 months
[Po4a-devel][CVS] po4a/debian changelog,1.67,1.68
by Martin Quinson
Update of /cvsroot/po4a/po4a/debian
In directory haydn:/tmp/cvs-serv14649/debian
Modified Files:
changelog
Log Message:
Refrain to indent verbatim tags
Index: changelog
===================================================================
RCS file: /cvsroot/po4a/po4a/debian/changelog,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -d -r1.67 -r1.68
--- changelog 7 Aug 2004 02:35:18 -0000 1.67
+++ changelog 7 Aug 2004 03:03:38 -0000 1.68
@@ -8,7 +8,8 @@
categories. msgselect is "reserved" by gettext author to do the same using
the SQL syntax in input. I use the LDAP one (with Perl RE ;).
- add refentry to verbatim so that no spaces are added.
- Closes #262739 (in Debian).
+ - do not indent and otherwise add superious spaces around verbatim tags
+ Those two should Closes #262739 (in Debian).
- Allow entities definition to contain '>'. Closes #262735 (in Debian)
- Overhaul of po4a(7)
- Various pod fixup
@@ -19,7 +20,7 @@
[Jordi Vilalta]
- Further pod and english fixup
- - Complete teh spanish translation of the documentation
+ - Complete the spanish translation of the documentation
-- Martin Quinson <martin.quinson(a)tuxfamily.org> Fri, 6 Aug 2004 19:33:01 -0700
20 years, 3 months
[Po4a-devel][CVS] po4a/lib/Locale/Po4a Sgml.pm,1.29,1.30
by Martin Quinson
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv14455/lib/Locale/Po4a
Modified Files:
Sgml.pm
Log Message:
Refrain to indent verbatim tags
Index: Sgml.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- Sgml.pm 2 Aug 2004 09:45:48 -0000 1.29
+++ Sgml.pm 7 Aug 2004 03:02:06 -0000 1.30
@@ -383,7 +383,7 @@
"table tbody textobject tgroup thead tip toc ".
"variablelist varlistentry videoobject ".
"warning",
- "verbatim" => "address programlisting literallayout refentry screen",
+ "verbatim" => "address programlisting literallayout refentrytitle screen",
"ignore" => "action affiliation anchor application author authorinitials ".
"command citation citerefentry citetitle classname co computeroutput constant corpauthor ".
"database ".
@@ -607,7 +607,7 @@
# debug
- print STDERR "Seen $tag, open level=".(scalar @open)."\n"
+ print STDERR "Seen $tag, open level=".(scalar @open).", verb=$verb\n"
if ($debug{'tag'});
if ($event->data->name() eq 'FOOTNOTE') {
@@ -643,13 +643,15 @@
if (scalar @open);
}
+ $verb++ if $verbatim{$event->data->name()};
if ($indent{$event->data->name()}) {
- $self->pushline((" " x $indent).$tag."\n");
+ # push the indenting space only if not in verb before that tag
+ # push tailing "\n" only if not in verbose afterward
+ $self->pushline( ($verb>1?"": (" " x $indent)).$tag.($verb?"":"\n"));
$indent ++ unless $empty{$event->data->name()} ;
} else {
$buffer .= $tag;
}
- $verb++ if $verbatim{$event->data->name()};
} # end of type eq 'start_element'
elsif ($event->type eq 'end_element') {
@@ -659,7 +661,7 @@
:
'</'.lc($event->data->name()).'>');
- print STDERR "Seen $tag, level=".(scalar @open)."\n"
+ print STDERR "Seen $tag, level=".(scalar @open).", verb=$verb\n"
if ($debug{'tag'});
$lastchar = ">";
@@ -692,7 +694,9 @@
if ($indent{$event->data->name()}) {
$indent -- ;
- $self->pushline((" " x $indent).$tag."\n");
+ # add indenting space only when not in verbatim
+ # add the tailing \n only if out of verbatim after that tag
+ $self->pushline(($verb?"":(" " x $indent)).$tag.($verb>1?"":"\n"));
} else {
$buffer .= $tag;
}
20 years, 3 months
