/*
 * 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 2015 Circonus, Inc.  All rights reserved.
 */

/*
 * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*      Copyright (c) 1988 AT&T */
/*        All Rights Reserved   */

/*
 * Print the name of the siginfo indicated by "sig", along with the
 * supplied message
 */

#include "lint.h"
#include "_libc_gettext.h"
#include <sys/types.h>
#include <stdio.h>
#include <unistd.h>
#include <string.h>
#include <signal.h>
#include <siginfo.h>

#define strsignal(i)    (_libc_gettext(_sys_siglistp[i]))

void
psiginfo(const siginfo_t *sip, const char *s)
{
        char buf[256];
        char *c;
        size_t l = 0;
        const struct siginfolist *listp;

        if (sip == NULL)
                return;

        if (s != NULL && *s != '\0') {
                l = snprintf(buf, sizeof (buf), _libc_gettext("%s : "), s);
                if (l > sizeof (buf))
                        l = sizeof (buf);
        }


        if (sip->si_code <= 0) {
                (void) snprintf(buf + l, sizeof (buf) - l,
                    _libc_gettext("%s ( from process  %d )\n"),
                    strsignal(sip->si_signo), sip->si_pid);
        } else if (((listp = &_sys_siginfolist[sip->si_signo-1]) != NULL) &&
            sip->si_code <= listp->nsiginfo) {
                c = _libc_gettext(listp->vsiginfo[sip->si_code-1]);
                switch (sip->si_signo) {
                case SIGSEGV:
                case SIGBUS:
                case SIGILL:
                case SIGFPE:
                        (void) snprintf(buf + l, sizeof (buf) - l,
                            _libc_gettext("%s ( [%p] %s)\n"),
                            strsignal(sip->si_signo),
                            sip->si_addr, c);
                        break;
                default:
                        (void) snprintf(buf + l, sizeof (buf) - l,
                            _libc_gettext("%s (%s)\n"),
                            strsignal(sip->si_signo), c);
                        break;
                }
        } else {
                (void) snprintf(buf + l, sizeof (buf) - l,
                    _libc_gettext("%s\n"), strsignal(sip->si_signo));
        }
        (void) write(2, buf, strlen(buf));
}