NetBSD/lib/libterm/tgoto.c

297 lines
8.2 KiB
C

/* $NetBSD: tgoto.c,v 1.14 1999/08/16 08:34:33 blymn Exp $ */
/*
* Copyright (c) 1980, 1993
* The Regents of the University of California. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#include <sys/cdefs.h>
#ifndef lint
#if 0
static char sccsid[] = "@(#)tgoto.c 8.1 (Berkeley) 6/4/93";
#else
__RCSID("$NetBSD: tgoto.c,v 1.14 1999/08/16 08:34:33 blymn Exp $");
#endif
#endif /* not lint */
#include <errno.h>
#include <string.h>
#include <termcap.h>
#define CTRL(c) ((c) & 037)
#define MAXRETURNSIZE 64
char *UP;
char *BC;
/*
* Routine to perform cursor addressing.
* CM is a string containing printf type escapes to allow
* cursor addressing. We start out ready to print the destination
* line, and switch each time we print row or column.
* The following escapes are defined for substituting row/column:
*
* %d as in printf
* %2 like %2d
* %3 like %3d
* %. gives %c hacking special case characters
* %+x like %c but adding x first
*
* The codes below affect the state but don't use up a value.
*
* %>xy if value > x add y
* %r reverses row/column
* %i increments row/column (for one origin indexing)
* %% gives %
* %B BCD (2 decimal digits encoded in one byte)
* %D Delta Data (backwards bcd)
*
* all other characters are ``self-inserting''.
*/
char *
tgoto(CM, destcol, destline)
const char *CM;
int destcol, destline;
{
static char result[MAXRETURNSIZE];
if (t_goto(NULL, CM, destcol, destline, result, MAXRETURNSIZE) >= 0)
return result;
else
return ("OOPS");
}
/*
* New interface. Functionally the same as tgoto but uses the tinfo struct
* to set UP and BC. The arg buffer is filled with the result string, limit
* defines the maximum number of chars allowed in buffer. The function
* returns 0 on success, -1 otherwise.
*/
int
t_goto(info, CM, destcol, destline, buffer, limit)
struct tinfo *info;
const char *CM;
int destcol;
int destline;
char *buffer;
size_t limit;
{
static char added[10];
const char *cp = CM;
char *dp = buffer;
char *old_up = UP, *old_bc = BC;
char new_up[MAXRETURNSIZE], new_bc[MAXRETURNSIZE], *up_ptr, *bc_ptr;
int c;
size_t count = MAXRETURNSIZE;
int oncol = 0;
int which = destline;
if (info != NULL)
{
up_ptr = new_up;
bc_ptr = new_bc;
UP = t_getstr(info, "up", &up_ptr, &count);
count = MAXRETURNSIZE;
BC = t_getstr(info, "bc", &bc_ptr, &count);
}
if (cp == 0) {
errno = EINVAL;
toohard:
UP = old_up;
BC = old_bc;
return -1;
}
added[0] = '\0';
while ((c = *cp++) != '\0') {
if (c != '%') {
copy:
*dp++ = c;
if (dp >= &buffer[limit])
{
errno = E2BIG;
goto toohard;
}
continue;
}
switch (c = *cp++) {
#ifdef CM_N
case 'n':
destcol ^= 0140;
destline ^= 0140;
goto setwhich;
#endif
case 'd':
if (which < 10)
goto one;
if (which < 100)
goto two;
/* FALLTHROUGH */
case '3':
if (which >= 1000) {
errno = E2BIG;
goto toohard;
}
*dp++ = (which / 100) | '0';
if (dp >= &buffer[limit]) {
errno = E2BIG;
goto toohard;
}
which %= 100;
/* FALLTHROUGH */
case '2':
two:
*dp++ = which / 10 | '0';
if (dp >= &buffer[limit]) {
errno = E2BIG;
goto toohard;
}
one:
*dp++ = which % 10 | '0';
if (dp >= &buffer[limit]) {
errno = E2BIG;
goto toohard;
}
swap:
oncol = 1 - oncol;
setwhich:
which = oncol ? destcol : destline;
continue;
#ifdef CM_GT
case '>':
if (which > *cp++)
which += *cp++;
else
cp++;
continue;
#endif
case '+':
which += *cp++;
/* FALLTHROUGH */
case '.':
/*
* This code is worth scratching your head at for a
* while. The idea is that various weird things can
* happen to nulls, EOT's, tabs, and newlines by the
* tty driver, arpanet, and so on, so we don't send
* them if we can help it.
*
* Tab is taken out to get Ann Arbors to work, otherwise
* when they go to column 9 we increment which is wrong
* because bcd isn't continuous. We should take out
* the rest too, or run the thing through more than
* once until it doesn't make any of these, but that
* would make termlib (and hence pdp-11 ex) bigger,
* and also somewhat slower. This requires all
* programs which use termlib to stty tabs so they
* don't get expanded. They should do this anyway
* because some terminals use ^I for other things,
* like nondestructive space.
*/
if (which == 0 || which == CTRL('d') || /* which == '\t' || */ which == '\n') {
if (oncol || UP) { /* Assumption: backspace works */
char *add = oncol ? (BC ? BC : "\b") : UP;
/*
* Loop needed because newline happens
* to be the successor of tab.
*/
do {
if (strlen(added) + strlen(add) >= sizeof(added))
{
errno = E2BIG;
goto toohard;
}
(void)strcat(added, add);
which++;
} while (which == '\n');
}
}
*dp++ = which;
if (dp >= &buffer[limit])
{
errno = E2BIG;
goto toohard;
}
goto swap;
case 'r':
oncol = 1;
goto setwhich;
case 'i':
destcol++;
destline++;
which++;
continue;
case '%':
goto copy;
#ifdef CM_B
case 'B':
which = (which/10 << 4) + which%10;
continue;
#endif
#ifdef CM_D
case 'D':
which = which - 2 * (which%16);
continue;
#endif
default:
errno = EINVAL;
goto toohard;
}
}
if (dp + strlen(added) >= &buffer[limit])
{
errno = E2BIG;
goto toohard;
}
(void)strcpy(dp, added);
UP = old_up;
BC = old_bc;
return 0;
}