Gecko [ mind-monia.com ]

Name	Size	Permission
[	63.53 KB	-rwxr-xr-x
animate	8.61 KB	-rwxr-xr-x
awk	763.51 KB	-rwxr-xr-x
b2sum	77.4 KB	-rwxr-xr-x
base32	55.69 KB	-rwxr-xr-x
base64	55.68 KB	-rwxr-xr-x
basename	46.9 KB	-rwxr-xr-x
basenc	69.75 KB	-rwxr-xr-x
bash	1.51 MB	-rwxr-xr-x
bashbug	6.7 KB	-r-xr-xr-x
bunzip2	282.37 KB	-rwxrwxr-x
bzcat	282.37 KB	-rwxrwxr-x
bzcmp	2.09 KB	-rwxrwxr-x
bzdiff	2.09 KB	-rwxrwxr-x
bzegrep	2.01 KB	-rwxrwxr-x
bzfgrep	2.01 KB	-rwxrwxr-x
bzgrep	2.01 KB	-rwxrwxr-x
bzip2	282.37 KB	-rwxrwxr-x
bzip2recover	28.73 KB	-rwxrwxr-x
bzless	1.23 KB	-rwxrwxr-x
bzmore	1.23 KB	-rwxrwxr-x
cat	52.81 KB	-rwxr-xr-x
chcon	88.21 KB	-rwxr-xr-x
chgrp	87.02 KB	-rwxr-xr-x
chmod	57.21 KB	-rwxr-xr-x
chown	87.2 KB	-rwxr-xr-x
chroot	60.1 KB	-rwxr-xr-x
cksum	51.06 KB	-rwxr-xr-x
col	23.88 KB	-rwxr-xr-x
comm	56.23 KB	-rwxr-xr-x
compare	12.69 KB	-rwxr-xr-x
composite	8.56 KB	-rwxr-xr-x
conjure	8.55 KB	-rwxr-xr-x
convert	8.55 KB	-rwxr-xr-x
cp	151.55 KB	-rwxr-xr-x
csplit	166.02 KB	-rwxr-xr-x
curl	320.79 KB	-rwxr-xr-x
cut	60.67 KB	-rwxr-xr-x
cvs	795.5 KB	-rwxr-xr-x
date	60.74 KB	-rwxr-xr-x
dd	88.95 KB	-rwxr-xr-x
df	102.88 KB	-rwxr-xr-x
diff	195.46 KB	-rwxr-xr-x
dir	174.98 KB	-rwxr-xr-x
dircolors	59.88 KB	-rwxr-xr-x
dirname	46.75 KB	-rwxr-xr-x
du	110.34 KB	-rwxr-xr-x
echo	50.54 KB	-rwxr-xr-x
egrep	28 B	-rwxr-xr-x
env	28.33 KB	-rwxr-xr-x
ex	4 MB	-rwxr-xr-x
expand	52 KB	-rwxr-xr-x
expr	160.28 KB	-rwxr-xr-x
factor	94.27 KB	-rwxr-xr-x
false	46.25 KB	-rwxr-xr-x
fgrep	28 B	-rwxr-xr-x
find	1.69 MB	-rwxr-xr-x
fmt	60.36 KB	-rwxr-xr-x
fold	51.55 KB	-rwxr-xr-x
ftp	171.21 KB	-rwxr-xr-x
funzip	30.25 KB	-rwxr-xr-x
gawk	763.51 KB	-rwxr-xr-x
geqn	144.41 KB	-rwxr-xr-x
git	4.47 MB	-rwxr-xr-x
git-cvsserver	159.46 KB	-rwxr-xr-x
git-receive-pack	4.47 MB	-rwxr-xr-x
git-shell	2.69 MB	-rwxr-xr-x
git-upload-archive	4.47 MB	-rwxr-xr-x
git-upload-pack	4.47 MB	-rwxr-xr-x
gpic	180.41 KB	-rwxr-xr-x
grep	320.13 KB	-rwxr-xr-x
groff	81.63 KB	-rwxr-xr-x
groups	51.22 KB	-rwxr-xr-x
gtar	655.36 KB	-rwxr-xr-x
gtbl	115.96 KB	-rwxr-xr-x
gunzip	2.28 KB	-rwxr-xr-x
gzexe	6.29 KB	-rwxr-xr-x
gzip	131.16 KB	-rwxr-xr-x
head	40.51 KB	-rwxr-xr-x
hostid	46.62 KB	-rwxr-xr-x
hostname	15.41 KB	-rwxr-xr-x
htpasswd	217.91 KB	-rwxrwxr-x
id	36.52 KB	-rwxr-xr-x
identify	8.6 KB	-rwxr-xr-x
import	8.6 KB	-rwxr-xr-x
info	398.34 KB	-rwxr-xr-x
install	181.31 KB	-rwxr-xr-x
install-info	151.73 KB	-rwxr-xr-x
jhead	79.46 KB	-rwxrwxr-x
join	77.8 KB	-rwxr-xr-x
kill	51.71 KB	-rwxr-xr-x
ksh	1.45 MB	-rwxr-xr-x
less	243.45 KB	-rwxr-xr-x
lessecho	12.98 KB	-rwxr-xr-x
lesskey	19.48 KB	-rwxr-xr-x
link	46.61 KB	-rwxr-xr-x
ln	90.14 KB	-rwxr-xr-x
locale	37.11 KB	-rwxr-xr-x
logname	46.66 KB	-rwxr-xr-x
ls	114.85 KB	-rwxr-xr-x
lzcat	310.7 KB	-rwxr-xr-x
lzcmp	7.41 KB	-rwxr-xr-x
lzdiff	7.41 KB	-rwxr-xr-x
lzegrep	10.17 KB	-rwxr-xr-x
lzfgrep	10.17 KB	-rwxr-xr-x
lzgrep	10.17 KB	-rwxr-xr-x
lzless	2.33 KB	-rwxr-xr-x
lzma	310.7 KB	-rwxr-xr-x
lzmadec	47.3 KB	-rwxr-xr-x
lzmainfo	62.14 KB	-rwxr-xr-x
lzmore	2.18 KB	-rwxr-xr-x
mail	383.67 KB	-rwxr-xr-x
makeinfo	52.86 KB	-rwxr-xr-x
man	100.44 KB	-rwxr-xr-x
mc	1.32 MB	-rwxr-xr-x
mcdiff	1.32 MB	-rwxr-xr-x
mcedit	1.32 MB	-rwxr-xr-x
mcview	1.32 MB	-rwxr-xr-x
md5sum	60.48 KB	-rwxr-xr-x
mkdir	77.9 KB	-rwxr-xr-x
mkfifo	88.56 KB	-rwxr-xr-x
mknod	92.85 KB	-rwxr-xr-x
mktemp	61.2 KB	-rwxr-xr-x
mogrify	8.55 KB	-rwxr-xr-x
montage	8.55 KB	-rwxr-xr-x
more	40.15 KB	-rwxr-xr-x
mv	127.3 KB	-rwxr-xr-x
mysql	9.1 MB	-rwx--x--x
mysqldump	8.25 MB	-rwx--x--x
mysqlimport	7.95 MB	-rwx--x--x
mysqlshow	7.95 MB	-rwx--x--x
nano	914.13 KB	-rwxr-xr-x
neqn	271 B	-rwxr-xr-x
nice	50.86 KB	-rwxr-xr-x
nl	153.14 KB	-rwxr-xr-x
nohup	51.47 KB	-rwxr-xr-x
nproc	51.19 KB	-rwxr-xr-x
nroff	3.31 KB	-rwxr-xr-x
numfmt	81.95 KB	-rwxr-xr-x
od	64.81 KB	-rwxr-xr-x
openssl	974.41 KB	-rwxr-xr-x
paste	51.22 KB	-rwxr-xr-x
pathchk	50.69 KB	-rwxr-xr-x
pdftexi2dvi	1.14 KB	-rwxr-xr-x
pear	830 B	-rwxr-xr-x
pear5	830 B	-rwxr-xr-x
perl	3.6 MB	-rwxr-xr-x
perl5	3.6 MB	-rwxr-xr-x
perl510	3.6 MB	-rwxr-xr-x
perl510pl	3.6 MB	-rwxr-xr-x
perl518	1.48 MB	-rwxr-xr-x
perl536	3.6 MB	-rwxr-xr-x
perl58	3.6 MB	-rwxr-xr-x
perl58pl	3.6 MB	-rwxr-xr-x
perl5pl	3.6 MB	-rwxr-xr-x
php	26.42 KB	-rwxrwxr-x
php3	16.61 MB	-rwxr-xr-x
php4	16.61 MB	-rwxr-xr-x
php43	16.61 MB	-rwxr-xr-x
php43pl	16.61 MB	-rwxr-xr-x
php44	16.61 MB	-rwxr-xr-x
php44pl	16.61 MB	-rwxr-xr-x
php5	16.61 MB	-rwxr-xr-x
php52	16.61 MB	-rwxr-xr-x
php53	26.42 KB	-rwxrwxr-x
php53es	15.44 MB	-rwxr-xr-x
php55	16.61 MB	-rwxr-xr-x
php56	26.42 KB	-rwxrwxr-x
php56es	16.61 MB	-rwxr-xr-x
php5pl	16.61 MB	-rwxr-xr-x
php70	26.42 KB	-rwxrwxr-x
php70es	16.21 MB	-rwxr-xr-x
php71	26.42 KB	-rwxrwxr-x
php71es	17.61 MB	-rwxr-xr-x
php72	26.42 KB	-rwxrwxr-x
php72es	20.37 MB	-rwxr-xr-x
php73	26.42 KB	-rwxrwxr-x
php73es	20.82 MB	-rwxr-xr-x
php74	26.42 KB	-rwxrwxr-x
php74es	22.37 MB	-rwxr-xr-x
php80	26.42 KB	-rwxrwxr-x
php80es	22.36 MB	-rwxr-xr-x
php81	26.42 KB	-rwxrwxr-x
php81es	24.53 MB	-rwxr-xr-x
php82	24.68 MB	-rwxr-xr-x
php83	26.71 MB	-rwxr-xr-x
php84	29.77 MB	-rwxr-xr-x
php85	32.79 MB	-rwxr-xr-x
phpdbg56	16.74 MB	-rwxr-xr-x
phpdbg70	16.43 MB	-rwxr-xr-x
phpdbg71	17.85 MB	-rwxr-xr-x
phpdbg72	20.61 MB	-rwxr-xr-x
phpdbg73	21.06 MB	-rwxr-xr-x
phpdbg74	22.38 MB	-rwxr-xr-x
phpdbg80	22.38 MB	-rwxr-xr-x
phpdbg81	24.54 MB	-rwxr-xr-x
phpdbg82	24.69 MB	-rwxr-xr-x
phpdbg83	26.72 MB	-rwxr-xr-x
phpdbg84	29.78 MB	-rwxr-xr-x
phpdbg85	32.81 MB	-rwxr-xr-x
pinky	56.7 KB	-rwxr-xr-x
pod2texi	19.93 KB	-rwxr-xr-x
postinstall.sh	518 B	-rwxr-xr-x
pr	101.19 KB	-rwxr-xr-x
printenv	46.52 KB	-rwxr-xr-x
printf	59.99 KB	-rwxr-xr-x
ptx	187.99 KB	-rwxr-xr-x
pwd	32.45 KB	-rwxr-xr-x
pydoc	88 B	-rwxrwxr-x
python	7.95 MB	-rwxr-xr-x
python2.7	7.95 MB	-rwxr-xr-x
python3	23.85 MB	-rwxr-xr-x
readlink	60.95 KB	-rwxr-xr-x
realpath	65.32 KB	-rwxr-xr-x
rm	61.4 KB	-rwxr-xr-x
rmdir	44.46 KB	-rwxr-xr-x
rnano	914.13 KB	-rwxr-xr-x
rsync	621.54 KB	-rwxr-xr-x
rsync-ssl	5.02 KB	-rwxr-xr-x
ruby	2.55 MB	-rwxr-xr-x
runcon	51.4 KB	-rwxr-xr-x
rview	4 MB	-rwxr-xr-x
rvim	4 MB	-rwxr-xr-x
scalar	2.74 MB	-rwxr-xr-x
scp	249.52 KB	-rwxrwxr-x
sed	74.29 KB	-rwxr-xr-x
seq	55.73 KB	-rwxr-xr-x
sh	941.93 KB	-rwxr-xr-x
sha1sum	60.49 KB	-rwxr-xr-x
sha224sum	60.85 KB	-rwxr-xr-x
sha256sum	60.85 KB	-rwxr-xr-x
sha384sum	60.85 KB	-rwxr-xr-x
sha512sum	60.85 KB	-rwxr-xr-x
shred	78.98 KB	-rwxr-xr-x
shuf	74.81 KB	-rwxr-xr-x
sleep	32.35 KB	-rwxr-xr-x
sort	114.94 KB	-rwxr-xr-x
split	75.23 KB	-rwxr-xr-x
ssh	1.01 MB	-rwxrwxr-x
ssh-keygen	613.59 KB	-rwxrwxr-x
stat	96.5 KB	-rwxr-xr-x
stdbuf	56.14 KB	-rwxr-xr-x
stream	8.55 KB	-rwxr-xr-x
stty	80.81 KB	-rwxr-xr-x
sum	60.15 KB	-rwxr-xr-x
sync	50.8 KB	-rwxr-xr-x
tac	148.66 KB	-rwxr-xr-x
tail	65.25 KB	-rwxr-xr-x
tar	655.36 KB	-rwxr-xr-x
tbl	115.96 KB	-rwxr-xr-x
tee	32.38 KB	-rwxr-xr-x
test	59.05 KB	-rwxr-xr-x
texi2any	52.86 KB	-rwxr-xr-x
texi2dvi	58.25 KB	-rwxr-xr-x
texi2pdf	1.14 KB	-rwxr-xr-x
texindex	3.9 KB	-rwxr-xr-x
timeout	57.35 KB	-rwxr-xr-x
touch	102.8 KB	-rwxr-xr-x
tr	64.63 KB	-rwxr-xr-x
true	46.24 KB	-rwxr-xr-x
truncate	55.15 KB	-rwxr-xr-x
tsort	63.86 KB	-rwxr-xr-x
tty	46.55 KB	-rwxr-xr-x
uname	32.3 KB	-rwxr-xr-x
uncompress	2.28 KB	-rwxr-xr-x
unexpand	52.05 KB	-rwxr-xr-x
uniq	60.84 KB	-rwxr-xr-x
unlink	46.62 KB	-rwxr-xr-x
unlzma	310.7 KB	-rwxr-xr-x
unxz	310.7 KB	-rwxr-xr-x
unzip	162.7 KB	-rwxr-xr-x
unzipsfx	78.64 KB	-rwxr-xr-x
uptime	64.64 KB	-rwxr-xr-x
users	51.21 KB	-rwxr-xr-x
vdir	174.98 KB	-rwxr-xr-x
vi	906.45 KB	-rwxr-xr-x
view	4 MB	-rwxr-xr-x
vim	4 MB	-rwxr-xr-x
vimdiff	4 MB	-rwxr-xr-x
wc	65.73 KB	-rwxr-xr-x
wget	621.87 KB	-rwxr-xr-x
whereis	20.2 KB	-rwxr-xr-x
who	61.02 KB	-rwxr-xr-x
whoami	46.7 KB	-rwxr-xr-x
wp	6.61 MB	-rwxr-xr-x
xargs	349.48 KB	-rwxr-xr-x
xxd	22.45 KB	-rwxr-xr-x
xz	310.7 KB	-rwxr-xr-x
xzcat	310.7 KB	-rwxr-xr-x
xzcmp	7.41 KB	-rwxr-xr-x
xzdec	96.67 KB	-rwxr-xr-x
xzdiff	7.41 KB	-rwxr-xr-x
xzegrep	10.17 KB	-rwxr-xr-x
xzfgrep	10.17 KB	-rwxr-xr-x
xzgrep	10.17 KB	-rwxr-xr-x
xzless	2.33 KB	-rwxr-xr-x
xzmore	2.18 KB	-rwxr-xr-x
yes	46.73 KB	-rwxr-xr-x
zcat	1.93 KB	-rwxr-xr-x
zcmp	1.64 KB	-rwxr-xr-x
zdiff	6.3 KB	-rwxr-xr-x
zegrep	29 B	-rwxr-xr-x
zfgrep	29 B	-rwxr-xr-x
zforce	2.03 KB	-rwxr-xr-x
zgrep	8.02 KB	-rwxr-xr-x
zip	219.59 KB	-rwxr-xr-x
zipcloak	109.42 KB	-rwxr-xr-x
zipgrep	2.88 KB	-rwxr-xr-x
zipinfo	162.7 KB	-rwxr-xr-x
zipnote	104.41 KB	-rwxr-xr-x
zipsplit	104.63 KB	-rwxr-xr-x
zless	2.38 KB	-rwxr-xr-x
zmore	1.79 KB	-rwxr-xr-x
znew	4.46 KB	-rwxr-xr-x

Code Editor : pod2texi

#! /usr/bin/perl
# pod2texi -- convert Pod to Texinfo.
# 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
# the Free Software Foundation; either version 3 of the License,
# or (at your option) any later version.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
# 
# Original author: Patrice Dumas <pertusus@free.fr>

use strict;
use Getopt::Long qw(GetOptions);
# for dirname.
use File::Basename;
use File::Spec;

Getopt::Long::Configure("gnu_getopt");
#use Pod::Simple::Debug (4);

BEGIN
{
  # emulate -w
  $^W = 1;
  my ($real_command_name, $command_directory, $command_suffix)
     = fileparse($0, '.pl');

my $datadir = '/usr/share';
  my $package = 'texinfo';
  my $updir = File::Spec->updir();

my $texinfolibdir;
  my $lib_dir;

# in-source run
  if (($command_suffix eq '.pl' and !(defined($ENV{'TEXINFO_DEV_SOURCE'})
       and $ENV{'TEXINFO_DEV_SOURCE'} eq 0)) or $ENV{'TEXINFO_DEV_SOURCE'}) {
    my $srcdir = defined $ENV{'srcdir'} ? $ENV{'srcdir'} : $command_directory;
    $texinfolibdir = File::Spec->catdir($srcdir, $updir, 'tp');
    $lib_dir = File::Spec->catdir($texinfolibdir, 'maintain');
    unshift @INC, (File::Spec->catdir($srcdir, 'lib'), $texinfolibdir);
  } elsif ($datadir ne '@' .'datadir@' and $package ne '@' . 'PACKAGE@'
           and $datadir ne '') {
    $texinfolibdir = File::Spec->catdir($datadir, $package);
    # try to make package relocatable, will only work if standard relative paths
    # are used
    if (! -f File::Spec->catfile($texinfolibdir, 'Texinfo', 'Parser.pm')
        and -f File::Spec->catfile($command_directory, $updir, 'share',
                                   'texinfo', 'Texinfo', 'Parser.pm')) {
      $texinfolibdir = File::Spec->catdir($command_directory, $updir,
                                          'share', 'texinfo');
    }
    $lib_dir = $texinfolibdir;
    unshift @INC, (File::Spec->catdir($texinfolibdir, 'Pod-Simple-Texinfo'),
                   $texinfolibdir);
  }

# '@USE_EXTERNAL_LIBINTL @ and similar are substituted in the
  # makefile using values from configure
  if (defined($texinfolibdir)) {
    if ('no' ne 'yes') {
      unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'libintl-perl', 'lib'));
    }
    if ('no' ne 'yes') {
      unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'Unicode-EastAsianWidth', 'lib'));
    }
    if ('no' ne 'yes') {
      unshift @INC, (File::Spec->catdir($lib_dir, 'lib', 'Text-Unidecode', 'lib'));
    }
  }
}

