ꦫꦣꦺꦤ꧀ꦄꦤ꧀ꦠꦱꦺꦤ

PATH: usr / bin

#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
	if $running_under_some_shell;

# pod2latex conversion program

use strict;
use Pod::LaTeX;
use Pod::Find qw/ pod_find /;
use Pod::Usage;
use Getopt::Long;
use File::Basename;
use Symbol;

my $VERSION = "1.01";

# return the entire contents of a text file
# whose name is given as argument
sub _get {
    my $fn = shift;
    my $infh = gensym;
    open $infh, $fn
        or die "Could not open file $fn: $!\n";
    local $/;
    return <$infh>;
}

# Read command line arguments

my %options = (
	       "help"   => 0,
	       "man"    => 0,
	       "sections" => [],
	       "full"   => 0,
	       "out"    => undef,
	       "verbose" => 0,
	       "modify" => 0,
	       "h1level" => 1,  # section is equivalent to H1
	       "preamble" => [],
	       "postamble" => [],
	      );
# "prefile" is just like "preamble", but the argument 
# comes from the file named by the argument
$options{"prefile"} = sub { shift; push @{$options{"preamble"}}, _get(shift) };
# the same between "postfile" and "postamble"
$options{"postfile"} = sub { shift; push @{$options{"postamble"}}, _get(shift) };

GetOptions(\%options, 
	   "help",
	   "man",
	   "verbose",
	   "full",
	   "sections=s@",
	   "out=s",
	   "modify",
	   "h1level=i",
	   "preamble=s@",
	   "postamble=s@",
	   "prefile=s", 
	   "postfile=s"
	  ) || pod2usage(2);

pod2usage(1)  if ($options{help});
pod2usage(-verbose => 2)  if ($options{man});

# Read all the files from the command line
my @files = @ARGV;

# Now find which ones are real pods and convert 
# directories to their contents.

# Extract the pods from each arg since some of them might
# be directories
# This is not as efficient as using pod_find to search through
# everything at once but it allows us to preserve the order 
# supplied by the user

my @pods;
foreach my $arg (@files) {
  my %pods = pod_find($arg);
  push(@pods, sort keys %pods);
}

# Abort if nothing to do
if ($#pods == -1) {
  warn "None of the supplied Pod files actually exist\n";
  exit;
}

# Only want to override the preamble and postamble if we have
# been given values.
my %User;
$User{UserPreamble} = join("\n", @{$options{'preamble'}})
  if ($options{preamble} && @{$options{preamble}});
$User{UserPostamble} = join("\n", @{$options{'postamble'}})
  if ($options{postamble} && @{$options{postamble}});

# If $options{'out'} is set we are processing to a single output file
my $multi_documents;
if (exists $options{'out'} && defined $options{'out'}) {
  $multi_documents = 0;
} else {
  $multi_documents = 1;
}

# If the output file is not specified it is assumed that
# a single output file is required per input file using
# a .tex extension rather than any existing extension

