.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
.\" ========================================================================
.de Sh \" Subsection heading
.de Sp \" Vertical space (when we can't use .PP)
.de Vb \" Begin verbatim text
.de Ve \" End verbatim text
.\" Set up some character translations and predefined strings. \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote. | will give a
.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
.\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
. tm Index:\\$1\t\\n%\t"\\$2"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
. \" fudge factors for nroff and troff
. ds #H ((1u-(\\\\n(.fu%2u))*.13m)
. \" simple accents for nroff and troff
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
. \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
. \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
. \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
.\" ========================================================================
.TH Term::Cap 3 "2001-09-21" "perl v5.8.8" "Perl Programmers Reference Guide"
Term::Cap \- Perl termcap interface
\& $terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed };
\& $terminal->Trequire(qw/ce ku kd/);
\& $terminal->Tgoto('cm', $col, $row, $FH);
\& $terminal->Tputs('dl', $count, $FH);
\& $terminal->Tpad($string, $count, $FH);
These are low-level functions to extract and use capabilities from
a terminal capability (termcap) database.
More information on the terminal capabilities will be found in the
termcap manpage on most Unix-like systems.
The output strings for \fBTputs\fR are cached for counts of 1 for performance.
\&\fBTgoto\fR and \fBTpad\fR do not cache. \f(CW\*(C`$self\->{_xx}\*(C'\fR is the raw termcap
data and \f(CW\*(C`$self\->{xx}\*(C'\fR is the cached version.
\& print $terminal->Tpad($self->{_xx}, 1);
\&\fBTgoto\fR, \fBTputs\fR, and \fBTpad\fR return the string and will also
output the string to \f(CW$FH\fR if specified.
Returns a blessed object reference which the user can
then use to send the control strings to the terminal using \fBTputs\fR
The function extracts the entry of the specified terminal
type \fI\s-1TERM\s0\fR (defaults to the environment variable \fI\s-1TERM\s0\fR) from the
It will look in the environment for a \fI\s-1TERMCAP\s0\fR variable. If
found, and the value does not begin with a slash, and the terminal
type name is the same as the environment string \fI\s-1TERM\s0\fR, the
\&\fI\s-1TERMCAP\s0\fR string is used instead of reading a termcap file. If
it does begin with a slash, the string is used as a path name of
the termcap file to search. If \fI\s-1TERMCAP\s0\fR does not begin with a
slash and name is different from \fI\s-1TERM\s0\fR, \fBTgetent\fR searches the
files \fI$HOME/.termcap\fR, \fI/etc/termcap\fR, and \fI/usr/share/misc/termcap\fR,
in that order, unless the environment variable \fI\s-1TERMPATH\s0\fR exists,
in which case it specifies a list of file pathnames (separated by
spaces or colons) to be searched \fBinstead\fR. Whenever multiple
files are searched and a tc field occurs in the requested entry,
the entry it names must be found in the same file or one of the
succeeding files. If there is a \f(CW\*(C`:tc=...:\*(C'\fR in the \fI\s-1TERMCAP\s0\fR
environment variable string it will continue the search in the
The extracted termcap entry is available in the object
as \f(CW\*(C`$self\->{TERMCAP}\*(C'\fR.
It takes a hash reference as an argument with two optional keys:
The terminal output bit rate (often mistakenly called the baud rate)
for this terminal \- if not set a warning will be generated
and it will be defaulted to 9600. \fI\s-1OSPEED\s0\fR can be be specified as
either a \s-1POSIX\s0 termios/SYSV termio speeds (where 9600 equals 9600) or
an old DSD-style speed ( where 13 equals 9600).
The terminal type whose termcap entry will be used \- if not supplied it will
default to \f(CW$ENV\fR{\s-1TERM\s0}: if that is not set then \fBTgetent\fR will croak.
It calls \f(CW\*(C`croak\*(C'\fR on failure.
Outputs a literal string with appropriate padding for the current terminal.
It takes three arguments:
The literal string to be output. If it starts with a number and an optional
\&'*' then the padding will be increased by an amount relative to this number,
if the '*' is present then this amount will me multiplied by \f(CW$cnt\fR. This part
of \f(CW$string\fR is removed before output/
Will be used to modify the padding applied to string as described above.
An optional filehandle (or IO::Handle ) that output will be printed to.
The padded \f(CW$string\fR is returned.
Output the string for the given capability padded as appropriate without
any parameter substitution.
It takes three arguments:
The capability whose string is to be output.
A count passed to Tpad to modify the padding applied to the output string.
If \f(CW$cnt\fR is zero or one then the resulting string will be cached.
An optional filehandle (or IO::Handle ) that output will be printed to.
The appropriate string for the capability will be returned.
\&\fBTgoto\fR decodes a cursor addressing string with the given parameters.
There are four arguments:
The name of the capability to be output.
The first value to be substituted in the output string ( usually the column
in a cursor addressing capability )
The second value to be substituted in the output string (usually the row
in cursor addressing capabilities)
An optional filehandle (or IO::Handle ) to which the output string will be
Substitutions are made with \f(CW$col\fR and \f(CW$row\fR in the output string with the
following \fIsprintf()\fR line formats:
\& %d output value as in printf %d
\& %2 output value as in printf %2d
\& %3 output value as in printf %3d
\& %. output value as in printf %c
\& %+x add x to value, then do %.
\& %>xy if value > x then add y, no output
\& %r reverse order of two parameters, no output
\& %i increment by one, no output
\& %B BCD (16*(value/10)) + (value%10), no output
\& %n exclusive-or all parameters with 0140 (Datamedia 2500)
\& %D Reverse coding (value - 2*(value%16)), no output (Delta Data)
The output string will be returned.
Takes a list of capabilities as an argument and will croak if one is not
\& # Get terminal output speed
\& my $termios = new POSIX::Termios;
\& my $ospeed = $termios->getospeed;
\& # Old-style ioctl code to get ospeed:
\& # ioctl(TTY,$TIOCGETP,$sgtty);
\& # ($ispeed,$ospeed) = unpack('cc',$sgtty);
\& # allocate and initialize a terminal structure
\& $terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed };
\& # require certain capabilities to be available
\& $terminal->Trequire(qw/ce ku kd/);
\& # Output Routines, if $FH is undefined these just return the string
\& # Tgoto does the % expansion stuff with the given args
\& $terminal->Tgoto('cm', $col, $row, $FH);
\& # Tputs doesn't do any % expansion.
\& $terminal->Tputs('dl', $count = 1, $FH);
.SH "COPYRIGHT AND LICENSE"
.IX Header "COPYRIGHT AND LICENSE"
Please see the \s-1README\s0 file in distribution.
This module is part of the core Perl distribution and is also maintained
for \s-1CPAN\s0 by Jonathan Stowe <jns@gellyfish.com>.
projects / OpenSPARC-T2-SAM / blob