use Pod::Simple::Texinfo;
use Texinfo::Common;
use Texinfo::Parser;
use Texinfo::Transformations;

{
# A fake package to be able to use Pod::Simple::PullParser without generating
# any output.
package Pod::Simple::PullParserRun;

use vars qw(@ISA);
@ISA = ('Pod::Simple::PullParser');
sub new
{
  return shift->SUPER::new(@_);
}
sub run(){};
}

my ($real_command_name, $directories, $suffix) = fileparse($0);

sub pod2texi_help()
{
  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.");
  $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";
  return $pod2texi_help;
}

my $base_level = 0;
my $unnumbered_sections = 0;
my $appendix_sections = 0;
my $output = '-';
my $top = 'top';
my $preamble = undef;
my $subdir;
my $section_nodes = 1;
my $fill_sectioning_gaps = 1;
my $debug = 0;

my $result_options = Getopt::Long::GetOptions (
  'help|h' => sub { print pod2texi_help(); exit 0; },
  'version|V' => sub {print "$real_command_name $Pod::Simple::Texinfo::VERSION\n\n";
    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"), "2021";
      exit 0;},
  'base-level=s' => sub {
     if ($_[1] =~ /^[0-4]$/) {
       $base_level = $_[1];
     } elsif (defined($Texinfo::Common::command_structuring_level{$_[1]})) {
       $base_level = $Texinfo::Common::command_structuring_level{$_[1]};
     } else {
       die sprintf(__("%s: wrong argument for --base-level\n"), 
                   $real_command_name);
     }
   },
  'unnumbered-sections!' => \$unnumbered_sections,
  'appendix-sections!' => \$appendix_sections,
  'output|o=s' => \$output,
  'preamble=s' => \$preamble,
  'subdir=s' => \$subdir,
  'top=s' => \$top,
  'section-nodes!' => \$section_nodes,
  'fill-section-gaps!' => \$fill_sectioning_gaps,
  'debug=i' => \$debug,
);

