Update of /cvsroot/po4a/po4a/lib/Locale/Po4a In directory haydn:/tmp/cvs-serv2239/lib/Locale/Po4a Modified Files: Chooser.pm Po.pm Sgml.pm TransTractor.pm Log Message: Fix pod syntax Index: Sgml.pm =================================================================== RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v retrieving revision 1.25 retrieving revision 1.26 diff -u -d -r1.25 -r1.26 --- Sgml.pm 19 Jul 2004 10:21:12 -0000 1.25 +++ Sgml.pm 29 Jul 2004 01:27:51 -0000 1.26 @@ -82,6 +82,8 @@ optimisation. It can be useful if the document contains a construction like "<title>&Acute;</title>", even if I doubt such things to ever happen... +=back + =head1 STATUS OF THIS MODULE The result is perfect. Ie, the generated documents are exactly the Index: TransTractor.pm =================================================================== RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TransTractor.pm,v retrieving revision 1.26 retrieving revision 1.27 diff -u -d -r1.26 -r1.27 --- TransTractor.pm 19 Jul 2004 10:21:12 -0000 1.26 +++ TransTractor.pm 29 Jul 2004 01:27:51 -0000 1.27 @@ -118,7 +118,6 @@ $my ($paragraph,$pararef,$line,$lref)=("","","",""); $my $first=1; while (($line,$lref)=$document->shiftline() && defined($line)) { - ($line,$lref)=$document->shiftline(); if ($line =~ m/<p>/ && !$first--; ) { # Not the first time we see <p>. # Reput the current line in input, @@ -606,6 +605,7 @@ return 1; } +=back =head1 INTERNAL FUNCTIONS used to write derivated parsers @@ -752,8 +752,6 @@ Returns if the verbose option was passed during the creation of the TransTractor. - -=back =cut Index: Po.pm =================================================================== RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- Po.pm 19 Jul 2004 20:31:17 -0000 1.13 +++ Po.pm 29 Jul 2004 01:27:51 -0000 1.14 @@ -333,6 +333,49 @@ } return $pores; } + +=item select_file() + +This function extract a catalog from an existing one. Only the entries having a +reference in the given file will be placed in the resulting catalog. + +=cut + +sub select_file { + my $self=shift; + my $file=shift; + + my $res; + $res = Locale::Po4a::Po->new(); + + for (my $cpt=(0) ; + $cpt<$self->count_entries(); + $cpt) { + + my ($msgid,$ref,$msgstr,$flags,$type,$comment,$automatic); + + $msgid = $self->msgid($cpt); + $ref=$self->{po}{$msgid}{'reference'}; + next unless ($ref =~ / $file:/); + + $msgstr= $self->{po}{$msgid}{'msgstr'}; + $flags = $self->{po}{$msgid}{'flags'}; + $type = $self->{po}{$msgid}{'type'}; + $comment = $self->{po}{$msgid}{'comment'}; + $automatic = $self->{po}{$msgid}{'automatic'}; + + $res->push_raw('msgid' => $msgid, + 'msgstr' => $msgstr, + 'flags' => $flags, + 'type' => $type, + 'reference' => $ref, + 'comment' => $comment, + 'automatic' => $automatic); + + } + return $res; +} + =back =head1 Functions to use a message catalogs for translations Index: Chooser.pm =================================================================== RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Chooser.pm,v retrieving revision 1.13 retrieving revision 1.14 diff -u -d -r1.13 -r1.14 --- Chooser.pm 16 Jul 2004 04:13:39 -0000 1.13 +++ Chooser.pm 29 Jul 2004 01:27:51 -0000 1.14 @@ -99,6 +99,8 @@ L<Locale::Po4a::Html(3pm)>, L<Locale::Po4a::Dia(3pm)>. +=back + =head1 AUTHORS Denis Barbier <barbier(a)linuxfr.org&gt;