/* Copyright (C) 2004       Manuel Novoa III    <mjn3@codepoet.org>
 *
 * GNU Library General Public License (LGPL) version 2 or later.
 *
 * Dedicated to Toni.  See uClibc/DEDICATION.mjn3 for details.
 */

#define vfprintf __vfprintf

#define _GNU_SOURCE
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>
#include <errno.h>
#include <err.h>
#ifdef __UCLIBC_HAS_THREADS__
#include <pthread.h>
#endif

#ifdef __UCLIBC_MJN3_ONLY__
#warning REMINDER: Deal with wide oriented stderr case.
#endif

static void vwarn_work(const char *format, va_list args, int showerr)
{
	/*                         0123 45678 9 a b*/
	static const char fmt[] = "%s: \0: %s\n\0\n";
	const char *f;
	char buf[64];
	__STDIO_AUTO_THREADLOCK_VAR;

	/* Do this first, in case something below changes errno. */
	f = fmt + 11;				/* At 11. */
	if (showerr) {
		f -= 4;					/* At 7. */
		__xpg_strerror_r_internal(errno, buf, sizeof(buf));
	}

	__STDIO_AUTO_THREADLOCK(stderr);

	fprintf(stderr, fmt, __uclibc_progname);
	if (format) {
		vfprintf(stderr, format, args);
		f -= 2;					/* At 5 (showerr) or 9. */
	}
	fprintf(stderr, f, buf);

	__STDIO_AUTO_THREADUNLOCK(stderr);
}

void attribute_hidden __vwarn(const char *format, va_list args)
{
	vwarn_work(format, args, 1);
}
strong_alias(__vwarn,vwarn)

void warn(const char *format, ...)
{
	va_list args;

	va_start(args, format);
	__vwarn(format, args);
	va_end(args);
}

void attribute_hidden __vwarnx(const char *format, va_list args)
{
	vwarn_work(format, args, 0);
}
strong_alias(__vwarnx,vwarnx)

void warnx(const char *format, ...)
{
	va_list args;

	va_start(args, format);
	__vwarnx(format, args);
	va_end(args);
}

void attribute_hidden __verr(int status, const char *format, va_list args)
{
	__vwarn(format, args);
	__exit(status);
}
strong_alias(__verr,verr)

void attribute_noreturn err(int status, const char *format, ...)
{
	va_list args;

	va_start(args, format);
	__verr(status, format, args);
	/* This should get optimized away.  We'll leave it now for safety. */
	/* The loop is added only to keep gcc happy. */
	while(1)
		va_end(args);
}

void attribute_hidden __verrx(int status, const char *format, va_list args)
{
	__vwarnx(format, args);
	__exit(status);
}
strong_alias(__verrx,verrx)

void attribute_noreturn errx(int status, const char *format, ...)
{
	va_list args;

	va_start(args, format);
	__verrx(status, format, args);
	/* This should get optimized away.  We'll leave it now for safety. */
	/* The loop is added only to keep gcc happy. */
	while(1)
		va_end(args);
}