exit 1 if (!$result_options);

if (defined($subdir)) {
  if (! -d $subdir) {
    if (!mkdir($subdir)) {
      die sprintf(__("%s: could not create directory %s: %s"), 
                  $real_command_name, $subdir, $!);
    }
  }
}

my $STDOUT_DOCU_NAME = 'stdout';

my @manuals;
my @all_manual_names;

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)
     unless (scalar(@input_files) >= 1);

my @processed_files;
# First gather all the manual names
if ($base_level > 0) {
  foreach my $file (@input_files) {
    # we don't want to read from STDIN, as the input read would be lost
    # same with named pipe and socket...
    # FIXME are there other file that have the same problem?
    next if ($file eq '-' or -p $file or -S $file);
    # not really used, only the manual name is used.
    my $parser = Pod::Simple::PullParserRun->new();
    $parser->parse_file($file);
    my $short_title = $parser->get_short_title();
    if (defined($short_title) and $short_title =~ m/\S/) {
      push @manuals, $short_title;
      push @all_manual_names, $short_title;
      #print STDERR "NEW MANUAL: $short_title\n";
    } else {
      if (!$parser->content_seen) {
        warn sprintf(__("%s: ignoring %s without content\n"),
                     $real_command_name, $file);
        next;
      }
      push @all_manual_names, undef;
    }
    push @processed_files, $file;
  }
} else {
  @processed_files = @input_files;
}

