[Po4a-devel][CVS] po4a/lib/Locale/Po4a Sgml.pm,1.18,1.19

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a In directory haydn:/tmp/cvs-serv26429 Modified Files: Sgml.pm Log Message: Add a 'include-all' module option Index: Sgml.pm =================================================================== RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Sgml.pm,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- Sgml.pm 30 Apr 2004 22:47:58 -0000 1.18 +++ Sgml.pm 25 May 2004 16:59:55 -0000 1.19 @@ -73,7 +73,14 @@ =item force +Proceed even if the DTD is unknown. + +=item include-all +By default, msgid containing only one entity (like '&version') are skipped +for the translator comfort. Activating this option prevents this +optimisation. It can be useful if the document contains a construction like +"<title>&Acute;</title>", even if I doubt such things to ever happen... =head1 STATUS OF THIS MODULE @@ -185,6 +192,8 @@ $self->{options}{'verbatim'}=''; $self->{options}{'ignore'}=''; + $self->{options}{'include-all'}=''; + $self->{options}{'force'}=''; $self->{options}{'verbose'}=''; @@ -224,12 +233,14 @@ my (%options)=@_; # don't translate entries composed of one entity - if (($string =~ /^&[^;]*;$/) || ($options{'wrap'} && $string =~ /^\s*&[^;]*;\s*$/)){ + 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"; return $string; } # don't translate entries composed of tags only - if ($string =~ /^(((<[^>]*>)|\s)*)$/) { + if ( $string =~ /^(((<[^>]*>)|\s)*)$/ + && !($self->{options}{'include-all'}) ) { warn sprintf(gettext("po4a::sgml: msgid skipped to help translators (contains only tags)"), $string)."\n"; return $string; }