diff options
Diffstat (limited to 'Master/tlpkg/tlperl.old/lib/Pod/Text/Termcap.pm')
-rw-r--r-- | Master/tlpkg/tlperl.old/lib/Pod/Text/Termcap.pm | 180 |
1 files changed, 0 insertions, 180 deletions
diff --git a/Master/tlpkg/tlperl.old/lib/Pod/Text/Termcap.pm b/Master/tlpkg/tlperl.old/lib/Pod/Text/Termcap.pm deleted file mode 100644 index 02a7fb9842a..00000000000 --- a/Master/tlpkg/tlperl.old/lib/Pod/Text/Termcap.pm +++ /dev/null @@ -1,180 +0,0 @@ -# Pod::Text::Termcap -- Convert POD data to ASCII text with format escapes. -# $Id: Termcap.pm,v 1.11 2003/07/09 21:52:30 eagle Exp $ -# -# Copyright 1999, 2001, 2002 by Russ Allbery <rra@stanford.edu> -# -# This program is free software; you may redistribute it and/or modify it -# under the same terms as Perl itself. -# -# This is a simple subclass of Pod::Text that overrides a few key methods to -# output the right termcap escape sequences for formatted text on the current -# terminal type. - -############################################################################## -# Modules and declarations -############################################################################## - -package Pod::Text::Termcap; - -require 5.004; - -use Pod::Text (); -use POSIX (); -use Term::Cap; - -use strict; -use vars qw(@ISA $VERSION); - -@ISA = qw(Pod::Text); - -# Don't use the CVS revision as the version, since this module is also in Perl -# core and too many things could munge CVS magic revision strings. This -# number should ideally be the same as the CVS revision in podlators, however. -$VERSION = 1.11; - - -############################################################################## -# Overrides -############################################################################## - -# In the initialization method, grab our terminal characteristics as well as -# do all the stuff we normally do. -sub initialize { - my $self = shift; - my ($ospeed, $term, $termios); - - # $ENV{HOME} is usually not set on Windows. The default Term::Cap path - # may not work on Solaris. - my $home = exists $ENV{HOME} ? "$ENV{HOME}/.termcap:" : ''; - $ENV{TERMPATH} = $home . '/etc/termcap:/usr/share/misc/termcap' - . ':/usr/share/lib/termcap'; - - # Fall back on a hard-coded terminal speed if POSIX::Termios isn't - # available (such as on VMS). - eval { $termios = POSIX::Termios->new }; - if ($@) { - $ospeed = 9600; - } else { - $termios->getattr; - $ospeed = $termios->getospeed || 9600; - } - - # Fall back on the ANSI escape sequences if Term::Cap doesn't work. - eval { $term = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed } }; - $$self{BOLD} = $$term{_md} || "\e[1m"; - $$self{UNDL} = $$term{_us} || "\e[4m"; - $$self{NORM} = $$term{_me} || "\e[m"; - - unless (defined $$self{width}) { - $$self{width} = $ENV{COLUMNS} || $$term{_co} || 80; - $$self{width} -= 2; - } - - $self->SUPER::initialize; -} - -# Make level one headings bold. -sub cmd_head1 { - my $self = shift; - local $_ = shift; - s/\s+$//; - $self->SUPER::cmd_head1 ("$$self{BOLD}$_$$self{NORM}"); -} - -# Make level two headings bold. -sub cmd_head2 { - my $self = shift; - local $_ = shift; - s/\s+$//; - $self->SUPER::cmd_head2 ("$$self{BOLD}$_$$self{NORM}"); -} - -# Fix up B<> and I<>. Note that we intentionally don't do F<>. -sub seq_b { my $self = shift; return "$$self{BOLD}$_[0]$$self{NORM}" } -sub seq_i { my $self = shift; return "$$self{UNDL}$_[0]$$self{NORM}" } - -# Output any included code in bold. -sub output_code { - my ($self, $code) = @_; - $self->output ($$self{BOLD} . $code . $$self{NORM}); -} - -# Override the wrapping code to igore the special sequences. -sub wrap { - my $self = shift; - local $_ = shift; - my $output = ''; - my $spaces = ' ' x $$self{MARGIN}; - my $width = $$self{width} - $$self{MARGIN}; - my $code = "(?:\Q$$self{BOLD}\E|\Q$$self{UNDL}\E|\Q$$self{NORM}\E)"; - while (length > $width) { - if (s/^((?:$code?[^\n]){0,$width})\s+// - || s/^((?:$code?[^\n]){$width})//) { - $output .= $spaces . $1 . "\n"; - } else { - last; - } - } - $output .= $spaces . $_; - $output =~ s/\s+$/\n\n/; - $output; -} - - -############################################################################## -# Module return value and documentation -############################################################################## - -1; -__END__ - -=head1 NAME - -Pod::Text::Termcap - Convert POD data to ASCII text with format escapes - -=head1 SYNOPSIS - - use Pod::Text::Termcap; - my $parser = Pod::Text::Termcap->new (sentence => 0, width => 78); - - # Read POD from STDIN and write to STDOUT. - $parser->parse_from_filehandle; - - # Read POD from file.pod and write to file.txt. - $parser->parse_from_file ('file.pod', 'file.txt'); - -=head1 DESCRIPTION - -Pod::Text::Termcap is a simple subclass of Pod::Text that highlights output -text using the correct termcap escape sequences for the current terminal. -Apart from the format codes, it in all ways functions like Pod::Text. See -L<Pod::Text> for details and available options. - -=head1 NOTES - -This module uses Term::Cap to retrieve the formatting escape sequences for -the current terminal, and falls back on the ECMA-48 (the same in this -regard as ANSI X3.64 and ISO 6429, the escape codes also used by DEC VT100 -terminals) if the bold, underline, and reset codes aren't set in the -termcap information. - -=head1 SEE ALSO - -L<Pod::Text>, L<Pod::Parser>, L<Term::Cap> - -The current version of this module is always available from its web site at -L<http://www.eyrie.org/~eagle/software/podlators/>. It is also part of the -Perl core distribution as of 5.6.0. - -=head1 AUTHOR - -Russ Allbery <rra@stanford.edu>. - -=head1 COPYRIGHT AND LICENSE - -Copyright 1999, 2001, 2002 by Russ Allbery <rra@stanford.edu>. - -This program is free software; you may redistribute it and/or modify it -under the same terms as Perl itself. - -=cut |