#include <curses.priv.h>
#include <ctype.h>
#include <termcap.h>
MODULE_ID("$Id: lib_tgoto.c,v 1.11 2003/11/30 00:22:18 Juha.Jarvi Exp $")
#if !PURE_TERMINFO
static bool
is_termcap(const char *string)
{
bool result = TRUE;
if (string == 0 || *string == '\0') {
result = FALSE;
} else {
while ((*string != '\0') && result) {
if (*string == '%') {
switch (*++string) {
case 'p':
result = FALSE;
break;
case '\0':
string--;
break;
}
} else if (string[0] == '$' && string[1] == '<') {
result = FALSE;
}
string++;
}
}
return result;
}
static char *
tgoto_internal(const char *string, int x, int y)
{
static char *result;
static size_t length;
int swap_arg;
int param[3];
size_t used = 0;
size_t need = 10;
int *value = param;
bool need_BC = FALSE;
if (BC)
need += strlen(BC);
param[0] = y;
param[1] = x;
param[2] = 0;
while (*string != 0) {
if ((used + need) > length) {
length += (used + need);
if ((result = typeRealloc(char, length, result)) == 0) {
length = 0;
break;
}
}
if (*string == '%') {
const char *fmt = 0;
switch (*++string) {
case '\0':
string--;
break;
case 'd':
fmt = "%d";
break;
case '2':
fmt = "%02d";
*value %= 100;
break;
case '3':
fmt = "%03d";
*value %= 1000;
break;
case '+':
*value += UChar(*++string);
case '.':
if (*value == 0) {
if (BC != 0) {
*value += 1;
need_BC = TRUE;
} else {
*value = 0200;
}
}
result[used++] = *value++;
break;
case '%':
result[used++] = *string;
break;
case 'r':
swap_arg = param[0];
param[0] = param[1];
param[1] = swap_arg;
break;
case 'i':
param[0] += 1;
param[1] += 1;
break;
case '>':
if (*value > string[1])
*value += string[2];
string += 2;
break;
case 'n':
param[0] ^= 0140;
param[1] ^= 0140;
break;
case 'B':
*value = 16 * (*value / 10) + (*value % 10);
break;
case 'D':
*value -= 2 * (*value % 16);
break;
}
if (fmt != 0) {
sprintf(result + used, fmt, *value++);
used += strlen(result + used);
fmt = 0;
}
if (value - param > 2) {
value = param + 2;
*value = 0;
}
} else {
result[used++] = *string;
}
string++;
}
if (result != 0) {
if (need_BC) {
strcpy(result + used, BC);
used += strlen(BC);
}
result[used] = '\0';
}
return result;
}
#endif
NCURSES_EXPORT(char *)
tgoto(const char *string, int x, int y)
{
char *result;
T((T_CALLED("tgoto(%s, %d, %d)"), _nc_visbuf(string), x, y));
#if !PURE_TERMINFO
if (is_termcap(string))
result = tgoto_internal(string, x, y);
else
#endif
result = tparm((NCURSES_CONST char *) string, y, x);
returnPtr(result);
}