From 316ee97c621496b0fe3267f57cce81bee44ca1e6 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Thu, 17 Feb 2011 12:20:49 +0000 Subject: Moving old tlperl prior to committing new one git-svn-id: svn://tug.org/texlive/trunk@21422 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/tlperl/bin/pod2text | 273 --------------------------------------- 1 file changed, 273 deletions(-) delete mode 100755 Master/tlpkg/tlperl/bin/pod2text (limited to 'Master/tlpkg/tlperl/bin/pod2text') diff --git a/Master/tlpkg/tlperl/bin/pod2text b/Master/tlpkg/tlperl/bin/pod2text deleted file mode 100755 index d1f230fd90d..00000000000 --- a/Master/tlpkg/tlperl/bin/pod2text +++ /dev/null @@ -1,273 +0,0 @@ -#!perl - eval 'exec C:\strawberry\perl\bin\perl.exe -S $0 ${1+"$@"}' - if $running_under_some_shell; - -# pod2text -- Convert POD data to formatted ASCII text. -# -# Copyright 1999, 2000, 2001, 2004, 2006, 2008 Russ Allbery -# -# This program is free software; you may redistribute it and/or modify it -# under the same terms as Perl itself. -# -# The driver script for Pod::Text, Pod::Text::Termcap, and Pod::Text::Color, -# invoked by perldoc -t among other things. - -require 5.004; - -use Getopt::Long qw(GetOptions); -use Pod::Text (); -use Pod::Usage qw(pod2usage); - -use strict; - -# Silence -w warnings. -use vars qw($running_under_some_shell); - -# Take an initial pass through our options, looking for one of the form -# -. We turn that into -w for compatibility with the -# original pod2text script. -for (my $i = 0; $i < @ARGV; $i++) { - last if $ARGV[$i] =~ /^--$/; - if ($ARGV[$i] =~ /^-(\d+)$/) { - splice (@ARGV, $i++, 1, '-w', $1); - } -} - -# Insert -- into @ARGV before any single dash argument to hide it from -# Getopt::Long; we want to interpret it as meaning stdin (which Pod::Simple -# does correctly). -my $stdin; -@ARGV = map { $_ eq '-' && !$stdin++ ? ('--', $_) : $_ } @ARGV; - -# Parse our options. Use the same names as Pod::Text for simplicity, and -# default to sentence boundaries turned off for compatibility. -my %options; -$options{sentence} = 0; -Getopt::Long::config ('bundling'); -GetOptions (\%options, 'alt|a', 'code', 'color|c', 'help|h', 'indent|i=i', - 'loose|l', 'margin|left-margin|m=i', 'overstrike|o', - 'quotes|q=s', 'sentence|s', 'stderr', 'termcap|t', 'utf8|u', - 'width|w=i') - or exit 1; -pod2usage (1) if $options{help}; - -# Figure out what formatter we're going to use. -c overrides -t. -my $formatter = 'Pod::Text'; -if ($options{color}) { - $formatter = 'Pod::Text::Color'; - eval { require Term::ANSIColor }; - if ($@) { die "-c (--color) requires Term::ANSIColor be installed\n" } - require Pod::Text::Color; -} elsif ($options{termcap}) { - $formatter = 'Pod::Text::Termcap'; - require Pod::Text::Termcap; -} elsif ($options{overstrike}) { - $formatter = 'Pod::Text::Overstrike'; - require Pod::Text::Overstrike; -} -delete @options{'color', 'termcap', 'overstrike'}; - -# Initialize and run the formatter. -my $parser = $formatter->new (%options); -do { - my ($input, $output) = splice (@ARGV, 0, 2); - $parser->parse_from_file ($input, $output); -} while (@ARGV); - -__END__ - -=head1 NAME - -pod2text - Convert POD data to formatted ASCII text - -=for stopwords --aclostu --alt --stderr Allbery --overstrike overstrike --termcap --utf8 -UTF-8 - -=head1 SYNOPSIS - -pod2text [B<-aclostu>] [B<--code>] [B<-i> I] S<[B<-q> I]> - [B<--stderr>] S<[B<-w> I]> [I [I ...]] - -pod2text B<-h> - -=head1 DESCRIPTION - -B is a front-end for Pod::Text and its subclasses. It uses them -to generate formatted ASCII text from POD source. It can optionally use -either termcap sequences or ANSI color escape sequences to format the text. - -I is the file to read for POD source (the POD can be embedded in -code). If I isn't given, it defaults to C. I, if -given, is the file to which to write the formatted output. If I -isn't given, the formatted output is written to C. Several POD -files can be processed in the same B invocation (saving module -load and compile times) by providing multiple pairs of I and -I files on the command line. - -=head1 OPTIONS - -=over 4 - -=item B<-a>, B<--alt> - -Use an alternate output format that, among other things, uses a different -heading style and marks C<=item> entries with a colon in the left margin. - -=item B<--code> - -Include any non-POD text from the input file in the output as well. Useful -for viewing code documented with POD blocks with the POD rendered and the -code left intact. - -=item B<-c>, B<--color> - -Format the output with ANSI color escape sequences. Using this option -requires that Term::ANSIColor be installed on your system. - -=item B<-i> I, B<--indent=>I - -Set the number of spaces to indent regular text, and the default indentation -for C<=over> blocks. Defaults to 4 spaces if this option isn't given. - -=item B<-h>, B<--help> - -Print out usage information and exit. - -=item B<-l>, B<--loose> - -Print a blank line after a C<=head1> heading. Normally, no blank line is -printed after C<=head1>, although one is still printed after C<=head2>, -because this is the expected formatting for manual pages; if you're -formatting arbitrary text documents, using this option is recommended. - -=item B<-m> I, B<--left-margin>=I, B<--margin>=I - -The width of the left margin in spaces. Defaults to 0. This is the margin -for all text, including headings, not the amount by which regular text is -indented; for the latter, see B<-i> option. - -=item B<-o>, B<--overstrike> - -Format the output with overstrike printing. Bold text is rendered as -character, backspace, character. Italics and file names are rendered as -underscore, backspace, character. Many pagers, such as B, know how -to convert this to bold or underlined text. - -=item B<-q> I, B<--quotes>=I - -Sets the quote marks used to surround CE> text to I. If -I is a single character, it is used as both the left and right -quote; if I is two characters, the first character is used as the -left quote and the second as the right quoted; and if I is four -characters, the first two are used as the left quote and the second two as -the right quote. - -I may also be set to the special value C, in which case no -quote marks are added around CE> text. - -=item B<-s>, B<--sentence> - -Assume each sentence ends with two spaces and try to preserve that spacing. -Without this option, all consecutive whitespace in non-verbatim paragraphs -is compressed into a single space. - -=item B<--stderr> - -By default, B puts any errors detected in the POD input in a POD -ERRORS section in the output manual page. If B<--stderr> is given, errors -are sent to standard error instead and the POD ERRORS section is -suppressed. - -=item B<-t>, B<--termcap> - -Try to determine the width of the screen and the bold and underline -sequences for the terminal from termcap, and use that information in -formatting the output. Output will be wrapped at two columns less than the -width of your terminal device. Using this option requires that your system -have a termcap file somewhere where Term::Cap can find it and requires that -your system support termios. With this option, the output of B -will contain terminal control sequences for your current terminal type. - -=item B<-u>, B<--utf8> - -By default, B tries to use the same output encoding as its input -encoding (to be backward-compatible with older versions). This option -says to instead force the output encoding to UTF-8. - -Be aware that, when using this option, the input encoding of your POD -source must be properly declared unless it is US-ASCII or Latin-1. POD -input without an C<=encoding> command will be assumed to be in Latin-1, -and if it's actually in UTF-8, the output will be double-encoded. See -L for more information on the C<=encoding> command. - -=item B<-w>, B<--width=>I, B<->I - -The column at which to wrap text on the right-hand side. Defaults to 76, -unless B<-t> is given, in which case it's two columns less than the width of -your terminal device. - -=back - -=head1 DIAGNOSTICS - -If B fails with errors, see L and L for -information about what those errors might mean. Internally, it can also -produce the following diagnostics: - -=over 4 - -=item -c (--color) requires Term::ANSIColor be installed - -(F) B<-c> or B<--color> were given, but Term::ANSIColor could not be -loaded. - -=item Unknown option: %s - -(F) An unknown command line option was given. - -=back - -In addition, other L error messages may result from invalid -command-line options. - -=head1 ENVIRONMENT - -=over 4 - -=item COLUMNS - -If B<-t> is given, B will take the current width of your screen -from this environment variable, if available. It overrides terminal width -information in TERMCAP. - -=item TERMCAP - -If B<-t> is given, B will use the contents of this environment -variable if available to determine the correct formatting sequences for your -current terminal device. - -=back - -=head1 SEE ALSO - -L, L, L, -L, L, L - -The current version of this script is always available from its web site at -L. It is also part of the -Perl core distribution as of 5.6.0. - -=head1 AUTHOR - -Russ Allbery . - -=head1 COPYRIGHT AND LICENSE - -Copyright 1999, 2000, 2001, 2004, 2006, 2008 Russ Allbery -. - -This program is free software; you may redistribute it and/or modify it -under the same terms as Perl itself. - -=cut -- cgit v1.2.3