sub _fix_texinfo_tree($$$$;$)
{
  my $self = shift;
  my $manual_texi = shift;
  my $section_nodes = shift;
  my $fill_gaps_in_sectioning = shift;
  my $do_master_menu = shift;

my $parser = Texinfo::Parser::parser();
  my $tree = $parser->parse_texi_text($manual_texi);

if ($fill_gaps_in_sectioning) {
    my ($added_sections, $added_nodes);
    ($tree->{'contents'}, $added_sections)
      = Texinfo::Transformations::fill_gaps_in_sectioning($tree);
    # there should already be nodes associated with other sections.  Therefore
    # new nodes should only be created for the $added_sections.
    if ($section_nodes) {
      ($tree->{'contents'}, $added_nodes)
        = Texinfo::Transformations::insert_nodes_for_sectioning_commands($parser, $tree);
      if ($self and $self->texinfo_sectioning_base_level > 0) {
        # prepend the manual name
        foreach my $node (@$added_nodes) {
          # First remove the old normalized entry
          delete $parser->{'labels'}->{$node->{'extra'}->{'normalized'}};
          # now get the number
          my $node_texi = Texinfo::Convert::Texinfo::convert(
                {'contents' => $node->{'extra'}->{'node_content'}});
          # We could have kept the asis, too, it is kept when !section_nodes
          $node_texi =~ s/^\s*(\@asis\{\})?\s*//;
          # complete with manual name
          my $complete_node_name = $self->_node_name($node_texi);
          # now recreate node arg, similar with Texinfo::Transformations::_new_node
          my $tree = Texinfo::Parser::parse_texi_text(undef, $complete_node_name);
          my $node_arg = $node->{'args'}->[0];
          $node_arg->{'contents'} = $tree->{'contents'};
          push @{$node_arg->{'contents'}}, 
              {'type' => 'spaces_at_end', 'text' => "\n"};
          unshift @{$node_arg->{'contents'}},
                  {'extra' => {'command' => $node},
                   'text' => ' ',
                   'type' => 'empty_spaces_after_command'};
          foreach my $content (@{$node_arg->{'contents'}}) {
            $content->{'parent'} = $node_arg;
          }
          # Last parse and register node
          my $parsed_node = Texinfo::Parser::_parse_node_manual($node_arg);
          #push @{$node->{'extra'}->{'nodes_manuals'}}, $parsed_node;
          @{$node->{'extra'}->{'nodes_manuals'}} = ($parsed_node);
          Texinfo::Parser::_register_label($parser, $node, $parsed_node);
        }
      }
    }
  }
  my $structure = Texinfo::Structuring::sectioning_structure($parser, $tree);
  Texinfo::Transformations::complete_tree_nodes_menus($parser, $tree) 
    if ($section_nodes);
  Texinfo::Transformations::regenerate_master_menu($parser) if ($do_master_menu);
  return ($parser, $tree);
}

