/*	$OpenBSD: rf_debugprint.c,v 1.3 2002/12/16 07:01:03 tdeval Exp $	*/
/*	$NetBSD: rf_debugprint.c,v 1.3 1999/02/05 00:06:08 oster Exp $	*/

/*
 * Copyright (c) 1995 Carnegie-Mellon University.
 * All rights reserved.
 *
 * Author: Mark Holland
 *
 * Permission to use, copy, modify and distribute this software and
 * its documentation is hereby granted, provided that both the copyright
 * notice and this permission notice appear in all copies of the
 * software, derivative works or modified versions, and any portions
 * thereof, and that both notices appear in supporting documentation.
 *
 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
 * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND
 * FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
 *
 * Carnegie Mellon requests users of this software to return to
 *
 *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
 *  School of Computer Science
 *  Carnegie Mellon University
 *  Pittsburgh PA 15213-3890
 *
 * any improvements or extensions that they make and grant Carnegie the
 * rights to redistribute these changes.
 */

/*
 * Code to do debug printfs. Calls to rf_debug_printf cause the corresponding
 * information to be printed to a circular buffer rather than the screen.
 * The point is to try and minimize the timing variations induced by the
 * printfs, and to capture only the printf's immediately preceding a failure.
 */

#include "rf_types.h"
#include "rf_threadstuff.h"
#include "rf_debugprint.h"
#include "rf_general.h"
#include "rf_options.h"

#include <sys/param.h>

struct RF_Entry_s {
	char	*cstring;
	void	*a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8;
};

/* space for 1k lines */
#define	BUFSHIFT		   10
#define	BUFSIZE		(1<<BUFSHIFT)
#define	BUFMASK		  (BUFSIZE-1)

static struct RF_Entry_s rf_debugprint_buf[BUFSIZE];
static int rf_debugprint_index = 0;
RF_DECLARE_STATIC_MUTEX(rf_debug_print_mutex);

int
rf_ConfigureDebugPrint(RF_ShutdownList_t **listp)
{
	int rc;

	rc = rf_create_managed_mutex(listp, &rf_debug_print_mutex);
	if (rc) {
		RF_ERRORMSG3("Unable to init mutex file %s line %d rc=%d\n",
		    __FILE__, __LINE__, rc);
		return (rc);
	}

	rf_clear_debug_print_buffer();
	return (0);
}

void
rf_clear_debug_print_buffer(void)
{
	int i;

	for (i = 0; i < BUFSIZE; i++)
		rf_debugprint_buf[i].cstring = NULL;
	rf_debugprint_index = 0;
}

void
rf_debug_printf(char *s, void *a1, void *a2, void *a3, void *a4, void *a5,
    void *a6, void *a7, void *a8)
{
	int idx;

	if (rf_debugPrintUseBuffer) {

		RF_LOCK_MUTEX(rf_debug_print_mutex);
		idx = rf_debugprint_index;
		rf_debugprint_index = (rf_debugprint_index + 1) & BUFMASK;
		RF_UNLOCK_MUTEX(rf_debug_print_mutex);

		rf_debugprint_buf[idx].cstring = s;
		rf_debugprint_buf[idx].a1 = a1;
		rf_debugprint_buf[idx].a2 = a2;
		rf_debugprint_buf[idx].a3 = a3;
		rf_debugprint_buf[idx].a4 = a4;
		rf_debugprint_buf[idx].a5 = a5;
		rf_debugprint_buf[idx].a6 = a6;
		rf_debugprint_buf[idx].a7 = a7;
		rf_debugprint_buf[idx].a8 = a8;
	} else {
		printf(s, a1, a2, a3, a4, a5, a6, a7, a8);
	}
}

void
rf_print_debug_buffer(void)
{
	rf_spill_debug_buffer(NULL);
}

void
rf_spill_debug_buffer(char *fname)
{
	int i;

	if (!rf_debugPrintUseBuffer)
		return;

	RF_LOCK_MUTEX(rf_debug_print_mutex);

	for (i = rf_debugprint_index + 1; i != rf_debugprint_index;
	     i = (i + 1) & BUFMASK)
		if (rf_debugprint_buf[i].cstring)
			printf(rf_debugprint_buf[i].cstring,
			    rf_debugprint_buf[i].a1, rf_debugprint_buf[i].a2,
			    rf_debugprint_buf[i].a3, rf_debugprint_buf[i].a4,
			    rf_debugprint_buf[i].a5, rf_debugprint_buf[i].a6,
			    rf_debugprint_buf[i].a7, rf_debugprint_buf[i].a8);

	printf(rf_debugprint_buf[i].cstring,
	    rf_debugprint_buf[i].a1, rf_debugprint_buf[i].a2,
	    rf_debugprint_buf[i].a3, rf_debugprint_buf[i].a4,
	    rf_debugprint_buf[i].a5, rf_debugprint_buf[i].a6,
	    rf_debugprint_buf[i].a7, rf_debugprint_buf[i].a8);

	RF_UNLOCK_MUTEX(rf_debug_print_mutex);
}
