[Po4a-devel][CVS] po4a/lib/Locale/Po4a TransTractor.pm,1.20,1.21

[Martin Quinson]

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
     }
 }