sub _fix_texinfo_manual($$$$;$)
{
  my $self = shift;
  my $manual_texi = shift;
  my $section_nodes = shift;
  my $fill_gaps_in_sectioning = shift;
  my $do_master_menu = shift;
  my ($parser, $tree) = _fix_texinfo_tree($self, $manual_texi, $section_nodes, 
                                    $fill_gaps_in_sectioning, $do_master_menu);
  return Texinfo::Convert::Texinfo::convert($tree);
}

sub _do_top_node_menu($)
{
  my $manual_texi = shift;
  my ($parser, $tree) = _fix_texinfo_tree(undef, $manual_texi, 1, 0, 1); 
  my $labels = $parser->labels_information();
  my $top_node_menu = $labels->{'Top'}->{'menus'}->[0];
  if ($top_node_menu) {
    return Texinfo::Convert::Texinfo::convert($top_node_menu);
  } else {
    return '';
  }
}

my $file_nr = 0;
# Full manual is collected to generate the top node menu, if $section_nodes
my $full_manual = '';
my @included;
foreach my $file (@processed_files) {
  my $manual_texi = '';
  my $outfile;
  my $name = shift @all_manual_names;
  if ($base_level == 0 and !$file_nr) {
    $outfile = $output;
  } else {
    if (defined($name)) {
      $outfile = Pod::Simple::Texinfo::_pod_title_to_file_name($name);
      $outfile .= '.texi';
    } else {
      if ($file eq '-') {
        $outfile = $STDOUT_DOCU_NAME;
      } else {
        $outfile = $file;
      }
      if ($outfile =~ /\.(pm|pod)$/) {
        $outfile =~ s/\.(pm|pod)$/.texi/i;
      } else {
        $outfile .= '.texi';
      }
    }
    $outfile = File::Spec->catfile($subdir, $outfile) 
      if (defined($subdir));
  }

my $new = Pod::Simple::Texinfo->new();

push @included, [$name, $outfile, $file] if ($base_level > 0);
  my $fh;
  if ($outfile eq '-') {
    $fh = *STDOUT;
  } else {
    open (OUT, ">$outfile") or die sprintf(__("%s: could not open %s for writing: %s\n"), 
                                          $real_command_name, $outfile, $!);
    $fh = *OUT;
  }
  # FIXME should use =encoding
  binmode($fh, ':encoding(utf8)');

$new->output_string(\$manual_texi);

$new->texinfo_sectioning_base_level($base_level);
  if ($section_nodes) {
    $new->texinfo_section_nodes(1);
  }
  if ($unnumbered_sections) {
    $new->texinfo_sectioning_style('unnumbered');
  } elsif ($appendix_sections) {
    $new->texinfo_sectioning_style('appendix');
  }
  if ($base_level > 0 and @manuals) {
    $new->texinfo_internal_pod_manuals(\@manuals);
  }
  
  print STDERR "processing $file -> $outfile ($name)\n" if ($debug);
  $new->parse_file($file);

if ($section_nodes or $fill_sectioning_gaps) {
    if ($debug > 4) {
      # print to a file
      open (DBGFILE, ">$outfile-dbg") or die sprintf(__("%s: could not open %s: %s\n"), 
                                      $real_command_name, "$outfile-dbg", $!);
      binmode(DBGFILE, ':encoding(utf8)');
      print DBGFILE $manual_texi;
      
    }
    $manual_texi = _fix_texinfo_manual($new, $manual_texi, $section_nodes, 
                                             $fill_sectioning_gaps);
    $full_manual .= $manual_texi if ($section_nodes);
  }
  print $fh $manual_texi;

if ($outfile ne '-') {
    close($fh) or die sprintf(__("%s: error on closing %s: %s\n"), 
                               $real_command_name, $outfile, $!);
  }

if ($base_level > 0) {
    if (!$new->content_seen) {
      # this should only happen for input coming from pipe or the like
      warn sprintf(__("%s: removing %s as input file %s has no content\n"),
                   $real_command_name, $outfile, $file);
      unlink ($outfile);
      pop @included;
    # if we didn't gather the short title, try now, and rename out file if found
    } elsif (!defined($name)) {
      my $short_title = $new->texinfo_short_title;
      if (defined($short_title) and $short_title =~ /\S/) {
        push @manuals, $short_title;
        pop @included;
        my $new_outfile 
         = Pod::Simple::Texinfo::_pod_title_to_file_name($short_title);
        $new_outfile .= '.texi';
        $new_outfile = File::Spec->catfile($subdir, $new_outfile) 
           if (defined($subdir));
        if ($new_outfile ne $outfile) {
          unless (rename ($outfile, $new_outfile)) {
            die sprintf(__("%s: rename %s failed: %s\n"), 
                        $real_command_name, $outfile, $!);
          }
        }
        push @included, [$short_title, $new_outfile, $file];
      }
    }
  }
  $file_nr++;
}

