1.1 --- a/.hgignore	Thu Mar 12 15:40:40 2009 +0800
     1.2 +++ b/.hgignore	Thu Mar 12 15:43:56 2009 +0800
     1.3 @@ -1,4 +1,5 @@
     1.4 -[^/]+/htdocs/
     1.5 +^htdocs/
     1.6 +^tools/fop/
     1.7  
     1.8  syntax: glob
     1.9  

     2.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     2.2 +++ b/tools/po4a/lib/Locale/Po4a/Chooser.pm	Thu Mar 12 15:43:56 2009 +0800
     2.3 @@ -0,0 +1,148 @@
     2.4 +# Locale::Po4a::Pod -- Convert POD data to PO file, for translation.
     2.5 +# $Id: Chooser.pm,v 1.41 2008-07-20 16:31:55 nekral-guest Exp $
     2.6 +#
     2.7 +# This program is free software; you may redistribute it and/or modify it
     2.8 +# under the terms of GPL (see COPYING).
     2.9 +#
    2.10 +# This module converts POD to PO file, so that it becomes possible to 
    2.11 +# translate POD formatted documentation. See gettext documentation for
    2.12 +# more info about PO files.
    2.13 +
    2.14 +############################################################################
    2.15 +# Modules and declarations
    2.16 +############################################################################
    2.17 +
    2.18 +
    2.19 +package Locale::Po4a::Chooser;
    2.20 +
    2.21 +use 5.006;
    2.22 +use strict;
    2.23 +use warnings;
    2.24 +use Locale::Po4a::Common;
    2.25 +
    2.26 +sub new {
    2.27 +    my ($module)=shift;
    2.28 +    my (%options)=@_;
    2.29 +
    2.30 +    die wrap_mod("po4a::chooser", gettext("Need to provide a module name"))
    2.31 +      unless defined $module;
    2.32 +
    2.33 +    my $modname;
    2.34 +    if ($module eq 'kernelhelp') {
    2.35 +        $modname = 'KernelHelp';
    2.36 +    } elsif ($module eq 'newsdebian') {
    2.37 +        $modname = 'NewsDebian';
    2.38 +    } elsif ($module eq 'latex') {
    2.39 +        $modname = 'LaTeX';
    2.40 +    } elsif ($module eq 'bibtex') {
    2.41 +        $modname = 'BibTex';
    2.42 +    } elsif ($module eq 'tex') {
    2.43 +        $modname = 'TeX';
    2.44 +    } else {
    2.45 +        $modname = ucfirst($module);
    2.46 +    }
    2.47 +    if (! UNIVERSAL::can("Locale::Po4a::$modname", 'new')) {
    2.48 +        eval qq{use Locale::Po4a::$modname};
    2.49 +        if ($@) {
    2.50 +            my $error=$@;
    2.51 +            warn wrap_msg(gettext("Unknown format type: %s."), $module);
    2.52 +	    warn wrap_mod("po4a::chooser",
    2.53 +		gettext("Module loading error: %s"), $error)
    2.54 +	      if defined $options{'verbose'} && $options{'verbose'} > 0;
    2.55 +            list(1);
    2.56 +        }
    2.57 +    }
    2.58 +    return "Locale::Po4a::$modname"->new(%options);
    2.59 +}
    2.60 +
    2.61 +sub list {
    2.62 +    warn wrap_msg(gettext("List of valid formats:")
    2.63 +#	."\n  - ".gettext("bibtex: BibTex bibliography format.")
    2.64 +	."\n  - ".gettext("dia: uncompressed Dia diagrams.")
    2.65 +	."\n  - ".gettext("docbook: Docbook XML.")
    2.66 +	."\n  - ".gettext("guide: Gentoo Linux's xml documentation format.")
    2.67 +#	."\n  - ".gettext("html: HTML documents (EXPERIMENTAL).")
    2.68 +	."\n  - ".gettext("ini: .INI format.")
    2.69 +	."\n  - ".gettext("kernelhelp: Help messages of each kernel compilation option.")
    2.70 +	."\n  - ".gettext("latex: LaTeX format.")
    2.71 +	."\n  - ".gettext("man: Good old manual page format.")
    2.72 +	."\n  - ".gettext("pod: Perl Online Documentation format.")
    2.73 +	."\n  - ".gettext("sgml: either debiandoc or docbook DTD.")
    2.74 +	."\n  - ".gettext("texinfo: The info page format.")
    2.75 +	."\n  - ".gettext("tex: generic TeX documents (see also latex).")
    2.76 +	."\n  - ".gettext("text: simple text document.")
    2.77 +	."\n  - ".gettext("wml: WML documents.")
    2.78 +	."\n  - ".gettext("xhtml: XHTML documents.")
    2.79 +	."\n  - ".gettext("xml: generic XML documents (see also docbook).")
    2.80 +    );
    2.81 +    exit shift;
    2.82 +}
    2.83 +##############################################################################
    2.84 +# Module return value and documentation
    2.85 +##############################################################################
    2.86 +
    2.87 +1;
    2.88 +__END__
    2.89 +
    2.90 +=head1 NAME
    2.91 +
    2.92 +Locale::Po4a::Chooser - Manage po4a modules
    2.93 +
    2.94 +=head1 DESCRIPTION
    2.95 +
    2.96 +Locale::Po4a::Chooser is a module to manage po4a modules. Before, all po4a
    2.97 +binaries used to know all po4a modules (pod, man, sgml, etc). This made the
    2.98 +add of a new module boring, to make sure the documentation is synchronized
    2.99 +in all modules, and that each of them can access the new module.
   2.100 +
   2.101 +Now, you just have to call the Locale::Po4a::Chooser::new() function,
   2.102 +passing the name of module as argument.
   2.103 +
   2.104 +You also have the Locale::Po4a::Chooser::list() function which lists the
   2.105 +available format and exits on the value passed as argument.
   2.106 +
   2.107 +=head1 SEE ALSO
   2.108 +
   2.109 +=over 4
   2.110 +
   2.111 +=item About po4a:
   2.112 +
   2.113 +L<po4a(7)|po4a.7>, 
   2.114 +L<Locale::Po4a::TransTractor(3pm)>,
   2.115 +L<Locale::Po4a::Po(3pm)>
   2.116 +
   2.117 +=item About modules:
   2.118 +
   2.119 +L<Locale::Po4a::Dia(3pm)>,
   2.120 +L<Locale::Po4a::Docbook(3pm)>,
   2.121 +L<Locale::Po4a::Guide(3pm)>,
   2.122 +L<Locale::Po4a::Halibut(3pm)>,
   2.123 +L<Locale::Po4a::Ini(3pm)>,
   2.124 +L<Locale::Po4a::KernelHelp(3pm)>,
   2.125 +L<Locale::Po4a::LaTeX(3pm)>,
   2.126 +L<Locale::Po4a::Man(3pm)>,
   2.127 +L<Locale::Po4a::Pod(3pm)>,
   2.128 +L<Locale::Po4a::Sgml(3pm)>,
   2.129 +L<Locale::Po4a::TeX(3pm)>,
   2.130 +L<Locale::Po4a::Texinfo(3pm)>,
   2.131 +L<Locale::Po4a::Text(3pm)>,
   2.132 +L<Locale::Po4a::Wml(3pm)>.
   2.133 +L<Locale::Po4a::Xhtml(3pm)>,
   2.134 +L<Locale::Po4a::Xml(3pm)>,
   2.135 +L<Locale::Po4a::Wml(3pm)>.
   2.136 +
   2.137 +=back
   2.138 +
   2.139 +=head1 AUTHORS
   2.140 +
   2.141 + Denis Barbier <barbier@linuxfr.org>
   2.142 + Martin Quinson (mquinson#debian.org)
   2.143 +
   2.144 +=head1 COPYRIGHT AND LICENSE
   2.145 +
   2.146 +Copyright 2002,2003,2004,2005 by SPI, inc.
   2.147 +
   2.148 +This program is free software; you may redistribute it and/or modify it
   2.149 +under the terms of GPL (see the COPYING file).
   2.150 +
   2.151 +=cut

     3.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     3.2 +++ b/tools/po4a/lib/Locale/Po4a/Common.pm	Thu Mar 12 15:43:56 2009 +0800
     3.3 @@ -0,0 +1,246 @@
     3.4 +# Locale::Po4a::Common -- Common parts of the po4a scripts and utils
     3.5 +# $Id: Common.pm,v 1.20 2009-02-13 23:16:44 nekral-guest Exp $
     3.6 +#
     3.7 +# Copyright 2005 by Jordi Vilalta <jvprat@gmail.com>
     3.8 +#
     3.9 +# This program is free software; you may redistribute it and/or modify it
    3.10 +# under the terms of GPL (see COPYING).
    3.11 +#
    3.12 +# This module has common utilities for the various scripts of po4a
    3.13 +
    3.14 +=head1 NAME
    3.15 +
    3.16 +Locale::Po4a::Common - Common parts of the po4a scripts and utils
    3.17 +
    3.18 +=head1 DESCRIPTION
    3.19 +
    3.20 +Locale::Po4a::Common contains common parts of the po4a scripts and some useful
    3.21 +functions used along the other modules.
    3.22 +
    3.23 +In order to use Locale::Po4a programatically, one may want to disable
    3.24 +the use of Text::WrapI18N, by writing e.g.
    3.25 +
    3.26 +    use Locale::Po4a::Common qw(nowrapi18n);
    3.27 +    use Locale::Po4a::Text;
    3.28 +
    3.29 +instead of:
    3.30 +
    3.31 +    use Locale::Po4a::Text;
    3.32 +
    3.33 +Ordering is important here: as most Locale::Po4a modules themselves
    3.34 +load Locale::Po4a::Common, the first time this module is loaded
    3.35 +determines whether Text::WrapI18N is used.
    3.36 +
    3.37 +=cut
    3.38 +
    3.39 +package Locale::Po4a::Common;
    3.40 +
    3.41 +require Exporter;
    3.42 +use vars qw(@ISA @EXPORT);
    3.43 +@ISA = qw(Exporter);
    3.44 +@EXPORT = qw(wrap_msg wrap_mod wrap_ref_mod textdomain gettext dgettext);
    3.45 +
    3.46 +use 5.006;
    3.47 +use strict;
    3.48 +use warnings;
    3.49 +
    3.50 +sub import {
    3.51 +    my $class=shift;
    3.52 +
    3.53 +    my $wrapi18n=1;
    3.54 +    if (exists $_[0] && defined $_[0] && $_[0] eq 'nowrapi18n') {
    3.55 +        shift;
    3.56 +        $wrapi18n=0;
    3.57 +    }
    3.58 +    $class->export_to_level(1, $class, @_);
    3.59 +
    3.60 +    return if defined &wrapi18n;
    3.61 +
    3.62 +    if ($wrapi18n && -t STDERR && -t STDOUT && eval { require Text::WrapI18N }) {
    3.63 +    
    3.64 +        # Don't bother determining the wrap column if we cannot wrap.
    3.65 +        my $col=$ENV{COLUMNS};
    3.66 +        if (!defined $col) {
    3.67 +            my @term=eval "use Term::ReadKey; Term::ReadKey::GetTerminalSize()";
    3.68 +            $col=$term[0] if (!$@);
    3.69 +            # If GetTerminalSize() failed we will fallback to a safe default.
    3.70 +            # This can happen if Term::ReadKey is not available
    3.71 +            # or this is a terminal-less build or such strange condition.
    3.72 +        }
    3.73 +        $col=76 if (!defined $col);
    3.74 +        
    3.75 +        eval ' use Text::WrapI18N qw($columns);
    3.76 +               $columns = $col;
    3.77 +             ';
    3.78 +       
    3.79 +        eval ' sub wrapi18n($$$) { Text::WrapI18N::wrap($_[0],$_[1],$_[2]) } '
    3.80 +    } else {
    3.81 +    
    3.82 +        # If we cannot wrap, well, that's too bad. Survive anyway.
    3.83 +        eval ' sub wrapi18n($$$) { $_[0].$_[2] } '
    3.84 +    }
    3.85 +}
    3.86 +
    3.87 +sub min($$) {
    3.88 +    return $_[0] < $_[1] ? $_[0] : $_[1];
    3.89 +}
    3.90 +
    3.91 +=head1 FUNCTIONS
    3.92 +
    3.93 +=head2 Showing output messages
    3.94 +
    3.95 +=over
    3.96 +
    3.97 +=item 
    3.98 +
    3.99 +show_version($)
   3.100 +
   3.101 +Shows the current version of the script, and a short copyright message. It
   3.102 +takes the name of the script as an argument.
   3.103 +
   3.104 +=cut
   3.105 +
   3.106 +sub show_version {
   3.107 +    my $name = shift;
   3.108 +
   3.109 +    print sprintf(gettext(
   3.110 +	"%s version %s.\n".
   3.111 +	"written by Martin Quinson and Denis Barbier.\n\n".
   3.112 +	"Copyright (C) 2002, 2003, 2004 Software of Public Interest, Inc.\n".
   3.113 +	"This is free software; see source code for copying\n".
   3.114 +	"conditions. There is NO warranty; not even for\n".
   3.115 +	"MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
   3.116 +	), $name, $Locale::Po4a::TransTractor::VERSION)."\n";
   3.117 +}
   3.118 +
   3.119 +=item 
   3.120 +
   3.121 +wrap_msg($@)
   3.122 +
   3.123 +This function displays a message the same way than sprintf() does, but wraps
   3.124 +the result so that they look nice on the terminal.
   3.125 +
   3.126 +=cut
   3.127 +
   3.128 +sub wrap_msg($@) {
   3.129 +    my $msg = shift;
   3.130 +    my @args = @_;
   3.131 +
   3.132 +    return wrapi18n("", "", sprintf($msg, @args))."\n";
   3.133 +}
   3.134 +
   3.135 +=item 
   3.136 +
   3.137 +wrap_mod($$@)
   3.138 +
   3.139 +This function works like wrap_msg(), but it takes a module name as the first
   3.140 +argument, and leaves a space at the left of the message.
   3.141 +
   3.142 +=cut
   3.143 +
   3.144 +sub wrap_mod($$@) {
   3.145 +    my ($mod, $msg) = (shift, shift);
   3.146 +    my @args = @_;
   3.147 +
   3.148 +    $mod .= ": ";
   3.149 +    my $spaces = " " x min(length($mod), 15);
   3.150 +    return wrapi18n($mod, $spaces, sprintf($msg, @args))."\n";
   3.151 +}
   3.152 +
   3.153 +=item 
   3.154 +
   3.155 +wrap_ref_mod($$$@)
   3.156 +
   3.157 +This function works like wrap_msg(), but it takes a file:line reference as the
   3.158 +first argument, a module name as the second one, and leaves a space at the left
   3.159 +of the message.
   3.160 +
   3.161 +=back
   3.162 +
   3.163 +=cut
   3.164 +
   3.165 +sub wrap_ref_mod($$$@) {
   3.166 +    my ($ref, $mod, $msg) = (shift, shift, shift);
   3.167 +    my @args = @_;
   3.168 +
   3.169 +    if (!$mod) {
   3.170 +	# If we don't get a module name, show the message like wrap_mod does
   3.171 +	return wrap_mod($ref, $msg, @args);
   3.172 +    } else {
   3.173 +	$ref .= ": ";
   3.174 +	my $spaces = " " x min(length($ref), 15);
   3.175 +	$msg = "$ref($mod)\n$msg";
   3.176 +	return wrapi18n("", $spaces, sprintf($msg, @args))."\n";
   3.177 +    }
   3.178 +}
   3.179 +
   3.180 +=head2 Wrappers for other modules
   3.181 +
   3.182 +=over 
   3.183 +
   3.184 +=item 
   3.185 +
   3.186 +Locale::Gettext
   3.187 +
   3.188 +When the Locale::Gettext module cannot be loaded, this module provide dummy
   3.189 +(empty) implementation of the following functions. In that case, po4a
   3.190 +messages won't get translated but the program will continue to work.
   3.191 +
   3.192 +If Locale::gettext is present, this wrapper also calls
   3.193 +setlocale(LC_MESSAGES, "") so callers don't depend on the POSIX module
   3.194 +either.
   3.195 +
   3.196 +=over
   3.197 +
   3.198 +=item 
   3.199 +
   3.200 +bindtextdomain($$)
   3.201 +
   3.202 +=item 
   3.203 +
   3.204 +textdomain($)
   3.205 +
   3.206 +=item 
   3.207 +
   3.208 +gettext($)
   3.209 +
   3.210 +=item 
   3.211 +
   3.212 +dgettext($$)
   3.213 +
   3.214 +=back
   3.215 +
   3.216 +=back
   3.217 +
   3.218 +=cut
   3.219 +
   3.220 +BEGIN {
   3.221 +    if (eval { require Locale::gettext }) {
   3.222 +       import Locale::gettext;
   3.223 +       require POSIX;
   3.224 +       POSIX::setlocale(&POSIX::LC_MESSAGES, '');
   3.225 +    } else {
   3.226 +       eval '
   3.227 +           sub bindtextdomain($$) { }
   3.228 +           sub textdomain($) { }
   3.229 +           sub gettext($) { shift }
   3.230 +           sub dgettext($$) { return $_[1] }
   3.231 +       '
   3.232 +    }
   3.233 +}
   3.234 +
   3.235 +1;
   3.236 +__END__
   3.237 +
   3.238 +=head1 AUTHORS
   3.239 +
   3.240 + Jordi Vilalta <jvprat@gmail.com>
   3.241 +
   3.242 +=head1 COPYRIGHT AND LICENSE
   3.243 +
   3.244 +Copyright 2005 by SPI, inc.
   3.245 +
   3.246 +This program is free software; you may redistribute it and/or modify it
   3.247 +under the terms of GPL (see the COPYING file).
   3.248 +
   3.249 +=cut

     4.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     4.2 +++ b/tools/po4a/lib/Locale/Po4a/Docbook.pm	Thu Mar 12 15:43:56 2009 +0800
     4.3 @@ -0,0 +1,2040 @@
     4.4 +#!/usr/bin/perl
     4.5 +# aptitude: cmdsynopsis => missing removal of leading spaces
     4.6 +
     4.7 +# Po4a::Docbook.pm 
     4.8 +# 
     4.9 +# extract and translate translatable strings from Docbook XML documents.
    4.10 +# 
    4.11 +# This code extracts plain text from tags and attributes on Docbook XML
    4.12 +# documents.
    4.13 +#
    4.14 +# Copyright (c) 2004 by Jordi Vilalta  <jvprat@gmail.com>
    4.15 +# Copyright (c) 2007-2009 by Nicolas François <nicolas.francois@centraliens.net>
    4.16 +#
    4.17 +# This program is free software; you can redistribute it and/or modify
    4.18 +# it under the terms of the GNU General Public License as published by
    4.19 +# the Free Software Foundation; either version 2 of the License, or
    4.20 +# (at your option) any later version.
    4.21 +#
    4.22 +# This program is distributed in the hope that it will be useful,
    4.23 +# but WITHOUT ANY WARRANTY; without even the implied warranty of
    4.24 +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    4.25 +# GNU General Public License for more details.
    4.26 +#
    4.27 +# You should have received a copy of the GNU General Public License
    4.28 +# along with this program; if not, write to the Free Software
    4.29 +# Foundation, Inc.,
    4.30 +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
    4.31 +#
    4.32 +########################################################################
    4.33 +
    4.34 +=head1 NAME
    4.35 +
    4.36 +Locale::Po4a::Docbook - Convert Docbook XML documents from/to PO files
    4.37 +
    4.38 +=head1 DESCRIPTION
    4.39 +
    4.40 +The po4a (po for anything) project goal is to ease translations (and more
    4.41 +interestingly, the maintenance of translations) using gettext tools on
    4.42 +areas where they were not expected like documentation.
    4.43 +
    4.44 +Locale::Po4a::Docbook is a module to help the translation of DocBook XML 
    4.45 +documents into other [human] languages.
    4.46 +
    4.47 +Please note that this module is still under heavy development, and not 
    4.48 +distributed in official po4a release since we don't feel it to be mature 
    4.49 +enough. If you insist on trying, check the CVS out.
    4.50 +
    4.51 +=head1 STATUS OF THIS MODULE
    4.52 +
    4.53 +This module is fully functional, as it relies in the L<Locale::Po4a::Xml>
    4.54 +module. This only defines the translatable tags and attributes.
    4.55 +
    4.56 +The only known issue is that it doesn't handle entities yet, and this includes
    4.57 +the file inclusion entities, but you can translate most of those files alone
    4.58 +(except the typical entities files), and it's usually better to maintain them
    4.59 +separated.
    4.60 +
    4.61 +=head1 SEE ALSO
    4.62 +
    4.63 +L<po4a(7)|po4a.7>, L<Locale::Po4a::TransTractor(3pm)>, L<Locale::Po4a::Xml(3pm)>.
    4.64 +
    4.65 +=head1 AUTHORS
    4.66 +
    4.67 + Jordi Vilalta <jvprat@gmail.com>
    4.68 +
    4.69 +=head1 COPYRIGHT AND LICENSE
    4.70 +
    4.71 + Copyright (c) 2004 by Jordi Vilalta  <jvprat@gmail.com>
    4.72 + Copyright (c) 2007-2009 by Nicolas François <nicolas.francois@centraliens.net>
    4.73 +
    4.74 +This program is free software; you may redistribute it and/or modify it
    4.75 +under the terms of GPL (see the COPYING file).
    4.76 +
    4.77 +=cut
    4.78 +
    4.79 +package Locale::Po4a::Docbook;
    4.80 +
    4.81 +use 5.006;
    4.82 +use strict;
    4.83 +use warnings;
    4.84 +
    4.85 +use Locale::Po4a::Xml;
    4.86 +
    4.87 +use vars qw(@ISA);
    4.88 +@ISA = qw(Locale::Po4a::Xml);
    4.89 +
    4.90 +sub initialize {
    4.91 +	my $self = shift;
    4.92 +	my %options = @_;
    4.93 +
    4.94 +	$self->SUPER::initialize(%options);
    4.95 +	$self->{options}{'wrap'}=1;
    4.96 +	$self->{options}{'doctype'}=$self->{options}{'doctype'} || 'docbook xml';
    4.97 +
    4.98 +# AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    4.99 +
   4.100 +	# abbrev; contains text; Formatted inline
   4.101 +	$self->{options}{'_default_translated'} .= " <abbrev>";
   4.102 +	$self->{options}{'_default_inline'} .= " <abbrev>";
   4.103 +
   4.104 +	# abstract; does not contain text; Formatted as a displayed block
   4.105 +	$self->{options}{'_default_untranslated'} .= " <abstract>";
   4.106 +	$self->{options}{'_default_break'} .= " <abstract>";
   4.107 +
   4.108 +	# accel; contains text; Formatted inline
   4.109 +	$self->{options}{'_default_translated'} .= " <accel>";
   4.110 +	$self->{options}{'_default_inline'} .= " <accel>";
   4.111 +
   4.112 +	# ackno; does not contain text; Formatted as a displayed block
   4.113 +	# Replaced by acknowledgements in Docbook v5.0
   4.114 +	$self->{options}{'_default_untranslated'} .= " <ackno>";
   4.115 +	$self->{options}{'_default_break'} .= " <ackno>";
   4.116 +	# acknowledgements; does not contain text; Formatted as a displayed block
   4.117 +	$self->{options}{'_default_untranslated'} .= " <acknowledgements>";
   4.118 +	$self->{options}{'_default_break'} .= " <acknowledgements>";
   4.119 +
   4.120 +	# acronym; contains text; Formatted inline
   4.121 +	$self->{options}{'_default_translated'} .= " <acronym>";
   4.122 +	$self->{options}{'_default_inline'} .= " <acronym>";
   4.123 +
   4.124 +	# action; contains text; Formatted inline; v4, not in v5
   4.125 +	$self->{options}{'_default_translated'} .= " <action>";
   4.126 +	$self->{options}{'_default_inline'} .= " <action>";
   4.127 +
   4.128 +	# address; contains text; Formatted as a displayed block; verbatim
   4.129 +	$self->{options}{'_default_translated'} .= " W<address>";
   4.130 +	$self->{options}{'_default_placeholder'} .= " <address>";
   4.131 +
   4.132 +	# affiliation; does not contain text; Formatted inline or as a
   4.133 +	# displayed block depending on context
   4.134 +	$self->{options}{'_default_untranslated'} .= " <affiliation>";
   4.135 +	$self->{options}{'_default_inline'} .= " <affiliation>";
   4.136 +
   4.137 +	# alt; contains text; Formatted inline or as a
   4.138 +	# displayed block depending on context
   4.139 +	$self->{options}{'_default_translated'} .= " <alt>";
   4.140 +	$self->{options}{'_default_inline'} .= " <alt>";
   4.141 +
   4.142 +	# anchor; does not contain text; Produces no output
   4.143 +	$self->{options}{'_default_untranslated'} .= " <anchor>";
   4.144 +	$self->{options}{'_default_inline'} .= " <anchor>";
   4.145 +
   4.146 +	# annotation; does not contain text;
   4.147 +	$self->{options}{'_default_untranslated'} .= " <annotation>";
   4.148 +	$self->{options}{'_default_placeholder'} .= " <annotation>";
   4.149 +
   4.150 +	# answer; does not contain text;
   4.151 +	$self->{options}{'_default_untranslated'} .= " <answer>";
   4.152 +	$self->{options}{'_default_break'} .= " <answer>";
   4.153 +
   4.154 +	# appendix; does not contain text; Formatted as a displayed block
   4.155 +	$self->{options}{'_default_untranslated'} .= " <appendix>";
   4.156 +	$self->{options}{'_default_break'} .= " <appendix>";
   4.157 +
   4.158 +	# appendixinfo; does not contain text; v4, not in v5
   4.159 +	$self->{options}{'_default_untranslated'} .= " <appendixinfo>";
   4.160 +	$self->{options}{'_default_placeholder'} .= " <appendixinfo>";
   4.161 +
   4.162 +	# application; contains text; Formatted inline
   4.163 +	$self->{options}{'_default_translated'} .= " <application>";
   4.164 +	$self->{options}{'_default_inline'} .= " <application>";
   4.165 +
   4.166 +	# arc; does not contain text;
   4.167 +	$self->{options}{'_default_untranslated'} .= " <arc>";
   4.168 +	$self->{options}{'_default_inline'} .= " <arc>";
   4.169 +
   4.170 +	# area; does not contain text;
   4.171 +	# NOTE: the area is not translatable as is, but the coords
   4.172 +	# attribute might be.
   4.173 +	$self->{options}{'_default_untranslated'} .= " <area>";
   4.174 +	$self->{options}{'_default_inline'} .= " <area>";
   4.175 +
   4.176 +	# areaset; does not contain text;
   4.177 +	# NOTE: the areaset is not translatable as is. depending on the
   4.178 +	# language there might be more or less area tags inside.
   4.179 +	$self->{options}{'_default_untranslated'} .= " <areaset>";
   4.180 +	$self->{options}{'_default_inline'} .= " <areaset>";
   4.181 +
   4.182 +	# areaspec; does not contain text;
   4.183 +	# NOTE: see area and areaset
   4.184 +	$self->{options}{'_default_translated'} .= " <areaspec>";
   4.185 +	$self->{options}{'_default_break'} .= " <areaspec>";
   4.186 +
   4.187 +	# arg; contains text; Formatted inline or as a
   4.188 +	# displayed block depending on context
   4.189 +	$self->{options}{'_default_translated'} .= " <arg>";
   4.190 +	$self->{options}{'_default_inline'} .= " <arg>";
   4.191 +
   4.192 +	# artheader; does not contain text; renamed to articleinfo in v4.0
   4.193 +	$self->{options}{'_default_untranslated'} .= " <artheader>";
   4.194 +	$self->{options}{'_default_placeholder'} .= " <artheader>";
   4.195 +
   4.196 +	# article; does not contain text; Formatted as a displayed block
   4.197 +	$self->{options}{'_default_untranslated'} .= " <article>";
   4.198 +	$self->{options}{'_default_break'} .= " <article>";
   4.199 +
   4.200 +	# articleinfo; does not contain text; v4 only
   4.201 +	$self->{options}{'_default_untranslated'} .= " <articleinfo>";
   4.202 +	$self->{options}{'_default_placeholder'} .= " <articleinfo>";
   4.203 +
   4.204 +	# artpagenums; contains text; Formatted inline
   4.205 +	# NOTE: could be in the break class
   4.206 +	$self->{options}{'_default_translated'} .= " <artpagenums>";
   4.207 +	$self->{options}{'_default_inline'} .= " <artpagenums>";
   4.208 +
   4.209 +	# attribution; contains text; Formatted inline or as a
   4.210 +	# displayed block depending on context
   4.211 +	$self->{options}{'_default_translated'} .= " <attribution>";
   4.212 +	$self->{options}{'_default_inline'} .= " <attribution>";
   4.213 +
   4.214 +	# audiodata; does not contain text;
   4.215 +	# NOTE: the attributes might be translated
   4.216 +	$self->{options}{'_default_translated'} .= " <audiodata>";
   4.217 +	$self->{options}{'_default_placeholder'} .= " <audiodata>";
   4.218 +	$self->{options}{'_default_attributes'}.=' <audiodata>fileref';
   4.219 +
   4.220 +	# audioobject; does not contain text;
   4.221 +	# NOTE: might be contaioned in a inlinemediaobject
   4.222 +	$self->{options}{'_default_translated'} .= " <audioobject>";
   4.223 +	$self->{options}{'_default_placeholder'} .= " <audioobject>";
   4.224 +
   4.225 +	# author; does not contain text; Formatted inline or as a
   4.226 +	# displayed block depending on context
   4.227 +	$self->{options}{'_default_untranslated'} .= " <author>";
   4.228 +	$self->{options}{'_default_inline'} .= " <author>";
   4.229 +
   4.230 +	# authorblurb; does not contain text; Formatted as a displayed block.
   4.231 +	# v4, not in v5
   4.232 +	$self->{options}{'_default_untranslated'} .= " <authorblurb>";
   4.233 +	$self->{options}{'_default_placeholder'} .= " <authorblurb>";
   4.234 +
   4.235 +	# authorgroup; does not contain text; Formatted inline or as a
   4.236 +	# displayed block depending on context
   4.237 +	# NOTE: given the possible parents, it is probably very rarely
   4.238 +	#       inlined
   4.239 +	$self->{options}{'_default_untranslated'} .= " <authorgroup>";
   4.240 +	$self->{options}{'_default_break'} .= " <authorgroup>";
   4.241 +
   4.242 +	# authorinitials; contains text; Formatted inline
   4.243 +	$self->{options}{'_default_translated'} .= " <authorinitials>";
   4.244 +	$self->{options}{'_default_inline'} .= " <authorinitials>";
   4.245 +
   4.246 +# BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
   4.247 +
   4.248 +	# beginpage; does not contain text; v4, not in v5
   4.249 +	$self->{options}{'_default_untranslated'} .= " <beginpage>";
   4.250 +	$self->{options}{'_default_break'} .= " <beginpage>";
   4.251 +
   4.252 +	# bibliocoverage; contains text; Formatted inline
   4.253 +	# NOTE: could be in the break class
   4.254 +	$self->{options}{'_default_translated'} .= " <bibliocoverage>";
   4.255 +	$self->{options}{'_default_inline'} .= " <bibliocoverage>";
   4.256 +
   4.257 +	# bibliodiv; does not contain text; Formatted as a displayed block
   4.258 +	$self->{options}{'_default_untranslated'} .= " <bibliodiv>";
   4.259 +	$self->{options}{'_default_break'} .= " <bibliodiv>";
   4.260 +
   4.261 +	# biblioentry; does not contain text; Formatted as a displayed block
   4.262 +	$self->{options}{'_default_untranslated'} .= " <biblioentry>";
   4.263 +	$self->{options}{'_default_break'} .= " <biblioentry>";
   4.264 +
   4.265 +	# bibliography; does not contain text; Formatted as a displayed block
   4.266 +	$self->{options}{'_default_untranslated'} .= " <bibliography>";
   4.267 +	$self->{options}{'_default_break'} .= " <bibliography>";
   4.268 +
   4.269 +	# bibliographyinfo; does not contain text; v4, not in v5
   4.270 +	$self->{options}{'_default_untranslated'} .= " <bibliographyinfo>";
   4.271 +	$self->{options}{'_default_placeholder'} .= " <bibliographyinfo>";
   4.272 +
   4.273 +	# biblioid; contains text; Formatted inline
   4.274 +	# NOTE: could be in the break class
   4.275 +	$self->{options}{'_default_translated'} .= " <biblioid>";
   4.276 +	$self->{options}{'_default_inline'} .= " <biblioid>";
   4.277 +
   4.278 +	# bibliolist; does not contain text; Formatted as a displayed block
   4.279 +	$self->{options}{'_default_untranslated'} .= " <bibliolist>";
   4.280 +	$self->{options}{'_default_break'} .= " <bibliolist>";
   4.281 +
   4.282 +	# bibliomisc; contains text; Formatted inline
   4.283 +	# NOTE: could be in the break class
   4.284 +	$self->{options}{'_default_translated'} .= " <bibliomisc>";
   4.285 +	$self->{options}{'_default_inline'} .= " <bibliomisc>";
   4.286 +
   4.287 +	# bibliomixed; contains text; Formatted as a displayed block
   4.288 +	$self->{options}{'_default_translated'} .= " <bibliomixed>";
   4.289 +	$self->{options}{'_default_placeholder'} .= " <bibliomixed>";
   4.290 +
   4.291 +	# bibliomset; contains text; Formatted as a displayed block
   4.292 +	# NOTE: content might need to be inlined, e.g. <bibliomset><title>
   4.293 +	$self->{options}{'_default_translated'} .= " <bibliomset>";
   4.294 +	$self->{options}{'_default_placeholder'} .= " <bibliomset>";
   4.295 +
   4.296 +	# biblioref; does not contain text; Formatted inline
   4.297 +	$self->{options}{'_default_untranslated'} .= " <biblioref>";
   4.298 +	$self->{options}{'_default_inline'} .= " <biblioref>";
   4.299 +
   4.300 +	# bibliorelation; does not contain text; Formatted inline
   4.301 +	$self->{options}{'_default_translated'} .= " <bibliorelation>";
   4.302 +	$self->{options}{'_default_inline'} .= " <bibliorelation>";
   4.303 +
   4.304 +	# biblioset; does not contain text; Formatted as a displayed block
   4.305 +	$self->{options}{'_default_untranslated'} .= " <biblioset>";
   4.306 +	$self->{options}{'_default_break'} .= " <biblioset>";
   4.307 +
   4.308 +	# bibliosource; contains text; Formatted inline
   4.309 +	# NOTE: could be in the break class
   4.310 +	$self->{options}{'_default_translated'} .= " <bibliosource>";
   4.311 +	$self->{options}{'_default_inline'} .= " <bibliosource>";
   4.312 +
   4.313 +	# blockinfo; does not contain text; v4.2, not in v5
   4.314 +	$self->{options}{'_default_untranslated'} .= " <blockinfo>";
   4.315 +	$self->{options}{'_default_placeholder'} .= " <blockinfo>";
   4.316 +
   4.317 +	# blockquote; does not contain text; Formatted as a displayed block
   4.318 +	$self->{options}{'_default_untranslated'} .= " <blockquote>";
   4.319 +	$self->{options}{'_default_break'} .= " <blockquote>";
   4.320 +
   4.321 +	# book; does not contain text; Formatted as a displayed block
   4.322 +	$self->{options}{'_default_untranslated'} .= " <book>";
   4.323 +	$self->{options}{'_default_break'} .= " <book>";
   4.324 +
   4.325 +	# bookbiblio; does not contain text; Formatted as a displayed block
   4.326 +	# Removed in v4.0
   4.327 +	$self->{options}{'_default_untranslated'} .= " <bookbiblio>";
   4.328 +	$self->{options}{'_default_break'} .= " <bookbiblio>";
   4.329 +
   4.330 +	# bookinfo; does not contain text; v4, not in v5
   4.331 +	$self->{options}{'_default_untranslated'} .= " <bookinfo>";
   4.332 +	$self->{options}{'_default_placeholder'} .= " <bookinfo>";
   4.333 +
   4.334 +	# bridgehead; contains text; Formatted as a displayed block
   4.335 +	$self->{options}{'_default_translated'} .= " <bridgehead>";
   4.336 +	$self->{options}{'_default_break'} .= " <bridgehead>";
   4.337 +
   4.338 +# CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   4.339 +
   4.340 +	# callout; does not contain text; Formatted as a displayed block
   4.341 +	$self->{options}{'_default_untranslated'} .= " <callout>";
   4.342 +	$self->{options}{'_default_break'} .= " <callout>";
   4.343 +
   4.344 +	# calloutlist; does not contain text; Formatted as a displayed block
   4.345 +	$self->{options}{'_default_untranslated'} .= " <calloutlist>";
   4.346 +	$self->{options}{'_default_break'} .= " <calloutlist>";
   4.347 +
   4.348 +	# caption; does not contain text; Formatted as a displayed block
   4.349 +	$self->{options}{'_default_untranslated'} .= " <caption>";
   4.350 +	$self->{options}{'_default_break'} .= " <caption>";
   4.351 +
   4.352 +	# caption (db.html.caption); contains text; Formatted as a displayed block
   4.353 +	# TODO: Check if this works
   4.354 +	$self->{options}{'_default_translated'} .= " <table><caption>";
   4.355 +	$self->{options}{'_default_break'} .= " <table><caption>";
   4.356 +
   4.357 +	# caution; does not contain text; Formatted as a displayed block
   4.358 +	$self->{options}{'_default_untranslated'} .= " <caution>";
   4.359 +	$self->{options}{'_default_break'} .= " <caution>";
   4.360 +
   4.361 +	# chapter; does not contain text; Formatted as a displayed block
   4.362 +	$self->{options}{'_default_untranslated'} .= " <chapter>";
   4.363 +	$self->{options}{'_default_break'} .= " <chapter>";
   4.364 +
   4.365 +	# chapterinfo; does not contain text; v4, not in v5
   4.366 +	$self->{options}{'_default_untranslated'} .= " <chapterinfo>";
   4.367 +	$self->{options}{'_default_placeholder'} .= " <chapterinfo>";
   4.368 +
   4.369 +	# citation; contains text; Formatted inline
   4.370 +	$self->{options}{'_default_translated'} .= " <citation>";
   4.371 +	$self->{options}{'_default_inline'} .= " <citation>";
   4.372 +
   4.373 +	# citebiblioid; contains text; Formatted inline
   4.374 +	# NOTE: maybe untranslated?
   4.375 +	$self->{options}{'_default_translated'} .= " <citebiblioid>";
   4.376 +	$self->{options}{'_default_inline'} .= " <citebiblioid>";
   4.377 +
   4.378 +	# citerefentry; contains text; Formatted inline
   4.379 +	$self->{options}{'_default_translated'} .= " <citerefentry>";
   4.380 +	$self->{options}{'_default_inline'} .= " <citerefentry>";
   4.381 +
   4.382 +	# citetitle; contains text; Formatted inline
   4.383 +	$self->{options}{'_default_translated'} .= " <citetitle>";
   4.384 +	$self->{options}{'_default_inline'} .= " <citetitle>";
   4.385 +
   4.386 +	# city; contains text; Formatted inline
   4.387 +	$self->{options}{'_default_translated'} .= " <city>";
   4.388 +	$self->{options}{'_default_inline'} .= " <city>";
   4.389 +
   4.390 +	# classname; contains text; Formatted inline
   4.391 +	$self->{options}{'_default_translated'} .= " <classname>";
   4.392 +	$self->{options}{'_default_inline'} .= " <classname>";
   4.393 +
   4.394 +	# classsynopsis; does not contain text; may be in a para
   4.395 +	# NOTE: It may contain a classsynopsisinfo, which should be
   4.396 +	#       verbatim
   4.397 +	# XXX: since it is in untranslated class, does the W flag takes
   4.398 +	#      effect?
   4.399 +	$self->{options}{'_default_untranslated'} .= " W<classsynopsis>";
   4.400 +	$self->{options}{'_default_placeholder'} .= " <classsynopsis>";
   4.401 +
   4.402 +	# classsynopsisinfo; contains text;
   4.403 +	# NOTE: see above
   4.404 +	$self->{options}{'_default_translated'} .= " W<classsynopsisinfo>";
   4.405 +	$self->{options}{'_default_inline'} .= " <classsynopsisinfo>";
   4.406 +
   4.407 +	# cmdsynopsis; does not contain text; may be in a para
   4.408 +	# NOTE: It may be clearer as a verbatim block
   4.409 +	# XXX: since it is in untranslated class, does the W flag takes
   4.410 +	#      effect? => not completely. Rewrap afterward?
   4.411 +	$self->{options}{'_default_untranslated'} .= " W<cmdsynopsis>";
   4.412 +	$self->{options}{'_default_placeholder'} .= " <cmdsynopsis>";
   4.413 +
   4.414 +	# co; does not contain text; Formatted inline
   4.415 +	# XXX: tranlsated or not? (label attribute)
   4.416 +	$self->{options}{'_default_translated'} .= " <co>";
   4.417 +	$self->{options}{'_default_inline'} .= " <co>";
   4.418 +
   4.419 +	# code; contains text; Formatted inline
   4.420 +	$self->{options}{'_default_translated'} .= " <code>";
   4.421 +	$self->{options}{'_default_inline'} .= " <code>";
   4.422 +
   4.423 +	# col; does not contain text;
   4.424 +	# NOTE: could be translated to change the layout in a translation
   4.425 +	#       To be done on colgroup in that case.
   4.426 +	$self->{options}{'_default_untranslated'} .= " <col>";
   4.427 +	$self->{options}{'_default_break'} .= " <col>";
   4.428 +
   4.429 +	# colgroup; does not contain text;
   4.430 +	# NOTE: could be translated to change the layout in a translation
   4.431 +	$self->{options}{'_default_untranslated'} .= " <colgroup>";
   4.432 +	$self->{options}{'_default_break'} .= " <colgroup>";
   4.433 +
   4.434 +	# collab; does not contain text; Formatted inline or as a
   4.435 +	# displayed block depending on context
   4.436 +	# NOTE: could be in the break class
   4.437 +	$self->{options}{'_default_untranslated'} .= " <collab>";
   4.438 +	$self->{options}{'_default_inline'} .= " <collab>";
   4.439 +
   4.440 +	# collabname; contains text; Formatted inline or as a
   4.441 +	# displayed block depending on context; v4, not in v5
   4.442 +	$self->{options}{'_default_translated'} .= " <collabname>";
   4.443 +	$self->{options}{'_default_inline'} .= " <collabname>";
   4.444 +
   4.445 +	# colophon; does not contain text; Formatted as a displayed block
   4.446 +	$self->{options}{'_default_untranslated'} .= " <colophon>";
   4.447 +	$self->{options}{'_default_break'} .= " <colophon>";
   4.448 +
   4.449 +	# colspec; does not contain text;
   4.450 +	# NOTE: could be translated to change the layout in a translation
   4.451 +	$self->{options}{'_default_untranslated'} .= " <colspec>";
   4.452 +	$self->{options}{'_default_break'} .= " <colspec>";
   4.453 +
   4.454 +	# command; contains text; Formatted inline
   4.455 +	$self->{options}{'_default_translated'} .= " <command>";
   4.456 +	$self->{options}{'_default_inline'} .= " <command>";
   4.457 +
   4.458 +	# comment; contains text; Formatted inline or as a displayed block
   4.459 +	# Renamed to remark in v4.0
   4.460 +	$self->{options}{'_default_translated'} .= " <comment>";
   4.461 +	$self->{options}{'_default_inline'} .= " <comment>";
   4.462 +
   4.463 +	# computeroutput; contains text; Formatted inline
   4.464 +	# NOTE: "is not a verbatim environment, but an inline."
   4.465 +	$self->{options}{'_default_translated'} .= " <computeroutput>";
   4.466 +	$self->{options}{'_default_inline'} .= " <computeroutput>";
   4.467 +
   4.468 +	# confdates; contains text; Formatted inline or as a
   4.469 +	# displayed block depending on context
   4.470 +	$self->{options}{'_default_translated'} .= " <confdates>";
   4.471 +	$self->{options}{'_default_inline'} .= " <confdates>";
   4.472 +
   4.473 +	# confgroup; does not contain text; Formatted inline or as a
   4.474 +	# displayed block depending on context
   4.475 +	# NOTE: could be in the break class
   4.476 +	$self->{options}{'_default_untranslated'} .= " <confgroup>";
   4.477 +	$self->{options}{'_default_inline'} .= " <confgroup>";
   4.478 +
   4.479 +	# confnum; contains text; Formatted inline or as a
   4.480 +	# displayed block depending on context
   4.481 +	$self->{options}{'_default_translated'} .= " <confnum>";
   4.482 +	$self->{options}{'_default_inline'} .= " <confnum>";
   4.483 +
   4.484 +	# confsponsor; contains text; Formatted inline or as a
   4.485 +	# displayed block depending on context
   4.486 +	$self->{options}{'_default_translated'} .= " <confsponsor>";
   4.487 +	$self->{options}{'_default_inline'} .= " <confsponsor>";
   4.488 +
   4.489 +	# conftitle; contains text; Formatted inline or as a
   4.490 +	# displayed block depending on context
   4.491 +	$self->{options}{'_default_translated'} .= " <conftitle>";
   4.492 +	$self->{options}{'_default_inline'} .= " <conftitle>";
   4.493 +
   4.494 +	# constant; contains text; Formatted inline
   4.495 +	$self->{options}{'_default_translated'} .= " <constant>";
   4.496 +	$self->{options}{'_default_inline'} .= " <constant>";
   4.497 +
   4.498 +	# constraint; does not contain text;
   4.499 +	# NOTE: it might be better to have the production as verbatim
   4.500 +	#       Keeping the constrainst inline to have it close to the
   4.501 +	#       lhs or rhs.
   4.502 +	#       The attribute is translatable
   4.503 +	$self->{options}{'_default_untranslated'} .= " <constraint>";
   4.504 +	$self->{options}{'_default_break'} .= " <constraint>";
   4.505 +
   4.506 +	# constraintdef; does not contain text; Formatted as a displayed block
   4.507 +	$self->{options}{'_default_untranslated'} .= " <constraintdef>";
   4.508 +	$self->{options}{'_default_break'} .= " <constraintdef>";
   4.509 +
   4.510 +	# constructorsynopsis; does not contain text; may be in a para
   4.511 +	# NOTE: It may be clearer as a verbatim block
   4.512 +	# XXX: since it is in untranslated class, does the W flag takes
   4.513 +	#      effect?
   4.514 +	$self->{options}{'_default_untranslated'} .= " W<constructorsynopsis>";
   4.515 +	$self->{options}{'_default_placeholder'} .= " <constructorsynopsis>";
   4.516 +
   4.517 +	# contractnum; contains text; Formatted inline or as a displayed block
   4.518 +	# NOTE: could be in the break class
   4.519 +	$self->{options}{'_default_translated'} .= " <contractnum>";
   4.520 +	$self->{options}{'_default_inline'} .= " <contractnum>";
   4.521 +
   4.522 +	# contractsponsor; contains text; Formatted inline or as a displayed block
   4.523 +	# NOTE: could be in the break class
   4.524 +	$self->{options}{'_default_translated'} .= " <contractsponsor>";
   4.525 +	$self->{options}{'_default_inline'} .= " <contractsponsor>";
   4.526 +
   4.527 +	# contrib; contains text; Formatted inline or as a displayed block
   4.528 +	$self->{options}{'_default_translated'} .= " <contrib>";
   4.529 +	$self->{options}{'_default_inline'} .= " <contrib>";
   4.530 +
   4.531 +	# copyright; contains text; Formatted inline or as a displayed block
   4.532 +	# NOTE: could be in the break class
   4.533 +	$self->{options}{'_default_translated'} .= " <copyright>";
   4.534 +	$self->{options}{'_default_inline'} .= " <copyright>";
   4.535 +
   4.536 +	# coref; does not contain text; Formatted inline
   4.537 +	# XXX: tranlsated or not? (label attribute)
   4.538 +	$self->{options}{'_default_translated'} .= " <coref>";
   4.539 +	$self->{options}{'_default_inline'} .= " <coref>";
   4.540 +
   4.541 +	# corpauthor; contains text; Formatted inline or as a
   4.542 +	# displayed block depending on context; v4, not in v5
   4.543 +	$self->{options}{'_default_translated'} .= " <corpauthor>";
   4.544 +	$self->{options}{'_default_inline'} .= " <corpauthor>";
   4.545 +
   4.546 +	# corpcredit; contains text; Formatted inline or as a
   4.547 +	# displayed block depending on context; v4, not in v5
   4.548 +	$self->{options}{'_default_translated'} .= " <corpcredit>";
   4.549 +	$self->{options}{'_default_inline'} .= " <corpcredit>";
   4.550 +
   4.551 +	# corpname; contains text; Formatted inline or as a
   4.552 +	# displayed block depending on context; v4, not in v5
   4.553 +	$self->{options}{'_default_translated'} .= " <corpname>";
   4.554 +	$self->{options}{'_default_inline'} .= " <corpname>";
   4.555 +
   4.556 +	# country; contains text; Formatted inline
   4.557 +	$self->{options}{'_default_translated'} .= " <country>";
   4.558 +	$self->{options}{'_default_inline'} .= " <country>";
   4.559 +
   4.560 +	# cover; does not contain text; Formatted as a displayed block
   4.561 +	$self->{options}{'_default_untranslated'} .= " <cover>";
   4.562 +	$self->{options}{'_default_break'} .= " <cover>";
   4.563 +
   4.564 +# DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
   4.565 +
   4.566 +	# database; contains text; Formatted inline
   4.567 +	$self->{options}{'_default_translated'} .= " <database>";
   4.568 +	$self->{options}{'_default_inline'} .= " <database>";
   4.569 +
   4.570 +	# date; contains text; Formatted inline
   4.571 +	$self->{options}{'_default_translated'} .= " <date>";
   4.572 +	$self->{options}{'_default_inline'} .= " <date>";
   4.573 +
   4.574 +	# dedication; contains text; Formatted as a displayed block
   4.575 +	$self->{options}{'_default_translated'} .= " <dedication>";
   4.576 +	$self->{options}{'_default_break'} .= " <dedication>";
   4.577 +
   4.578 +	# destructorsynopsis; does not contain text; may be in a para
   4.579 +	# NOTE: It may be clearer as a verbatim block
   4.580 +	# XXX: since it is in untranslated class, does the W flag takes
   4.581 +	#      effect?
   4.582 +	$self->{options}{'_default_untranslated'} .= " W<destructorsynopsis>";
   4.583 +	$self->{options}{'_default_placeholder'} .= " <destructorsynopsis>";
   4.584 +
   4.585 +	# docinfo; does not contain text; removed in v4.0
   4.586 +	$self->{options}{'_default_untranslated'} .= " <docinfo>";
   4.587 +	$self->{options}{'_default_placeholder'} .= " <docinfo>";
   4.588 +
   4.589 +# EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
   4.590 +
   4.591 +	# edition; contains text; Formatted inline or as a displayed block
   4.592 +	# NOTE: could be in the break class
   4.593 +	$self->{options}{'_default_translated'} .= " <edition>";
   4.594 +	$self->{options}{'_default_inline'} .= " <edition>";
   4.595 +
   4.596 +	# editor; does not contain text; Formatted inline or as a
   4.597 +	# displayed block depending on context
   4.598 +	$self->{options}{'_default_untranslated'} .= " <editor>";
   4.599 +	$self->{options}{'_default_inline'} .= " <editor>";
   4.600 +
   4.601 +	# email; contains text; Formatted inline
   4.602 +	$self->{options}{'_default_translated'} .= " <email>";
   4.603 +	$self->{options}{'_default_inline'} .= " <email>";
   4.604 +
   4.605 +	# emphasis; contains text; Formatted inline
   4.606 +	$self->{options}{'_default_translated'} .= " <emphasis>";
   4.607 +	$self->{options}{'_default_inline'} .= " <emphasis>";
   4.608 +
   4.609 +	# entry; contains text;
   4.610 +	$self->{options}{'_default_translated'} .= " <entry>";
   4.611 +	$self->{options}{'_default_break'} .= " <entry>";
   4.612 +
   4.613 +	# entrytbl; does not contain text;
   4.614 +	$self->{options}{'_default_untranslated'} .= " <entrytbl>";
   4.615 +	$self->{options}{'_default_break'} .= " <entrytbl>";
   4.616 +
   4.617 +	# envar; contains text; Formatted inline
   4.618 +	$self->{options}{'_default_translated'} .= " <envar>";
   4.619 +	$self->{options}{'_default_inline'} .= " <envar>";
   4.620 +
   4.621 +	# epigraph; contains text; Formatted as a displayed block.
   4.622 +	# NOTE: maybe contained in a para
   4.623 +	$self->{options}{'_default_translated'} .= " <epigraph>";
   4.624 +	$self->{options}{'_default_placeholder'} .= " <epigraph>";
   4.625 +
   4.626 +	# equation; does not contain text; Formatted as a displayed block.
   4.627 +	$self->{options}{'_default_untranslated'} .= " <equation>";
   4.628 +	$self->{options}{'_default_break'} .= " <equation>";
   4.629 +
   4.630 +	# errorcode; contains text; Formatted inline
   4.631 +	$self->{options}{'_default_translated'} .= " <errorcode>";
   4.632 +	$self->{options}{'_default_inline'} .= " <errorcode>";
   4.633 +
   4.634 +	# errorname; contains text; Formatted inline
   4.635 +	$self->{options}{'_default_translated'} .= " <errorname>";
   4.636 +	$self->{options}{'_default_inline'} .= " <errorname>";
   4.637 +
   4.638 +	# errortext; contains text; Formatted inline
   4.639 +	$self->{options}{'_default_translated'} .= " <errortext>";
   4.640 +	$self->{options}{'_default_inline'} .= " <errortext>";
   4.641 +
   4.642 +	# errortype; contains text; Formatted inline
   4.643 +	$self->{options}{'_default_translated'} .= " <errortype>";
   4.644 +	$self->{options}{'_default_inline'} .= " <errortype>";
   4.645 +
   4.646 +	# example; does not contain text; Formatted as a displayed block.
   4.647 +	# NOTE: maybe contained in a para
   4.648 +	$self->{options}{'_default_untranslated'} .= " <example>";
   4.649 +	$self->{options}{'_default_placeholder'} .= " <example>";
   4.650 +
   4.651 +	# exceptionname; contains text; Formatted inline
   4.652 +	$self->{options}{'_default_translated'} .= " <exceptionname>";
   4.653 +	$self->{options}{'_default_inline'} .= " <exceptionname>";
   4.654 +
   4.655 +	# extendedlink; does not contain text;
   4.656 +	$self->{options}{'_default_untranslated'} .= " <extendedlink>";
   4.657 +	$self->{options}{'_default_inline'} .= " <extendedlink>";
   4.658 +
   4.659 +# FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
   4.660 +
   4.661 +	# fax; contains text; Formatted inline
   4.662 +	$self->{options}{'_default_translated'} .= " <fax>";
   4.663 +	$self->{options}{'_default_inline'} .= " <fax>";
   4.664 +
   4.665 +	# fieldsynopsis; does not contain text; may be in a para
   4.666 +	$self->{options}{'_default_untranslated'} .= " <fieldsynopsis>";
   4.667 +	$self->{options}{'_default_inline'} .= " <fieldsynopsis>";
   4.668 +
   4.669 +	# figure; does not contain text; Formatted as a displayed block.
   4.670 +	# NOTE: maybe contained in a para
   4.671 +	$self->{options}{'_default_untranslated'} .= " <figure>";
   4.672 +	$self->{options}{'_default_placeholder'} .= " <figure>";
   4.673 +
   4.674 +	# filename; contains text; Formatted inline
   4.675 +	$self->{options}{'_default_translated'} .= " <filename>";
   4.676 +	$self->{options}{'_default_inline'} .= " <filename>";
   4.677 +
   4.678 +	# firstname; contains text; Formatted inline
   4.679 +	$self->{options}{'_default_translated'} .= " <firstname>";
   4.680 +	$self->{options}{'_default_inline'} .= " <firstname>";
   4.681 +
   4.682 +	# firstterm; contains text; Formatted inline
   4.683 +	$self->{options}{'_default_translated'} .= " <firstterm>";
   4.684 +	$self->{options}{'_default_inline'} .= " <firstterm>";
   4.685 +
   4.686 +	# footnote; contains text;
   4.687 +	$self->{options}{'_default_translated'} .= " <footnote>";
   4.688 +	$self->{options}{'_default_placeholder'} .= " <footnote>";
   4.689 +
   4.690 +	# footnoteref; contains text;
   4.691 +	$self->{options}{'_default_translated'} .= " <footnoteref>";
   4.692 +	$self->{options}{'_default_inline'} .= " <footnoteref>";
   4.693 +
   4.694 +	# foreignphrase; contains text;
   4.695 +	$self->{options}{'_default_translated'} .= " <foreignphrase>";
   4.696 +	$self->{options}{'_default_inline'} .= " <foreignphrase>";
   4.697 +
   4.698 +	# formalpara; does not contain text; Formatted as a displayed block.
   4.699 +	$self->{options}{'_default_untranslated'} .= " <formalpara>";
   4.700 +	$self->{options}{'_default_break'} .= " <formalpara>";
   4.701 +
   4.702 +	# funcdef; contains text; Formatted inline
   4.703 +	$self->{options}{'_default_translated'} .= " <funcdef>";
   4.704 +	$self->{options}{'_default_inline'} .= " <funcdef>";
   4.705 +
   4.706 +	# funcparams; contains text; Formatted inline
   4.707 +	$self->{options}{'_default_translated'} .= " <funcparams>";
   4.708 +	$self->{options}{'_default_inline'} .= " <funcparams>";
   4.709 +
   4.710 +	# funcprototype; does not contain text;
   4.711 +	# NOTE: maybe contained in a funcsynopsis, contained in a para
   4.712 +	$self->{options}{'_default_untranslated'} .= " <funcprototype>";
   4.713 +	$self->{options}{'_default_placeholder'} .= " <funcprototype>";
   4.714 +
   4.715 +	# funcsynopsis; does not contain text;
   4.716 +	# NOTE: maybe contained in a para
   4.717 +	$self->{options}{'_default_untranslated'} .= " <funcsynopsis>";
   4.718 +	$self->{options}{'_default_placeholder'} .= " <funcsynopsis>";
   4.719 +
   4.720 +	# funcsynopsisinfo; contains text; verbatim
   4.721 +	# NOTE: maybe contained in a funcsynopsis, contained in a para
   4.722 +	$self->{options}{'_default_translated'} .= " W<funcsynopsisinfo>";
   4.723 +	$self->{options}{'_default_placeholder'} .= " <funcsynopsisinfo>";
   4.724 +
   4.725 +	# function; contains text; Formatted inline
   4.726 +	$self->{options}{'_default_translated'} .= " <function>";
   4.727 +	$self->{options}{'_default_inline'} .= " <function>";
   4.728 +
   4.729 +# GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
   4.730 +
   4.731 +	# glossary; does not contain text; Formatted as a displayed block.
   4.732 +	$self->{options}{'_default_untranslated'} .= " <glossary>";
   4.733 +	$self->{options}{'_default_break'} .= " <glossary>";
   4.734 +
   4.735 +	# glossaryinfo; does not contain text; v4, not in v5
   4.736 +	$self->{options}{'_default_untranslated'} .= " <glossaryinfo>";
   4.737 +	$self->{options}{'_default_placeholder'} .= " <glossaryinfo>";
   4.738 +
   4.739 +	# glossdef; does not contain text; Formatted as a displayed block.
   4.740 +	$self->{options}{'_default_untranslated'} .= " <glossdef>";
   4.741 +	$self->{options}{'_default_break'} .= " <glossdef>";
   4.742 +
   4.743 +	# glossdiv; does not contain text; Formatted as a displayed block.
   4.744 +	$self->{options}{'_default_untranslated'} .= " <glossdiv>";
   4.745 +	$self->{options}{'_default_break'} .= " <glossdiv>";
   4.746 +
   4.747 +	# glossentry; does not contain text; Formatted as a displayed block.
   4.748 +	$self->{options}{'_default_untranslated'} .= " <glossentry>";
   4.749 +	$self->{options}{'_default_break'} .= " <glossentry>";
   4.750 +
   4.751 +	# glosslist; does not contain text; Formatted as a displayed block.
   4.752 +	$self->{options}{'_default_untranslated'} .= " <glosslist>";
   4.753 +	$self->{options}{'_default_break'} .= " <glosslist>";
   4.754 +
   4.755 +	# glosssee; contains text; Formatted as a displayed block.
   4.756 +	$self->{options}{'_default_translated'} .= " <glosssee>";
   4.757 +	$self->{options}{'_default_break'} .= " <glosssee>";
   4.758 +
   4.759 +	# glossseealso; contains text; Formatted as a displayed block.
   4.760 +	$self->{options}{'_default_translated'} .= " <glossseealso>";
   4.761 +	$self->{options}{'_default_break'} .= " <glossseealso>";
   4.762 +
   4.763 +	# glossterm; contains text; Formatted inline
   4.764 +	$self->{options}{'_default_translated'} .= " <glossterm>";
   4.765 +	$self->{options}{'_default_inline'} .= " <glossterm>";
   4.766 +
   4.767 +	# graphic; does not contain text; Formatted as a displayed block
   4.768 +	# v4, not in v5
   4.769 +	$self->{options}{'_default_untranslated'} .= " <graphic>";
   4.770 +	$self->{options}{'_default_inline'} .= " <graphic>";
   4.771 +	$self->{options}{'_default_attributes'}.=' <graphic>fileref';
   4.772 +
   4.773 +	# graphicco; does not contain text; Formatted as a displayed block.
   4.774 +	# v4, not in v5
   4.775 +	$self->{options}{'_default_untranslated'} .= " <graphicco>";
   4.776 +	$self->{options}{'_default_placeholder'} .= " <graphicco>";
   4.777 +
   4.778 +	# group; does not contain text; Formatted inline
   4.779 +	$self->{options}{'_default_untranslated'} .= " W<group>";
   4.780 +	$self->{options}{'_default_inline'} .= " <group>";
   4.781 +
   4.782 +	# guibutton; contains text; Formatted inline
   4.783 +	$self->{options}{'_default_translated'} .= " <guibutton>";
   4.784 +	$self->{options}{'_default_inline'} .= " <guibutton>";
   4.785 +
   4.786 +	# guiicon; contains text; Formatted inline
   4.787 +	$self->{options}{'_default_translated'} .= " <guiicon>";
   4.788 +	$self->{options}{'_default_inline'} .= " <guiicon>";
   4.789 +
   4.790 +	# guilabel; contains text; Formatted inline
   4.791 +	$self->{options}{'_default_translated'} .= " <guilabel>";
   4.792 +	$self->{options}{'_default_inline'} .= " <guilabel>";
   4.793 +
   4.794 +	# guimenu; contains text; Formatted inline
   4.795 +	$self->{options}{'_default_translated'} .= " <guimenu>";
   4.796 +	$self->{options}{'_default_inline'} .= " <guimenu>";
   4.797 +
   4.798 +	# guimenuitem; contains text; Formatted inline
   4.799 +	$self->{options}{'_default_translated'} .= " <guimenuitem>";
   4.800 +	$self->{options}{'_default_inline'} .= " <guimenuitem>";
   4.801 +
   4.802 +	# guisubmenu; contains text; Formatted inline
   4.803 +	$self->{options}{'_default_translated'} .= " <guisubmenu>";
   4.804 +	$self->{options}{'_default_inline'} .= " <guisubmenu>";
   4.805 +
   4.806 +# HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
   4.807 +
   4.808 +	# hardware; contains text; Formatted inline
   4.809 +	$self->{options}{'_default_translated'} .= " <hardware>";
   4.810 +	$self->{options}{'_default_inline'} .= " <hardware>";
   4.811 +
   4.812 +	# highlights; does not contain text; Formatted inline
   4.813 +	# v4, not in v5
   4.814 +	$self->{options}{'_default_untranslated'} .= " <highlights>";
   4.815 +	$self->{options}{'_default_break'} .= " <highlights>";
   4.816 +
   4.817 +	# holder; contains text;
   4.818 +	# NOTE: may depend on the copyright container
   4.819 +	$self->{options}{'_default_translated'} .= " <holder>";
   4.820 +	$self->{options}{'_default_inline'} .= " <holder>";
   4.821 +
   4.822 +	# honorific; contains text; Formatted inline
   4.823 +	$self->{options}{'_default_translated'} .= " <honorific>";
   4.824 +	$self->{options}{'_default_inline'} .= " <honorific>";
   4.825 +
   4.826 +	# html:button; contains text; Formatted inline
   4.827 +	$self->{options}{'_default_translated'} .= " <html:button>";
   4.828 +	$self->{options}{'_default_inline'} .= " <html:button>";
   4.829 +
   4.830 +	# html:fieldset; contains text; Formatted inline
   4.831 +	$self->{options}{'_default_translated'} .= " <html:fieldset>";
   4.832 +	$self->{options}{'_default_inline'} .= " <html:fieldset>";
   4.833 +
   4.834 +	# html:form; does not contain text;
   4.835 +	$self->{options}{'_default_translated'} .= " <html:form>";
   4.836 +	$self->{options}{'_default_inline'} .= " <html:form>";
   4.837 +
   4.838 +	# html:input; does not contain text; Formatted inline
   4.839 +	# NOTE: attributes are translatable
   4.840 +	$self->{options}{'_default_translated'} .= " <html:input>";
   4.841 +	$self->{options}{'_default_inline'} .= " <html:input>";
   4.842 +
   4.843 +	# html:label; contains text; Formatted inline
   4.844 +	$self->{options}{'_default_translated'} .= " <html:label>";
   4.845 +	$self->{options}{'_default_inline'} .= " <html:label>";
   4.846 +
   4.847 +	# html:legend; contains text; Formatted inline
   4.848 +	$self->{options}{'_default_translated'} .= " <html:legend>";
   4.849 +	$self->{options}{'_default_inline'} .= " <html:legend>";
   4.850 +
   4.851 +	# html:option; contains text; Formatted inline
   4.852 +	$self->{options}{'_default_translated'} .= " <html:option>";
   4.853 +	$self->{options}{'_default_inline'} .= " <html:option>";
   4.854 +
   4.855 +	# html:select; does not contain text; Formatted inline
   4.856 +	$self->{options}{'_default_translated'} .= " <html:select>";
   4.857 +	$self->{options}{'_default_inline'} .= " <html:select>";
   4.858 +
   4.859 +	# html:textarea; contains text; Formatted as a displayed block.
   4.860 +	$self->{options}{'_default_translated'} .= " <html:textarea>";
   4.861 +	$self->{options}{'_default_placeholder'} .= " <html:textarea>";
   4.862 +
   4.863 +	# imagedata; does not contain text; May be formatted inline or
   4.864 +	# as a displayed block, depending on context
   4.865 +	$self->{options}{'_default_translated'} .= " <imagedata>";
   4.866 +	$self->{options}{'_default_inline'} .= " <imagedata>";
   4.867 +	$self->{options}{'_default_attributes'}.=' <imagedata>fileref';
   4.868 +
   4.869 +	# imageobject; does not contain text; May be formatted inline or
   4.870 +	# as a displayed block, depending on context
   4.871 +	$self->{options}{'_default_untranslated'} .= " <imageobject>";
   4.872 +	$self->{options}{'_default_inline'} .= " <imageobject>";
   4.873 +
   4.874 +	# imageobjectco; does not contain text; Formatted as a displayed block
   4.875 +	# NOTE: may be in a inlinemediaobject
   4.876 +	# TODO: check if this works when the inlinemediaobject is defined
   4.877 +	# as inline
   4.878 +	$self->{options}{'_default_untranslated'} .= " <imageobjectco>";
   4.879 +	$self->{options}{'_default_break'} .= " <imageobjectco>";
   4.880 +
   4.881 +	# important; does not contain text; Formatted as a displayed block.
   4.882 +	$self->{options}{'_default_untranslated'} .= " <important>";
   4.883 +	$self->{options}{'_default_break'} .= " <important>";
   4.884 +
   4.885 +	# index; does not contain text; Formatted as a displayed block.
   4.886 +	$self->{options}{'_default_untranslated'} .= " <index>";
   4.887 +	$self->{options}{'_default_break'} .= " <index>";
   4.888 +
   4.889 +	# indexdiv; does not contain text; Formatted as a displayed block.
   4.890 +	$self->{options}{'_default_untranslated'} .= " <indexdiv>";
   4.891 +	$self->{options}{'_default_break'} .= " <indexdiv>";
   4.892 +
   4.893 +	# indexentry; does not contain text; Formatted as a displayed block.
   4.894 +	$self->{options}{'_default_untranslated'} .= " <indexentry>";
   4.895 +	$self->{options}{'_default_break'} .= " <indexentry>";
   4.896 +
   4.897 +	# indexinfo; does not contain text; v4, not in v5
   4.898 +	$self->{options}{'_default_untranslated'} .= " <indexinfo>";
   4.899 +	$self->{options}{'_default_placeholder'} .= " <indexinfo>";
   4.900 +
   4.901 +	# indexterm; does not contain text; 
   4.902 +	$self->{options}{'_default_untranslated'} .= " <indexterm>";
   4.903 +	$self->{options}{'_default_placeholder'} .= " <indexterm>";
   4.904 +
   4.905 +	# info; does not contain text; 
   4.906 +	$self->{options}{'_default_untranslated'} .= " <info>";
   4.907 +	$self->{options}{'_default_placeholder'} .= " <info>";
   4.908 +
   4.909 +	# informalequation; does not contain text; Formatted as a displayed block.
   4.910 +	$self->{options}{'_default_untranslated'} .= " <informalequation>";
   4.911 +	$self->{options}{'_default_placeholder'} .= " <informalequation>";
   4.912 +
   4.913 +	# informalexample; does not contain text; Formatted as a displayed block.
   4.914 +	# NOTE: can be in a para
   4.915 +	$self->{options}{'_default_untranslated'} .= " <informalexample>";
   4.916 +	$self->{options}{'_default_break'} .= " <informalexample>";
   4.917 +
   4.918 +	# informalfigure; does not contain text; Formatted as a displayed block.
   4.919 +	# NOTE: can be in a para
   4.920 +	$self->{options}{'_default_untranslated'} .= " <informalfigure>";
   4.921 +	$self->{options}{'_default_break'} .= " <informalfigure>";
   4.922 +
   4.923 +	# informaltable; does not contain text; Formatted as a displayed block.
   4.924 +	# NOTE: can be in a para
   4.925 +	$self->{options}{'_default_untranslated'} .= " <informaltable>";
   4.926 +	$self->{options}{'_default_break'} .= " <informaltable>";
   4.927 +
   4.928 +	# initializer; contains text; Formatted inline
   4.929 +	$self->{options}{'_default_translated'} .= " <initializer>";
   4.930 +	$self->{options}{'_default_inline'} .= " <initializer>";
   4.931 +
   4.932 +	# inlineequation; does not contain text; Formatted inline
   4.933 +	$self->{options}{'_default_translated'} .= " W<inlineequation>";
   4.934 +	$self->{options}{'_default_placeholder'} .= " <inlineequation>";
   4.935 +
   4.936 +	# inlinegraphic; does not contain text; Formatted inline
   4.937 +	# empty; v4, not in v5
   4.938 +	$self->{options}{'_default_translated'} .= " W<inlinegraphic>";
   4.939 +	$self->{options}{'_default_inline'} .= " <inlinegraphic>";
   4.940 +
   4.941 +	# inlinemediaobject; does not contain text; Formatted inline
   4.942 +	$self->{options}{'_default_translated'} .= " <inlinemediaobject>";
   4.943 +	$self->{options}{'_default_placeholder'} .= " <inlinemediaobject>";
   4.944 +
   4.945 +	# interface; contains text; Formatted inline; v4, not in v5
   4.946 +	$self->{options}{'_default_translated'} .= " <interface>";
   4.947 +	$self->{options}{'_default_inline'} .= " <interface>";
   4.948 +
   4.949 +	# interfacedefinition; contains text; Formatted inline
   4.950 +	# Removed in v4.0
   4.951 +	$self->{options}{'_default_translated'} .= " <interfacedefinition>";
   4.952 +	$self->{options}{'_default_inline'} .= " <interfacedefinition>";
   4.953 +
   4.954 +	# interfacename; contains text; Formatted inline
   4.955 +	$self->{options}{'_default_translated'} .= " <interfacename>";
   4.956 +	$self->{options}{'_default_inline'} .= " <interfacename>";
   4.957 +
   4.958 +	# invpartnumber; contains text; Formatted inline; v4, not in v5
   4.959 +	$self->{options}{'_default_translated'} .= " <invpartnumber>";
   4.960 +	$self->{options}{'_default_inline'} .= " <invpartnumber>";
   4.961 +
   4.962 +	# isbn; contains text; Formatted inline; v4, not in v5
   4.963 +	$self->{options}{'_default_translated'} .= " <isbn>";
   4.964 +	$self->{options}{'_default_inline'} .= " <isbn>";
   4.965 +
   4.966 +	# issn; contains text; Formatted inline; v4, not in v5
   4.967 +	$self->{options}{'_default_translated'} .= " <issn>";
   4.968 +	$self->{options}{'_default_inline'} .= " <issn>";
   4.969 +
   4.970 +	# issuenum; contains text; Formatted inline or as a displayed block
   4.971 +	# NOTE: could be in the break class
   4.972 +	$self->{options}{'_default_translated'} .= " <issuenum>";
   4.973 +	$self->{options}{'_default_inline'} .= " <issuenum>";
   4.974 +
   4.975 +	# itemizedlist; does not contain text; Formatted as a displayed block.
   4.976 +	$self->{options}{'_default_untranslated'} .= " <itemizedlist>";
   4.977 +	$self->{options}{'_default_break'} .= " <itemizedlist>";
   4.978 +
   4.979 +	# itermset; does not contain text;
   4.980 +	# FIXME
   4.981 +	$self->{options}{'_default_untranslated'} .= " <itermset>";
   4.982 +	$self->{options}{'_default_inline'} .= " <itermset>";
   4.983 +
   4.984 +# JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
   4.985 +
   4.986 +	# jobtitle; contains text; Formatted inline or as a displayed block
   4.987 +	# NOTE: can be in a para
   4.988 +	$self->{options}{'_default_translated'} .= " <jobtitle>";
   4.989 +	$self->{options}{'_default_inline'} .= " <jobtitle>";
   4.990 +
   4.991 +# KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK
   4.992 +
   4.993 +	# keycap; contains text; Formatted inline
   4.994 +	$self->{options}{'_default_translated'} .= " <keycap>";
   4.995 +	$self->{options}{'_default_inline'} .= " <keycap>";
   4.996 +
   4.997 +	# keycode; contains text; Formatted inline
   4.998 +	$self->{options}{'_default_translated'} .= " <keycode>";
   4.999 +	$self->{options}{'_default_inline'} .= " <keycode>";
  4.1000 +
  4.1001 +	# keycombo; does not contain text; Formatted inline
  4.1002 +	$self->{options}{'_default_translated'} .= " <keycombo>";
  4.1003 +	$self->{options}{'_default_inline'} .= " <keycombo>";
  4.1004 +
  4.1005 +	# keysym; contains text; Formatted inline
  4.1006 +	$self->{options}{'_default_translated'} .= " <keysym>";
  4.1007 +	$self->{options}{'_default_inline'} .= " <keysym>";
  4.1008 +
  4.1009 +	# keyword; contains text;
  4.1010 +	# NOTE: could be inline
  4.1011 +	$self->{options}{'_default_translated'} .= " <keyword>";
  4.1012 +	$self->{options}{'_default_break'} .= " <keyword>";
  4.1013 +
  4.1014 +	# keywordset; contains text; Formatted inline or as a displayed block
  4.1015 +	# NOTE: could be placeholder/break
  4.1016 +	$self->{options}{'_default_translated'} .= " <keywordset>";
  4.1017 +	$self->{options}{'_default_break'} .= " <keywordset>";
  4.1018 +
  4.1019 +# LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
  4.1020 +
  4.1021 +	# label; contains text; Formatted as a displayed block
  4.1022 +	$self->{options}{'_default_translated'} .= " <label>";
  4.1023 +	$self->{options}{'_default_break'} .= " <label>";
  4.1024 +
  4.1025 +	# legalnotice; contains text; Formatted as a displayed block
  4.1026 +	$self->{options}{'_default_translated'} .= " <legalnotice>";
  4.1027 +	$self->{options}{'_default_break'} .= " <legalnotice>";
  4.1028 +
  4.1029 +	# lhs; contains text; Formatted as a displayed block.
  4.1030 +	# NOTE: it might be better to have the production as verbatim
  4.1031 +	#       Keeping the constrainst inline to have it close to the
  4.1032 +	#       lhs or rhs.
  4.1033 +	$self->{options}{'_default_translated'} .= " <lhs>";
  4.1034 +	$self->{options}{'_default_break'} .= " <lhs>";
  4.1035 +
  4.1036 +	# lineage; contains text; Formatted inline
  4.1037 +	$self->{options}{'_default_translated'} .= " <lineage>";
  4.1038 +	$self->{options}{'_default_inline'} .= " <lineage>";
  4.1039 +
  4.1040 +	# lineannotation; contains text; Formatted inline
  4.1041 +	$self->{options}{'_default_translated'} .= " <lineannotation>";
  4.1042 +	$self->{options}{'_default_inline'} .= " <lineannotation>";
  4.1043 +
  4.1044 +	# link; contains text; Formatted inline
  4.1045 +	$self->{options}{'_default_translated'} .= " <link>";
  4.1046 +	$self->{options}{'_default_inline'} .= " <link>";
  4.1047 +
  4.1048 +	# listitem; does not contain text; Formatted as a displayed block.
  4.1049 +	$self->{options}{'_default_untranslated'} .= " <listitem>";
  4.1050 +	$self->{options}{'_default_break'} .= " <listitem>";
  4.1051 +
  4.1052 +	# literal; contains text; Formatted inline
  4.1053 +	$self->{options}{'_default_translated'} .= " <literal>";
  4.1054 +	$self->{options}{'_default_inline'} .= " <literal>";
  4.1055 +
  4.1056 +	# literallayout; contains text; verbatim
  4.1057 +	$self->{options}{'_default_translated'} .= " W<literallayout>";
  4.1058 +	$self->{options}{'_default_placeholder'} .= " <literallayout>";
  4.1059 +
  4.1060 +	# locator; does not contain text;
  4.1061 +	$self->{options}{'_default_untranslated'} .= " <locator>";
  4.1062 +	$self->{options}{'_default_inline'} .= " <locator>";
  4.1063 +
  4.1064 +	# lot; does not contain text; Formatted as a displayed block.
  4.1065 +	# v4, not in v5
  4.1066 +	$self->{options}{'_default_untranslated'} .= " <lot>";
  4.1067 +	$self->{options}{'_default_break'} .= " <lot>";
  4.1068 +
  4.1069 +	# lotentry; contains text; Formatted as a displayed block.
  4.1070 +	# v4, not in v5
  4.1071 +	$self->{options}{'_default_translated'} .= " <lotentry>";
  4.1072 +	$self->{options}{'_default_break'} .= " <lotentry>";
  4.1073 +
  4.1074 +# MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
  4.1075 +
  4.1076 +	# manvolnum; contains text;
  4.1077 +	$self->{options}{'_default_translated'} .= " <manvolnum>";
  4.1078 +	$self->{options}{'_default_inline'} .= " <manvolnum>";
  4.1079 +
  4.1080 +	# markup; contains text; Formatted inline
  4.1081 +	$self->{options}{'_default_translated'} .= " <markup>";
  4.1082 +	$self->{options}{'_default_inline'} .= " <markup>";
  4.1083 +
  4.1084 +	# mathphrase; contains text; Formatted inline
  4.1085 +	$self->{options}{'_default_translated'} .= " <mathphrase>";
  4.1086 +	$self->{options}{'_default_inline'} .= " <mathphrase>";
  4.1087 +
  4.1088 +	# medialabel; contains text; Formatted inline
  4.1089 +	# v4, not in v5
  4.1090 +	$self->{options}{'_default_translated'} .= " <medialabel>";
  4.1091 +	$self->{options}{'_default_inline'} .= " <medialabel>";
  4.1092 +
  4.1093 +	# mediaobject; does not contain text; Formatted as a displayed block.
  4.1094 +	$self->{options}{'_default_untranslated'} .= " <mediaobject>";
  4.1095 +	$self->{options}{'_default_placeholder'} .= " <mediaobject>";
  4.1096 +
  4.1097 +	# mediaobjectco; does not contain text; Formatted as a displayed block.
  4.1098 +	$self->{options}{'_default_untranslated'} .= " <mediaobjectco>";
  4.1099 +	$self->{options}{'_default_placeholder'} .= " <mediaobjectco>";
  4.1100 +
  4.1101 +	# member; contains text; Formatted inline
  4.1102 +	$self->{options}{'_default_translated'} .= " <member>";
  4.1103 +	$self->{options}{'_default_inline'} .= " <member>";
  4.1104 +
  4.1105 +	# menuchoice; does not contain text; Formatted inline
  4.1106 +	$self->{options}{'_default_translated'} .= " <menuchoice>";
  4.1107 +	$self->{options}{'_default_inline'} .= " <menuchoice>";
  4.1108 +
  4.1109 +	# methodname; contains text; Formatted inline
  4.1110 +	$self->{options}{'_default_translated'} .= " <methodname>";
  4.1111 +	$self->{options}{'_default_inline'} .= " <methodname>";
  4.1112 +
  4.1113 +	# methodparam; does not contain text; Formatted inline
  4.1114 +	$self->{options}{'_default_translated'} .= " <methodparam>";
  4.1115 +	$self->{options}{'_default_inline'} .= " <methodparam>";
  4.1116 +
  4.1117 +	# methodsynopsis; does not contain text; Formatted inline
  4.1118 +	$self->{options}{'_default_translated'} .= " <methodsynopsis>";
  4.1119 +	$self->{options}{'_default_inline'} .= " <methodsynopsis>";
  4.1120 +
  4.1121 +	# modifier; contains text; Formatted inline
  4.1122 +	$self->{options}{'_default_translated'} .= " <modifier>";
  4.1123 +	$self->{options}{'_default_inline'} .= " <modifier>";
  4.1124 +
  4.1125 +	# mousebutton; contains text; Formatted inline
  4.1126 +	$self->{options}{'_default_translated'} .= " <mousebutton>";
  4.1127 +	$self->{options}{'_default_inline'} .= " <mousebutton>";
  4.1128 +
  4.1129 +	# msg; does not contain text; Formatted as a displayed block.
  4.1130 +	$self->{options}{'_default_untranslated'} .= " <msg>";
  4.1131 +	$self->{options}{'_default_break'} .= " <msg>";
  4.1132 +
  4.1133 +	# msgaud; contains text; Formatted as a displayed block.
  4.1134 +	$self->{options}{'_default_translated'} .= " <msgaud>";
  4.1135 +	$self->{options}{'_default_break'} .= " <msgaud>";
  4.1136 +
  4.1137 +	# msgentry; does not contain text; Formatted as a displayed block.
  4.1138 +	$self->{options}{'_default_untranslated'} .= " <msgentry>";
  4.1139 +	$self->{options}{'_default_break'} .= " <msgentry>";
  4.1140 +
  4.1141 +	# msgexplan; does not contain text; Formatted as a displayed block.
  4.1142 +	$self->{options}{'_default_untranslated'} .= " <msgexplan>";
  4.1143 +	$self->{options}{'_default_break'} .= " <msgexplan>";
  4.1144 +
  4.1145 +	# msginfo; does not contain text; Formatted as a displayed block.
  4.1146 +	$self->{options}{'_default_untranslated'} .= " <msginfo>";
  4.1147 +	$self->{options}{'_default_break'} .= " <msginfo>";
  4.1148 +
  4.1149 +	# msglevel; contains text; Formatted as a displayed block.
  4.1150 +	$self->{options}{'_default_translated'} .= " <msglevel>";
  4.1151 +	$self->{options}{'_default_break'} .= " <msglevel>";
  4.1152 +
  4.1153 +	# msgmain; does not contain text; Formatted as a displayed block.
  4.1154 +	$self->{options}{'_default_untranslated'} .= " <msgmain>";
  4.1155 +	$self->{options}{'_default_break'} .= " <msgmain>";
  4.1156 +
  4.1157 +	# msgorig; contains text; Formatted as a displayed block.
  4.1158 +	$self->{options}{'_default_translated'} .= " <msgorig>";
  4.1159 +	$self->{options}{'_default_break'} .= " <msgorig>";
  4.1160 +
  4.1161 +	# msgrel; does not contain text; Formatted as a displayed block.
  4.1162 +	$self->{options}{'_default_untranslated'} .= " <msgrel>";
  4.1163 +	$self->{options}{'_default_break'} .= " <msgrel>";
  4.1164 +
  4.1165 +	# msgset; does not contain text; Formatted as a displayed block.
  4.1166 +	$self->{options}{'_default_untranslated'} .= " <msgset>";
  4.1167 +	$self->{options}{'_default_placeholder'} .= " <msgset>";
  4.1168 +
  4.1169 +	# msgsub; does not contain text; Formatted as a displayed block.
  4.1170 +	$self->{options}{'_default_untranslated'} .= " <msgsub>";
  4.1171 +	$self->{options}{'_default_break'} .= " <msgsub>";
  4.1172 +
  4.1173 +	# msgtext; does not contain text; Formatted as a displayed block.
  4.1174 +	$self->{options}{'_default_untranslated'} .= " <msgtext>";
  4.1175 +	$self->{options}{'_default_break'} .= " <msgtext>";
  4.1176 +
  4.1177 +# NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
  4.1178 +
  4.1179 +	# nonterminal; contains text; Formatted inline
  4.1180 +	$self->{options}{'_default_translated'} .= " <nonterminal>";
  4.1181 +	$self->{options}{'_default_inline'} .= " <nonterminal>";
  4.1182 +
  4.1183 +	# note; does not contain text; Formatted inline
  4.1184 +	# NOTE: can be in a para
  4.1185 +	$self->{options}{'_default_untranslated'} .= " <note>";
  4.1186 +	$self->{options}{'_default_inline'} .= " <note>";
  4.1187 +
  4.1188 +# OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
  4.1189 +
  4.1190 +	# objectinfo; does not contain text; v3.1 -> v4, not in v5
  4.1191 +	$self->{options}{'_default_untranslated'} .= " <objectinfo>";
  4.1192 +	$self->{options}{'_default_placeholder'} .= " <objectinfo>";
  4.1193 +
  4.1194 +	# olink; contains text; Formatted inline
  4.1195 +	$self->{options}{'_default_translated'} .= " <olink>";
  4.1196 +	$self->{options}{'_default_inline'} .= " <olink>";
  4.1197 +
  4.1198 +	# ooclass; does not contain text; Formatted inline
  4.1199 +	$self->{options}{'_default_translated'} .= " <ooclass>";
  4.1200 +	$self->{options}{'_default_inline'} .= " <ooclass>";
  4.1201 +
  4.1202 +	# ooexception; contains text; Formatted inline
  4.1203 +	$self->{options}{'_default_translated'} .= " <ooexception>";
  4.1204 +	$self->{options}{'_default_inline'} .= " <ooexception>";
  4.1205 +
  4.1206 +	# oointerface; contains text; Formatted inline
  4.1207 +	$self->{options}{'_default_translated'} .= " <oointerface>";
  4.1208 +	$self->{options}{'_default_inline'} .= " <oointerface>";
  4.1209 +
  4.1210 +	# option; contains text; Formatted inline
  4.1211 +	$self->{options}{'_default_translated'} .= " <option>";
  4.1212 +	$self->{options}{'_default_inline'} .= " <option>";
  4.1213 +
  4.1214 +	# optional; contains text; Formatted inline
  4.1215 +	$self->{options}{'_default_translated'} .= " <optional>";
  4.1216 +	$self->{options}{'_default_inline'} .= " <optional>";
  4.1217 +
  4.1218 +	# orderedlist; does not contain text; Formatted as a displayed block.
  4.1219 +	$self->{options}{'_default_untranslated'} .= " <orderedlist>";
  4.1220 +	$self->{options}{'_default_placeholder'} .= " <orderedlist>";
  4.1221 +
  4.1222 +	# org; does not contain text; Formatted inline or as a
  4.1223 +	# displayed block depending on context
  4.1224 +	$self->{options}{'_default_untranslated'} .= " <org>";
  4.1225 +	$self->{options}{'_default_inline'} .= " <org>";
  4.1226 +
  4.1227 +	# orgdiv; contains text; Formatted inline
  4.1228 +	$self->{options}{'_default_translated'} .= " <orgdiv>";
  4.1229 +	$self->{options}{'_default_inline'} .= " <orgdiv>";
  4.1230 +
  4.1231 +	# orgname; contains text; Formatted inline
  4.1232 +	$self->{options}{'_default_translated'} .= " <orgname>";
  4.1233 +	$self->{options}{'_default_inline'} .= " <orgname>";
  4.1234 +
  4.1235 +	# otheraddr; contains text; Formatted inline
  4.1236 +	$self->{options}{'_default_translated'} .= " <otheraddr>";
  4.1237 +	$self->{options}{'_default_inline'} .= " <otheraddr>";
  4.1238 +
  4.1239 +	# othercredit; does not contain text; Formatted inline or as a
  4.1240 +	# displayed block depending on context
  4.1241 +	$self->{options}{'_default_untranslated'} .= " <othercredit>";
  4.1242 +	$self->{options}{'_default_inline'} .= " <othercredit>";
  4.1243 +
  4.1244 +	# othername; contains text; Formatted inline
  4.1245 +	$self->{options}{'_default_translated'} .= " <othername>";
  4.1246 +	$self->{options}{'_default_inline'} .= " <othername>";
  4.1247 +
  4.1248 +# PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP
  4.1249 +
  4.1250 +	# package; contains text; Formatted inline
  4.1251 +	$self->{options}{'_default_translated'} .= " <package>";
  4.1252 +	$self->{options}{'_default_inline'} .= " <package>";
  4.1253 +
  4.1254 +	# pagenums; contains text; Formatted inline
  4.1255 +	$self->{options}{'_default_translated'} .= " <pagenums>";
  4.1256 +	$self->{options}{'_default_inline'} .= " <pagenums>";
  4.1257 +
  4.1258 +	# para; contains text; Formatted as a displayed block
  4.1259 +	$self->{options}{'_default_translated'} .= " <para>";
  4.1260 +	$self->{options}{'_default_break'} .= " <para>";
  4.1261 +
  4.1262 +	# paramdef; contains text; Formatted inline
  4.1263 +	$self->{options}{'_default_translated'} .= " <paramdef>";
  4.1264 +	$self->{options}{'_default_inline'} .= " <paramdef>";
  4.1265 +
  4.1266 +	# parameter; contains text; Formatted inline
  4.1267 +	$self->{options}{'_default_translated'} .= " <parameter>";
  4.1268 +	$self->{options}{'_default_inline'} .= " <parameter>";
  4.1269 +
  4.1270 +	# part; does not contain text; Formatted as a displayed block.
  4.1271 +	$self->{options}{'_default_untranslated'} .= " <part>";
  4.1272 +	$self->{options}{'_default_break'} .= " <part>";
  4.1273 +
  4.1274 +	# partinfo; does not contain text; v4, not in v5
  4.1275 +	$self->{options}{'_default_untranslated'} .= " <partinfo>";
  4.1276 +	$self->{options}{'_default_placeholder'} .= " <partinfo>";
  4.1277 +
  4.1278 +	# partintro; does not contain text; Formatted as a displayed block.
  4.1279 +	$self->{options}{'_default_untranslated'} .= " <partintro>";
  4.1280 +	$self->{options}{'_default_break'} .= " <partintro>";
  4.1281 +
  4.1282 +	# person; does not contain text; Formatted inline or as a
  4.1283 +	# displayed block depending on context
  4.1284 +	$self->{options}{'_default_untranslated'} .= " <person>";
  4.1285 +	$self->{options}{'_default_inline'} .= " <person>";
  4.1286 +
  4.1287 +	# personblurb; does not contain text; Formatted as a displayed block.
  4.1288 +	$self->{options}{'_default_untranslated'} .= " <personblurb>";
  4.1289 +	$self->{options}{'_default_placeholder'} .= " <personblurb>";
  4.1290 +
  4.1291 +	# personname; contains text; Formatted inline
  4.1292 +	$self->{options}{'_default_translated'} .= " <personname>";
  4.1293 +	$self->{options}{'_default_inline'} .= " <personname>";
  4.1294 +
  4.1295 +	# phone; contains text; Formatted inline
  4.1296 +	$self->{options}{'_default_translated'} .= " <phone>";
  4.1297 +	$self->{options}{'_default_inline'} .= " <phone>";
  4.1298 +
  4.1299 +	# phrase; contains text; Formatted inline
  4.1300 +	$self->{options}{'_default_translated'} .= " <phrase>";
  4.1301 +	$self->{options}{'_default_inline'} .= " <phrase>";
  4.1302 +
  4.1303 +	# pob; contains text; Formatted inline
  4.1304 +	$self->{options}{'_default_translated'} .= " <pob>";
  4.1305 +	$self->{options}{'_default_inline'} .= " <pob>";
  4.1306 +
  4.1307 +	# postcode; contains text; Formatted inline
  4.1308 +	$self->{options}{'_default_translated'} .= " <postcode>";
  4.1309 +	$self->{options}{'_default_inline'} .= " <postcode>";
  4.1310 +
  4.1311 +	# preface; does not contain text; Formatted as a displayed block.
  4.1312 +	$self->{options}{'_default_untranslated'} .= " <preface>";
  4.1313 +	$self->{options}{'_default_break'} .= " <preface>";
  4.1314 +
  4.1315 +	# prefaceinfo; does not contain text; v4, not in v5
  4.1316 +	$self->{options}{'_default_untranslated'} .= " <prefaceinfo>";
  4.1317 +	$self->{options}{'_default_placeholder'} .= " <prefaceinfo>";
  4.1318 +
  4.1319 +	# primary; contains text;
  4.1320 +	$self->{options}{'_default_translated'} .= " <primary>";
  4.1321 +	$self->{options}{'_default_break'} .= " <primary>";
  4.1322 +
  4.1323 +	# primaryie; contains text; Formatted as a displayed block.
  4.1324 +	$self->{options}{'_default_translated'} .= " <primaryie>";
  4.1325 +	$self->{options}{'_default_break'} .= " <primaryie>";
  4.1326 +
  4.1327 +	# printhistory; does not contain text; Formatted as a displayed block.
  4.1328 +	$self->{options}{'_default_untranslated'} .= " <printhistory>";
  4.1329 +	$self->{options}{'_default_break'} .= " <printhistory>";
  4.1330 +
  4.1331 +	# procedure; does not contain text; Formatted as a displayed block.
  4.1332 +	$self->{options}{'_default_untranslated'} .= " <procedure>";
  4.1333 +	$self->{options}{'_default_placeholder'} .= " <procedure>";
  4.1334 +
  4.1335 +	# production; doesnot contain text;
  4.1336 +	# NOTE: it might be better to have the production as verbatim
  4.1337 +	#       Keeping the constrainst inline to have it close to the
  4.1338 +	#       lhs or rhs.
  4.1339 +	$self->{options}{'_default_untranslated'} .= " <production>";
  4.1340 +	$self->{options}{'_default_break'} .= " <production>";
  4.1341 +
  4.1342 +	# productionrecap; does not contain text; like production
  4.1343 +	$self->{options}{'_default_untranslated'} .= " <productionrecap>";
  4.1344 +	$self->{options}{'_default_break'} .= " <productionrecap>";
  4.1345 +
  4.1346 +	# productionset; does not contain text; Formatted as a displayed block.
  4.1347 +	$self->{options}{'_default_untranslated'} .= " <productionset>";
  4.1348 +	$self->{options}{'_default_placeholder'} .= " <productionset>";
  4.1349 +
  4.1350 +	# productname; contains text; Formatted inline
  4.1351 +	$self->{options}{'_default_translated'} .= " <productname>";
  4.1352 +	$self->{options}{'_default_inline'} .= " <productname>";
  4.1353 +
  4.1354 +	# productnumber; contains text; Formatted inline
  4.1355 +	$self->{options}{'_default_translated'} .= " <productnumber>";
  4.1356 +	$self->{options}{'_default_inline'} .= " <productnumber>";
  4.1357 +
  4.1358 +	# programlisting; contains text; Formatted as a displayed block.
  4.1359 +	$self->{options}{'_default_translated'} .= " W<programlisting>";
  4.1360 +	$self->{options}{'_default_placeholder'} .= " <programlisting>";
  4.1361 +
  4.1362 +	# programlistingco; contains text; Formatted as a displayed block.
  4.1363 +	$self->{options}{'_default_untranslated'} .= " <programlistingco>";
  4.1364 +	$self->{options}{'_default_placeholder'} .= " <programlistingco>";
  4.1365 +
  4.1366 +	# prompt; contains text; Formatted inline
  4.1367 +	$self->{options}{'_default_translated'} .= " <prompt>";
  4.1368 +	$self->{options}{'_default_inline'} .= " <prompt>";
  4.1369 +
  4.1370 +	# property; contains text; Formatted inline
  4.1371 +	$self->{options}{'_default_translated'} .= " <property>";
  4.1372 +	$self->{options}{'_default_inline'} .= " <property>";
  4.1373 +
  4.1374 +	# pubdate; contains text; Formatted inline
  4.1375 +	$self->{options}{'_default_translated'} .= " <pubdate>";
  4.1376 +	$self->{options}{'_default_inline'} .= " <pubdate>";
  4.1377 +
  4.1378 +	# publisher; does not contain text; Formatted inline or as a displayed block
  4.1379 +	# NOTE: could be in the break class
  4.1380 +	$self->{options}{'_default_translated'} .= " <publisher>";
  4.1381 +	$self->{options}{'_default_inline'} .= " <publisher>";
  4.1382 +
  4.1383 +	# publishername; contains text; Formatted inline or as a displayed block
  4.1384 +	$self->{options}{'_default_translated'} .= " <publishername>";
  4.1385 +	$self->{options}{'_default_inline'} .= " <publishername>";
  4.1386 +
  4.1387 +# QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ
  4.1388 +
  4.1389 +	# qandadiv; does not contain text; Formatted as a displayed block.
  4.1390 +	$self->{options}{'_default_untranslated'} .= " <qandadiv>";
  4.1391 +	$self->{options}{'_default_break'} .= " <qandadiv>";
  4.1392 +
  4.1393 +	# qandaentry; does not contain text; Formatted as a displayed block.
  4.1394 +	$self->{options}{'_default_untranslated'} .= " <qandaentry>";
  4.1395 +	$self->{options}{'_default_break'} .= " <qandaentry>";
  4.1396 +
  4.1397 +	# qandaset; does not contain text; Formatted as a displayed block.
  4.1398 +	$self->{options}{'_default_untranslated'} .= " <qandaset>";
  4.1399 +	$self->{options}{'_default_break'} .= " <qandaset>";
  4.1400 +
  4.1401 +	# question; does not contain text;
  4.1402 +	$self->{options}{'_default_untranslated'} .= " <question>";
  4.1403 +	$self->{options}{'_default_break'} .= " <question>";
  4.1404 +
  4.1405 +	# quote; contains text; Formatted inline
  4.1406 +	$self->{options}{'_default_translated'} .= " <quote>";
  4.1407 +	$self->{options}{'_default_inline'} .= " <quote>";
  4.1408 +
  4.1409 +# RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR
  4.1410 +
  4.1411 +	# refclass; contains text; Formatted inline or as a displayed block
  4.1412 +	# NOTE: could be in the inline class
  4.1413 +	$self->{options}{'_default_translated'} .= " <refclass>";
  4.1414 +	$self->{options}{'_default_break'} .= " <refclass>";
  4.1415 +
  4.1416 +	# refdescriptor; contains text; Formatted inline or as a displayed block
  4.1417 +	# NOTE: could be in the inline class
  4.1418 +	$self->{options}{'_default_translated'} .= " <refdescriptor>";
  4.1419 +	$self->{options}{'_default_break'} .= " <refdescriptor>";
  4.1420 +
  4.1421 +	# refentry; does not contain text; Formatted as a displayed block
  4.1422 +	$self->{options}{'_default_untranslated'} .= " <refentry>";
  4.1423 +	$self->{options}{'_default_break'} .= " <refentry>";
  4.1424 +
  4.1425 +	# refentryinfo; does not contain text; v4, not in v5
  4.1426 +	$self->{options}{'_default_untranslated'} .= " <refentryinfo>";
  4.1427 +	$self->{options}{'_default_placeholder'} .= " <refentryinfo>";
  4.1428 +
  4.1429 +	# refentrytitle; contains text; Formatted as a displayed block
  4.1430 +# FIXME: do not seems to be a block
  4.1431 +	$self->{options}{'_default_translated'} .= " <refentrytitle>";
  4.1432 +	$self->{options}{'_default_inline'} .= " <refentrytitle>";
  4.1433 +
  4.1434 +	# reference; does not contain text; Formatted as a displayed block
  4.1435 +	$self->{options}{'_default_untranslated'} .= " <reference>";
  4.1436 +	$self->{options}{'_default_break'} .= " <reference>";
  4.1437 +
  4.1438 +	# referenceinfo; does not contain text; v4, not in v5
  4.1439 +	$self->{options}{'_default_untranslated'} .= " <referenceinfo>";
  4.1440 +	$self->{options}{'_default_placeholder'} .= " <referenceinfo>";
  4.1441 +
  4.1442 +	# refmeta; does not contains text; 
  4.1443 +	# NOTE: could be in the inline class
  4.1444 +	$self->{options}{'_default_untranslated'} .= " <refmeta>";
  4.1445 +	$self->{options}{'_default_break'} .= " <refmeta>";
  4.1446 +
  4.1447 +	# refmiscinfo; contains text; Formatted inline or as a displayed block
  4.1448 +	# NOTE: could be in the inline class
  4.1449 +	$self->{options}{'_default_translated'} .= " <refmiscinfo>";
  4.1450 +	$self->{options}{'_default_break'} .= " <refmiscinfo>";
  4.1451 +
  4.1452 +	# refname; contains text; Formatted inline or as a displayed block
  4.1453 +	# NOTE: could be in the inline class
  4.1454 +	$self->{options}{'_default_translated'} .= " <refname>";
  4.1455 +	$self->{options}{'_default_break'} .= " <refname>";
  4.1456 +
  4.1457 +	# refnamediv; does not contain text; Formatted as a displayed block
  4.1458 +	$self->{options}{'_default_untranslated'} .= " <refnamediv>";
  4.1459 +	$self->{options}{'_default_break'} .= " <refnamediv>";
  4.1460 +
  4.1461 +	# refpurpose; contains text; Formatted inline
  4.1462 +	$self->{options}{'_default_translated'} .= " <refpurpose>";
  4.1463 +	$self->{options}{'_default_inline'} .= " <refpurpose>";
  4.1464 +
  4.1465 +	# refsect1; does not contain text; Formatted as a displayed block
  4.1466 +	$self->{options}{'_default_untranslated'} .= " <refsect1>";
  4.1467 +	$self->{options}{'_default_break'} .= " <refsect1>";
  4.1468 +
  4.1469 +	# refsect1info; does not contain text; v4, not in v5
  4.1470 +	$self->{options}{'_default_untranslated'} .= " <refsect1info>";
  4.1471 +	$self->{options}{'_default_placeholder'} .= " <refsect1info>";
  4.1472 +
  4.1473 +	# refsect2; does not contain text; Formatted as a displayed block
  4.1474 +	$self->{options}{'_default_untranslated'} .= " <refsect2>";
  4.1475 +	$self->{options}{'_default_break'} .= " <refsect2>";
  4.1476 +
  4.1477 +	# refsect2info; does not contain text; v4, not in v5
  4.1478 +	$self->{options}{'_default_untranslated'} .= " <refsect2info>";
  4.1479 +	$self->{options}{'_default_placeholder'} .= " <refsect2info>";
  4.1480 +
  4.1481 +	# refsect3; does not contain text; Formatted as a displayed block
  4.1482 +	$self->{options}{'_default_untranslated'} .= " <refsect3>";
  4.1483 +	$self->{options}{'_default_break'} .= " <refsect3>";
  4.1484 +
  4.1485 +	# refsect3info; does not contain text; v4, not in v5
  4.1486 +	$self->{options}{'_default_untranslated'} .= " <refsect3info>";
  4.1487 +	$self->{options}{'_default_placeholder'} .= " <refsect3info>";
  4.1488 +
  4.1489 +	# refsection; does not contain text; Formatted as a displayed block
  4.1490 +	$self->{options}{'_default_untranslated'} .= " <refsection>";
  4.1491 +	$self->{options}{'_default_break'} .= " <refsection>";
  4.1492 +
  4.1493 +	# refsectioninfo; does not contain text; v4, not in v5
  4.1494 +	$self->{options}{'_default_untranslated'} .= " <refsectioninfo>";
  4.1495 +	$self->{options}{'_default_placeholder'} .= " <refsectioninfo>";
  4.1496 +
  4.1497 +	# refsynopsisdiv; does not contain text; Formatted as a displayed block
  4.1498 +	$self->{options}{'_default_untranslated'} .= " <refsynopsisdiv>";
  4.1499 +	$self->{options}{'_default_break'} .= " <refsynopsisdiv>";
  4.1500 +
  4.1501 +	# refsynopsisdivinfo; does not contain text; v4, not in v5
  4.1502 +	$self->{options}{'_default_untranslated'} .= " <refsynopsisdivinfo>";
  4.1503 +	$self->{options}{'_default_placeholder'} .= " <refsynopsisdivinfo>";
  4.1504 +
  4.1505 +	# releaseinfo; contains text; Formatted inline or as a displayed block
  4.1506 +	# NOTE: could be in the inline class
  4.1507 +	$self->{options}{'_default_translated'} .= " <releaseinfo>";
  4.1508 +	$self->{options}{'_default_break'} .= " <releaseinfo>";
  4.1509 +
  4.1510 +	# remark; contains text; Formatted inline or as a displayed block
  4.1511 +	$self->{options}{'_default_translated'} .= " <remark>";
  4.1512 +	$self->{options}{'_default_inline'} .= " <remark>";
  4.1513 +
  4.1514 +	# replaceable; contains text; Formatted inline
  4.1515 +	$self->{options}{'_default_translated'} .= " <replaceable>";
  4.1516 +	$self->{options}{'_default_inline'} .= " <replaceable>";
  4.1517 +
  4.1518 +	# returnvalue; contains text; Formatted inline
  4.1519 +	$self->{options}{'_default_translated'} .= " <returnvalue>";
  4.1520 +	$self->{options}{'_default_inline'} .= " <returnvalue>";
  4.1521 +
  4.1522 +	# revdescription; contains text; Formatted inline or as a displayed block
  4.1523 +	$self->{options}{'_default_translated'} .= " <revdescription>";
  4.1524 +	$self->{options}{'_default_break'} .= " <revdescription>";
  4.1525 +
  4.1526 +	# revhistory; does not contain text; Formatted as a displayed block
  4.1527 +	$self->{options}{'_default_untranslated'} .= " <revhistory>";
  4.1528 +	$self->{options}{'_default_break'} .= " <revhistory>";
  4.1529 +
  4.1530 +	# revision; does not contain text;
  4.1531 +	$self->{options}{'_default_untranslated'} .= " <revision>";
  4.1532 +	$self->{options}{'_default_break'} .= " <revision>";
  4.1533 +
  4.1534 +	# revnumber; contains text; Formatted inline
  4.1535 +	$self->{options}{'_default_translated'} .= " <revnumber>";
  4.1536 +	$self->{options}{'_default_inline'} .= " <revnumber>";
  4.1537 +
  4.1538 +	# revremark; contains text; Formatted inline or as a displayed block
  4.1539 +	$self->{options}{'_default_translated'} .= " <revremark>";
  4.1540 +	$self->{options}{'_default_break'} .= " <revremark>";
  4.1541 +
  4.1542 +	# rhs; contains text; Formatted as a displayed block.
  4.1543 +	# NOTE: it might be better to have the production as verbatim
  4.1544 +	#       Keeping the constrainst inline to have it close to the
  4.1545 +	#       lhs or rhs.
  4.1546 +	$self->{options}{'_default_translated'} .= " <rhs>";
  4.1547 +	$self->{options}{'_default_break'} .= " <rhs>";
  4.1548 +
  4.1549 +	# row; does not contain text;
  4.1550 +	$self->{options}{'_default_untranslated'} .= " <row>";
  4.1551 +	$self->{options}{'_default_break'} .= " <row>";
  4.1552 +
  4.1553 +# SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS
  4.1554 +
  4.1555 +	# sbr; does not contain text; line break
  4.1556 +	$self->{options}{'_default_untranslated'} .= " <sbr>";
  4.1557 +	$self->{options}{'_default_break'} .= " <sbr>";
  4.1558 +
  4.1559 +	# screen; contains text; verbatim
  4.1560 +	$self->{options}{'_default_translated'} .= " W<screen>";
  4.1561 +	$self->{options}{'_default_placeholder'} .= " <screen>";
  4.1562 +
  4.1563 +	# screenco; does not contain text; Formatted as a displayed block.
  4.1564 +	$self->{options}{'_default_untranslated'} .= " <screenco>";
  4.1565 +	$self->{options}{'_default_placeholder'} .= " <screenco>";
  4.1566 +
  4.1567 +	# screeninfo; does not contain text; v4, not in v5
  4.1568 +	$self->{options}{'_default_untranslated'} .= " <screeninfo>";
  4.1569 +	$self->{options}{'_default_placeholder'} .= " <screeninfo>";
  4.1570 +
  4.1571 +	# screenshot; does not contain text; Formatted as a displayed block.
  4.1572 +	$self->{options}{'_default_untranslated'} .= " <screenshot>";
  4.1573 +	$self->{options}{'_default_placeholder'} .= " <screenshot>";
  4.1574 +
  4.1575 +	# secondary; contains text; 
  4.1576 +	$self->{options}{'_default_translated'} .= " <secondary>";
  4.1577 +	$self->{options}{'_default_break'} .= " <secondary>";
  4.1578 +
  4.1579 +	# secondaryie; contains text; Formatted as a displayed block.
  4.1580 +	$self->{options}{'_default_translated'} .= " <secondaryie>";
  4.1581 +	$self->{options}{'_default_break'} .= " <secondaryie>";
  4.1582 +
  4.1583 +	# sect1; does not contain text; Formatted as a displayed block.
  4.1584 +	$self->{options}{'_default_untranslated'} .= " <sect1>";
  4.1585 +	$self->{options}{'_default_break'} .= " <sect1>";
  4.1586 +
  4.1587 +	# sect1info; does not contain text; v4, not in v5
  4.1588 +	$self->{options}{'_default_untranslated'} .= " <sect1info>";
  4.1589 +	$self->{options}{'_default_placeholder'} .= " <sect1info>";
  4.1590 +
  4.1591 +	# sect2; does not contain text; Formatted as a displayed block.
  4.1592 +	$self->{options}{'_default_untranslated'} .= " <sect2>";
  4.1593 +	$self->{options}{'_default_break'} .= " <sect2>";
  4.1594 +
  4.1595 +	# sect2info; does not contain text; v4, not in v5
  4.1596 +	$self->{options}{'_default_untranslated'} .= " <sect2info>";
  4.1597 +	$self->{options}{'_default_placeholder'} .= " <sect2info>";
  4.1598 +
  4.1599 +	# sect3; does not contain text; Formatted as a displayed block.
  4.1600 +	$self->{options}{'_default_untranslated'} .= " <sect3>";
  4.1601 +	$self->{options}{'_default_break'} .= " <sect3>";
  4.1602 +
  4.1603 +	# sect3info; does not contain text; v4, not in v5
  4.1604 +	$self->{options}{'_default_untranslated'} .= " <sect3info>";
  4.1605 +	$self->{options}{'_default_placeholder'} .= " <sect3info>";
  4.1606 +
  4.1607 +	# sect4; does not contain text; Formatted as a displayed block.
  4.1608 +	$self->{options}{'_default_untranslated'} .= " <sect4>";
  4.1609 +	$self->{options}{'_default_break'} .= " <sect4>";
  4.1610 +
  4.1611 +	# sect4info; does not contain text; v4, not in v5
  4.1612 +	$self->{options}{'_default_untranslated'} .= " <sect4info>";
  4.1613 +	$self->{options}{'_default_placeholder'} .= " <sect4info>";
  4.1614 +
  4.1615 +	# sect5; does not contain text; Formatted as a displayed block.
  4.1616 +	$self->{options}{'_default_untranslated'} .= " <sect5>";
  4.1617 +	$self->{options}{'_default_break'} .= " <sect5>";
  4.1618 +
  4.1619 +	# sect5info; does not contain text; v4, not in v5
  4.1620 +	$self->{options}{'_default_untranslated'} .= " <sect5info>";
  4.1621 +	$self->{options}{'_default_placeholder'} .= " <sect5info>";
  4.1622 +
  4.1623 +	# section; does not contain text; Formatted as a displayed block.
  4.1624 +	$self->{options}{'_default_untranslated'} .= " <section>";
  4.1625 +	$self->{options}{'_default_break'} .= " <section>";
  4.1626 +
  4.1627 +	# sectioninfo; does not contain text; v3.1 -> v4, not in v5
  4.1628 +	$self->{options}{'_default_untranslated'} .= " <sectioninfo>";
  4.1629 +	$self->{options}{'_default_placeholder'} .= " <sectioninfo>";
  4.1630 +
  4.1631 +	# see; contains text; 
  4.1632 +	$self->{options}{'_default_translated'} .= " <see>";
  4.1633 +	$self->{options}{'_default_break'} .= " <see>";
  4.1634 +
  4.1635 +	# seealso; contains text; 
  4.1636 +	$self->{options}{'_default_translated'} .= " <seealso>";
  4.1637 +	$self->{options}{'_default_break'} .= " <seealso>";
  4.1638 +
  4.1639 +	# seealsoie; contains text; Formatted as a displayed block.
  4.1640 +	$self->{options}{'_default_translated'} .= " <seealsoie>";
  4.1641 +	$self->{options}{'_default_break'} .= " <seealsoie>";
  4.1642 +
  4.1643 +	# seeie; contains text; Formatted as a displayed block.
  4.1644 +	$self->{options}{'_default_translated'} .= " <seeie>";
  4.1645 +	$self->{options}{'_default_break'} .= " <seeie>";
  4.1646 +
  4.1647 +	# seg; contains text;
  4.1648 +	$self->{options}{'_default_translated'} .= " <seg>";
  4.1649 +	$self->{options}{'_default_break'} .= " <seg>";
  4.1650 +
  4.1651 +	# seglistitem; does not contain text;
  4.1652 +	$self->{options}{'_default_untranslated'} .= " <seglistitem>";
  4.1653 +	$self->{options}{'_default_break'} .= " <seglistitem>";
  4.1654 +
  4.1655 +	# segmentedlist; does not contain text;
  4.1656 +	$self->{options}{'_default_untranslated'} .= " <segmentedlist>";
  4.1657 +	$self->{options}{'_default_break'} .= " <segmentedlist>";
  4.1658 +
  4.1659 +	# segtitle; contains text;
  4.1660 +	$self->{options}{'_default_translated'} .= " <segtitle>";
  4.1661 +	$self->{options}{'_default_break'} .= " <segtitle>";
  4.1662 +
  4.1663 +	# seriesinfo; does not contain text;
  4.1664 +	# Removed in v4.0
  4.1665 +	$self->{options}{'_default_untranslated'} .= " <seriesinfo>";
  4.1666 +	$self->{options}{'_default_placeholder'} .= " <seriesinfo>";
  4.1667 +
  4.1668 +	# seriesvolnums; contains text; Formatted inline
  4.1669 +	# NOTE: could be in the break class
  4.1670 +	$self->{options}{'_default_translated'} .= " <seriesvolnums>";
  4.1671 +	$self->{options}{'_default_inline'} .= " <seriesvolnums>";
  4.1672 +
  4.1673 +	# set; does not contain text; Formatted as a displayed block.
  4.1674 +	$self->{options}{'_default_untranslated'} .= " <set>";
  4.1675 +	$self->{options}{'_default_break'} .= " <set>";
  4.1676 +
  4.1677 +	# setindex; does not contain text; Formatted as a displayed block.
  4.1678 +	$self->{options}{'_default_untranslated'} .= " <setindex>";
  4.1679 +	$self->{options}{'_default_break'} .= " <setindex>";
  4.1680 +
  4.1681 +	# setindexinfo; does not contain text; v4, not in v5
  4.1682 +	$self->{options}{'_default_untranslated'} .= " <setindexinfo>";
  4.1683 +	$self->{options}{'_default_placeholder'} .= " <setindexinfo>";
  4.1684 +
  4.1685 +	# setinfo; does not contain text; v4, not in v5
  4.1686 +	$self->{options}{'_default_untranslated'} .= " <setinfo>";
  4.1687 +	$self->{options}{'_default_placeholder'} .= " <setinfo>";
  4.1688 +
  4.1689 +	# sgmltag; contains text; Formatted inline; v4, not in v5
  4.1690 +	$self->{options}{'_default_translated'} .= " <sgmltag>";
  4.1691 +	$self->{options}{'_default_inline'} .= " <sgmltag>";
  4.1692 +
  4.1693 +	# shortaffil; contains text; Formatted inline or as a
  4.1694 +	# displayed block depending on context
  4.1695 +	$self->{options}{'_default_translated'} .= " <shortaffil>";
  4.1696 +	$self->{options}{'_default_inline'} .= " <shortaffil>";
  4.1697 +
  4.1698 +	# shortcut; does not contain text; Formatted inline
  4.1699 +	$self->{options}{'_default_untranslated'} .= " <shortcut>";
  4.1700 +	$self->{options}{'_default_inline'} .= " <shortcut>";
  4.1701 +
  4.1702 +	# sidebar; does not contain text; Formatted as a displayed block.
  4.1703 +	$self->{options}{'_default_untranslated'} .= " <sidebar>";
  4.1704 +	$self->{options}{'_default_break'} .= " <sidebar>";
  4.1705 +
  4.1706 +	# sidebarinfo; does not contain text; v4, not in v5
  4.1707 +	$self->{options}{'_default_untranslated'} .= " <sidebarinfo>";
  4.1708 +	$self->{options}{'_default_placeholder'} .= " <sidebarinfo>";
  4.1709 +
  4.1710 +	# simpara; contains text; Formatted as a displayed block.
  4.1711 +	$self->{options}{'_default_translated'} .= " <simpara>";
  4.1712 +	$self->{options}{'_default_break'} .= " <simpara>";
  4.1713 +
  4.1714 +	# simplelist; does not contain text;
  4.1715 +	$self->{options}{'_default_untranslated'} .= " <simplelist>";
  4.1716 +	$self->{options}{'_default_inline'} .= " <simplelist>";
  4.1717 +
  4.1718 +	# simplemsgentry; does not contain text; Formatted as a displayed block.
  4.1719 +	$self->{options}{'_default_untranslated'} .= " <simplemsgentry>";
  4.1720 +	$self->{options}{'_default_break'} .= " <simplemsgentry>";
  4.1721 +
  4.1722 +	# simplesect; does not contain text; Formatted as a displayed block.
  4.1723 +	$self->{options}{'_default_untranslated'} .= " <simplesect>";
  4.1724 +	$self->{options}{'_default_break'} .= " <simplesect>";
  4.1725 +
  4.1726 +	# spanspec; does not contain text; Formatted as a displayed block.
  4.1727 +	$self->{options}{'_default_untranslated'} .= " <spanspec>";
  4.1728 +	$self->{options}{'_default_break'} .= " <spanspec>";
  4.1729 +
  4.1730 +	# state; contains text; Formatted inline
  4.1731 +	$self->{options}{'_default_translated'} .= " <state>";
  4.1732 +	$self->{options}{'_default_inline'} .= " <state>";
  4.1733 +
  4.1734 +	# step; does not contain text; Formatted as a displayed block.
  4.1735 +	$self->{options}{'_default_untranslated'} .= " <step>";
  4.1736 +	$self->{options}{'_default_break'} .= " <step>";
  4.1737 +
  4.1738 +	# stepalternatives; does not contain text; Formatted as a displayed block.
  4.1739 +	$self->{options}{'_default_untranslated'} .= " <stepalternatives>";
  4.1740 +	$self->{options}{'_default_break'} .= " <stepalternatives>";
  4.1741 +
  4.1742 +	# street; contains text; Formatted inline
  4.1743 +	$self->{options}{'_default_translated'} .= " <street>";
  4.1744 +	$self->{options}{'_default_inline'} .= " <street>";
  4.1745 +
  4.1746 +	# structfield; contains text; Formatted inline; v4, not in v5
  4.1747 +	$self->{options}{'_default_translated'} .= " <structfield>";
  4.1748 +	$self->{options}{'_default_inline'} .= " <structfield>";
  4.1749 +
  4.1750 +	# structname; contains text; Formatted inline; v4, not in v5
  4.1751 +	$self->{options}{'_default_translated'} .= " <structname>";
  4.1752 +	$self->{options}{'_default_inline'} .= " <structname>";
  4.1753 +
  4.1754 +	# subject; does not contain text; Formatted inline or as a displayed block
  4.1755 +	# NOTE: could be in the inline class
  4.1756 +	$self->{options}{'_default_untranslated'} .= " <subject>";
  4.1757 +	$self->{options}{'_default_break'} .= " <subject>";
  4.1758 +
  4.1759 +	# subjectset; does not contain text; Formatted inline or as a displayed block
  4.1760 +	# NOTE: could be in the inline class
  4.1761 +	$self->{options}{'_default_untranslated'} .= " <subjectset>";
  4.1762 +	$self->{options}{'_default_break'} .= " <subjectset>";
  4.1763 +
  4.1764 +	# subjectterm; contains text; Formatted inline or as a displayed block
  4.1765 +	# NOTE: could be in the inline class
  4.1766 +	$self->{options}{'_default_translated'} .= " <subjectterm>";
  4.1767 +	$self->{options}{'_default_break'} .= " <subjectterm>";
  4.1768 +
  4.1769 +	# subscript; contains text; Formatted inline
  4.1770 +	$self->{options}{'_default_translated'} .= " <subscript>";
  4.1771 +	$self->{options}{'_default_inline'} .= " <subscript>";
  4.1772 +
  4.1773 +	# substeps; does not contain text; Formatted as a displayed block.
  4.1774 +	$self->{options}{'_default_untranslated'} .= " <substeps>";
  4.1775 +	$self->{options}{'_default_break'} .= " <substeps>";
  4.1776 +
  4.1777 +	# subtitle; contains text; Formatted as a displayed block.
  4.1778 +	$self->{options}{'_default_translated'} .= " <subtitle>";
  4.1779 +	$self->{options}{'_default_break'} .= " <subtitle>";
  4.1780 +
  4.1781 +	# superscript; contains text; Formatted inline
  4.1782 +	$self->{options}{'_default_translated'} .= " <superscript>";
  4.1783 +	$self->{options}{'_default_inline'} .= " <superscript>";
  4.1784 +
  4.1785 +	# surname; contains text; Formatted inline
  4.1786 +	$self->{options}{'_default_translated'} .= " <surname>";
  4.1787 +	$self->{options}{'_default_inline'} .= " <surname>";
  4.1788 +
  4.1789 +#svg:svg
  4.1790 +
  4.1791 +	# symbol; contains text; Formatted inline
  4.1792 +	$self->{options}{'_default_translated'} .= " <symbol>";
  4.1793 +	$self->{options}{'_default_inline'} .= " <symbol>";
  4.1794 +
  4.1795 +	# synopfragment; does not contain text; Formatted as a displayed block.
  4.1796 +	$self->{options}{'_default_untranslated'} .= " <synopfragment>";
  4.1797 +	$self->{options}{'_default_placeholder'} .= " <synopfragment>";
  4.1798 +
  4.1799 +	# synopfragmentref; contains text; Formatted inline
  4.1800 +	$self->{options}{'_default_translated'} .= " <synopfragmentref>";
  4.1801 +	$self->{options}{'_default_inline'} .= " <synopfragmentref>";
  4.1802 +
  4.1803 +	# synopsis; contains text; verbatim
  4.1804 +	$self->{options}{'_default_translated'} .= " W<synopsis>";
  4.1805 +	$self->{options}{'_default_placeholder'} .= " <synopsis>";
  4.1806 +
  4.1807 +	# systemitem; contains text; Formatted inline
  4.1808 +	$self->{options}{'_default_translated'} .= " <systemitem>";
  4.1809 +	$self->{options}{'_default_inline'} .= " <systemitem>";
  4.1810 +
  4.1811 +# TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
  4.1812 +
  4.1813 +	# table; does not contain text; Formatted as a displayed block.
  4.1814 +	$self->{options}{'_default_untranslated'} .= " <table>";
  4.1815 +	$self->{options}{'_default_placeholder'} .= " <table>";
  4.1816 +
  4.1817 +	# tag; contains text; Formatted inline
  4.1818 +	$self->{options}{'_default_translated'} .= " <tag>";
  4.1819 +	$self->{options}{'_default_inline'} .= " <tag>";
  4.1820 +
  4.1821 +	# task; does not contain text; Formatted as a displayed block.
  4.1822 +	$self->{options}{'_default_untranslated'} .= " <task>";
  4.1823 +	$self->{options}{'_default_placeholder'} .= " <task>";
  4.1824 +
  4.1825 +	# taskprerequisites; does not contain text; Formatted as a displayed block.
  4.1826 +	$self->{options}{'_default_untranslated'} .= " <taskprerequisites>";
  4.1827 +	$self->{options}{'_default_break'} .= " <taskprerequisites>";
  4.1828 +
  4.1829 +	# taskrelated; does not contain text; Formatted as a displayed block.
  4.1830 +	$self->{options}{'_default_untranslated'} .= " <taskrelated>";
  4.1831 +	$self->{options}{'_default_break'} .= " <taskrelated>";
  4.1832 +
  4.1833 +	# tasksummary; does not contain text; Formatted as a displayed block.
  4.1834 +	$self->{options}{'_default_untranslated'} .= " <tasksummary>";
  4.1835 +	$self->{options}{'_default_break'} .= " <tasksummary>";
  4.1836 +
  4.1837 +	# tbody; does not contain text;
  4.1838 +	$self->{options}{'_default_untranslated'} .= " <tbody>";
  4.1839 +	$self->{options}{'_default_break'} .= " <tbody>";
  4.1840 +
  4.1841 +	# td; contains text;
  4.1842 +	$self->{options}{'_default_translated'} .= " <td>";
  4.1843 +	$self->{options}{'_default_break'} .= " <td>";
  4.1844 +
  4.1845 +	# term; contains text; Formatted as a displayed block.
  4.1846 +	$self->{options}{'_default_translated'} .= " <term>";
  4.1847 +	$self->{options}{'_default_break'} .= " <term>";
  4.1848 +
  4.1849 +	# termdef; contains text; Formatted inline
  4.1850 +	$self->{options}{'_default_translated'} .= " <termdef>";
  4.1851 +	$self->{options}{'_default_inline'} .= " <termdef>";
  4.1852 +
  4.1853 +	# tertiary; contains text; Suppressed
  4.1854 +	$self->{options}{'_default_translated'} .= " <tertiary>";
  4.1855 +	$self->{options}{'_default_placeholder'} .= " <tertiary>";
  4.1856 +
  4.1857 +	# tertiaryie; contains text; Formatted as a displayed block.
  4.1858 +	$self->{options}{'_default_translated'} .= " <tertiaryie>";
  4.1859 +	$self->{options}{'_default_break'} .= " <tertiaryie>";
  4.1860 +
  4.1861 +	# textdata; does not contain text; Formatted inline or as a displayed block
  4.1862 +	# NOTE: could be in the inline class
  4.1863 +	$self->{options}{'_default_untranslated'} .= " <textdata>";
  4.1864 +	$self->{options}{'_default_break'} .= " <textdata>";
  4.1865 +	$self->{options}{'_default_attributes'}.=' <textdata>fileref';
  4.1866 +
  4.1867 +	# textobject; does not contain text; Formatted inline or as a displayed block
  4.1868 +	# NOTE: could be in the inline class
  4.1869 +	$self->{options}{'_default_untranslated'} .= " <textobject>";
  4.1870 +	$self->{options}{'_default_break'} .= " <textobject>";
  4.1871 +
  4.1872 +	# tfoot; does not contain text;
  4.1873 +	$self->{options}{'_default_untranslated'} .= " <tfoot>";
  4.1874 +	$self->{options}{'_default_break'} .= " <tfoot>";
  4.1875 +
  4.1876 +	# tgroup; does not contain text;
  4.1877 +	$self->{options}{'_default_untranslated'} .= " <tgroup>";
  4.1878 +	$self->{options}{'_default_break'} .= " <tgroup>";
  4.1879 +
  4.1880 +	# th; contains text;
  4.1881 +	$self->{options}{'_default_translated'} .= " <th>";
  4.1882 +	$self->{options}{'_default_break'} .= " <th>";
  4.1883 +
  4.1884 +	# thead; does not contain text;
  4.1885 +	$self->{options}{'_default_untranslated'} .= " <thead>";
  4.1886 +	$self->{options}{'_default_break'} .= " <thead>";
  4.1887 +
  4.1888 +	# tip; does not contain text; Formatted as a displayed block.
  4.1889 +	$self->{options}{'_default_untranslated'} .= " <tip>";
  4.1890 +	$self->{options}{'_default_break'} .= " <tip>";
  4.1891 +
  4.1892 +	# title; contains text; Formatted as a displayed block.
  4.1893 +	$self->{options}{'_default_translated'} .= " <title>";
  4.1894 +	$self->{options}{'_default_break'} .= " <title>";
  4.1895 +
  4.1896 +	# titleabbrev; contains text; Formatted inline or as a displayed block
  4.1897 +	# NOTE: could be in the inline class
  4.1898 +	$self->{options}{'_default_translated'} .= " <titleabbrev>";
  4.1899 +	$self->{options}{'_default_break'} .= " <titleabbrev>";
  4.1900 +
  4.1901 +	# toc; does not contain text; Formatted as a displayed block.
  4.1902 +	$self->{options}{'_default_untranslated'} .= " <toc>";
  4.1903 +	$self->{options}{'_default_break'} .= " <toc>";
  4.1904 +
  4.1905 +	# tocback; contains text; Formatted as a displayed block.
  4.1906 +	$self->{options}{'_default_translated'} .= " <tocback>";
  4.1907 +	$self->{options}{'_default_break'} .= " <tocback>";
  4.1908 +
  4.1909 +	# tocchap; does not contain text; Formatted as a displayed block.
  4.1910 +	$self->{options}{'_default_translated'} .= " <tocchap>";
  4.1911 +	$self->{options}{'_default_break'} .= " <tocchap>";
  4.1912 +
  4.1913 +	# tocdiv; does not contain text; Formatted as a displayed block.
  4.1914 +	$self->{options}{'_default_untranslated'} .= " <tocdiv>";
  4.1915 +	$self->{options}{'_default_break'} .= " <tocdiv>";
  4.1916 +
  4.1917 +	# tocentry; contains text; Formatted as a displayed block.
  4.1918 +	$self->{options}{'_default_translated'} .= " <tocentry>";
  4.1919 +	$self->{options}{'_default_break'} .= " <tocentry>";
  4.1920 +
  4.1921 +	# tocfront; does not contain text; Formatted as a displayed block.
  4.1922 +	$self->{options}{'_default_translated'} .= " <tocfront>";
  4.1923 +	$self->{options}{'_default_break'} .= " <tocfront>";
  4.1924 +
  4.1925 +	# toclevel1; does not contain text; Formatted as a displayed block.
  4.1926 +	$self->{options}{'_default_untranslated'} .= " <toclevel1>";
  4.1927 +	$self->{options}{'_default_break'} .= " <toclevel1>";
  4.1928 +
  4.1929 +	# toclevel2; does not contain text; Formatted as a displayed block.
  4.1930 +	$self->{options}{'_default_untranslated'} .= " <toclevel2>";
  4.1931 +	$self->{options}{'_default_break'} .= " <toclevel2>";
  4.1932 +
  4.1933 +	# toclevel3; does not contain text; Formatted as a displayed block.
  4.1934 +	$self->{options}{'_default_untranslated'} .= " <toclevel3>";
  4.1935 +	$self->{options}{'_default_break'} .= " <toclevel3>";
  4.1936 +
  4.1937 +	# toclevel4; does not contain text; Formatted as a displayed block.
  4.1938 +	$self->{options}{'_default_untranslated'} .= " <toclevel4>";
  4.1939 +	$self->{options}{'_default_break'} .= " <toclevel4>";
  4.1940 +
  4.1941 +	# toclevel5; does not contain text; Formatted as a displayed block.
  4.1942 +	$self->{options}{'_default_untranslated'} .= " <toclevel5>";
  4.1943 +	$self->{options}{'_default_break'} .= " <toclevel5>";
  4.1944 +
  4.1945 +	# tocpart; does not contain text; Formatted as a displayed block.
  4.1946 +	$self->{options}{'_default_untranslated'} .= " <tocpart>";
  4.1947 +	$self->{options}{'_default_break'} .= " <tocpart>";
  4.1948 +
  4.1949 +	# token; contains text; Formatted inline
  4.1950 +	$self->{options}{'_default_translated'} .= " <token>";
  4.1951 +	$self->{options}{'_default_inline'} .= " <token>";
  4.1952 +
  4.1953 +	# tr; does not contain text;
  4.1954 +	$self->{options}{'_default_untranslated'} .= " <tr>";
  4.1955 +	$self->{options}{'_default_break'} .= " <tr>";
  4.1956 +
  4.1957 +	# trademark; contains text; Formatted inline
  4.1958 +	$self->{options}{'_default_translated'} .= " <trademark>";
  4.1959 +	$self->{options}{'_default_inline'} .= " <trademark>";
  4.1960 +
  4.1961 +	# type; contains text; Formatted inline
  4.1962 +	$self->{options}{'_default_translated'} .= " <type>";
  4.1963 +	$self->{options}{'_default_inline'} .= " <type>";
  4.1964 +
  4.1965 +# UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
  4.1966 +
  4.1967 +	# ulink; contains text; Formatted inline; v4, not in v5
  4.1968 +	$self->{options}{'_default_translated'} .= " <ulink>";
  4.1969 +	$self->{options}{'_default_inline'} .= " <ulink>";
  4.1970 +
  4.1971 +	# uri; contains text; Formatted inline
  4.1972 +	$self->{options}{'_default_translated'} .= " <uri>";
  4.1973 +	$self->{options}{'_default_inline'} .= " <uri>";
  4.1974 +
  4.1975 +	# userinput; contains text; Formatted inline
  4.1976 +	$self->{options}{'_default_translated'} .= " <userinput>";
  4.1977 +	$self->{options}{'_default_inline'} .= " <userinput>";
  4.1978 +
  4.1979 +# VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
  4.1980 +
  4.1981 +	# varargs; empty element;
  4.1982 +	$self->{options}{'_default_untranslated'} .= " <varargs>";
  4.1983 +	$self->{options}{'_default_inline'} .= " <varargs>";
  4.1984 +
  4.1985 +	# variablelist; does not contain text; Formatted as a displayed block.
  4.1986 +	$self->{options}{'_default_untranslated'} .= " <variablelist>";
  4.1987 +	$self->{options}{'_default_placeholder'} .= " <variablelist>";
  4.1988 +
  4.1989 +	# varlistentry; does not contain text; Formatted as a displayed block.
  4.1990 +	$self->{options}{'_default_untranslated'} .= " <varlistentry>";
  4.1991 +	$self->{options}{'_default_break'} .= " <varlistentry>";
  4.1992 +
  4.1993 +	# varname; contains text; Formatted inline
  4.1994 +	$self->{options}{'_default_translated'} .= " <varname>";
  4.1995 +	$self->{options}{'_default_inline'} .= " <varname>";
  4.1996 +
  4.1997 +	# videodata; contains text; Formatted inline or as a displayed block
  4.1998 +	$self->{options}{'_default_untranslated'} .= " <videodata>";
  4.1999 +	$self->{options}{'_default_break'} .= " <videodata>";
  4.2000 +	$self->{options}{'_default_attributes'}.=' <videodata>fileref';
  4.2001 +
  4.2002 +	# videoobject; contains text; Formatted inline or as a displayed block
  4.2003 +	$self->{options}{'_default_untranslated'} .= " <videoobject>";
  4.2004 +	$self->{options}{'_default_break'} .= " <videoobject>";
  4.2005 +
  4.2006 +	# void; empty element;
  4.2007 +	$self->{options}{'_default_untranslated'} .= " <void>";
  4.2008 +	$self->{options}{'_default_inline'} .= " <void>";
  4.2009 +
  4.2010 +	# volumenum; contains text; Formatted inline
  4.2011 +	$self->{options}{'_default_translated'} .= " <volumenum>";
  4.2012 +	$self->{options}{'_default_inline'} .= " <volumenum>";
  4.2013 +
  4.2014 +# WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
  4.2015 +
  4.2016 +	# warning; does not contain text; Formatted as a displayed block.
  4.2017 +	$self->{options}{'_default_untranslated'} .= " <warning>";
  4.2018 +	$self->{options}{'_default_break'} .= " <warning>";
  4.2019 +
  4.2020 +	# wordasword; contains text; Formatted inline
  4.2021 +	$self->{options}{'_default_translated'} .= " <wordasword>";
  4.2022 +	$self->{options}{'_default_inline'} .= " <wordasword>";
  4.2023 +
  4.2024 +# XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  4.2025 +
  4.2026 +	# xref; empty element;
  4.2027 +	$self->{options}{'_default_untranslated'} .= " <xref>";
  4.2028 +	$self->{options}{'_default_inline'} .= " <xref>";
  4.2029 +
  4.2030 +# YYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYY
  4.2031 +
  4.2032 +	# year; contains text; Formatted inline
  4.2033 +	$self->{options}{'_default_translated'} .= " <year>";
  4.2034 +	$self->{options}{'_default_inline'} .= " <year>";
  4.2035 +
  4.2036 +# ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ
  4.2037 +
  4.2038 +	$self->{options}{'_default_attributes'}.='
  4.2039 +		lang
  4.2040 +		xml:lang';
  4.2041 +
  4.2042 +	$self->treat_options;
  4.2043 +}

     5.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     5.2 +++ b/tools/po4a/lib/Locale/Po4a/Po.pm	Thu Mar 12 15:43:56 2009 +0800
     5.3 @@ -0,0 +1,1580 @@
     5.4 +# Locale::Po4a::Po -- manipulation of po files
     5.5 +# $Id: Po.pm,v 1.95 2009-02-28 22:18:39 nekral-guest Exp $
     5.6 +#
     5.7 +# This program is free software; you may redistribute it and/or modify it
     5.8 +# under the terms of GPL (see COPYING).
     5.9 +
    5.10 +############################################################################
    5.11 +# Modules and declarations
    5.12 +############################################################################
    5.13 +
    5.14 +=head1 NAME
    5.15 +
    5.16 +Locale::Po4a::Po - po file manipulation module
    5.17 +
    5.18 +=head1 SYNOPSIS
    5.19 +
    5.20 +    use Locale::Po4a::Po;
    5.21 +    my $pofile=Locale::Po4a::Po->new();
    5.22 +
    5.23 +    # Read po file
    5.24 +    $pofile->read('file.po');
    5.25 +
    5.26 +    # Add an entry
    5.27 +    $pofile->push('msgid' => 'Hello', 'msgstr' => 'bonjour',
    5.28 +                  'flags' => "wrap", 'reference'=>'file.c:46');
    5.29 +
    5.30 +    # Extract a translation
    5.31 +    $pofile->gettext("Hello"); # returns 'bonjour'
    5.32 +
    5.33 +    # Write back to a file
    5.34 +    $pofile->write('otherfile.po');
    5.35 +
    5.36 +=head1 DESCRIPTION
    5.37 +
    5.38 +Locale::Po4a::Po is a module that allows you to manipulate message
    5.39 +catalogs. You can load and write from/to a file (which extension is often
    5.40 +I<po>), you can build new entries on the fly or request for the translation
    5.41 +of a string.
    5.42 +
    5.43 +For a more complete description of message catalogs in the po format and
    5.44 +their use, please refer to the documentation of the gettext program.
    5.45 +
    5.46 +This module is part of the PO4A project, which objective is to use po files
    5.47 +(designed at origin to ease the translation of program messages) to
    5.48 +translate everything, including documentation (man page, info manual),
    5.49 +package description, debconf templates, and everything which may benefit
    5.50 +from this.
    5.51 +
    5.52 +=head1 OPTIONS ACCEPTED BY THIS MODULE
    5.53 +
    5.54 +=over 4
    5.55 +
    5.56 +=item porefs
    5.57 +
    5.58 +This specifies the reference format. It can be one of 'none' to not produce
    5.59 +any reference, 'noline' to not specify the line number, and 'full' to
    5.60 +include complete references.
    5.61 +
    5.62 +=back
    5.63 +
    5.64 +=cut
    5.65 +
    5.66 +use IO::File;
    5.67 +
    5.68 +
    5.69 +require Exporter;
    5.70 +
    5.71 +package Locale::Po4a::Po;
    5.72 +use DynaLoader;
    5.73 +
    5.74 +use Locale::Po4a::Common qw(wrap_msg wrap_mod wrap_ref_mod dgettext);
    5.75 +
    5.76 +use subs qw(makespace);
    5.77 +use vars qw(@ISA @EXPORT_OK);
    5.78 +@ISA = qw(Exporter DynaLoader);
    5.79 +@EXPORT = qw(%debug);
    5.80 +@EXPORT_OK = qw(&move_po_if_needed);
    5.81 +
    5.82 +use Locale::Po4a::TransTractor;
    5.83 +# Try to use a C extension if present.
    5.84 +eval("bootstrap Locale::Po4a::Po $Locale::Po4a::TransTractor::VERSION");
    5.85 +
    5.86 +use 5.006;
    5.87 +use strict;
    5.88 +use warnings;
    5.89 +
    5.90 +use Carp qw(croak);
    5.91 +use File::Path; # mkdir before write
    5.92 +use File::Copy; # move
    5.93 +use POSIX qw(strftime floor);
    5.94 +use Time::Local;
    5.95 +
    5.96 +use Encode;
    5.97 +
    5.98 +my @known_flags=qw(wrap no-wrap c-format fuzzy);
    5.99 +
   5.100 +our %debug=('canonize'  => 0,
   5.101 +            'quote'     => 0,
   5.102 +            'escape'    => 0,
   5.103 +            'encoding'  => 0,
   5.104 +            'filter'    => 0);
   5.105 +
   5.106 +=head1 Functions about whole message catalogs
   5.107 +
   5.108 +=over 4
   5.109 +
   5.110 +=item new()
   5.111 +
   5.112 +Creates a new message catalog. If an argument is provided, it's the name of
   5.113 +a po file we should load.
   5.114 +
   5.115 +=cut
   5.116 +
   5.117 +sub new {
   5.118 +    my ($this, $options) = (shift, shift);
   5.119 +    my $class = ref($this) || $this;
   5.120 +    my $self = {};
   5.121 +    bless $self, $class;
   5.122 +    $self->initialize($options);
   5.123 +
   5.124 +    my $filename = shift;
   5.125 +    $self->read($filename) if defined($filename) && length($filename);
   5.126 +    return $self;
   5.127 +}
   5.128 +
   5.129 +# Return the numerical timezone (e.g. +0200)
   5.130 +# Neither the %z nor the %s formats of strftime are portable:
   5.131 +# '%s' is not supported on Solaris and '%z' indicates
   5.132 +# "2006-10-25 19:36E. Europe Standard Time" on MS Windows.
   5.133 +sub timezone {
   5.134 +    my @g = gmtime();
   5.135 +    my @l = localtime();
   5.136 +
   5.137 +    my $diff;
   5.138 +    $diff  = floor(timelocal(@l)/60 +0.5);
   5.139 +    $diff -= floor(timelocal(@g)/60 +0.5);
   5.140 +
   5.141 +    my $h = floor($diff / 60) + $l[8]; # $l[8] indicates if we are currently
   5.142 +                                       # in a daylight saving time zone
   5.143 +    my $m = $diff%60;
   5.144 +
   5.145 +    return sprintf "%+03d%02d\n", $h, $m;
   5.146 +}
   5.147 +
   5.148 +sub initialize {
   5.149 +    my ($self, $options) = (shift, shift);
   5.150 +    my $date = strftime("%Y-%m-%d %H:%M", localtime).timezone();
   5.151 +    chomp $date;
   5.152 +#    $options = ref($options) || $options;
   5.153 +
   5.154 +    $self->{options}{'porefs'}= 'full';
   5.155 +    $self->{options}{'msgid-bugs-address'}= undef;
   5.156 +    $self->{options}{'copyright-holder'}= "Free Software Foundation, Inc.";
   5.157 +    $self->{options}{'package-name'}= "PACKAGE";
   5.158 +    $self->{options}{'package-version'}= "VERSION";
   5.159 +    foreach my $opt (keys %$options) {
   5.160 +        if ($options->{$opt}) {
   5.161 +            die wrap_mod("po4a::po",
   5.162 +                         dgettext ("po4a", "Unknown option: %s"), $opt)
   5.163 +                unless exists $self->{options}{$opt};
   5.164 +            $self->{options}{$opt} = $options->{$opt};
   5.165 +        }
   5.166 +    }
   5.167 +    $self->{options}{'porefs'} =~ /^(full|noline|none)$/ ||
   5.168 +        die wrap_mod("po4a::po",
   5.169 +                     dgettext ("po4a",
   5.170 +                               "Invalid value for option 'porefs' ('%s' is ".
   5.171 +                               "not one of 'full', 'noline' or 'none')"),
   5.172 +                     $self->{options}{'porefs'});
   5.173 +
   5.174 +    $self->{po}=();
   5.175 +    $self->{count}=0;  # number of msgids in the PO
   5.176 +    # count_doc: number of strings in the document
   5.177 +    # (duplicate strings counted multiple times)
   5.178 +    $self->{count_doc}=0;
   5.179 +    $self->{header_comment}=
   5.180 +                     " SOME DESCRIPTIVE TITLE\n"
   5.181 +                    ." Copyright (C) YEAR ".
   5.182 +                     $self->{options}{'copyright-holder'}."\n"
   5.183 +                    ." This file is distributed under the same license ".
   5.184 +                     "as the ".$self->{options}{'package-name'}." package.\n"
   5.185 +                    ." FIRST AUTHOR <EMAIL\@ADDRESS>, YEAR.\n"
   5.186 +                    ."\n"
   5.187 +                    .", fuzzy";
   5.188 +#    $self->header_tag="fuzzy";
   5.189 +    $self->{header}=escape_text("Project-Id-Version: ".
   5.190 +                                $self->{options}{'package-name'}." ".
   5.191 +                                $self->{options}{'package-version'}."\n".
   5.192 +                        ((defined $self->{options}{'msgid-bugs-address'})?
   5.193 +        "Report-Msgid-Bugs-To: ".$self->{options}{'msgid-bugs-address'}."\n":
   5.194 +                                "").
   5.195 +                                "POT-Creation-Date: $date\n".
   5.196 +                                "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n".
   5.197 +                                "Last-Translator: FULL NAME <EMAIL\@ADDRESS>\n".
   5.198 +                                "Language-Team: LANGUAGE <LL\@li.org>\n".
   5.199 +                                "MIME-Version: 1.0\n".
   5.200 +                                "Content-Type: text/plain; charset=CHARSET\n".
   5.201 +                                "Content-Transfer-Encoding: ENCODING");
   5.202 +
   5.203 +    $self->{encoder}=find_encoding("ascii");
   5.204 +
   5.205 +    # To make stats about gettext hits
   5.206 +    $self->stats_clear();
   5.207 +}
   5.208 +
   5.209 +=item read($)
   5.210 +
   5.211 +Reads a po file (which name is given as argument).  Previously existing
   5.212 +entries in self are not removed, the new ones are added to the end of the
   5.213 +catalog.
   5.214 +
   5.215 +=cut
   5.216 +
   5.217 +sub read {
   5.218 +    my $self=shift;
   5.219 +    my $filename=shift
   5.220 +        or croak wrap_mod("po4a::po",
   5.221 +                          dgettext("po4a",
   5.222 +                                   "Please provide a non-null filename"));
   5.223 +
   5.224 +    my $fh;
   5.225 +    if ($filename eq '-') {
   5.226 +        $fh=*STDIN;
   5.227 +    } else {
   5.228 +        open $fh,"<$filename"
   5.229 +            or croak wrap_mod("po4a::po",
   5.230 +                              dgettext("po4a", "Can't read from %s: %s"),
   5.231 +                              $filename, $!);
   5.232 +    }
   5.233 +
   5.234 +    ## Read paragraphs line-by-line
   5.235 +    my $pofile="";
   5.236 +    my $textline;
   5.237 +    while (defined ($textline = <$fh>)) {
   5.238 +        $pofile .= $textline;
   5.239 +    }
   5.240 +#    close INPUT
   5.241 +#        or croak (sprintf(dgettext("po4a",
   5.242 +#                                   "Can't close %s after reading: %s"),
   5.243 +#                          $filename,$!)."\n");
   5.244 +
   5.245 +    my $linenum=0;
   5.246 +
   5.247 +    foreach my $msg (split (/\n\n/,$pofile)) {
   5.248 +        my ($msgid,$msgstr,$comment,$automatic,$reference,$flags,$buffer);
   5.249 +        my ($msgid_plural, $msgstr_plural);
   5.250 +        foreach my $line (split (/\n/,$msg)) {
   5.251 +            $linenum++;
   5.252 +            if ($line =~ /^#\. ?(.*)$/) {  # Automatic comment
   5.253 +                $automatic .= (defined($automatic) ? "\n" : "").$1;
   5.254 +
   5.255 +            } elsif ($line =~ /^#: ?(.*)$/) { # reference
   5.256 +                $reference .= (defined($reference) ? "\n" : "").$1;
   5.257 +
   5.258 +            } elsif ($line =~ /^#, ?(.*)$/) { # flags
   5.259 +                $flags .= (defined($flags) ? "\n" : "").$1;
   5.260 +
   5.261 +            } elsif ($line =~ /^#(.*)$/) {  # Translator comments
   5.262 +                $comment .= (defined($comment) ? "\n" : "").($1||"");
   5.263 +
   5.264 +            } elsif ($line =~ /^msgid (".*")$/) { # begin of msgid
   5.265 +                $buffer = $1;
   5.266 +
   5.267 +            } elsif ($line =~ /^msgid_plural (".*")$/) {
   5.268 +                # begin of msgid_plural, end of msgid
   5.269 +
   5.270 +                $msgid = $buffer;
   5.271 +                $buffer = $1;
   5.272 +
   5.273 +            } elsif ($line =~ /^msgstr (".*")$/) {
   5.274 +                # begin of msgstr, end of msgid
   5.275 +
   5.276 +                $msgid = $buffer;
   5.277 +                $buffer = "$1";
   5.278 +
   5.279 +            } elsif ($line =~ /^msgstr\[([0-9]+)\] (".*")$/) {
   5.280 +                # begin of msgstr[x], end of msgid_plural or msgstr[x-1]
   5.281 +
   5.282 +                # Note: po4a cannot uses plural forms
   5.283 +                # (no integer to use the plural form)
   5.284 +                #   * drop the msgstr[x] where x >= 2
   5.285 +                #   * use msgstr[0] as the translation of msgid
   5.286 +                #   * use msgstr[1] as the translation of msgid_plural
   5.287 +
   5.288 +                if ($1 eq "0") {
   5.289 +                    $msgid_plural = $buffer;
   5.290 +                    $buffer = "$2";
   5.291 +                } elsif ($1 eq "1") {
   5.292 +                    $msgstr = $buffer;
   5.293 +                    $buffer = "$2";
   5.294 +                } elsif ($1 eq "2") {
   5.295 +                    $msgstr_plural = $buffer;
   5.296 +                    warn wrap_ref_mod("$filename:$linenum",
   5.297 +                                      "po4a::po",
   5.298 +                                      dgettext("po4a", "Messages with more than 2 plural forms are not supported."));
   5.299 +                }
   5.300 +            } elsif ($line =~ /^(".*")$/) {
   5.301 +                # continuation of a line
   5.302 +                $buffer .= "\n$1";
   5.303 +
   5.304 +            } else {
   5.305 +                warn wrap_ref_mod("$filename:$linenum",
   5.306 +                                  "po4a::po",
   5.307 +                                  dgettext("po4a", "Strange line: -->%s<--"),
   5.308 +                                  $line);
   5.309 +            }
   5.310 +        }
   5.311 +        $linenum++;
   5.312 +        if (defined $msgid_plural) {
   5.313 +            $msgstr_plural=$buffer;
   5.314 +
   5.315 +            $msgid = unquote_text($msgid) if (defined($msgid));
   5.316 +            $msgstr = unquote_text($msgstr) if (defined($msgstr));
   5.317 +
   5.318 +            $self->push_raw ('msgid'     => $msgid,
   5.319 +                             'msgstr'    => $msgstr,
   5.320 +                             'reference' => $reference,
   5.321 +                             'flags'     => $flags,
   5.322 +                             'comment'   => $comment,
   5.323 +                             'automatic' => $automatic,
   5.324 +                             'plural'    => 0);
   5.325 +
   5.326 +            $msgid_plural = unquote_text($msgid_plural)
   5.327 +                if (defined($msgid_plural));
   5.328 +            $msgstr_plural = unquote_text($msgstr_plural)
   5.329 +                if (defined($msgstr_plural));
   5.330 +
   5.331 +            $self->push_raw ('msgid'     => $msgid_plural,
   5.332 +                             'msgstr'    => $msgstr_plural,
   5.333 +                             'reference' => $reference,
   5.334 +                             'flags'     => $flags,
   5.335 +                             'comment'   => $comment,
   5.336 +                             'automatic' => $automatic,
   5.337 +                             'plural'    => 1);
   5.338 +        } else {
   5.339 +            $msgstr=$buffer;
   5.340 +
   5.341 +            $msgid = unquote_text($msgid) if (defined($msgid));
   5.342 +            $msgstr = unquote_text($msgstr) if (defined($msgstr));
   5.343 +
   5.344 +            $self->push_raw ('msgid'     => $msgid,
   5.345 +                             'msgstr'    => $msgstr,
   5.346 +                             'reference' => $reference,
   5.347 +                             'flags'     => $flags,
   5.348 +                             'comment'   => $comment,
   5.349 +                             'automatic' => $automatic);
   5.350 +        }
   5.351 +    }
   5.352 +}
   5.353 +
   5.354 +=item write($)
   5.355 +
   5.356 +Writes the current catalog to the given file.
   5.357 +
   5.358 +=cut
   5.359 +
   5.360 +sub write{
   5.361 +    my $self=shift;
   5.362 +    my $filename=shift
   5.363 +        or croak dgettext("po4a","Can't write to a file without filename")."\n";
   5.364 +
   5.365 +    my $fh;
   5.366 +    if ($filename eq '-') {
   5.367 +        $fh=\*STDOUT;
   5.368 +    } else {
   5.369 +        # make sure the directory in which we should write the localized
   5.370 +        # file exists
   5.371 +        my $dir = $filename;
   5.372 +        if ($dir =~ m|/|) {
   5.373 +            $dir =~ s|/[^/]*$||;
   5.374 +
   5.375 +            File::Path::mkpath($dir, 0, 0755) # Croaks on error
   5.376 +                if (length ($dir) && ! -e $dir);
   5.377 +        }
   5.378 +        open $fh,">$filename"
   5.379 +            or croak wrap_mod("po4a::po",
   5.380 +                              dgettext("po4a", "Can't write to %s: %s"),
   5.381 +                              $filename, $!);
   5.382 +    }
   5.383 +
   5.384 +    print $fh "".format_comment($self->{header_comment},"")
   5.385 +        if defined($self->{header_comment}) && length($self->{header_comment});
   5.386 +
   5.387 +    print $fh "msgid \"\"\n";
   5.388 +    print $fh "msgstr ".quote_text($self->{header})."\n\n";
   5.389 +
   5.390 +
   5.391 +    my $buf_msgstr_plural; # USed to keep the first msgstr of plural forms
   5.392 +    my $first=1;
   5.393 +    foreach my $msgid ( sort { ($self->{po}{"$a"}{'pos'}) <=>
   5.394 +                               ($self->{po}{"$b"}{'pos'})
   5.395 +                             }  keys %{$self->{po}}) {
   5.396 +        my $output="";
   5.397 +
   5.398 +        if ($first) {
   5.399 +            $first=0;
   5.400 +        } else {
   5.401 +            $output .= "\n";
   5.402 +        }
   5.403 +
   5.404 +        $output .= format_comment($self->{po}{$msgid}{'comment'},"")
   5.405 +            if    defined($self->{po}{$msgid}{'comment'})
   5.406 +               && length ($self->{po}{$msgid}{'comment'});
   5.407 +        if (   defined($self->{po}{$msgid}{'automatic'})
   5.408 +            && length ($self->{po}{$msgid}{'automatic'})) {
   5.409 +            foreach my $comment (split(/\\n/,$self->{po}{$msgid}{'automatic'}))
   5.410 +            {
   5.411 +                $output .= format_comment($comment, ". ")
   5.412 +            }
   5.413 +        }
   5.414 +        $output .= format_comment($self->{po}{$msgid}{'type'},". type: ")
   5.415 +            if    defined($self->{po}{$msgid}{'type'})
   5.416 +               && length ($self->{po}{$msgid}{'type'});
   5.417 +        $output .= format_comment($self->{po}{$msgid}{'reference'},": ")
   5.418 +            if    defined($self->{po}{$msgid}{'reference'})
   5.419 +               && length ($self->{po}{$msgid}{'reference'});
   5.420 +        $output .= "#, ". join(", ", sort split(/\s+/,$self->{po}{$msgid}{'flags'}))."\n"
   5.421 +            if    defined($self->{po}{$msgid}{'flags'})
   5.422 +               && length ($self->{po}{$msgid}{'flags'});
   5.423 +
   5.424 +        if (exists $self->{po}{$msgid}{'plural'}) {
   5.425 +            if ($self->{po}{$msgid}{'plural'} == 0) {
   5.426 +                if ($self->get_charset =~ /^utf-8$/i) {
   5.427 +                    my $msgstr = Encode::decode_utf8($self->{po}{$msgid}{'msgstr'});
   5.428 +                    $msgid = Encode::decode_utf8($msgid);
   5.429 +                    $output .= Encode::encode_utf8("msgid ".quote_text($msgid)."\n");
   5.430 +                    $buf_msgstr_plural = Encode::encode_utf8("msgstr[0] ".quote_text($msgstr)."\n");
   5.431 +                } else {
   5.432 +                    $output = "msgid ".quote_text($msgid)."\n";
   5.433 +                    $buf_msgstr_plural = "msgstr[0] ".quote_text($self->{po}{$msgid}{'msgstr'})."\n";
   5.434 +                }
   5.435 +            } elsif ($self->{po}{$msgid}{'plural'} == 1) {
   5.436 +# TODO: there may be only one plural form
   5.437 +                if ($self->get_charset =~ /^utf-8$/i) {
   5.438 +                    my $msgstr = Encode::decode_utf8($self->{po}{$msgid}{'msgstr'});
   5.439 +                    $msgid = Encode::decode_utf8($msgid);
   5.440 +                    $output = Encode::encode_utf8("msgid_plural ".quote_text($msgid)."\n");
   5.441 +                    $output .= $buf_msgstr_plural;
   5.442 +                    $output .= Encode::encode_utf8("msgstr[1] ".quote_text($msgstr)."\n");
   5.443 +                    $buf_msgstr_plural = "";
   5.444 +                } else {
   5.445 +                    $output = "msgid_plural ".quote_text($msgid)."\n";
   5.446 +                    $output .= $buf_msgstr_plural;
   5.447 +                    $output .= "msgstr[1] ".quote_text($self->{po}{$msgid}{'msgstr'})."\n";
   5.448 +                }
   5.449 +            } else {
   5.450 +                die wrap_msg(dgettext("po4a","Can't write PO files with more than two plural forms."));
   5.451 +            }
   5.452 +        } else {
   5.453 +            if ($self->get_charset =~ /^utf-8$/i) {
   5.454 +                my $msgstr = Encode::decode_utf8($self->{po}{$msgid}{'msgstr'});
   5.455 +                $msgid = Encode::decode_utf8($msgid);
   5.456 +                $output .= Encode::encode_utf8("msgid ".quote_text($msgid)."\n");
   5.457 +                $output .= Encode::encode_utf8("msgstr ".quote_text($msgstr)."\n");
   5.458 +            } else {
   5.459 +                $output .= "msgid ".quote_text($msgid)."\n";
   5.460 +                $output .= "msgstr ".quote_text($self->{po}{$msgid}{'msgstr'})."\n";
   5.461 +            }
   5.462 +        }
   5.463 +
   5.464 +        print $fh $output;
   5.465 +    }
   5.466 +#    print STDERR "$fh";
   5.467 +#    if ($filename ne '-') {
   5.468 +#        close $fh
   5.469 +#            or croak (sprintf(dgettext("po4a",
   5.470 +#                                       "Can't close %s after writing: %s\n"),
   5.471 +#                              $filename,$!));
   5.472 +#    }
   5.473 +}
   5.474 +
   5.475 +=item write_if_needed($$)
   5.476 +
   5.477 +Like write, but if the PO or POT file already exists, the object will be
   5.478 +written in a temporary file which will be compared with the existing file
   5.479 +to check that the update is needed (this avoids to change a POT just to
   5.480 +update a line reference or the POT-Creation-Date field).
   5.481 +
   5.482 +=cut
   5.483 +
   5.484 +sub move_po_if_needed {
   5.485 +    my ($new_po, $old_po, $backup) = (shift, shift, shift);
   5.486 +    my $diff;
   5.487 +
   5.488 +    if (-e $old_po) {
   5.489 +        my $diff_ignore = "-I'^#:' "
   5.490 +                         ."-I'^\"POT-Creation-Date:' "
   5.491 +                         ."-I'^\"PO-Revision-Date:'";
   5.492 +        $diff = qx(diff -q $diff_ignore $old_po $new_po);
   5.493 +        if ( $diff eq "" ) {
   5.494 +            unlink $new_po
   5.495 +                or die wrap_msg(dgettext("po4a","Can't unlink %s: %s."),
   5.496 +                                $new_po, $!);
   5.497 +            # touch the old PO
   5.498 +            my ($atime, $mtime) = (time,time);
   5.499 +            utime $atime, $mtime, $old_po;
   5.500 +        } else {
   5.501 +            if ($backup) {
   5.502 +                copy $old_po, $old_po."~"
   5.503 +                    or die wrap_msg(dgettext("po4a","Can't copy %s to %s: %s."),
   5.504 +                                    $old_po, $old_po."~", $!);
   5.505 +            } else {
   5.506 +            }
   5.507 +            move $new_po, $old_po
   5.508 +                or die wrap_msg(dgettext("po4a","Can't move %s to %s: %s."),
   5.509 +                                $new_po, $old_po, $!);
   5.510 +        }
   5.511 +    } else {
   5.512 +        move $new_po, $old_po
   5.513 +            or die wrap_msg(dgettext("po4a","Can't move %s to %s: %s."),
   5.514 +                            $new_po, $old_po, $!);
   5.515 +    }
   5.516 +}
   5.517 +
   5.518 +sub write_if_needed {
   5.519 +    my $self=shift;
   5.520 +    my $filename=shift
   5.521 +        or croak dgettext("po4a","Can't write to a file without filename")."\n";
   5.522 +
   5.523 +    if (-e $filename) {
   5.524 +        my ($tmp_filename);
   5.525 +        (undef,$tmp_filename)=File::Temp->tempfile($filename."XXXX",
   5.526 +                                                   DIR    => "/tmp",
   5.527 +                                                   OPEN   => 0,
   5.528 +                                                   UNLINK => 0);
   5.529 +        $self->write($tmp_filename);
   5.530 +        move_po_if_needed($tmp_filename, $filename);
   5.531 +    } else {
   5.532 +        $self->write($filename);
   5.533 +    }
   5.534 +}
   5.535 +
   5.536 +=item gettextize($$)
   5.537 +
   5.538 +This function produces one translated message catalog from two catalogs, an
   5.539 +original and a translation. This process is described in L<po4a(7)|po4a.7>,
   5.540 +section I<Gettextization: how does it work?>.
   5.541 +
   5.542 +=cut
   5.543 +
   5.544 +sub gettextize {
   5.545 +    my $this = shift;
   5.546 +    my $class = ref($this) || $this;
   5.547 +    my ($poorig,$potrans)=(shift,shift);
   5.548 +
   5.549 +    my $pores=Locale::Po4a::Po->new();
   5.550 +
   5.551 +    my $please_fail = 0;
   5.552 +    my $toobad = dgettext("po4a",
   5.553 +        "\nThe gettextization failed (once again). Don't give up, ".
   5.554 +        "gettextizing is a subtle art, but this is only needed once ".
   5.555 +        "to convert a project to the gorgeous luxus offered by po4a ".
   5.556 +        "to translators.".
   5.557 +        "\nPlease refer to the po4a(7) documentation, the section ".
   5.558 +        "\"HOWTO convert a pre-existing translation to po4a?\" ".
   5.559 +        "contains several hints to help you in your task");
   5.560 +
   5.561 +    # Don't fail right now when the entry count does not match. Instead, give
   5.562 +    # it a try so that the user can see where we fail (which is probably where
   5.563 +    # the problem is).
   5.564 +    if ($poorig->count_entries_doc() > $potrans->count_entries_doc()) {
   5.565 +        warn wrap_mod("po4a gettextize", dgettext("po4a",
   5.566 +            "Original has more strings than the translation (%d>%d). ".
   5.567 +            "Please fix it by editing the translated version to add ".
   5.568 +            "some dummy entry."),
   5.569 +                      $poorig->count_entries_doc(),
   5.570 +                      $potrans->count_entries_doc());
   5.571 +        $please_fail = 1;
   5.572 +    } elsif ($poorig->count_entries_doc() < $potrans->count_entries_doc()) {
   5.573 +        warn wrap_mod("po4a gettextize", dgettext("po4a",
   5.574 +            "Original has less strings than the translation (%d<%d). ".
   5.575 +            "Please fix it by removing the extra entry from the ".
   5.576 +            "translated file. You may need an addendum (cf po4a(7)) ".
   5.577 +            "to reput the chunk in place after gettextization. A ".
   5.578 +            "possible cause is that a text duplicated in the original ".
   5.579 +            "is not translated the same way each time. Remove one of ".
   5.580 +            "the translations, and you're fine."),
   5.581 +                      $poorig->count_entries_doc(),
   5.582 +                      $potrans->count_entries_doc());
   5.583 +        $please_fail = 1;
   5.584 +    }
   5.585 +
   5.586 +    if ( $poorig->get_charset =~ /^utf-8$/i ) {
   5.587 +        $potrans->to_utf8;
   5.588 +        $pores->set_charset("utf-8");
   5.589 +    } else {
   5.590 +        if ($potrans->get_charset eq "CHARSET") {
   5.591 +            $pores->set_charset("ascii");
   5.592 +        } else {
   5.593 +            $pores->set_charset($potrans->get_charset);
   5.594 +        }
   5.595 +    }
   5.596 +    print "Po character sets:\n".
   5.597 +        "  original=".$poorig->get_charset."\n".
   5.598 +        "  translated=".$potrans->get_charset."\n".
   5.599 +        "  result=".$pores->get_charset."\n"
   5.600 +            if $debug{'encoding'};
   5.601 +
   5.602 +    for (my ($o,$t)=(0,0) ;
   5.603 +         $o<$poorig->count_entries_doc() && $t<$potrans->count_entries_doc();
   5.604 +         $o++,$t++) {
   5.605 +        #
   5.606 +        # Extract some informations
   5.607 +
   5.608 +        my ($orig,$trans)=($poorig->msgid_doc($o),$potrans->msgid_doc($t));
   5.609 +#       print STDERR "Matches [[$orig]]<<$trans>>\n";
   5.610 +
   5.611 +        my ($reforig,$reftrans)=($poorig->{po}{$orig}{'reference'},
   5.612 +                                 $potrans->{po}{$trans}{'reference'});
   5.613 +        my ($typeorig,$typetrans)=($poorig->{po}{$orig}{'type'},
   5.614 +                                   $potrans->{po}{$trans}{'type'});
   5.615 +
   5.616 +        #
   5.617 +        # Make sure the type of both string exist
   5.618 +        #
   5.619 +        die wrap_mod("po4a gettextize",
   5.620 +                     "Internal error: type of original string number %s ".
   5.621 +                     "isn't provided", $o)
   5.622 +            if ($typeorig eq '');
   5.623 +
   5.624 +        die wrap_mod("po4a gettextize",
   5.625 +                     "Internal error: type of translated string number %s ".
   5.626 +                     "isn't provided", $o)
   5.627 +            if ($typetrans eq '');
   5.628 +
   5.629 +        #
   5.630 +        # Make sure both type are the same
   5.631 +        #
   5.632 +        if ($typeorig ne $typetrans){
   5.633 +            $pores->write("gettextization.failed.po");
   5.634 +            die wrap_msg(dgettext("po4a",
   5.635 +                         "po4a gettextization: Structure disparity between ".
   5.636 +                         "original and translated files:\n".
   5.637 +                         "msgid (at %s) is of type '%s' while\n".
   5.638 +                         "msgstr (at %s) is of type '%s'.\n".
   5.639 +                         "Original text: %s\n".
   5.640 +                         "Translated text: %s\n".
   5.641 +                         "(result so far dumped to gettextization.failed.po)").
   5.642 +                         "%s",
   5.643 +                         $reforig, $typeorig,
   5.644 +                         $reftrans, $typetrans,
   5.645 +                         $orig,
   5.646 +                         $trans,
   5.647 +                         $toobad);
   5.648 +        }
   5.649 +
   5.650 +        #
   5.651 +        # Push the entry
   5.652 +        #
   5.653 +        my $flags;
   5.654 +        if (defined $poorig->{po}{$orig}{'flags'}) {
   5.655 +            $flags = $poorig->{po}{$orig}{'flags'}." fuzzy";
   5.656 +        } else {
   5.657 +            $flags = "fuzzy";
   5.658 +        }
   5.659 +        $pores->push_raw('msgid'     => $orig,
   5.660 +                         'msgstr'    => $trans,
   5.661 +                         'flags'     => $flags,
   5.662 +                         'type'      => $typeorig,
   5.663 +                         'reference' => $reforig,
   5.664 +                         'conflict'  => 1,
   5.665 +                         'transref'  => $potrans->{po}{$trans}{'reference'})
   5.666 +            unless (defined($pores->{po}{$orig})
   5.667 +                    and ($pores->{po}{$orig}{'msgstr'} eq $trans))
   5.668 +        # FIXME: maybe we should be smarter about what reference should be
   5.669 +        #        sent to push_raw.
   5.670 +    }
   5.671 +
   5.672 +    # make sure we return a useful error message when entry count differ
   5.673 +    die "$toobad\n" if $please_fail;
   5.674 +
   5.675 +    return $pores;
   5.676 +}
   5.677 +
   5.678 +=item filter($)
   5.679 +
   5.680 +This function extracts a catalog from an existing one. Only the entries having
   5.681 +a reference in the given file will be placed in the resulting catalog.
   5.682 +
   5.683 +This function parses its argument, converts it to a perl function definition,
   5.684 +eval this definition and filter the fields for which this function returns
   5.685 +true.
   5.686 +
   5.687 +I love perl sometimes ;)
   5.688 +
   5.689 +=cut
   5.690 +
   5.691 +sub filter {
   5.692 +    my $self=shift;
   5.693 +    our $filter=shift;
   5.694 +
   5.695 +    my $res;
   5.696 +    $res = Locale::Po4a::Po->new();
   5.697 +
   5.698 +    # Parse the filter
   5.699 +    our $code="sub apply { return ";
   5.700 +    our $pos=0;
   5.701 +    our $length = length $filter;
   5.702 +
   5.703 +    # explode chars to parts. How to subscript a string in Perl?
   5.704 +    our @filter = split(//,$filter);
   5.705 +
   5.706 +    sub gloups {
   5.707 +        my $fmt=shift;
   5.708 +        my $space = "";
   5.709 +        for (1..$pos){
   5.710 +            $space .= ' ';
   5.711 +        }
   5.712 +        die wrap_msg("$fmt\n$filter\n$space^ HERE");
   5.713 +    }
   5.714 +    sub showmethecode {
   5.715 +        return unless $debug{'filter'};
   5.716 +        my $fmt=shift;
   5.717 +        my $space="";
   5.718 +        for (1..$pos){
   5.719 +            $space .= ' ';
   5.720 +        }
   5.721 +        print STDERR "$filter\n$space^ $fmt\n";#"$code\n";
   5.722 +    }
   5.723 +
   5.724 +    # I dream of a lex in perl :-/
   5.725 +    sub parse_expression {
   5.726 +        showmethecode("Begin expression")
   5.727 +            if $debug{'filter'};
   5.728 +
   5.729 +        gloups("Begin of expression expected, got '%s'",$filter[$pos])
   5.730 +            unless ($filter[$pos] eq '(');
   5.731 +        $pos ++; # pass the '('
   5.732 +        if ($filter[$pos] eq '&') {
   5.733 +            # AND
   5.734 +            $pos++;
   5.735 +            showmethecode("Begin of AND")
   5.736 +                if $debug{'filter'};
   5.737 +            $code .= "(";
   5.738 +            while (1) {
   5.739 +                gloups ("Unfinished AND statement.")
   5.740 +                    if ($pos == $length);
   5.741 +                parse_expression();
   5.742 +                if ($filter[$pos] eq '(') {
   5.743 +                    $code .= " && ";
   5.744 +                } elsif ($filter[$pos] eq ')') {
   5.745 +                    last; # do not eat that char
   5.746 +                } else {
   5.747 +                    gloups("End of AND or begin of sub-expression expected, got '%s'", $filter[$pos]);
   5.748 +                }
   5.749 +            }
   5.750 +            $code .= ")";
   5.751 +        } elsif ($filter[$pos] eq '|') {
   5.752 +            # OR
   5.753 +            $pos++;
   5.754 +            $code .= "(";
   5.755 +            while (1) {
   5.756 +                gloups("Unfinished OR statement.")
   5.757 +                    if ($pos == $length);
   5.758 +                parse_expression();
   5.759 +                if ($filter[$pos] eq '(') {
   5.760 +                    $code .= " || ";
   5.761 +                } elsif ($filter[$pos] eq ')') {
   5.762 +                    last; # do not eat that char
   5.763 +                } else {
   5.764 +                    gloups("End of OR or begin of sub-expression expected, got '%s'",$filter[$pos]);
   5.765 +                }
   5.766 +            }
   5.767 +            $code .= ")";
   5.768 +        } elsif ($filter[$pos] eq '!') {
   5.769 +            # NOT
   5.770 +            $pos++;
   5.771 +            $code .= "(!";
   5.772 +            gloups("Missing sub-expression in NOT statement.")
   5.773 +                if ($pos == $length);
   5.774 +            parse_expression();
   5.775 +            $code .= ")";
   5.776 +        } else {
   5.777 +            # must be an equal. Let's get field and argument
   5.778 +            my ($field,$arg,$done);
   5.779 +            $field = substr($filter,$pos);
   5.780 +            gloups("EQ statement contains no '=' or invalid field name")
   5.781 +                unless ($field =~ /([a-z]*)=/i);
   5.782 +            $field = lc($1);
   5.783 +            $pos += (length $field) + 1;
   5.784 +
   5.785 +            # check that we've got a valid field name,
   5.786 +            # and the number it referes to
   5.787 +            # DO NOT CHANGE THE ORDER
   5.788 +            my @names=qw(msgid msgstr reference flags comment automatic);
   5.789 +            my $fieldpos;
   5.790 +            for ($fieldpos = 0;
   5.791 +                 $fieldpos < scalar @names && $field ne $names[$fieldpos];
   5.792 +                 $fieldpos++) {}
   5.793 +            gloups("Invalid field name: %s",$field)
   5.794 +                if $fieldpos == scalar @names; # not found
   5.795 +
   5.796 +            # Now, get the argument value. It has to be between quotes,
   5.797 +            # which can be escaped
   5.798 +            # We point right on the first char of the argument
   5.799 +            # (first quote already eaten)
   5.800 +            my $escaped = 0;
   5.801 +            my $quoted = 0;
   5.802 +            if ($filter[$pos] eq '"') {
   5.803 +                $pos++;
   5.804 +                $quoted = 1;
   5.805 +            }
   5.806 +            showmethecode(($quoted?"Quoted":"Unquoted")." argument of field '$field'")
   5.807 +                if $debug{'filter'};
   5.808 +
   5.809 +            while (!$done) {
   5.810 +                gloups("Unfinished EQ argument.")
   5.811 +                    if ($pos == $length);
   5.812 +
   5.813 +                if ($quoted) {
   5.814 +                    if ($filter[$pos] eq '\\') {
   5.815 +                        if ($escaped) {
   5.816 +                            $arg .= '\\';
   5.817 +                            $escaped = 0;
   5.818 +                        } else {
   5.819 +                            $escaped = 1;
   5.820 +                        }
   5.821 +                    } elsif ($escaped) {
   5.822 +                        if ($filter[$pos] eq '"') {
   5.823 +                            $arg .= '"';
   5.824 +                            $escaped = 0;
   5.825 +                        } else {
   5.826 +                            gloups("Invalid escape sequence in argument: '\\%s'",$filter[$pos]);
   5.827 +                        }
   5.828 +                    } else {
   5.829 +                        if ($filter[$pos] eq '"') {
   5.830 +                            $done = 1;
   5.831 +                        } else {
   5.832 +                            $arg .= $filter[$pos];
   5.833 +                        }
   5.834 +                    }
   5.835 +                } else {
   5.836 +                    if ($filter[$pos] eq ')') {
   5.837 +                        # counter the next ++ since we don't want to eat
   5.838 +                        # this char
   5.839 +                        $pos--;
   5.840 +                        $done = 1;
   5.841 +                    } else {
   5.842 +                        $arg .= $filter[$pos];
   5.843 +                    }
   5.844 +                }
   5.845 +                $pos++;
   5.846 +            }
   5.847 +            # and now, add the code to check this equality
   5.848 +            $code .= "(\$_[$fieldpos] =~ m/$arg/)";
   5.849 +
   5.850 +        }
   5.851 +        showmethecode("End of expression")
   5.852 +            if $debug{'filter'};
   5.853 +        gloups("Unfinished statement.")
   5.854 +            if ($pos == $length);
   5.855 +        gloups("End of expression expected, got '%s'",$filter[$pos])
   5.856 +            unless ($filter[$pos] eq ')');
   5.857 +        $pos++;
   5.858 +    }
   5.859 +    # And now, launch the beast, finish the function and use eval
   5.860 +    # to construct this function.
   5.861 +    # Ok, the lack of lexer is a fair price for the eval ;)
   5.862 +    parse_expression();
   5.863 +    gloups("Garbage at the end of the expression")
   5.864 +        if ($pos != $length);
   5.865 +    $code .= "; }";
   5.866 +    print STDERR "CODE = $code\n"
   5.867 +        if $debug{'filter'};
   5.868 +    eval $code;
   5.869 +    die wrap_mod("po4a::po", dgettext("po4a", "Eval failure: %s"), $@)
   5.870 +        if $@;
   5.871 +
   5.872 +    for (my $cpt=(0) ;
   5.873 +         $cpt<$self->count_entries();
   5.874 +         $cpt++) {
   5.875 +
   5.876 +        my ($msgid,$ref,$msgstr,$flags,$type,$comment,$automatic);
   5.877 +
   5.878 +        $msgid = $self->msgid($cpt);
   5.879 +        $ref=$self->{po}{$msgid}{'reference'};
   5.880 +
   5.881 +        $msgstr= $self->{po}{$msgid}{'msgstr'};
   5.882 +        $flags =  $self->{po}{$msgid}{'flags'};
   5.883 +        $type = $self->{po}{$msgid}{'type'};
   5.884 +        $comment = $self->{po}{$msgid}{'comment'};
   5.885 +        $automatic = $self->{po}{$msgid}{'automatic'};
   5.886 +
   5.887 +        # DO NOT CHANGE THE ORDER
   5.888 +        $res->push_raw('msgid' => $msgid,
   5.889 +                       'msgstr' => $msgstr,
   5.890 +                       'flags' => $flags,
   5.891 +                       'type'  => $type,
   5.892 +                       'reference' => $ref,
   5.893 +                       'comment' => $comment,
   5.894 +                       'automatic' => $automatic)
   5.895 +               if (apply($msgid,$msgstr,$ref,$flags,$comment,$automatic));
   5.896 +    }
   5.897 +    # delete the apply subroutine
   5.898 +    # otherwise it will be redefined.
   5.899 +    undef &apply;
   5.900 +    return $res;
   5.901 +}
   5.902 +
   5.903 +=item to_utf8()
   5.904 +
   5.905 +Recodes to utf-8 the po's msgstrs. Does nothing if the charset is not
   5.906 +specified in the po file ("CHARSET" value), or if it's already utf-8 or
   5.907 +ascii.
   5.908 +
   5.909 +=cut
   5.910 +
   5.911 +sub to_utf8 {
   5.912 +    my $this = shift;
   5.913 +    my $charset = $this->get_charset();
   5.914 +
   5.915 +    unless ($charset eq "CHARSET" or
   5.916 +            $charset =~ /^ascii$/i or
   5.917 +            $charset =~ /^utf-8$/i) {
   5.918 +        foreach my $msgid ( keys %{$this->{po}} ) {
   5.919 +            Encode::from_to($this->{po}{$msgid}{'msgstr'}, $charset, "utf-8");
   5.920 +        }
   5.921 +        $this->set_charset("utf-8");
   5.922 +    }
   5.923 +}
   5.924 +
   5.925 +=back
   5.926 +
   5.927 +=head1 Functions to use a message catalog for translations
   5.928 +
   5.929 +=over 4
   5.930 +
   5.931 +=item gettext($%)
   5.932 +
   5.933 +Request the translation of the string given as argument in the current catalog.
   5.934 +The function returns the original (untranslated) string if the string was not
   5.935 +found.
   5.936 +
   5.937 +After the string to translate, you can pass a hash of extra
   5.938 +arguments. Here are the valid entries:
   5.939 +
   5.940 +=over
   5.941 +
   5.942 +=item wrap
   5.943 +
   5.944 +boolean indicating whether we can consider that whitespaces in string are
   5.945 +not important. If yes, the function canonizes the string before looking for
   5.946 +a translation, and wraps the result.
   5.947 +
   5.948 +=item wrapcol
   5.949 +
   5.950 +The column at which we should wrap (default: 76).
   5.951 +
   5.952 +=back
   5.953 +
   5.954 +=cut
   5.955 +
   5.956 +sub gettext {
   5.957 +    my $self=shift;
   5.958 +    my $text=shift;
   5.959 +    my (%opt)=@_;
   5.960 +    my $res;
   5.961 +
   5.962 +    return "" unless defined($text) && length($text); # Avoid returning the header.
   5.963 +    my $validoption="reference wrap wrapcol";
   5.964 +    my %validoption;
   5.965 +
   5.966 +    map { $validoption{$_}=1 } (split(/ /,$validoption));
   5.967 +    foreach (keys %opt) {
   5.968 +        Carp::confess "internal error:  unknown arg $_.\n".
   5.969 +                      "Here are the valid options: $validoption.\n"
   5.970 +            unless $validoption{$_};
   5.971 +    }
   5.972 +
   5.973 +    $text=canonize($text)
   5.974 +        if ($opt{'wrap'});
   5.975 +
   5.976 +    my $esc_text=escape_text($text);
   5.977 +
   5.978 +    $self->{gettextqueries}++;
   5.979 +
   5.980 +    if (    defined $self->{po}{$esc_text}
   5.981 +        and defined $self->{po}{$esc_text}{'msgstr'}
   5.982 +        and length $self->{po}{$esc_text}{'msgstr'}
   5.983 +        and (   not defined $self->{po}{$esc_text}{'flags'}
   5.984 +             or $self->{po}{$esc_text}{'flags'} !~ /fuzzy/)) {
   5.985 +
   5.986 +        $self->{gettexthits}++;
   5.987 +        $res = unescape_text($self->{po}{$esc_text}{'msgstr'});
   5.988 +        if (defined $self->{po}{$esc_text}{'plural'}) {
   5.989 +            if ($self->{po}{$esc_text}{'plural'} eq "0") {
   5.990 +                warn wrap_mod("po4a gettextize", dgettext("po4a",
   5.991 +                              "'%s' is the singular form of a message, ".
   5.992 +                              "po4a will use the msgstr[0] translation (%s)."),
   5.993 +                              $esc_text, $res);
   5.994 +            } else {
   5.995 +                warn wrap_mod("po4a gettextize", dgettext("po4a",
   5.996 +                              "'%s' is the plural form of a message, ".
   5.997 +                              "po4a will use the msgstr[1] translation (%s)."),
   5.998 +                              $esc_text, $res);
   5.999 +            }
  5.1000 +        }
  5.1001 +    } else {
  5.1002 +        $res = $text;
  5.1003 +    }
  5.1004 +
  5.1005 +    if ($opt{'wrap'}) {
  5.1006 +        if ($self->get_charset =~ /^utf-8$/i) {
  5.1007 +            $res=Encode::decode_utf8($res);
  5.1008 +            $res=wrap ($res, $opt{'wrapcol'} || 76);
  5.1009 +            $res=Encode::encode_utf8($res);
  5.1010 +        } else {
  5.1011 +            $res=wrap ($res, $opt{'wrapcol'} || 76);
  5.1012 +        }
  5.1013 +    }
  5.1014 +#    print STDERR "Gettext >>>$text<<<(escaped=$esc_text)=[[[$res]]]\n\n";
  5.1015 +    return $res;
  5.1016 +}
  5.1017 +
  5.1018 +=item stats_get()
  5.1019 +
  5.1020 +Returns statistics about the hit ratio of gettext since the last time that
  5.1021 +stats_clear() was called. Please note that it's not the same
  5.1022 +statistics than the one printed by msgfmt --statistic. Here, it's statistics
  5.1023 +about recent usage of the po file, while msgfmt reports the status of the
  5.1024 +file.  Example of use:
  5.1025 +
  5.1026 +    [some use of the po file to translate stuff]
  5.1027 +
  5.1028 +    ($percent,$hit,$queries) = $pofile->stats_get();
  5.1029 +    print "So far, we found translations for $percent\%  ($hit of $queries) of strings.\n";
  5.1030 +
  5.1031 +=cut
  5.1032 +
  5.1033 +sub stats_get() {
  5.1034 +    my $self=shift;
  5.1035 +    my ($h,$q)=($self->{gettexthits},$self->{gettextqueries});
  5.1036 +    my $p = ($q == 0 ? 100 : int($h/$q*10000)/100);
  5.1037 +
  5.1038 +#    $p =~ s/\.00//;
  5.1039 +#    $p =~ s/(\..)0/$1/;
  5.1040 +
  5.1041 +    return ( $p,$h,$q );
  5.1042 +}
  5.1043 +
  5.1044 +=item stats_clear()
  5.1045 +
  5.1046 +Clears the statistics about gettext hits.
  5.1047 +
  5.1048 +=cut
  5.1049 +
  5.1050 +sub stats_clear {
  5.1051 +    my $self = shift;
  5.1052 +    $self->{gettextqueries} = 0;
  5.1053 +    $self->{gettexthits} = 0;
  5.1054 +}
  5.1055 +
  5.1056 +=back
  5.1057 +
  5.1058 +=head1 Functions to build a message catalog
  5.1059 +
  5.1060 +=over 4
  5.1061 +
  5.1062 +=item push(%)
  5.1063 +
  5.1064 +Push a new entry at the end of the current catalog. The arguments should
  5.1065 +form a hash table. The valid keys are:
  5.1066 +
  5.1067 +=over 4
  5.1068 +
  5.1069 +=item msgid
  5.1070 +
  5.1071 +the string in original language.
  5.1072 +
  5.1073 +=item msgstr
  5.1074 +
  5.1075 +the translation.
  5.1076 +
  5.1077 +=item reference
  5.1078 +
  5.1079 +an indication of where this string was found. Example: file.c:46 (meaning
  5.1080 +in 'file.c' at line 46). It can be a space-separated list in case of
  5.1081 +multiple occurrences.
  5.1082 +
  5.1083 +=item comment
  5.1084 +
  5.1085 +a comment added here manually (by the translators). The format here is free.
  5.1086 +
  5.1087 +=item automatic
  5.1088 +
  5.1089 +a comment which was automatically added by the string extraction
  5.1090 +program. See the I<--add-comments> option of the B<xgettext> program for
  5.1091 +more information.
  5.1092 +
  5.1093 +=item flags
  5.1094 +
  5.1095 +space-separated list of all defined flags for this entry.
  5.1096 +
  5.1097 +Valid flags are: c-text, python-text, lisp-text, elisp-text, librep-text,
  5.1098 +smalltalk-text, java-text, awk-text, object-pascal-text, ycp-text,
  5.1099 +tcl-text, wrap, no-wrap and fuzzy.
  5.1100 +
  5.1101 +See the gettext documentation for their meaning.
  5.1102 +
  5.1103 +=item type
  5.1104 +
  5.1105 +This is mostly an internal argument: it is used while gettextizing
  5.1106 +documents. The idea here is to parse both the original and the translation
  5.1107 +into a po object, and merge them, using one's msgid as msgid and the
  5.1108 +other's msgid as msgstr. To make sure that things get ok, each msgid in po
  5.1109 +objects are given a type, based on their structure (like "chapt", "sect1",
  5.1110 +"p" and so on in docbook). If the types of strings are not the same, that
  5.1111 +means that both files do not share the same structure, and the process
  5.1112 +reports an error.
  5.1113 +
  5.1114 +This information is written as automatic comment in the po file since this
  5.1115 +gives to translators some context about the strings to translate.
  5.1116 +
  5.1117 +=item wrap
  5.1118 +
  5.1119 +boolean indicating whether whitespaces can be mangled in cosmetic
  5.1120 +reformattings. If true, the string is canonized before use.
  5.1121 +
  5.1122 +This information is written to the po file using the 'wrap' or 'no-wrap' flag.
  5.1123 +
  5.1124 +=item wrapcol
  5.1125 +
  5.1126 +The column at which we should wrap (default: 76).
  5.1127 +
  5.1128 +This information is not written to the po file.
  5.1129 +
  5.1130 +=back
  5.1131 +
  5.1132 +=cut
  5.1133 +
  5.1134 +sub push {
  5.1135 +    my $self=shift;
  5.1136 +    my %entry=@_;
  5.1137 +
  5.1138 +    my $validoption="wrap wrapcol type msgid msgstr automatic flags reference";
  5.1139 +    my %validoption;
  5.1140 +
  5.1141 +    map { $validoption{$_}=1 } (split(/ /,$validoption));
  5.1142 +    foreach (keys %entry) {
  5.1143 +        Carp::confess "internal error:  unknown arg $_.\n".
  5.1144 +                      "Here are the valid options: $validoption.\n"
  5.1145 +            unless $validoption{$_};
  5.1146 +    }
  5.1147 +
  5.1148 +    unless ($entry{'wrap'}) {
  5.1149 +        $entry{'flags'} .= " no-wrap";
  5.1150 +    }
  5.1151 +    if (defined ($entry{'msgid'})) {
  5.1152 +        $entry{'msgid'} = canonize($entry{'msgid'})
  5.1153 +            if ($entry{'wrap'});
  5.1154 +
  5.1155 +        $entry{'msgid'} = escape_text($entry{'msgid'});
  5.1156 +    }
  5.1157 +    if (defined ($entry{'msgstr'})) {
  5.1158 +        $entry{'msgstr'} = canonize($entry{'msgstr'})
  5.1159 +            if ($entry{'wrap'});
  5.1160 +
  5.1161 +        $entry{'msgstr'} = escape_text($entry{'msgstr'});
  5.1162 +    }
  5.1163 +
  5.1164 +    $self->push_raw(%entry);
  5.1165 +}
  5.1166 +
  5.1167 +# The same as push(), but assuming that msgid and msgstr are already escaped
  5.1168 +sub push_raw {
  5.1169 +    my $self=shift;
  5.1170 +    my %entry=@_;
  5.1171 +    my ($msgid,$msgstr,$reference,$comment,$automatic,$flags,$type,$transref)=
  5.1172 +        ($entry{'msgid'},$entry{'msgstr'},
  5.1173 +         $entry{'reference'},$entry{'comment'},$entry{'automatic'},
  5.1174 +         $entry{'flags'},$entry{'type'},$entry{'transref'});
  5.1175 +    my $keep_conflict = $entry{'conflict'};
  5.1176 +
  5.1177 +#    print STDERR "Push_raw\n";
  5.1178 +#    print STDERR " msgid=>>>$msgid<<<\n" if $msgid;
  5.1179 +#    print STDERR " msgstr=[[[$msgstr]]]\n" if $msgstr;
  5.1180 +#    Carp::cluck " flags=$flags\n" if $flags;
  5.1181 +
  5.1182 +    return unless defined($entry{'msgid'});
  5.1183 +
  5.1184 +    #no msgid => header definition
  5.1185 +    unless (length($entry{'msgid'})) {
  5.1186 +#       if (defined($self->{header}) && $self->{header} =~ /\S/) {
  5.1187 +#           warn dgettext("po4a","Redefinition of the header. ".
  5.1188 +#                                "The old one will be discarded\n");
  5.1189 +#       } FIXME: do that iff the header isn't the default one.
  5.1190 +        $self->{header}=$msgstr;
  5.1191 +        $self->{header_comment}=$comment;
  5.1192 +        my $charset = $self->get_charset;
  5.1193 +        if ($charset ne "CHARSET") {
  5.1194 +            $self->{encoder}=find_encoding($charset);
  5.1195 +        } else {
  5.1196 +            $self->{encoder}=find_encoding("ascii");
  5.1197 +        }
  5.1198 +        return;
  5.1199 +    }
  5.1200 +
  5.1201 +    if ($self->{options}{'porefs'} eq "none") {
  5.1202 +        $reference = "";
  5.1203 +    } elsif ($self->{options}{'porefs'} eq "noline") {
  5.1204 +        $reference =~ s/:[0-9]*/:1/g;
  5.1205 +    }
  5.1206 +
  5.1207 +    if (defined($self->{po}{$msgid})) {
  5.1208 +        warn wrap_mod("po4a::po",
  5.1209 +                      dgettext("po4a","msgid defined twice: %s"),
  5.1210 +                      $msgid)
  5.1211 +            if (0); # FIXME: put a verbose stuff
  5.1212 +        if (    defined $msgstr
  5.1213 +            and defined $self->{po}{$msgid}{'msgstr'}
  5.1214 +            and $self->{po}{$msgid}{'msgstr'} ne $msgstr) {
  5.1215 +            my $txt=quote_text($msgid);
  5.1216 +            my ($first,$second)=
  5.1217 +                (format_comment(". ",$self->{po}{$msgid}{'reference'}).
  5.1218 +                 quote_text($self->{po}{$msgid}{'msgstr'}),
  5.1219 +
  5.1220 +                 format_comment(". ",$reference).
  5.1221 +                 quote_text($msgstr));
  5.1222 +
  5.1223 +            if ($keep_conflict) {
  5.1224 +                if ($self->{po}{$msgid}{'msgstr'} =~ m/^#-#-#-#-#  .*  #-#-#-#-#\\n/s) {
  5.1225 +                    $msgstr = $self->{po}{$msgid}{'msgstr'}.
  5.1226 +                              "\\n#-#-#-#-#  $transref  #-#-#-#-#\\n".
  5.1227 +                              $msgstr;
  5.1228 +                } else {
  5.1229 +                    $msgstr = "#-#-#-#-#  ".
  5.1230 +                              $self->{po}{$msgid}{'transref'}.
  5.1231 +                              "  #-#-#-#-#\\n".
  5.1232 +                              $self->{po}{$msgid}{'msgstr'}."\\n".
  5.1233 +                              "#-#-#-#-#  $transref  #-#-#-#-#\\n".
  5.1234 +                              $msgstr;
  5.1235 +                }
  5.1236 +                # Every msgid will have the same list of references.
  5.1237 +                # Only keep the last list.
  5.1238 +                $self->{po}{$msgid}{'reference'} = "";
  5.1239 +            } else {
  5.1240 +            warn wrap_msg(dgettext("po4a",
  5.1241 +                                   "Translations don't match for:\n".
  5.1242 +                                   "%s\n".
  5.1243 +                                   "-->First translation:\n".
  5.1244 +                                   "%s\n".
  5.1245 +                                   " Second translation:\n".
  5.1246 +                                   "%s\n".
  5.1247 +                                   " Old translation discarded."),
  5.1248 +                          $txt,$first,$second);
  5.1249 +            }
  5.1250 +        }
  5.1251 +    }
  5.1252 +    if (defined $transref) {
  5.1253 +        $self->{po}{$msgid}{'transref'} = $transref;
  5.1254 +    }
  5.1255 +    if (defined $reference) {
  5.1256 +        if (defined $self->{po}{$msgid}{'reference'}) {
  5.1257 +            $self->{po}{$msgid}{'reference'} .= " ".$reference;
  5.1258 +        } else {
  5.1259 +            $self->{po}{$msgid}{'reference'} = $reference;
  5.1260 +        }
  5.1261 +    }
  5.1262 +    $self->{po}{$msgid}{'msgstr'} = $msgstr;
  5.1263 +    $self->{po}{$msgid}{'comment'} = $comment;
  5.1264 +    $self->{po}{$msgid}{'automatic'} = $automatic;
  5.1265 +    if (defined($self->{po}{$msgid}{'pos_doc'})) {
  5.1266 +        $self->{po}{$msgid}{'pos_doc'} .= " ".$self->{count_doc}++;
  5.1267 +    } else {
  5.1268 +        $self->{po}{$msgid}{'pos_doc'}  = $self->{count_doc}++;
  5.1269 +    }
  5.1270 +    unless (defined($self->{po}{$msgid}{'pos'})) {
  5.1271 +        $self->{po}{$msgid}{'pos'} = $self->{count}++;
  5.1272 +    }
  5.1273 +    $self->{po}{$msgid}{'type'} = $type;
  5.1274 +    $self->{po}{$msgid}{'plural'} = $entry{'plural'}
  5.1275 +        if defined $entry{'plural'};
  5.1276 +
  5.1277 +    if (defined($flags)) {
  5.1278 +        $flags = " $flags ";
  5.1279 +        $flags =~ s/,/ /g;
  5.1280 +        foreach my $flag (@known_flags) {
  5.1281 +            if ($flags =~ /\s$flag\s/) { # if flag to be set
  5.1282 +                unless (   defined($self->{po}{$msgid}{'flags'})
  5.1283 +                        && $self->{po}{$msgid}{'flags'} =~ /\b$flag\b/) {
  5.1284 +                    # flag not already set
  5.1285 +                    if (defined $self->{po}{$msgid}{'flags'}) {
  5.1286 +                        $self->{po}{$msgid}{'flags'} .= " ".$flag;
  5.1287 +                    } else {
  5.1288 +                        $self->{po}{$msgid}{'flags'} = $flag;
  5.1289 +                    }
  5.1290 +                }
  5.1291 +            }
  5.1292 +        }
  5.1293 +    }
  5.1294 +#    print STDERR "stored ((($msgid)))=>(((".$self->{po}{$msgid}{'msgstr'}.")))\n\n";
  5.1295 +
  5.1296 +}
  5.1297 +
  5.1298 +=back
  5.1299 +
  5.1300 +=head1 Miscellaneous functions
  5.1301 +
  5.1302 +=over 4
  5.1303 +
  5.1304 +=item count_entries()
  5.1305 +
  5.1306 +Returns the number of entries in the catalog (without the header).
  5.1307 +
  5.1308 +=cut
  5.1309 +
  5.1310 +sub count_entries($) {
  5.1311 +    my $self=shift;
  5.1312 +    return $self->{count};
  5.1313 +}
  5.1314 +
  5.1315 +=item count_entries_doc()
  5.1316 +
  5.1317 +Returns the number of entries in document. If a string appears multiple times
  5.1318 +in the document, it will be counted multiple times
  5.1319 +
  5.1320 +=cut
  5.1321 +
  5.1322 +sub count_entries_doc($) {
  5.1323 +    my $self=shift;
  5.1324 +    return $self->{count_doc};
  5.1325 +}
  5.1326 +
  5.1327 +=item msgid($)
  5.1328 +
  5.1329 +Returns the msgid of the given number.
  5.1330 +
  5.1331 +=cut
  5.1332 +
  5.1333 +sub msgid($$) {
  5.1334 +    my $self=shift;
  5.1335 +    my $num=shift;
  5.1336 +
  5.1337 +    foreach my $msgid ( keys %{$self->{po}} ) {
  5.1338 +        return $msgid if ($self->{po}{$msgid}{'pos'} eq $num);
  5.1339 +    }
  5.1340 +    return undef;
  5.1341 +}
  5.1342 +
  5.1343 +=item msgid_doc($)
  5.1344 +
  5.1345 +Returns the msgid with the given position in the document.
  5.1346 +
  5.1347 +=cut
  5.1348 +
  5.1349 +sub msgid_doc($$) {
  5.1350 +    my $self=shift;
  5.1351 +    my $num=shift;
  5.1352 +
  5.1353 +    foreach my $msgid ( keys %{$self->{po}} ) {
  5.1354 +        foreach my $pos (split / /, $self->{po}{$msgid}{'pos_doc'}) {
  5.1355 +            return $msgid if ($pos eq $num);
  5.1356 +        }
  5.1357 +    }
  5.1358 +    return undef;
  5.1359 +}
  5.1360 +
  5.1361 +=item get_charset()
  5.1362 +
  5.1363 +Returns the character set specified in the po header. If it hasn't been
  5.1364 +set, it will return "CHARSET".
  5.1365 +
  5.1366 +=cut
  5.1367 +
  5.1368 +sub get_charset() {
  5.1369 +    my $self=shift;
  5.1370 +
  5.1371 +    $self->{header} =~ /charset=(.*?)[\s\\]/;
  5.1372 +
  5.1373 +    if (defined $1) {
  5.1374 +        return $1;
  5.1375 +    } else {
  5.1376 +        return "CHARSET";
  5.1377 +    }
  5.1378 +}
  5.1379 +
  5.1380 +=item set_charset($)
  5.1381 +
  5.1382 +This sets the character set of the po header to the value specified in its
  5.1383 +first argument. If you never call this function (and no file with a specified
  5.1384 +character set is read), the default value is left to "CHARSET". This value
  5.1385 +doesn't change the behavior of this module, it's just used to fill that field
  5.1386 +in the header, and to return it in get_charset().
  5.1387 +
  5.1388 +=cut
  5.1389 +
  5.1390 +sub set_charset() {
  5.1391 +    my $self=shift;
  5.1392 +
  5.1393 +    my ($newchar,$oldchar);
  5.1394 +    $newchar = shift;
  5.1395 +    $oldchar = $self->get_charset();
  5.1396 +
  5.1397 +    $self->{header} =~ s/$oldchar/$newchar/;
  5.1398 +    $self->{encoder}=find_encoding($newchar);
  5.1399 +}
  5.1400 +
  5.1401 +#----[ helper functions ]---------------------------------------------------
  5.1402 +
  5.1403 +# transforme the string from its po file representation to the form which
  5.1404 +#   should be used to print it
  5.1405 +sub unescape_text {
  5.1406 +    my $text = shift;
  5.1407 +
  5.1408 +    print STDERR "\nunescape [$text]====" if $debug{'escape'};
  5.1409 +    $text = join("",split(/\n/,$text));
  5.1410 +    $text =~ s/\\"/"/g;
  5.1411 +    # unescape newlines
  5.1412 +    #   NOTE on \G:
  5.1413 +    #   The following regular expression introduce newlines.
  5.1414 +    #   Thus, ^ doesn't match all beginnings of lines.
  5.1415 +    #   \G is a zero-width assertion that matches the position
  5.1416 +    #   of the previous substitution with s///g. As every
  5.1417 +    #   substitution ends by a newline, it always matches a
  5.1418 +    #   position just after a newline.
  5.1419 +    $text =~ s/(           # $1:
  5.1420 +                (\G|[^\\]) #    beginning of the line or any char
  5.1421 +                           #    different from '\'
  5.1422 +                (\\\\)*    #    followed by any even number of '\'
  5.1423 +               )\\n        # and followed by an escaped newline
  5.1424 +              /$1\n/sgx;   # single string, match globally, allow comments
  5.1425 +    # unescape tabulations
  5.1426 +    $text =~ s/(          # $1:
  5.1427 +                (\G|[^\\])#    beginning of the line or any char
  5.1428 +                          #    different from '\'
  5.1429 +                (\\\\)*   #    followed by any even number of '\'
  5.1430 +               )\\t       # and followed by an escaped tabulation
  5.1431 +              /$1\t/mgx;  # multilines string, match globally, allow comments
  5.1432 +    # and unescape the escape character
  5.1433 +    $text =~ s/\\\\/\\/g;
  5.1434 +    print STDERR ">$text<\n" if $debug{'escape'};
  5.1435 +
  5.1436 +    return $text;
  5.1437 +}
  5.1438 +
  5.1439 +# transform the string to its representation as it should be written in po
  5.1440 +# files
  5.1441 +sub escape_text {
  5.1442 +    my $text = shift;
  5.1443 +
  5.1444 +    print STDERR "\nescape [$text]====" if $debug{'escape'};
  5.1445 +    $text =~ s/\\/\\\\/g;
  5.1446 +    $text =~ s/"/\\"/g;
  5.1447 +    $text =~ s/\n/\\n/g;
  5.1448 +    $text =~ s/\t/\\t/g;
  5.1449 +    print STDERR ">$text<\n" if $debug{'escape'};
  5.1450 +
  5.1451 +    return $text;
  5.1452 +}
  5.1453 +
  5.1454 +# put quotes around the string on each lines (without escaping it)
  5.1455 +# It does also normalize the text (ie, make sure its representation is wraped
  5.1456 +#   on the 80th char, but without changing the meaning of the string)
  5.1457 +sub quote_text {
  5.1458 +    my $string = shift;
  5.1459 +
  5.1460 +    return '""' unless defined($string) && length($string);
  5.1461 +
  5.1462 +    print STDERR "\nquote [$string]====" if $debug{'quote'};
  5.1463 +    # break lines on newlines, if any
  5.1464 +    # see unescape_text for an explanation on \G
  5.1465 +    $string =~ s/(           # $1:
  5.1466 +                  (\G|[^\\]) #    beginning of the line or any char
  5.1467 +                             #    different from '\'
  5.1468 +                  (\\\\)*    #    followed by any even number of '\'
  5.1469 +                 \\n)        # and followed by an escaped newline
  5.1470 +                /$1\n/sgx;   # single string, match globally, allow comments
  5.1471 +    $string = wrap($string);
  5.1472 +    my @string = split(/\n/,$string);
  5.1473 +    $string = join ("\"\n\"",@string);
  5.1474 +    $string = "\"$string\"";
  5.1475 +    if (scalar @string > 1 && $string[0] ne '') {
  5.1476 +        $string = "\"\"\n".$string;
  5.1477 +    }
  5.1478 +
  5.1479 +    print STDERR ">$string<\n" if $debug{'quote'};
  5.1480 +    return $string;
  5.1481 +}
  5.1482 +
  5.1483 +# undo the work of the quote_text function
  5.1484 +sub unquote_text {
  5.1485 +    my $string = shift;
  5.1486 +    print STDERR "\nunquote [$string]====" if $debug{'quote'};
  5.1487 +    $string =~ s/^""\\n//s;
  5.1488 +    $string =~ s/^"(.*)"$/$1/s;
  5.1489 +    $string =~ s/"\n"//gm;
  5.1490 +    # Note: an even number of '\' could precede \\n, but I could not build a
  5.1491 +    # document to test this
  5.1492 +    $string =~ s/([^\\])\\n\n/$1!!DUMMYPOPM!!/gm;
  5.1493 +    $string =~ s|!!DUMMYPOPM!!|\\n|gm;
  5.1494 +    print STDERR ">$string<\n" if $debug{'quote'};
  5.1495 +    return $string;
  5.1496 +}
  5.1497 +
  5.1498 +# canonize the string: write it on only one line, changing consecutive
  5.1499 +# whitespace to only one space.
  5.1500 +# Warning, it changes the string and should only be called if the string is
  5.1501 +# plain text
  5.1502 +sub canonize {
  5.1503 +    my $text=shift;
  5.1504 +    print STDERR "\ncanonize [$text]====" if $debug{'canonize'};
  5.1505 +    $text =~ s/^ *//s;
  5.1506 +    $text =~ s/^[ \t]+/  /gm;
  5.1507 +    # if ($text eq "\n"), it messed up the first string (header)
  5.1508 +    $text =~ s/\n/  /gm if ($text ne "\n");
  5.1509 +    $text =~ s/([.)])  +/$1  /gm;
  5.1510 +    $text =~ s/([^.)])  */$1 /gm;
  5.1511 +    $text =~ s/ *$//s;
  5.1512 +    print STDERR ">$text<\n" if $debug{'canonize'};
  5.1513 +    return $text;
  5.1514 +}
  5.1515 +
  5.1516 +# wraps the string. We don't use Text::Wrap since it mangles whitespace at
  5.1517 +# the end of splited line
  5.1518 +sub wrap {
  5.1519 +    my $text=shift;
  5.1520 +    return "0" if ($text eq '0');
  5.1521 +    my $col=shift || 76;
  5.1522 +    my @lines=split(/\n/,"$text");
  5.1523 +    my $res="";
  5.1524 +    my $first=1;
  5.1525 +    while (defined(my $line=shift @lines)) {
  5.1526 +        if ($first && length($line) > $col - 10) {
  5.1527 +            unshift @lines,$line;
  5.1528 +            $first=0;
  5.1529 +            next;
  5.1530 +        }
  5.1531 +        if (length($line) > $col) {
  5.1532 +            my $pos=rindex($line," ",$col);
  5.1533 +            while (substr($line,$pos-1,1) eq '.' && $pos != -1) {
  5.1534 +                $pos=rindex($line," ",$pos-1);
  5.1535 +            }
  5.1536 +            if ($pos == -1) {
  5.1537 +                # There are no spaces in the first $col chars, pick-up the
  5.1538 +                # first space
  5.1539 +                $pos = index($line," ");
  5.1540 +            }
  5.1541 +            if ($pos != -1) {
  5.1542 +                my $end=substr($line,$pos+1);
  5.1543 +                $line=substr($line,0,$pos+1);
  5.1544 +                if ($end =~ s/^( +)//) {
  5.1545 +                    $line .= $1;
  5.1546 +                }
  5.1547 +                unshift @lines,$end;
  5.1548 +            }
  5.1549 +        }
  5.1550 +        $first=0;
  5.1551 +        $res.="$line\n";
  5.1552 +    }
  5.1553 +    # Restore the original trailing spaces
  5.1554 +    $res =~ s/\s+$//s;
  5.1555 +    if ($text =~ m/(\s+)$/s) {
  5.1556 +        $res .= $1;
  5.1557 +    }
  5.1558 +    return $res;
  5.1559 +}
  5.1560 +
  5.1561 +# outputs properly a '# ... ' line to be put in the po file
  5.1562 +sub format_comment {
  5.1563 +    my $comment=shift;
  5.1564 +    my $char=shift;
  5.1565 +    my $result = "#". $char . $comment;
  5.1566 +    $result =~ s/\n/\n#$char/gs;
  5.1567 +    $result =~ s/^#$char$/#/gm;
  5.1568 +    $result .= "\n";
  5.1569 +    return $result;
  5.1570 +}
  5.1571 +
  5.1572 +
  5.1573 +1;
  5.1574 +__END__
  5.1575 +
  5.1576 +=back
  5.1577 +
  5.1578 +=head1 AUTHORS
  5.1579 +
  5.1580 + Denis Barbier <barbier@linuxfr.org>
  5.1581 + Martin Quinson (mquinson#debian.org)
  5.1582 +
  5.1583 +=cut