/*
 * @(#)src/demo/jvmti/hprof/hprof_error.c, dsdev, dsdev, 20060110 1.3
 * ===========================================================================
 * Licensed Materials - Property of IBM
 * "Restricted Materials of IBM"
 *
 * IBM SDK, Java(tm) 2 Technology Edition, v5.0
 * (C) Copyright IBM Corp. 1998, 2005. All Rights Reserved
 *
 * US Government Users Restricted Rights - Use, duplication or disclosure
 * restricted by GSA ADP Schedule Contract with IBM Corp.
 * ===========================================================================
 */

/*
 * ===========================================================================
 (C) Copyright Sun Microsystems Inc, 1992, 2004. All rights reserved.
 * ===========================================================================
 */
/*
 * @(#)hprof_error.c	1.12 04/07/27
 *
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 * -Redistribution of source code must retain the above copyright notice, this
 *  list of conditions and the following disclaimer.
 *
 * -Redistribution in binary form must reproduce the above copyright notice,
 *  this list of conditions and the following disclaimer in the documentation
 *  and/or other materials provided with the distribution.
 *
 * Neither the name of Sun Microsystems, Inc. or the names of contributors may
 * be used to endorse or promote products derived from this software without
 * specific prior written permission.
 *
 * This software is provided "AS IS," without a warranty of any kind. ALL
 * EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES, INCLUDING
 * ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE
 * OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN MIDROSYSTEMS, INC. ("SUN")
 * AND ITS LICENSORS SHALL NOT BE LIABLE FOR ANY DAMAGES SUFFERED BY LICENSEE
 * AS A RESULT OF USING, MODIFYING OR DISTRIBUTING THIS SOFTWARE OR ITS
 * DERIVATIVES. IN NO EVENT WILL SUN OR ITS LICENSORS BE LIABLE FOR ANY LOST
 * REVENUE, PROFIT OR DATA, OR FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL,
 * INCIDENTAL OR PUNITIVE DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY
 * OF LIABILITY, ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE,
 * EVEN IF SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
 *
 * You acknowledge that this software is not designed, licensed or intended
 * for use in the design, construction, operation or maintenance of any
 * nuclear facility.
 */

#include "hprof.h"

/* The error handling logic. */

/*
 * Most hprof error processing and error functions are kept here, along with
 *   termination functions and signal handling (used in debug version only).
 *
 */

/* The option precrash=y|n is only available if _ALLOW_PRECRASH is defined. */
/* The option pause=y|n    is only available if _ALLOW_PAUSE    is defined. */

#if defined(_ALLOW_PRECRASH) || defined(_ALLOW_PAUSE)
#include <unistd.h> /* Should be in machine dependent area? */
#endif

#include <signal.h>

#ifdef _ALLOW_PAUSE
    static int p = 1; /* Used with pause=y|n option */
#endif

/* Private functions */

static void
error_message(const char * format, ...)
{
    va_list ap;

    va_start(ap, format);
    (void)vfprintf(stderr, format, ap);
    va_end(ap);
}

static void
error_abort(void)
{
    /* Important to remove existing signal handler */
    (void)signal(SIGABRT, NULL);
    error_message("HPROF DUMPING CORE\n");
    abort();	/* Sends SIGABRT signal, usually also caught by libjvm */
}

static void
signal_handler(int sig)
{
    /* Caught a signal, most likely a SIGABRT */
    error_message("HPROF SIGNAL %d TERMINATED PROCESS\n", sig);
    error_abort();
}

static void
setup_signal_handler(int sig)
{
    /* Only if debug version or debug=y */
    if ( gdata->debug ) {
        (void)signal(sig, (void(*)(int))(void*)&signal_handler);
    }
}

static void
terminate_everything(jint exit_code)
{
    if ( exit_code > 0 ) {
	/* Could be a fatal error or assert error or a sanity error */
        error_message("HPROF TERMINATED PROCESS\n");
        if ( gdata->precrash ) {
            #ifdef _ALLOW_PRECRASH
                char cmd[256];
                pid_t pid;

                pid = getpid();
                (void)md_snprintf(cmd, sizeof(cmd),
                        "precrash -p %d > /tmp/%s.%d",
                        /*LINTED*/
			(int)pid, AGENTNAME, (int)pid);
                cmd[sizeof(cmd)-1] = 0;
		error_message("USING PRECRASH: %s\n", cmd);
                (void)pclose(popen(cmd, "w"));
            #endif
        }
        if ( gdata->exitpause ) {
	    /* Pause here and wait for a connection from a debugger */
            error_do_pause();
        }
        if ( gdata->coredump || gdata->debug ) {
	    /* Core dump here by request */
            error_abort();
        }
    }
    /* Terminate the process */
    error_exit_process(exit_code);
}

