/* ----------------------------------------------------------------
 *   FILE
 *	format.c
 *	
 *   DESCRIPTION
 *	a wrapper around code that does what vsprintf does.
 *
 *   INTERFACE ROUTINES
 *	form
 *
 *   NOTES
 *
 *   IDENTIFICATION
 *	/usr/local/devel/postgres-v4r2/src/backend/utils/error/RCS/format.c,v 1.7 1993/10/03 01:40:49 aoki Exp
 * ----------------------------------------------------------------
 */

/*LINTLIBRARY*/

#include <stdio.h>
#ifdef __STDC__
#include <stdarg.h>
#else
#include <varargs.h>
#endif /* __STDC__ */
#include "tmp/c.h"

RcsId("/usr/local/devel/postgres-v4r2/src/backend/utils/error/RCS/format.c,v 1.7 1993/10/03 01:40:49 aoki Exp");

#ifdef	_SBFSIZ
typedef unsigned char iochar;
#else
typedef char iochar;
#endif

#ifndef _IOSTRG
#define _IOSTRG	0
#endif

#ifndef	_NFILE
#define _NFILE (-1)
#endif

#define FormMaxSize	1024
#define FormMinSize	(FormMaxSize / 8)

static	char	FormBuf[FormMaxSize];
static	char	*FormBufP = FormBuf;

/* ----------------
 *	form
 * ----------------
 */
/*VARARGS1*/
#ifndef __STDC__
char *
#ifdef lint
form(fmt, va_alist)
	char	*fmt;
#else
form(va_alist)
#endif
    va_dcl
#else
char *
form(char *fmt, ...)
#endif
{
    va_list	args;
    char	*format;
    char	*str;
#ifdef NEED_VSPRINTF
    FILE	fake;

#ifdef lint
    fmt = fmt;
#endif /* lint */

    if (FormBufP + FormMinSize > FormBuf + FormMaxSize)
	FormBufP = FormBuf;

    fake._cnt  = ((FormBuf + FormMaxSize) - FormBufP) - 1;
    fake._base = fake._ptr = (iochar *) FormBufP;
    fake._flag = _IOWRT | _IOSTRG;
    fake._file = _NFILE;
#endif /* NEED_VSPRINTF */

#ifndef __STDC__
    va_start(args);
#else
    va_start(args, fmt);
#endif
    format = va_arg(args, char *);

    str = FormBufP;
#ifdef NEED_VSPRINTF
    _doprnt(format, args, &fake);
#ifndef	lint
    (void) putc('\0', &fake);
#endif  /* lint */
    FormBufP += strlen(FormBufP) + 1;
#else /* !NEED_VSPRINTF */
    (void) vsprintf(FormBuf, format, args);
#endif /* !NEED_VSPRINTF */
    va_end(args);
    
    return (str);
}