diff options
Diffstat (limited to 'lib/Locale/Po4a/Chooser.pm')
| -rw-r--r-- | lib/Locale/Po4a/Chooser.pm | 178 |
1 files changed, 178 insertions, 0 deletions
diff --git a/lib/Locale/Po4a/Chooser.pm b/lib/Locale/Po4a/Chooser.pm new file mode 100644 index 0000000..fa96084 --- /dev/null +++ b/lib/Locale/Po4a/Chooser.pm @@ -0,0 +1,178 @@ +# Locale::Po4a::Chooser -- Manage po4a modules +# +# This program is free software; you may redistribute it and/or modify it +# under the terms of GPL v2.0 or later (see COPYING). +# +# This module converts POD to PO file, so that it becomes possible to +# translate POD formatted documentation. See gettext documentation for +# more info about PO files. + +############################################################################ +# Modules and declarations +############################################################################ + +package Locale::Po4a::Chooser; + +use 5.16.0; +use strict; +use warnings; +use Locale::Po4a::Common; + +sub new { + my ($module) = shift; + my (%options) = @_; + + die wrap_mod( "po4a::chooser", gettext("Please provide a module name") ) + unless defined $module; + + my $modname; + if ( $module eq 'kernelhelp' ) { + $modname = 'KernelHelp'; + } elsif ( $module eq 'newsdebian' ) { + $modname = 'NewsDebian'; + } elsif ( $module eq 'latex' ) { + $modname = 'LaTeX'; + } elsif ( $module eq 'bibtex' ) { + $modname = 'BibTex'; + } elsif ( $module eq 'tex' ) { + $modname = 'TeX'; + } elsif ( $module eq 'asciidoc' ) { + $modname = 'AsciiDoc'; + } elsif ( $module eq 'Rd' || $module eq 'rubydoc' ) { + $modname = 'RubyDoc'; + } else { + $modname = ucfirst($module); + } + if ( !UNIVERSAL::can( "Locale::Po4a::$modname", 'new' ) ) { + eval qq{use Locale::Po4a::$modname}; + if ($@) { + my $error = $@; + warn wrap_msg( gettext("Unknown format type: %s."), $module ); + warn wrap_mod( "po4a::chooser", gettext("Module loading error: %s"), $error ) + unless defined $options{'quiet'}; + list(1); + } + } + return "Locale::Po4a::$modname"->new(%options); +} + +sub list { + warn wrap_msg( + gettext("List of valid formats:") + + # ."\n - ".gettext("bibtex: BibTex bibliography format.") + . "\n - " + . gettext("asciidoc: AsciiDoc format.") + . "\n - " + . gettext("dia: uncompressed Dia diagrams.") + . "\n - " + . gettext("docbook: DocBook XML.") + . "\n - " + . gettext("guide: Gentoo Linux's XML documentation format.") + . "\n - " + . gettext("ini: INI format.") + . "\n - " + . gettext("kernelhelp: Help messages of each kernel compilation option.") + . "\n - " + . gettext("latex: LaTeX format.") + . "\n - " + . gettext("man: Good old manual page format.") + . "\n - " + . gettext("pod: Perl Online Documentation format.") + . "\n - " + . gettext("rubydoc: Ruby Documentation (RD) format.") + . "\n - " + . gettext("sgml: either DebianDoc or DocBook DTD.") + . "\n - " + . gettext("texinfo: The info page format.") + . "\n - " + . gettext("tex: generic TeX documents (see also latex).") + . "\n - " + . gettext("text: simple text document.") + . "\n - " + . gettext("wml: WML documents.") + . "\n - " + . gettext("xhtml: XHTML documents.") + . "\n - " + . gettext("xml: generic XML documents (see also docbook).") + . "\n - " + . gettext("yaml: YAML documents.") + ); + exit shift; +} +############################################################################## +# Module return value and documentation +############################################################################## + +1; +__END__ + +=encoding UTF-8 + +=head1 NAME + +Locale::Po4a::Chooser - manage po4a modules + +=head1 DESCRIPTION + +Locale::Po4a::Chooser is a module to manage po4a modules. Previously, all po4a +binaries used to know all po4a modules (pod, man, sgml, etc). This made the +addition of a new module boring, because you had to make sure that the documentation is synchronized +in all modules, and that each of them can access the new module. + +Now, you just have to call the Locale::Po4a::Chooser::new() function, +passing the name of module as argument. + +The function Locale::Po4a::Chooser::list() lists the available +formats, and exits with the value passed as argument. So, we call +Locale::Po4a::Chooser::list(0) when requested for the list of +formats, and Locale::Po4a::Chooser::list(1) when passed an invalid +format name. + +=head1 SEE ALSO + +=over 4 + +=item About po4a: + +L<Locale::Po4a::Po(3pm)>, +L<Locale::Po4a::TransTractor(3pm)>, +L<po4a(7)|po4a.7> + +=item About modules: + +L<Locale::Po4a::Dia(3pm)>, +L<Locale::Po4a::Docbook(3pm)>, +L<Locale::Po4a::Guide(3pm)>, +L<Locale::Po4a::Halibut(3pm)>, +L<Locale::Po4a::Ini(3pm)>, +L<Locale::Po4a::KernelHelp(3pm)>, +L<Locale::Po4a::LaTeX(3pm)>, +L<Locale::Po4a::Man(3pm)>, +L<Locale::Po4a::Pod(3pm)>, +L<Locale::Po4a::RubyDoc(3pm)>, +L<Locale::Po4a::Sgml(3pm)>, +L<Locale::Po4a::TeX(3pm)>, +L<Locale::Po4a::Texinfo(3pm)>, +L<Locale::Po4a::Text(3pm)>, +L<Locale::Po4a::Wml(3pm)>. +L<Locale::Po4a::Xhtml(3pm)>, +L<Locale::Po4a::Xml(3pm)>, +L<Locale::Po4a::Wml(3pm)>, +L<Locale::Po4a::Yaml(3pm)>. + +=back + +=head1 AUTHORS + + Denis Barbier <barbier@linuxfr.org> + Martin Quinson (mquinson#debian.org) + +=head1 COPYRIGHT AND LICENSE + +Copyright © 2002-2005, 2014, 2017 SPI, Inc. + +This program is free software; you may redistribute it and/or modify it +under the terms of GPL v2.0 or later (see the COPYING file). + +=cut |