/* External functions */

void
error_setup(void)
{
    setup_signal_handler(SIGABRT);
}

void
error_do_pause(void)
{
    #ifdef _ALLOW_PAUSE
        pid_t pid = getpid();
        int timeleft = 600; /* 10 minutes max */
        int interval = 10;  /* 10 second message check */

        /*LINTED*/
        error_message("\nHPROF pause for PID %d\n", (int)pid);
        while ( p && timeleft > 0 ) {
            (void)sleep(interval); /* 'assign p=0' to stop pause loop */
            timeleft -= interval;
        }
        if ( timeleft <= 0 ) {
            error_message("\n HPROF pause got tired of waiting and gave up.\n");
        }
    #endif
}

void
error_exit_process(int exit_code)
{
    exit(exit_code);
}

void
error_assert(const char *condition, const char *file, int line)
{
    error_message("ASSERTION FAILURE: %s [%s:%d]\n", condition, file, line);
    error_abort();
}

void
error_handler(jboolean fatal, jvmtiError error,
		const char *message, const char *file, int line)
{
    char *error_name;

    if ( message==NULL ) {
	message = "";
    }
    if ( error != JVMTI_ERROR_NONE ) {
	error_name = getErrorName(error);
	if ( error_name == NULL ) {
	    error_name = "?";
	}
	error_message("HPROF ERROR: %s (JVMTI Error %s(%d)) [%s:%d]\n",
			    message, error_name, error, file, line);
    } else {
	error_message("HPROF ERROR: %s [%s:%d]\n", message, file, line);
    }
    if ( fatal || gdata->errorexit ) {
	/* If it's fatal, or the user wants termination on any error, die */
        terminate_everything(9);
    }
}

void
debug_message(const char * format, ...)
{
    va_list ap;

    va_start(ap, format);
    (void)vfprintf(stderr, format, ap);
    va_end(ap);
}

void
verbose_message(const char * format, ...)
{
    if ( gdata->verbose ) {
	va_list ap;

	va_start(ap, format);
	(void)vfprintf(stderr, format, ap);
	va_end(ap);
    }
}

 *
 * -Redistribution of source code must retain the above copyright notice, this
 *  list of conditions and the following disclaimer.
 *
 * -Redistribution in binary form must reproduce the above copyright notice,
 *  this list of conditions and the following disclaimer in the documentation
 *  and/or other materials provided with the distribution.
 *
 * Neither the name of Sun Microsystems, Inc. or the names of contributors may
 * be used to endorse or promote products derived from this software without
 * specific prior written permission.
 *
 * This software is provided "AS IS," without a warranty of any kind. ALL
 * EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES, INCLUDING
 * ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE
 * OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN MIDROSYSTEMS, INC. ("SUN")
 * AND ITS LICENSORS SHALL NOT BE LIABLE FOR ANY DAMAGES SUFFERED BY LICENSEE
 * AS A RESULT OF USING, MODIFYING OR DISTRIBUTING THIS SOFTWARE OR ITS
 * DERIVATIVES. IN NO EVENT WILL SUN OR ITS LICENSORS BE LIABLE FOR ANY LOST
 * REVENUE, PROFIT OR DATA, OR FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL,
 * INCIDENTAL OR PUNITIVE DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY
 * OF LIABILITY, ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE,
 * EVEN IF SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
 *
 * You acknowledge that this software is not designed, licensed or intended
 * for use in the design, construction, operation or maintenance of any
 * nuclear facility.
 */

#include "hprof.h"

/* The error handling logic. */

/*
 * Most hprof error processing and error functions are kept here, along with
 *   termination functions and signal handling (used in debug version only).
 *
 */

/* The option precrash=y|n is only available if _ALLOW_PRECRASH is defined. */
/* The option pause=y|n    is only available if _ALLOW_PAUSE    is defined. */

