/*

 * CDDL HEADER START

 *

 * The contents of this file are subject to the terms of the

 * Common Development and Distribution License (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 2008 Sun Microsystems, Inc.  All rights reserved.

 * Use is subject to license terms.

 */

/*	Copyright (c) 1988 AT&T	*/

/*	  All Rights Reserved  	*/

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

/*

 * pfmt_print() - format and print

 */

#include "lint.h"

#include "mtlib.h"

#include <pfmt.h>

#include <stdio.h>

#include <stdarg.h>

#include <string.h>

#include <thread.h>

#include <ctype.h>

#include "pfmt_data.h"

/* Catalogue for local messages */

#define	fmt_cat		"uxlibc"

#define	def_colon	": "

#define	def_colonid	2

/* Table of default severities */

static const char *sev_list[] = {

	"SEV = %d",

	"TO FIX",

	"ERROR",

	"HALT",

	"WARNING",

	"INFO"

};

int

__pfmt_print(FILE *stream, long flag, const char *format,

	const char **text_ptr, const char **sev_ptr, va_list args)

{

	const char *ptr;

	char catbuf[DB_NAME_LEN];

	int i, status;

	int length = 0;

	int txtmsgnum = 0;

	int dofmt = (flag & (long)MM_NOSTD) == 0;

	long doact = (flag & (long)MM_ACTION);

	if (format && !(flag & (long)MM_NOGET)) {

		char c;

		ptr = format;

		for (i = 0; i < DB_NAME_LEN - 1 && (c = *ptr++) && c != ':';

		    i++)

			catbuf[i] = c;

		/* Extract the message number */

		if (i != DB_NAME_LEN - 1 && c) {

			catbuf[i] = '\0';

			while (isdigit(c = *ptr++)) {

				txtmsgnum *= 10;

				txtmsgnum += c - '0';

			}

			if (c != ':')

				txtmsgnum = -1;

		}

		else

			txtmsgnum = -1;

		format = __gtxt(catbuf, txtmsgnum, ptr);

	}

	if (text_ptr)

		*text_ptr = format;

	if (dofmt) {

		char label[MAXLABEL];

		int severity, sev, d_sev;

		const char *psev = NULL, *colon;

		lrw_rdlock(&_rw_pfmt_label);

		(void) strlcpy(label, __pfmt_label, MAXLABEL);

		lrw_unlock(&_rw_pfmt_label);

		colon = __gtxt(fmt_cat, def_colonid, def_colon);

		if (label[0] != '\0' && stream) {

			if ((status = fputs(label, stream)) < 0)

				return (-1);

			length += status;

			if ((status = fputs(colon, stream)) < 0)

				return (-1);

			length += status;

		}

		severity = (int)(flag & 0xff);

		if (doact) {

			d_sev = sev = 1;

		} else if (severity <= MM_INFO) {

			sev = severity + 3;

			d_sev = severity + 2;

		} else {

			int i;

			lrw_rdlock(&_rw_pfmt_sev_tab);

			for (i = 0; i < __pfmt_nsev; i++) {

				if (__pfmt_sev_tab[i].severity == severity) {

					psev = __pfmt_sev_tab[i].string;

					d_sev = sev = -1;

					break;

				}

			}

			lrw_unlock(&_rw_pfmt_sev_tab);

			if (i == __pfmt_nsev)

				d_sev = sev = 0;

		}

		if (sev >= 0) {

			psev = __gtxt(fmt_cat, sev, sev_list[d_sev]);

		}

		if (sev_ptr)

			*sev_ptr = psev;

		if (stream) {

			if ((status = fprintf(stream, psev, severity)) < 0)

				return (-1);

			length += status;

			if ((status = fputs(colon, stream)) < 0)

				return (-1);

			length += status;

		} else

			return (-1);

	} else if (sev_ptr)

		*sev_ptr = NULL;

	if (stream) {

		if ((status = vfprintf(stream, format, args)) < 0)

			return (-1);

		length += status;

	} else

		return (-1);

	return (length);

}