summaryrefslogtreecommitdiff
path: root/macros/texinfo/texinfo/Pod-Simple-Texinfo/pod2texi.pl
diff options
context:
space:
mode:
Diffstat (limited to 'macros/texinfo/texinfo/Pod-Simple-Texinfo/pod2texi.pl')
-rw-r--r--macros/texinfo/texinfo/Pod-Simple-Texinfo/pod2texi.pl56
1 files changed, 29 insertions, 27 deletions
diff --git a/macros/texinfo/texinfo/Pod-Simple-Texinfo/pod2texi.pl b/macros/texinfo/texinfo/Pod-Simple-Texinfo/pod2texi.pl
index ed0be8043a..ba3ac4c1a0 100644
--- a/macros/texinfo/texinfo/Pod-Simple-Texinfo/pod2texi.pl
+++ b/macros/texinfo/texinfo/Pod-Simple-Texinfo/pod2texi.pl
@@ -1,6 +1,6 @@
#! /usr/bin/env perl
# pod2texi -- convert Pod to Texinfo.
-# Copyright 2012-2019 Free Software Foundation, Inc.
+# Copyright 2012-2021 Free Software Foundation, Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@ -101,35 +101,37 @@ my ($real_command_name, $directories, $suffix) = fileparse($0);
sub pod2texi_help()
{
- return __("Usage: pod2texi [OPTION]... POD...
-
-Translate Perl pod documentation file(s) to Texinfo. There are two
+ my $pod2texi_help = __("Usage: pod2texi [OPTION]... POD...");
+ $pod2texi_help .= "\n\n";
+ $pod2texi_help .= __("Translate Perl pod documentation file(s) to Texinfo. There are two
basic modes of operation. First, by default, each pod is translated to
a standalone Texinfo manual.
Second, if C<--base-level> is set higher than 0, each pod is translated
to a file suitable for C<\@include>, and one more file with all the
C<\@include>s is generated, intended to be C<\@include>d in turn within
-a hand-written top-level file.
-
-Options:
- --appendix-sections use appendix-like sections.
- --base-level=NUM|NAME level of the head1 commands; default 0.
- --debug=NUM set debugging level.
- --help display this help and exit.
- --no-fill-section-gaps do not fill sectioning gaps.
- --no-section-nodes use anchors for sections instead of nodes.
- --output=NAME output to NAME for the first or main manual
- instead of standard output.
- --preamble=STR insert STR as beginning boilerplate.
- --subdir=NAME put files included in the main manual in NAME.
- --top top for the main manual.
- --unnumbered-sections use unumbered sections.
- --version display version information and exit.
-
-Email bug reports to bug-texinfo\@gnu.org,
+a hand-written top-level file.");
+ $pod2texi_help .= "\n\n";
+ $pod2texi_help .= __("Options:
+ --appendix-sections use appendix-like sections")."\n";
+ $pod2texi_help .= __(" --base-level=NUM|NAME level of the head1 commands; default 0")."\n";
+ $pod2texi_help .= __(" --debug=NUM set debugging level")."\n";
+ $pod2texi_help .= __(" --help display this help and exit")."\n";
+ $pod2texi_help .= __(" --no-fill-section-gaps do not fill sectioning gaps")."\n";
+ $pod2texi_help .= __(" --no-section-nodes use anchors for sections instead of nodes")."\n";
+ $pod2texi_help .= __(" --output=NAME output to NAME for the first or main manual
+ instead of standard output")."\n";
+ $pod2texi_help .= __(" --preamble=STR insert STR as beginning boilerplate")."\n";
+ $pod2texi_help .= __(" --subdir=NAME put files included in the main manual in NAME")."\n";
+ $pod2texi_help .= __(" --top top for the main manual")."\n";
+ $pod2texi_help .= __(" --unnumbered-sections do not number sections")."\n";
+ $pod2texi_help .= __(" --version display version information and exit");
+ $pod2texi_help .= "\n\n";
+
+ $pod2texi_help .= __("Email bug reports to bug-texinfo\@gnu.org,
general questions and discussion to help-texinfo\@gnu.org.
-Texinfo home page: http://www.gnu.org/software/texinfo/\n");
+Texinfo home page: http://www.gnu.org/software/texinfo/")."\n";
+ return $pod2texi_help;
}
my $base_level = 0;
@@ -149,7 +151,7 @@ my $result_options = Getopt::Long::GetOptions (
printf __("Copyright (C) %s Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
-There is NO WARRANTY, to the extent permitted by law.\n"), "2016";
+There is NO WARRANTY, to the extent permitted by law.\n"), "2021";
exit 0;},
'base-level=s' => sub {
if ($_[1] =~ /^[0-4]$/) {
@@ -192,8 +194,8 @@ my @input_files = @ARGV;
# use STDIN if not a tty, like makeinfo does
@input_files = ('-') if (!scalar(@input_files) and !-t STDIN);
-die sprintf(__("%s: missing file argument;\n"), $real_command_name)
- .sprintf(__("try `%s --help' for more information\n"), $real_command_name)
+die sprintf(__("%s: missing file argument\n"), $real_command_name)
+ .sprintf(__("Try `%s --help' for more information.\n"), $real_command_name)
unless (scalar(@input_files) >= 1);
my @processed_files;
@@ -588,7 +590,7 @@ Texinfo home page: L<http://www.gnu.org/software/texinfo/>
=head1 COPYRIGHT
-Copyright 2016 Free Software Foundation, Inc.
+Copyright 2021 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by