if ($base_level > 0) {
  my $fh;
  if ($output ne '-') {
    open (OUT, ">$output") or die sprintf(__("%s: could not open %s for writing: %s\n"), 
                                          $real_command_name, $output, $!);
    $fh = *OUT;
  } else {
    $fh = *STDOUT;
  }

# FIXME should use =encoding
  binmode($fh, ':encoding(utf8)');

my $outfile_name = $output;

$outfile_name = $STDOUT_DOCU_NAME if ($outfile_name eq '-');
  $outfile_name =~ s/\.te?x(i|info)?$//;
  $outfile_name .= '.info';

if (! defined ($preamble)) {
    $preamble = '\input texinfo
@setfilename ' . Pod::Simple::Texinfo::_protect_text($outfile_name) . "
\@documentencoding utf-8
\@settitle $top

\@contents

\@ifnottex
\@node Top
\@top $top
\@end ifnottex\n\n";
  }
  
  print $fh $preamble;
  if ($section_nodes) {
    #print STDERR "\@node Top\n\@top top\n".$full_manual;
    my $menu = _do_top_node_menu("\@node Top\n\@top top\n".$full_manual);
    print $fh $menu."\n";
  }
  foreach my $include (@included) {
    my $file = $include->[1];
    print $fh "\@include ".Pod::Simple::Texinfo::_protect_text($file)."\n";
  }
  print $fh "\n\@bye\n";
  
  if ($output ne '-') {
    close($fh) or die sprintf(__("%s: error on closing %s: %s\n"), 
                               $real_command_name, $output, $!);
  }
}