if ($multi_documents) {

# Case where we just generate one input per output

foreach my $pod (@pods) {

if (-f $pod) {

my $output = $pod;
      $output = basename($output, '.pm', '.pod','.pl') . '.tex';

# Create a new parser object
      my $parser = new Pod::LaTeX(
				  AddPreamble => $options{'full'},
				  AddPostamble => $options{'full'},
				  MakeIndex => $options{'full'},
				  TableOfContents => $options{'full'},
				  ReplaceNAMEwithSection => $options{'modify'},
				  UniqueLabels => $options{'modify'},
				  Head1Level => $options{'h1level'},
				  LevelNoNum => $options{'h1level'} + 1,
                                  %User,
				 );

# Select sections if supplied
      $parser->select(@{ $options{'sections'}})
	if @{$options{'sections'}};

# Derive the input file from the output file
      $parser->parse_from_file($pod, $output);

print "Written output to $output\n" if $options{'verbose'};

} else {
      warn "File $pod not found\n";
    }

}
} else {

# Case where we want everything to be in a single document

# Need to open the output file ourselves
  my $output = $options{'out'};
  $output .= '.tex' unless $output =~ /\.tex$/;

# Use auto-vivified file handle in perl 5.6
  my $outfh = gensym;
  open ($outfh, ">$output") || die "Could not open output file: $!\n";

# Flag to indicate whether we have converted at least one file
  # indicates how many files have been converted
  my $converted = 0;

# Loop over the input files
  foreach my $pod (@pods) {

if (-f $pod) {

warn "Converting $pod\n" if $options{'verbose'};

# Open the file (need the handle)
      # Use auto-vivified handle in perl 5.6
      my $podfh = gensym;
      open ($podfh, "<$pod") || die "Could not open pod file $pod: $!\n";

# if this is the first file to be converted we may want to add
      # a preamble (controlled by command line option)
      my $preamble = 0;
      $preamble = 1 if ($converted == 0 && $options{'full'});

# if this is the last file to be converted may want to add
      # a postamble (controlled by command line option)
      # relies on a previous pass to check existence of all pods we
      # are converting.
      my $postamble = ( ($converted == $#pods && $options{'full'}) ? 1 : 0 );

# Open parser object
      # May want to start with a preamble for the first one and
      # end with an index for the last
      my $parser = new Pod::LaTeX(
				  MakeIndex => $options{'full'},
				  TableOfContents => $preamble,
				  ReplaceNAMEwithSection => $options{'modify'},
				  UniqueLabels => $options{'modify'},
				  StartWithNewPage => $options{'full'},
				  AddPreamble => $preamble,
				  AddPostamble => $postamble,
				  Head1Level => $options{'h1level'},
				  LevelNoNum => $options{'h1level'} + 1,
                                  %User
				 );

# Store the file name for error messages
      # This is a kluge that breaks the data hiding of the object
      $parser->{_INFILE} = $pod;

# Select sections if supplied
      $parser->select(@{ $options{'sections'}})
	if @{$options{'sections'}};

# Parse it
      $parser->parse_from_filehandle($podfh, $outfh);

# We have converted at least one file
      $converted++;

} else {
      warn "File $pod not found\n";
    }

}

# Should unlink the file if we didn't convert anything!
  # dont check for return status of unlink
  # since there is not a lot to be done if the unlink failed
  # and the program does not rely upon it.
  unlink "$output" unless $converted;

# If verbose
  warn "Converted $converted files\n" if $options{'verbose'};

}

exit;

__END__

=head1 NAME

pod2latex - convert pod documentation to latex format

=head1 SYNOPSIS

pod2latex *.pm

pod2latex -out mytex.tex *.pod

pod2latex -full -sections 'DESCRIPTION|NAME' SomeDir

pod2latex -prefile h.tex -postfile t.tex my.pod

=head1 DESCRIPTION

C<pod2latex> is a program to convert POD format documentation
(L<perlpod>) into latex. It can process multiple input documents at a
time and either generate a latex file per input document or a single
combined output file.

=head1 OPTIONS AND ARGUMENTS

This section describes the supported command line options. Minimum
matching is supported.

=over 4

=item B<-out>

Name of the output file to be used. If there are multiple input pods
it is assumed that the intention is to write all translated output
into a single file. C<.tex> is appended if not present.  If the
argument is not supplied, a single document will be created for each
input file.

=item B<-full>

Creates a complete C<latex> file that can be processed immediately
(unless C<=for/=begin> directives are used that rely on extra packages).
Table of contents and index generation commands are included in the
wrapper C<latex> code.

=item B<-sections>

Specify pod sections to include (or remove if negated) in the
translation.  See L<Pod::Select/"SECTION SPECIFICATIONS"> for the
format to use for I<section-spec>. This option may be given multiple
times on the command line.This is identical to the similar option in
the C<podselect()> command.

=item B<-modify>

This option causes the output C<latex> to be slightly
modified from the input pod such that when a C<=head1 NAME>
is encountered a section is created containing the actual
pod name (rather than B<NAME>) and all subsequent C<=head1>
directives are treated as subsections. This has the advantage
that the description of a module will be in its own section
which is helpful for including module descriptions in documentation.
Also forces C<latex> label and index entries to be prefixed by the
name of the module.

=item B<-h1level>

Specifies the C<latex> section that is equivalent to a C<H1> pod
directive. This is an integer between 0 and 5 with 0 equivalent to a
C<latex> chapter, 1 equivalent to a C<latex> section etc. The default
is 1 (C<H1> equivalent to a latex section).

=item B<-help>

Print a brief help message and exit.

=item B<-man>

Print the manual page and exit.

=item B<-verbose>

Print information messages as each document is processed.

=item B<-preamble>

A user-supplied preamble for the LaTeX code. Multiple values
are supported and appended in order separated by "\n".
See B<-prefile> for reading the preamble from a file.

=item B<-postamble>

A user supplied postamble for the LaTeX code. Multiple values
are supported and appended in order separated by "\n".
See B<-postfile> for reading the postamble from a file.

=item B<-prefile>

A user-supplied preamble for the LaTeX code to be read from the
named file. Multiple values are supported and appended in
order. See B<-preamble>.

=item B<-postfile>

A user-supplied postamble for the LaTeX code to be read from the
named file. Multiple values are supported and appended in
order. See B<-postamble>.

=back

=head1 BUGS

Known bugs are:

=over 4

=item *

Cross references between documents are not resolved when multiple
pod documents are converted into a single output C<latex> file.

=item *

Functions and variables are not automatically recognized
and they will therefore not be marked up in any special way
unless instructed by an explicit pod command.

=back

=head1 SEE ALSO

L<Pod::LaTeX>

=head1 AUTHOR

Tim Jenness E<lt>tjenness@cpan.orgE<gt>

This program is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.

=cut

[+] ..
[-] pod2html [edit]
[-] mysqlcheck [edit]
[-] passwd [edit]
[-] scl_enabled [edit]
[-] hostname [edit]
[-] basename [edit]
[-] git [edit]
[-] timeout [edit]
[-] pfbtopfa [edit]
[-] tmpwatch [edit]
[-] autoconf [edit]
[-] sh [edit]
[-] precat [edit]
[-] zipgrep [edit]
[-] mkdir [edit]
[-] perlivp [edit]
[-] strings [edit]
[-] look [edit]
[-] bashbug-64 [edit]
[-] zcat [edit]
[-] sha1sum [edit]
[-] cpp [edit]
[-] identify [edit]
[-] s2p [edit]
[-] logname [edit]
[-] git-upload-archive [edit]
[-] sprof [edit]
[-] perlbug [edit]
[-] Wand-config [edit]
[-] import [edit]
[-] iconv [edit]
[-] batch [edit]
[-] ipcs [edit]
[-] gsnd [edit]
[-] find [edit]
[-] Mail [edit]
[-] gcc [edit]
[-] pango-querymodules-64 [edit]
[-] aclocal-1.13 [edit]
[-] lesspipe.sh [edit]
[-] ps2pdfwr [edit]
[-] bash [edit]
[-] uniq [edit]
[-] fc-validate [edit]
[-] fc-match [edit]
[-] link [edit]
[-] slabtop [edit]
[-] find2perl [edit]
[-] gpg [edit]
[-] znew [edit]
[-] gzip [edit]
[-] tset [edit]
[-] watch [edit]
[-] ifnames [edit]
[-] zfgrep [edit]
[-] column [edit]
[-] echo [edit]
[-] which [edit]
[-] df [edit]
[-] xsubpp [edit]
[-] gslj [edit]
[-] gawk [edit]
[-] view [edit]
[-] troff [edit]
[-] display [edit]
[-] igawk [edit]
[-] tac [edit]
[-] nm [edit]
[-] ps2pdf13 [edit]
[-] false [edit]
[-] pmap [edit]
[-] ps2pdf12 [edit]
[-] run-with-aspell [edit]
[-] mysqlbinlog [edit]
[-] gpg2 [edit]
[-] screen [edit]
[-] geqn [edit]
[-] free [edit]
[-] setsid [edit]
[-] post-grohtml [edit]
[-] expand [edit]
[-] diff [edit]
[-] rmdir [edit]
[-] hostid [edit]
[-] mysqlimport [edit]
[-] less [edit]
[-] c++filt [edit]
[-] ul [edit]
[-] du [edit]
[-] nsupdate [edit]
[-] git-upload-pack [edit]
[-] gpgv [edit]
[-] egrep [edit]
[-] hunspell [edit]
[-] lex [edit]
[-] colrm [edit]
[-] prezip-bin [edit]
[-] wc [edit]
[-] skill [edit]
[-] unexpand [edit]
[-] groups [edit]
[-] pango-view [edit]
[-] login [edit]
[-] soelim [edit]
[-] pr [edit]
[-] rename [edit]
[-] who [edit]
[-] zless [edit]
[-] cut [edit]
[-] selectorctl [edit]
[-] arch [edit]
[-] scp [edit]
[-] size [edit]
[-] gprof [edit]
[-] dirname [edit]
[-] rnano [edit]
[-] ssh-agent [edit]
[-] ghostscript [edit]
[-] compare [edit]
[-] lessecho [edit]
[-] conjure [edit]
[-] pdf2dsc [edit]
[-] utmpdump [edit]
[-] pphs [edit]
[-] pf2afm [edit]
[-] x86_64-redhat-linux-g++ [edit]
[-] autoscan [edit]
[-] fc-conflist [edit]
[-] dvipdf [edit]
[-] tclsh8.5 [edit]
[-] atq [edit]
[-] date [edit]
[-] sqlite3 [edit]
[-] paste [edit]
[-] stat [edit]
[-] python2.7 [edit]
[-] perl5.16.3 [edit]
[-] strace [edit]
[-] freetype-config [edit]
[-] grotty [edit]
[-] cc [edit]
[-] nroff [edit]
[-] flex++ [edit]
[-] join [edit]
[-] grep [edit]
[-] dbiprof [edit]
[-] toe [edit]
[-] ssh-keygen [edit]
[-] rvi [edit]
[-] ptx [edit]
[-] ipcrm [edit]
[-] reset [edit]
[-] openssl [edit]
[-] mesg [edit]
[-] snice [edit]
[-] pathchk [edit]
[-] bzdiff [edit]
[-] pod2latex [edit]
[-] vdir [edit]
[-] nice [edit]
[-] ispell [edit]
[-] delv [edit]
[-] dbiproxy [edit]
[-] funzip [edit]
[-] gpg-error [edit]
[-] pl2pm [edit]
[-] tload [edit]
[-] zipnote [edit]
[-] gsoelim [edit]
[-] chrt [edit]
[-] objdump [edit]
[-] pstruct [edit]
[-] whereis [edit]
[-] convert [edit]
[-] zipinfo [edit]
[-] id [edit]
[-] gtbl [edit]
[-] objcopy [edit]
[-] getent [edit]
[-] catchsegv [edit]
[-] nproc [edit]
[-] mkfifo [edit]
[-] test [edit]
[-] addr2line [edit]
[-] gzexe [edit]
[-] namei [edit]
[-] infocmp [edit]
[-] dir [edit]
[-] sdiff [edit]
[-] script [edit]
[-] comm [edit]
[-] stream [edit]
[-] touch [edit]
[-] c++ [edit]
[-] gtar [edit]
[-] kill [edit]
[-] rev [edit]
[-] rm [edit]
[-] pwdx [edit]
[-] zmore [edit]
[-] pod2man [edit]
[-] montage [edit]
[-] splain [edit]
[-] mv [edit]
[-] awk [edit]
[-] ssh-add [edit]
[-] stty [edit]
[-] bzmore [edit]
[-] chmod [edit]
[-] gpg-agent [edit]
[-] wget [edit]
[-] dig [edit]
[-] printf [edit]
[-] pkill [edit]
[-] g++ [edit]
[-] gpic [edit]
[-] infotocap [edit]
[-] shred [edit]
[-] ps2epsi [edit]
[-] net-snmp-create-v3-user [edit]
[-] gsdj [edit]
[-] raw [edit]
[-] unzipsfx [edit]
[-] animate [edit]
[-] grops [edit]
[-] spell [edit]
[-] gcc-ar [edit]
[-] bzless [edit]
[-] mailx [edit]
[-] xsltproc [edit]
[-] uapi [edit]
[-] mysqldump [edit]
[-] pinky [edit]
[-] yes [edit]
[-] ldd [edit]
[-] pinentry-curses [edit]
[-] stdbuf [edit]
[-] pod2text [edit]
[-] split [edit]
[-] tar [edit]
[-] fc-list [edit]
[-] scl [edit]
[-] pgrep [edit]
[-] logger [edit]
[-] chcon [edit]
[-] zdiff [edit]
[-] h2xs [edit]
[-] more [edit]
[-] top [edit]
[-] realpath [edit]
[-] bzgrep [edit]
[-] psed [edit]
[-] setterm [edit]
[-] od [edit]
[-] rview [edit]
[-] mktemp [edit]
[-] gem [edit]
[-] col [edit]
[-] xmllint [edit]
[-] gslp [edit]
[-] composite [edit]
[-] nano [edit]
[-] podchecker [edit]
[-] gnroff [edit]
[-] Magick-config [edit]
[-] eps2eps [edit]
[-] cpan [edit]
[-] ps2pdf14 [edit]
[-] neqn [edit]
[-] ranlib [edit]
[-] autoheader [edit]
[-] gpgsplit [edit]
[-] pwd [edit]
[-] flock [edit]
[-] chgrp [edit]
[-] geoiplookup [edit]
[-] unix-lpr.sh [edit]
[-] x86_64-redhat-linux-c++ [edit]
[-] aclocal [edit]
[-] zsoelim [edit]
[-] php [edit]
[-] expr [edit]
[-] xmlwf [edit]
[-] sftp [edit]
[-] fmt [edit]
[-] piconv [edit]
[-] tail [edit]
[-] pydoc [edit]
[-] bison [edit]
[-] nl [edit]
[-] pic [edit]
[-] pkg-config [edit]
[-] libnetcfg [edit]
[-] shuf [edit]
[-] gunzip [edit]
[-] lesskey [edit]
[-] file [edit]
[-] cp [edit]
[-] snmpconf [edit]
[-] ar [edit]
[-] users [edit]
[-] c99 [edit]
[-] host [edit]
[-] crontab [edit]
[-] mogrify [edit]
[-] gcc-ranlib [edit]
[-] c2ph [edit]
[-] vi [edit]
[-] readelf [edit]
[-] gcc-nm [edit]
[-] git-shell [edit]
[-] automake-1.13 [edit]
[-] python [edit]
[-] ld [edit]
[-] sed [edit]
[-] sync [edit]
[-] diff3 [edit]
[-] a2p [edit]
[-] taskset [edit]
[-] tput [edit]
[-] cagefs_enter.proxied [edit]
[-] zcmp [edit]
[-] fgrep [edit]
[-] env [edit]
[-] autom4te [edit]
[-] make [edit]
[-] curl [edit]
[-] cksum [edit]
[-] fc-cat [edit]
[-] bunzip2 [edit]
[-] gcov [edit]
[-] ld.bfd [edit]
[-] locale [edit]
[-] python2 [edit]
[-] cldetect [edit]
[-] podselect [edit]
[-] perlthanks [edit]
[-] sha256sum [edit]
[-] sha224sum [edit]
[-] tsort [edit]
[-] ionice [edit]
[-] agentxtrap [edit]
[-] nohup [edit]
[-] h2ph [edit]
[-] captoinfo [edit]
[-] zipcloak [edit]
[-] cal [edit]
[-] instmodsh [edit]
[-] tbl [edit]
[-] fc-scan [edit]
[-] fc-query [edit]
[-] ex [edit]
[-] GET [edit]
[-] replace [edit]
[-] ls [edit]
[-] pango-list [edit]
[-] gpgv2 [edit]
[-] ps2ps2 [edit]
[-] numfmt [edit]
[-] gmake [edit]
[-] lprsetup.sh [edit]
[-] dd [edit]
[-] printafm [edit]
[-] idn [edit]
[-] head [edit]
[-] fc-pattern [edit]
[-] xargs [edit]
[-] tic [edit]
[-] chown [edit]
[-] printenv [edit]
[-] mysql [edit]
[-] csplit [edit]
[-] install [edit]
[-] prezip [edit]
[-] getconf [edit]
[-] eqn [edit]
[-] bzip2 [edit]
[-] at [edit]
[-] perldoc [edit]
[-] fc-cache [edit]
[-] ps2ps [edit]
[-] sleep [edit]
[-] gpg-zip [edit]
[-] vmstat [edit]
[-] prove [edit]
[-] base64 [edit]
[-] uname [edit]
[-] as [edit]
[-] ping [edit]
[-] pre-grohtml [edit]
[-] unlink [edit]
[-] fold [edit]
[-] gsbj [edit]
[-] perl [edit]
[-] tabs [edit]
[-] clear [edit]
[-] mysqladmin [edit]
[-] aspell [edit]
[-] colcrt [edit]
[-] libtool [edit]
[-] libtoolize [edit]
[-] slogin [edit]
[-] dircolors [edit]
[-] ln [edit]
[-] groff [edit]
[-] tclsh [edit]
[-] preunzip [edit]
[-] uptime [edit]
[-] perlml [edit]
[-] getopt [edit]
[-] zforce [edit]
[-] gneqn [edit]
[-] ssh [edit]
[-] readlink [edit]
[-] mdig [edit]
[-] enchant [edit]
[-] m4 [edit]
[-] tzselect [edit]
[-] ruby [edit]
[-] gencat [edit]
[-] cat [edit]
[-] gs [edit]
[-] x86_64-redhat-linux-gcc [edit]
[-] nslookup [edit]
[-] unzip [edit]
[-] sha512sum [edit]
[-] bzip2recover [edit]
[-] autoupdate [edit]
[-] gtroff [edit]
[-] mail [edit]
[-] git-receive-pack [edit]
[-] MagickCore-config [edit]
[-] isosize [edit]
[-] pod2usage [edit]
[-] localedef [edit]
[-] mysql_config [edit]
[-] MagickWand-config [edit]
[-] tr [edit]
[-] tty [edit]
[-] tailf [edit]
[-] ps2pdf [edit]
[-] enchant-lsmod [edit]
[-] word-list-compress [edit]
[-] crontab.cagefs [edit]
[-] pdf2ps [edit]
[-] scl_source [edit]
[-] sum [edit]
[-] bzcmp [edit]
[-] hexdump [edit]
[-] truncate [edit]
[-] ps2ascii [edit]
[-] zip [edit]
[-] cmp [edit]
[-] zipsplit [edit]
[-] seq [edit]
[-] zgrep [edit]
[-] ps [edit]
[-] true [edit]
[-] mknod [edit]
[-] mysqlshow [edit]
[-] autoreconf [edit]
[-] flex [edit]
[-] patch [edit]
[-] my_print_defaults [edit]
[-] renice [edit]
[-] gsdj500 [edit]
[-] fc-cache-64 [edit]
[-] geoiplookup6 [edit]
[-] ssh-keyscan [edit]
[-] c89 [edit]
[-] rpcgen [edit]
[-] tee [edit]
[-] automake [edit]
[-] bzcat [edit]
[-] whoami [edit]
[-] sha384sum [edit]
[-] runcon [edit]
[-] ssh-copy-id [edit]
[-] strip [edit]
[-] md5sum [edit]
[-] sort [edit]
[-] zegrep [edit]
[-] factor [edit]
[-] pinentry [edit]
[-] mysql_config-64 [edit]
[-] pgawk [edit]
[-] [ [edit]
[-] mcookie [edit]
[-] atrm [edit]
[-] xmlcatalog [edit]