186 lines
4.0 KiB
Plaintext
186 lines
4.0 KiB
Plaintext
# @(#)termcap.ed 1.1 94/10/31 SMI; from S5R3.1 1.14
|
|
H
|
|
!rm -f termcap.c
|
|
0a
|
|
#ifndef lint
|
|
static char sccsid[] = "@(#)termcap.ed 1.1 94/10/31 SMI"; /* from S5R3.1 1.14 */
|
|
#endif
|
|
|
|
/*
|
|
* Simulation of termcap using terminfo.
|
|
* This file is created from termcap.ed. DO NOT EDIT ME!
|
|
*/
|
|
|
|
/*
|
|
* These are declared so people won't get undefineds if they use
|
|
* old documentation. We don't do anything with them.
|
|
*/
|
|
|
|
#include "curses_inc.h"
|
|
|
|
char *UP;
|
|
char *BC;
|
|
char PC;
|
|
short ospeed;
|
|
|
|
/* ARGSUSED */
|
|
int
|
|
tgetent(bp, name)
|
|
char *bp, *name;
|
|
{
|
|
int rv;
|
|
|
|
if (setupterm(name, 1, &rv) >= 0)
|
|
/* Leave things as they were (for compatibility) */
|
|
reset_shell_mode();
|
|
return (rv);
|
|
}
|
|
|
|
/* Make a 2 letter code into an integer we can switch on easily */
|
|
#define _TWO(s1, s2) (s1 + 256*s2)
|
|
#define _TWOSTR(str) _TWO(*str, str[1])
|
|
|
|
static char *
|
|
_stripdelays(inbuf, outbuf, size)
|
|
register char *inbuf, *outbuf;
|
|
register int size;
|
|
{
|
|
char *saveoutbuf = outbuf;
|
|
|
|
if (inbuf == NULL)
|
|
return (0);
|
|
else {
|
|
while (size && *inbuf)
|
|
if (*inbuf == '$' && *(inbuf+1) == '<')
|
|
while (*inbuf && *inbuf++ != '>')
|
|
;
|
|
else
|
|
{
|
|
size--;
|
|
*outbuf++ = *inbuf++;
|
|
}
|
|
if (size)
|
|
*outbuf = '\0';
|
|
}
|
|
return (saveoutbuf);
|
|
}
|
|
|
|
/* generated by sort on caps */
|
|
static short booloffsets[] =
|
|
{ /* generated by sort on caps */
|
|
.
|
|
!sed -e '1,/^--- begin bool/d' -e '/^#/,$d' < caps | awk '{printf "\t/* \%s */\t\%d,\n", $3, i++}' | sort > ./tmp/termcap.tmp
|
|
.r !cat ./tmp/termcap.tmp
|
|
.a
|
|
};
|
|
|
|
/* generated by sort on caps */
|
|
static short numoffsets[] =
|
|
{
|
|
.
|
|
!sed -e '1,/^--- begin num/d' -e '/^#/,$d' < caps | awk '{printf "\t/* \%s */\t\%d,\n", $3, i++}' | sort > ./tmp/termcap.tmp
|
|
.r !cat ./tmp/termcap.tmp
|
|
.a
|
|
};
|
|
|
|
/* generated by sort on caps */
|
|
static short stroffsets[] =
|
|
{
|
|
.
|
|
!sed -e '1,/^--- begin str/d' -e '/^#/,$d' < caps | awk '{printf "\t/* \%s */\t\%d,\n", $3, i++}' | sort > ./tmp/termcap.tmp
|
|
.r !cat ./tmp/termcap.tmp
|
|
!rm ./tmp/termcap.tmp
|
|
.a
|
|
};
|
|
|
|
/*
|
|
* Return the value of the boolean capability tcstr.
|
|
* Return 0 if the capability is not found.
|
|
*/
|
|
|
|
tgetflag(tcstr)
|
|
register char *tcstr;
|
|
{
|
|
register char *p;
|
|
char stripped[16];
|
|
|
|
switch (_TWOSTR(tcstr))
|
|
{
|
|
/* Special cases that do not have exact terminfo equivalents */
|
|
case _TWO('b','s'):
|
|
/* bs: true if ^H moves the cursor left */
|
|
p = _stripdelays(cursor_left, stripped, 16);
|
|
return (p && *p==8 && p[1] == 0);
|
|
case _TWO('p','t'):
|
|
/* pt: true if terminal has ^I tabs every 8 spaces */
|
|
p = _stripdelays(tab, stripped, 16);
|
|
return (p && *p==9 && p[1] == 0);
|
|
case _TWO('n','c'):
|
|
/* cr: true if ^M does not return the cursor */
|
|
p = _stripdelays(carriage_return, stripped, 16);
|
|
return (! (p && *p==13 && p[1] == 0));
|
|
case _TWO('n','s'):
|
|
/* ns: true if no way to scroll the terminal */
|
|
return (scroll_forward == NULL);
|
|
}
|
|
{
|
|
int n = _NUMELEMENTS(booloffsets);
|
|
int offset = _tcsearch(tcstr, booloffsets, boolcodes, n, 2);
|
|
char *bool_array = (char *) cur_bools;
|
|
|
|
if (offset == -1)
|
|
return (0);
|
|
else
|
|
return (bool_array[offset]);
|
|
}
|
|
}
|
|
|
|
/*
|
|
* Return the value of the numeric capability tcstr.
|
|
* Return -1 if the capability is not found.
|
|
*/
|
|
|
|
tgetnum(tcstr)
|
|
register char *tcstr;
|
|
{
|
|
int n = _NUMELEMENTS(numoffsets);
|
|
int offset = _tcsearch(tcstr, numoffsets, numcodes, n, 2);
|
|
short *num_array = (short *) cur_nums;
|
|
|
|
if (offset == -1)
|
|
return (-1);
|
|
else
|
|
return (num_array[offset]);
|
|
}
|
|
|
|
/*
|
|
* Return the string capability for capability "id". We also copy
|
|
* it into *area for upward compatibility with a few programs that
|
|
* actually expect it to be copied, at a slight cost in speed.
|
|
*/
|
|
|
|
char *
|
|
tgetstr(tcstr, area)
|
|
register char *tcstr, **area;
|
|
{
|
|
int n = _NUMELEMENTS(stroffsets);
|
|
int offset = _tcsearch(tcstr, stroffsets, strcodes, n, 2);
|
|
char **str_array = (char **) cur_strs;
|
|
char *rv;
|
|
|
|
if (offset == -1)
|
|
return (0);
|
|
rv = str_array[offset];
|
|
if (area && *area && rv)
|
|
{
|
|
(void) strcpy(*area, rv);
|
|
*area += strlen(rv) + 1;
|
|
}
|
|
return (rv);
|
|
}
|
|
.
|
|
0r copyright.h
|
|
/SMI/d
|
|
w termcap.c
|
|
q
|