if (defined($output) and $output eq '-') {
  close(STDOUT) or die sprintf(__("%s: error on closing stdout: %s\n"), 
                               $real_command_name, $!);
}

__END__

=head1 NAME

pod2texi - convert Pod to Texinfo

=head1 SYNOPSIS

pod2texi [OPTION]... POD...

=head1 DESCRIPTION

Translate Pod 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.

=head1 OPTIONS

=over

=item B<--appendix-sections>

Use appendix sectioning commands (C<@appendix>, ...) instead of the
default numbered sectioning Texinfo @-commands (C<@chapter>,
C<@section>, ...).

=item B<--base-level>=I<NUM|NAME>

Sets the level of the C<head1> commands.  It may be an integer or a
Texinfo sectioning command (without the C<@>): 1 corresponds to the
C<@chapter>/C<@unnumbered> level, 2 to the C<@section> level, and so on.
The default is 0, meaning that C<head1> commands are still output as
chapters, but the output is arranged as a standalone manual.

If the level is not 0, the pod file is rendered as a fragment of a
Texinfo manual suitable for C<@include>.  In this case, each pod file
has an additional sectioning command covering the entire file, one level
above the C<--base-level> value.  Therefore, to make each pod file a
chapter in a large manual, you should use C<section> as the base level.

