mirror of
https://github.com/CloverHackyColor/CloverBootloader.git
synced 2024-12-11 14:28:08 +01:00
153 lines
4.6 KiB
Perl
153 lines
4.6 KiB
Perl
# Locale::Po4a::Chooser -- Manage po4a modules
|
|
#
|
|
# This program is free software; you may redistribute it and/or modify it
|
|
# under the terms of GPL (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.006;
|
|
use strict;
|
|
use warnings;
|
|
use Locale::Po4a::Common;
|
|
|
|
sub new {
|
|
my ($module)=shift;
|
|
my (%options)=@_;
|
|
|
|
die wrap_mod("po4a::chooser", gettext("Need to 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';
|
|
} 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)
|
|
if defined $options{'verbose'} && $options{'verbose'} > 0;
|
|
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("html: HTML documents (EXPERIMENTAL).")
|
|
."\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("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).")
|
|
);
|
|
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, to make sure 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.
|
|
|
|
You also have the Locale::Po4a::Chooser::list() function which lists the
|
|
available formats and exits on the value passed as argument.
|
|
|
|
=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::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)>.
|
|
|
|
=back
|
|
|
|
=head1 AUTHORS
|
|
|
|
Denis Barbier <barbier@linuxfr.org>
|
|
Martin Quinson (mquinson#debian.org)
|
|
|
|
=head1 COPYRIGHT AND LICENSE
|
|
|
|
Copyright 2002,2003,2004,2005 by SPI, inc.
|
|
|
|
This program is free software; you may redistribute it and/or modify it
|
|
under the terms of GPL (see the COPYING file).
|
|
|
|
=cut
|