[Po4a-devel][CVS] po4a/lib/Locale/Po4a TransTractor.pm,1.20,1.21
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv12321/lib/Locale/Po4a
Modified Files:
TransTractor.pm
Log Message:
Export some more function; verbose<0 means quiet
Index: TransTractor.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- TransTractor.pm 16 Jul 2004 00:49:34 -0000 1.20
+++ TransTractor.pm 16 Jul 2004 04:11:18 -0000 1.21
@@ -10,10 +10,11 @@
use subs qw(makespace);
use vars qw($VERSION @ISA @EXPORT);
-$VERSION="0.16.4";
+$VERSION="0.17";
@ISA = ();
@EXPORT = qw(process translate
- read write readpo writepo);
+ read write readpo writepo
+ getpoout setpoout);
use Carp qw(croak);
use Locale::Po4a::Po;
@@ -414,6 +415,9 @@
sub getpoout {
return $_[0]->{TT}{po_out};
}
+sub setpoout {
+ $_[0]->{TT}{po_out} = $_[1];
+}
sub readpo {
$_[0]->{TT}{po_in}->read($_[1]);
}
@@ -550,7 +554,7 @@
}
if ($mode eq "before") {
- if ($self->verbose()) {
+ if ($self->verbose() > 0) {
map { print STDERR sprintf(dgettext("po4a","Adding the addendum %s
before the line:\n%s"),
$filename,$_)."\n" if (/$position/);
} @{$self->{TT}{doc_out}};
@@ -564,7 +568,7 @@
if ($line =~ m/$position/) {
print STDERR sprintf(dgettext("po4a",
"Adding the addendum %s after the section begining with the line:\n%s"),
- $filename,mychomp($line))."\n" if ($self->verbose());
+ $filename,mychomp($line))."\n" if ($self->verbose() > 0);
while ($line=shift @{$self->{TT}{doc_out}}) {
last if ($line=~/$boundary/);
push @newres,$line;
@@ -575,7 +579,7 @@
"Next section begins with:\n".
"%s\n".
"Addendum added before this line."),
- mychomp($line))."\n" if ($self->verbose());
+ mychomp($line))."\n" if ($self->verbose() > 0);
push @newres,$content;
push @newres,$line;
} else {
@@ -583,13 +587,13 @@
"This section ends with:\n".
"%s\n".
"Addendum added after this line."),
- mychomp($line))."\n" if ($self->verbose());
+ mychomp($line))."\n" if ($self->verbose() > 0);
push @newres,$line;
push @newres,$content;
}
} else {
printf STDERR (dgettext("po4a","Can't find the end of the
section in the file. Addendum added at the end of the file."))."\n"
- if ($self->verbose());
+ if ($self->verbose() > 0);
push @newres,$content;
}
}
@@ -754,7 +758,7 @@
if (defined $_[1]) {
$_[0]->{TT}{verbose} = $_[1];
} else {
- return $_[0]->{TT}{verbose};
+ return $_[0]->{TT}{verbose} || 0; # undef and 0 have the same meaning, but one
generates warnings
}
}