#if defined(_ALLOW_PRECRASH) || defined(_ALLOW_PAUSE)
#include <unistd.h> /* Should be in machine dependent area? */
#endif

#include <signal.h>

#ifdef _ALLOW_PAUSE
    static int p = 1; /* Used with pause=y|n option */
#endif

/* Private functions */

static void
error_message(const char * format, ...)
{
    va_list ap;

    va_start(ap, format);
    (void)vfprintf(stderr, format, ap);
    va_end(ap);
}

static void
error_abort(void)
{
    /* Important to remove existing signal handler */
    (void)signal(SIGABRT, NULL);
    error_message("HPROF DUMPING CORE\n");
    abort();	/* Sends SIGABRT signal, usually also caught by libjvm */
}

static void
signal_handler(int sig)
{
    /* Caught a signal, most likely a SIGABRT */
    error_message("HPROF SIGNAL %d TERMINATED PROCESS\n", sig);
    error_abort();
}

static void
setup_signal_handler(int sig)
{
    /* Only if debug version or debug=y */
    if ( gdata->debug ) {
        (void)signal(sig, (void(*)(int))(void*)&signal_handler);
    }
}

static void
terminate_everything(jint exit_code)
{
    if ( exit_code > 0 ) {
	/* Could be a fatal error or assert error or a sanity error */
        error_message("HPROF TERMINATED PROCESS\n");
        if ( gdata->precrash ) {
            #ifdef _ALLOW_PRECRASH
                char cmd[256];
                pid_t pid;

                pid = getpid();
                (void)md_snprintf(cmd, sizeof(cmd),
                        "precrash -p %d > /tmp/%s.%d",
                        /*LINTED*/
			(int)pid, AGENTNAME, (int)pid);
                cmd[sizeof(cmd)-1] = 0;
		error_message("USING PRECRASH: %s\n", cmd);
                (void)pclose(popen(cmd, "w"));
            #endif
        }
        if ( gdata->exitpause ) {
	    /* Pause here and wait for a connection from a debugger */
            error_do_pause();
        }
        if ( gdata->coredump || gdata->debug ) {
	    /* Core dump here by request */
            error_abort();
        }
    }
    /* Terminate the process */
    error_exit_process(exit_code);
}

/* External functions */

void
error_setup(void)
{
    setup_signal_handler(SIGABRT);
}

void
error_do_pause(void)
{
    #ifdef _ALLOW_PAUSE
        pid_t pid = getpid();
        int timeleft = 600; /* 10 minutes max */
        int interval = 10;  /* 10 second message check */

        /*LINTED*/
        error_message("\nHPROF pause for PID %d\n", (int)pid);
        while ( p && timeleft > 0 ) {
            (void)sleep(interval); /* 'assign p=0' to stop pause loop */
            timeleft -= interval;
        }
        if ( timeleft <= 0 ) {
            error_message("\n HPROF pause got tired of waiting and gave up.\n");
        }
    #endif
}

void
error_exit_process(int exit_code)
{
    exit(exit_code);
}

void
error_assert(const char *condition, const char *file, int line)
{
    error_message("ASSERTION FAILURE: %s [%s:%d]\n", condition, file, line);
    error_abort();
}

void
error_handler(jboolean fatal, jvmtiError error,
		const char *message, const char *file, int line)
{
    char *error_name;

    if ( message==NULL ) {
	message = "";
    }
    if ( error != JVMTI_ERROR_NONE ) {
	error_name = getErrorName(error);
	if ( error_name == NULL ) {
	    error_name = "?";
	}
	error_message("HPROF ERROR: %s (JVMTI Error %s(%d)) [%s:%d]\n",
			    message, error_name, error, file, line);
    } else {
	error_message("HPROF ERROR: %s [%s:%d]\n", message, file, line);
    }
    if ( fatal || gdata->errorexit ) {
	/* If it's fatal, or the user wants termination on any error, die */
        terminate_everything(9);
    }
}

void
debug_message(const char * format, ...)
{
    va_list ap;

    va_start(ap, format);
    (void)vfprintf(stderr, format, ap);
    va_end(ap);
}

void
verbose_message(const char * format, ...)
{
    if ( gdata->verbose ) {
	va_list ap;

	va_start(ap, format);
	(void)vfprintf(stderr, format, ap);
	va_end(ap);
    }
}

