//
// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
//
// debug.c --
//
// Author           : Thierry Delisle
// Created On       : Thu Mar 30 12:30:01 2017
// Last Modified By :
// Last Modified On :
// Update Count     : 1
//

extern "C" {
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <stdarg.h>
#include <unistd.h>
}

enum { buffer_size = 512 };
static char buffer[ buffer_size ];

extern "C" {

	void __cfaabi_dbg_bits_write( const char *in_buffer, int len ) {
		// ensure all data is written
		for ( int count = 0, retcode; count < len; count += retcode ) {
			in_buffer += count;

			for ( ;; ) {
				retcode = write( STDERR_FILENO, in_buffer, len - count );

				// not a timer interrupt ?
				if ( retcode != -1 || errno != EINTR ) break;
			}

			if ( retcode == -1 ) _exit( EXIT_FAILURE );
		}
	}

	void __cfaabi_dbg_bits_acquire() __attribute__((__weak__)) {}
	void __cfaabi_dbg_bits_release() __attribute__((__weak__)) {}

	void __cfaabi_dbg_bits_print_safe  ( const char fmt[], ... ) __attribute__(( format(printf, 1, 2) )) {
		va_list args;

		va_start( args, fmt );
		__cfaabi_dbg_bits_acquire();

		int len = vsnprintf( buffer, buffer_size, fmt, args );
		__cfaabi_dbg_bits_write( buffer, len );

		__cfaabi_dbg_bits_release();
		va_end( args );
	}

	void __cfaabi_dbg_bits_print_nolock( const char fmt[], ... ) __attribute__(( format(printf, 1, 2) )) {
		va_list args;

		va_start( args, fmt );

		int len = vsnprintf( buffer, buffer_size, fmt, args );
		__cfaabi_dbg_bits_write( buffer, len );

		va_end( args );
	}

	void __cfaabi_dbg_bits_print_vararg( const char fmt[], va_list args ) {
		int len = vsnprintf( buffer, buffer_size, fmt, args );
		__cfaabi_dbg_bits_write( buffer, len );
	}

	void __cfaabi_dbg_bits_print_buffer( char in_buffer[], int in_buffer_size, const char fmt[], ... ) __attribute__(( format(printf, 3, 4) )) {
		va_list args;

		va_start( args, fmt );

		int len = vsnprintf( in_buffer, in_buffer_size, fmt, args );
		__cfaabi_dbg_bits_write( in_buffer, len );

		va_end( args );
	}
}