/*
   =============================================================================
	sprintf.c -- sprintf function
	Version 2 -- 1987-06-11 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "all.h"

extern	int32_t	dofmt_(int16_t (*putsub)(), int8_t *format, va_list args);

static int8_t	*buff;
	static int16_t spsub(int8_t c);

/*
   =============================================================================
	sprintf(str, fmt, args) -- format args into str according to fmt
   =============================================================================
*/

int32_t sprintf(int8_t *str, int8_t *fmt, ...)
{
	register int32_t count;
	va_list aptr;

	buff = str;
	va_start(aptr, fmt);
	count = dofmt_(spsub, fmt, aptr);
	va_end(aptr);
	*buff = '\0';
	return(count);
}

/*
   =============================================================================
	spsub(c) - put c into the output string
   =============================================================================
*/

static int16_t spsub(int8_t c)
{
	return((*buff++ = c) & 0xFF);
}