/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 2003 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#pragma ident	"%Z%%M%	%I%	%E% SMI"

#include "med_local.h"

#include <syslog.h>

/*
 * debug stuff
 */
#define	MED_DEBUG 0
#ifdef	MED_DEBUG
static	int	med_debug = MED_DEBUG;
#endif

/*
 * free and clear error
 */
static void
med_clrerror(
	med_err_t	*medep
)
{
	if (medep->med_node != NULL)
		Free(medep->med_node);
	if (medep->med_misc != NULL)
		Free(medep->med_misc);
	(void) memset(medep, 0, sizeof (*medep));
}

/*
 * Exported Entry Points
 */

/*
 * setup error
 */
int
med_error(
	med_err_t	*medep,
	int		errnum,
	char		*misc
)
{
	med_clrerror(medep);
	if (errnum != 0) {
		medep->med_errno = errnum;
		if (med_debug && misc != NULL)
			medep->med_misc = Strdup(misc);
		medep->med_node = Strdup(mynode());
		return (-1);
	}
	return (0);
}

/*
 * med_err_t to string
 */
static char *
med_strerror(
	med_err_t	*medep
)
{
	static char	buf[1024];
	char		*p = buf;
	char		*emsg;

	if (medep->med_errno < 0) {
		if ((emsg = med_errnum_to_str(medep->med_errno)) != NULL)
			return (emsg);
		(void) sprintf(p,
		    "unknown mediator errno %d\n", medep->med_errno);
		return (buf);
	} else {
		if ((emsg = strerror(medep->med_errno)) != NULL)
			return (emsg);
		(void) sprintf(p,
		    "errno %d out of range", medep->med_errno);
		return (buf);
	}
}

/*
 * printf-like log
 */
static void
med_vprintf(
	const char	*fmt,
	va_list		ap
)
{
	if (isatty(fileno(stderr))) {
#ifdef	_REENTRANT
		static mutex_t	stderr_mx = DEFAULTMUTEX;

		med_mx_lock(&stderr_mx);
#endif	/* _REENTRANT */
		(void) vfprintf(stderr, fmt, ap);
		(void) fflush(stderr);
		(void) fsync(fileno(stderr));
#ifdef	_REENTRANT
		med_mx_unlock(&stderr_mx);
#endif	/* _REENTRANT */
	}
	vsyslog(LOG_ERR, fmt, ap);
}

/*PRINTFLIKE1*/
void
med_eprintf(
	const char	*fmt,
	...
)
{
	va_list		ap;

	va_start(ap, fmt);
	med_vprintf(fmt, ap);
	va_end(ap);
}

/*
 * printf-like perror() log
 */
/*PRINTFLIKE2*/
static void
med_vperror(
	med_err_t	*medep,
	const char	*fmt,
	va_list		ap
)
{
	char		buf[1024];
	char		*p = buf;
	size_t		len = sizeof (buf);
	int		n;

	if ((medep->med_node != NULL) && (medep->med_node[0] != '\0')) {
		n = snprintf(p, len, "%s: ", medep->med_node);
		p += n;
		len -= n;
	}
	if ((medep->med_misc != NULL) && (medep->med_misc[0] != '\0')) {
		n = snprintf(p, len, "%s: ", medep->med_misc);
		p += n;
		len -= n;
	}
	if ((fmt != NULL) && (*fmt != '\0')) {
		n = vsnprintf(p, len, fmt, ap);
		p += n;
		len -= n;
		n = snprintf(p, len, ": ");
		p += n;
		len -= n;
	}
	(void) snprintf(p, len, "%s", med_strerror(medep));
	med_eprintf("%s\n", buf);
}

/*PRINTFLIKE2*/
void
medde_perror(
	med_err_t	*medep,
	const char	*fmt,
	...
)
{
	va_list		ap;

	va_start(ap, fmt);
	med_vperror(medep, fmt, ap);
	va_end(ap);
}

/*PRINTFLIKE1*/
void
med_perror(
	const char	*fmt,
	...
)
{
	va_list		ap;
	med_err_t	status = med_null_err;

	(void) med_error(&status, errno, NULL);
	va_start(ap, fmt);
	med_vperror(&status, fmt, ap);
	va_end(ap);
	med_clrerror(&status);
}