mirror of
git://git.code.sf.net/p/zsh/code
synced 2024-10-02 00:41:44 +02:00
135 lines
3.5 KiB
C
135 lines
3.5 KiB
C
/*
|
|
* termcap.c - termcap manipulation through curses
|
|
*
|
|
* This file is part of zsh, the Z shell.
|
|
*
|
|
* Copyright (c) 1992-1997 Paul Falstad
|
|
* All rights reserved.
|
|
*
|
|
* Permission is hereby granted, without written agreement and without
|
|
* license or royalty fees, to use, copy, modify, and distribute this
|
|
* software and to distribute modified versions of this software for any
|
|
* purpose, provided that the above copyright notice and the following
|
|
* two paragraphs appear in all copies of this software.
|
|
*
|
|
* In no event shall Paul Falstad or the Zsh Development Group be liable
|
|
* to any party for direct, indirect, special, incidental, or consequential
|
|
* damages arising out of the use of this software and its documentation,
|
|
* even if Paul Falstad and the Zsh Development Group have been advised of
|
|
* the possibility of such damage.
|
|
*
|
|
* Paul Falstad and the Zsh Development Group specifically disclaim any
|
|
* warranties, including, but not limited to, the implied warranties of
|
|
* merchantability and fitness for a particular purpose. The software
|
|
* provided hereunder is on an "as is" basis, and Paul Falstad and the
|
|
* Zsh Development Group have no obligation to provide maintenance,
|
|
* support, updates, enhancements, or modifications.
|
|
*
|
|
*/
|
|
|
|
#include "termcap.mdh"
|
|
#include "termcap.pro"
|
|
|
|
/* echotc: output a termcap */
|
|
|
|
/**/
|
|
static int
|
|
bin_echotc(char *name, char **argv, char *ops, int func)
|
|
{
|
|
char *s, buf[2048], *t, *u;
|
|
int num, argct;
|
|
|
|
s = *argv++;
|
|
if (termflags & TERM_BAD)
|
|
return 1;
|
|
if ((termflags & TERM_UNKNOWN) && (isset(INTERACTIVE) || !init_term()))
|
|
return 1;
|
|
/* if the specified termcap has a numeric value, display it */
|
|
if ((num = tgetnum(s)) != -1) {
|
|
printf("%d\n", num);
|
|
return 0;
|
|
}
|
|
/* if the specified termcap is boolean, and set, say so *
|
|
* ncurses can tell if an existing boolean capability is *
|
|
* off so in this case we print "no". */
|
|
#if !defined(NCURSES_VERSION) || !defined(COLOR_PAIR)
|
|
if (tgetflag(s) > 0) {
|
|
puts("yes");
|
|
return (0);
|
|
}
|
|
#else /* NCURSES_VERSION && COLOR_PAIR */
|
|
switch (tgetflag(s)) {
|
|
case -1:
|
|
break;
|
|
case 0:
|
|
puts("no");
|
|
return 0;
|
|
default:
|
|
puts("yes");
|
|
return 0;
|
|
}
|
|
#endif /* NCURSES_VERSION && COLOR_PAIR */
|
|
/* get a string-type capability */
|
|
u = buf;
|
|
t = tgetstr(s, &u);
|
|
if (!t || !*t) {
|
|
/* capability doesn't exist, or (if boolean) is off */
|
|
zwarnnam(name, "no such capability: %s", s, 0);
|
|
return 1;
|
|
}
|
|
/* count the number of arguments required */
|
|
for (argct = 0, u = t; *u; u++)
|
|
if (*u == '%') {
|
|
if (u++, (*u == 'd' || *u == '2' || *u == '3' || *u == '.' ||
|
|
*u == '+'))
|
|
argct++;
|
|
}
|
|
/* check that the number of arguments provided is correct */
|
|
if (arrlen(argv) != argct) {
|
|
zwarnnam(name, (arrlen(argv) < argct) ? "not enough arguments" :
|
|
"too many arguments", NULL, 0);
|
|
return 1;
|
|
}
|
|
/* output string, through the proper termcap functions */
|
|
if (!argct)
|
|
tputs(t, 1, putraw);
|
|
else {
|
|
num = (argv[1]) ? atoi(argv[1]) : atoi(*argv);
|
|
tputs(tgoto(t, atoi(*argv), num), num, putraw);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
static struct builtin bintab[] = {
|
|
BUILTIN("echotc", 0, bin_echotc, 1, -1, 0, NULL, NULL),
|
|
};
|
|
|
|
/**/
|
|
int
|
|
setup_(Module m)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
/**/
|
|
int
|
|
boot_(Module m)
|
|
{
|
|
return !addbuiltins(m->nam, bintab, sizeof(bintab)/sizeof(*bintab));
|
|
}
|
|
|
|
/**/
|
|
int
|
|
cleanup_(Module m)
|
|
{
|
|
deletebuiltins(m->nam, bintab, sizeof(bintab)/sizeof(*bintab));
|
|
return 0;
|
|
}
|
|
|
|
/**/
|
|
int
|
|
finish_(Module m)
|
|
{
|
|
return 0;
|
|
}
|