For an example of making Texinfo out of the Perl documentation itself,
see C<contrib/perldoc-all> in the Texinfo source distribution, with
output available at L<http://www.gnu.org/software/perl/manual>.

=item B<--debug>=I<NUM>

Set debugging level to I<NUM>.

=item B<--help>

Display help and exit.

=item B<--output>=I<NAME>

Name for the first manual, or the main manual if there is a main manual.
Default is to write to standard output.

=item B<--no-section-nodes>

Use anchors for sections instead of nodes.

=item B<--no-fill-section-gaps>

Do not fill sectioning gaps with empty C<@unnumbered> files.
Ordinarily, it's good to keep the sectioning hierarchy intact.

=item B<--preamble>=I<STR>

Insert I<STR> as top boilerplate before includes.  The default is a
minimal beginning for a Texinfo document, and sets C<@documentencoding>
to C<utf-8> (because the output is written that way).

=item B<--subdir>=I<NAME>

If there is a main manual with include files (each corresponding to
an input pod file), then those include files are put in directory I<NAME>.

=item B<--unnumbered-sections>

Use unnumbered sectioning commands (C<@unnumbered>, ...) instead of the
default numbered sectioning Texinfo @-commands (C<@chapter>,
C<@section>, ...).

=item B<--top>=I<TOP>

Name of the C<@top> element for the main manual.  May contain Texinfo code.

=item B<--version>

Display version information and exit.

=back

=head1 SEE ALSO

L<Pod::Simple::Texinfo>.  L<perlpod>.  The Texinfo manual.
Texinfo home page: L<http://www.gnu.org/software/texinfo/>

=head1 COPYRIGHT

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
the Free Software Foundation; either version 3 of the License,
or (at your option) any later version.

There is NO WARRANTY, to the extent permitted by law.

=head1 AUTHOR

Patrice Dumas E<lt>bug-texinfo@gnu.orgE<gt>.

=cut

${this.title}

Code Editor : pod2texi