#include <curses.priv.h>
#include <ctype.h>
MODULE_ID("$Id: varargs.c,v 1.4 2003/05/24 21:10:28 tom Exp $")
#ifdef TRACE
#define MAX_PARMS 10
typedef enum {
atUnknown = 0, atInteger, atFloat, atPoint, atString
} ARGTYPE;
#define VA_INT(type) ival = va_arg(ap, type)
#define VA_FLT(type) fval = va_arg(ap, type)
#define VA_PTR(type) pval = (char *)va_arg(ap, type)
#define VA_STR(type) sval = va_arg(ap, type)
NCURSES_EXPORT(char *)
_nc_varargs(const char *fmt, va_list ap)
{
static char dummy[] = "";
static char *result_buf;
static size_t result_len;
char buffer[BUFSIZ];
const char *param;
int n;
if (fmt == 0 || *fmt == '\0')
return dummy;
if (result_len == 0)
result_buf = typeMalloc(char, result_len = BUFSIZ);
if (result_buf == 0)
return dummy;
*result_buf = '\0';
while (*fmt != '\0') {
if (*fmt == '%') {
char *pval = 0;
const char *sval = "";
double fval = 0.0;
int done = FALSE;
int ival = 0;
int type = 0;
ARGTYPE parm[MAX_PARMS];
int parms = 0;
ARGTYPE used = atUnknown;
while (*++fmt != '\0' && !done) {
if (*fmt == '*') {
VA_INT(int);
if (parms < MAX_PARMS)
parm[parms++] = atInteger;
} else if (isalpha(UChar(*fmt))) {
done = TRUE;
switch (*fmt) {
case 'Z':
case 'h':
case 'l':
done = FALSE;
type = *fmt;
break;
case 'i':
case 'd':
case 'u':
case 'x':
case 'X':
if (type == 'l')
VA_INT(long);
else if (type == 'Z')
VA_INT(size_t);
else
VA_INT(int);
used = atInteger;
break;
case 'f':
case 'e':
case 'E':
case 'g':
case 'G':
VA_FLT(double);
used = atFloat;
break;
case 'c':
VA_INT(int);
used = atInteger;
break;
case 's':
VA_STR(const char *);
used = atString;
break;
case 'p':
VA_PTR(void *);
used = atPoint;
break;
case 'n':
VA_PTR(int *);
used = atPoint;
break;
default:
break;
}
} else if (*fmt == '%') {
done = TRUE;
}
if (used != atUnknown && parms < MAX_PARMS) {
parm[parms++] = used;
for (n = 0; n < parms; ++n) {
used = parm[n];
param = buffer;
switch (used) {
case atInteger:
sprintf(buffer, "%d", ival);
break;
case atFloat:
sprintf(buffer, "%f", fval);
break;
case atPoint:
sprintf(buffer, "%p", pval);
break;
case atString:
param = _nc_visbuf2(1, sval);
break;
default:
strcpy(buffer, "?");
break;
}
result_len += strlen(param) + 2;
result_buf = typeRealloc(char, result_len, result_buf);
sprintf(result_buf + strlen(result_buf), ", %s", param);
}
}
used = atUnknown;
}
} else {
fmt++;
}
}
return (result_buf);
}
#else
empty_module(_nc_varargs)
#endif