diff options
Diffstat (limited to 'macros/texinfo/texinfo/Pod-Simple-Texinfo/pod2texi.pl')
-rw-r--r-- | macros/texinfo/texinfo/Pod-Simple-Texinfo/pod2texi.pl | 56 |
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 |