csu3_am335x/EVSE/GPL/plc-utils.LNX.2.1.20/source/tools/error.c

/*====================================================================*
 *
 *   signed error (signed status, errno_t number, char const * format, ...);
 *
 *   error.h
 *
 *   custom implementation of GNU error() function for systems
 *   that do not have it; this version always returns -1;
 *
 *   Motley Tools by Charles Maier <cmaier@cmassoc.net>;
 *   Copyright (c) 2001-2006 by Charles Maier Associates;
 *   Licensed under the Internet Software Consortium License;
 *
 *--------------------------------------------------------------------*/

#ifndef ERROR_SOURCE
#define ERROR_SOURCE

#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>

#include "../tools/types.h"
#include "../tools/error.h"

#ifdef __GNUC__

__attribute__ ((format (printf, 3, 4))) 

#endif

signed error (signed status, errno_t number, char const * format, ...) 

{ 
	extern char const * program_name; 
	if ((program_name) && (* program_name)) 
	{ 
		fprintf (stderr, "%s: ", program_name); 
	} 

#if 0

	if ((format) && (* format)) 
	{ 
		va_list arglist; 
		va_start (arglist, format); 
		vfprintf (stderr, format, arglist); 
		va_end (arglist); 
	} 
	if (number) 
	{ 
		fprintf (stderr, ": %s", strerror (number)); 
	} 

#else

	if (number) 
	{ 
		fprintf (stderr, "%s: ", strerror (number)); 
	} 
	if ((format) && (* format)) 
	{ 
		va_list arglist; 
		va_start (arglist, format); 
		vfprintf (stderr, format, arglist); 
		va_end (arglist); 
	} 

#endif

	fprintf (stderr, "\n"); 
	fflush (stderr); 
	if (status) 
	{ 
		exit (status); 
	} 
	return (- 1); 
} 

#endif