/** file papi_component_avail.c

  *	@page papi_component_avail

  * @brief papi_component_avail utility.

  *	@section  NAME

  *		papi_native_avail - provides detailed information for PAPI native events. 

  *

  *	@section Synopsis

  *

  *	@section Description

  *		papi_component_avail is a PAPI utility program that reports information 

  *		about the components papi was built with.

  *

  *	@section Options

  *      

  *		
-h help message

  *		
-d provide detailed information about each component.

  *      

  *

  *	@section Bugs

  *		There are no known bugs in this utility.

  *		If you find a bug, it should be reported to the

  *		PAPI Mailing List at <ptools-perfapi@icl.utk.edu>.

 */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "papi.h"

#include "print_header.h"

#define EVT_LINE 80

typedef struct command_flags

{

	int help;

	int details;

	int named;

	char *name;

} command_flags_t;

static void

print_help( char **argv )

{

	printf( "This is the PAPI component avail program.\n" );

	printf( "It provides availability of installed PAPI components.\n" );

	printf( "Usage: %s [options]\n", argv[0] );

	printf( "Options:\n\n" );

	printf( "  --help, -h    print this help message\n" );

	printf( "  -d            print detailed information on each component\n" );

}

static void

parse_args( int argc, char **argv, command_flags_t * f )

{

	int i;

	/* Look for all currently defined commands */

	memset( f, 0, sizeof ( command_flags_t ) );

	for ( i = 1; i < argc; i++ ) {

		if ( !strcmp( argv[i], "-d" ) ) {

			f->details = 1;

		} else if ( !strcmp( argv[i], "-h" ) || !strcmp( argv[i], "--help" ) )

			f->help = 1;

		else

			printf( "%s is not supported\n", argv[i] );

	}

	/* if help requested, print and bail */

	if ( f->help ) {

		print_help( argv );

		exit( 1 );

	}

}

int

main( int argc, char **argv )

{

	int i;

	int retval;

	const PAPI_hw_info_t *hwinfo = NULL;

	const PAPI_component_info_t* cmpinfo;

	command_flags_t flags;

	int numcmp, cid;

	/* Initialize before parsing the input arguments */

	retval = PAPI_library_init( PAPI_VER_CURRENT );

	if ( retval != PAPI_VER_CURRENT ) {

		fprintf(stderr,"Error!  PAPI_library_init\n");

		return retval;

	}

	parse_args( argc, argv, &flags );

	retval = PAPI_set_debug( PAPI_VERB_ECONT );

	if ( retval != PAPI_OK ) {

		fprintf(stderr,"Error!  PAPI_set_debug\n");

		return retval;

	}

	retval = papi_print_header( "Available components and "

					"hardware information.\n", &hwinfo );

	if ( retval != PAPI_OK ) {

		fprintf(stderr,"Error! PAPI_get_ahrdware_info\n");

		return 2;

	}

	/* Compiled-in Components */

	numcmp = PAPI_num_components(  );

	printf("Compiled-in components:\n");

	for ( cid = 0; cid < numcmp; cid++ ) {

	  cmpinfo = PAPI_get_component_info( cid );

	  printf( "Name:   %-23s %s\n", cmpinfo->name ,cmpinfo->description);

	  if (cmpinfo->disabled) {

	    printf("   \\-> Disabled: %s\n",cmpinfo->disabled_reason);

	  }

	  if ( flags.details ) {

		printf( "        %-23s Version:\t\t\t%s\n", " ", cmpinfo->version );

		printf( "        %-23s Number of native events:\t%d\n", " ", cmpinfo->num_native_events);

		printf( "        %-23s Number of preset events:\t%d\n", " ", cmpinfo->num_preset_events);

		printf("\n");

	  }

	}

	printf("\nActive components:\n");

	numcmp = PAPI_num_components(  );

	for ( cid = 0; cid < numcmp; cid++ ) {

	  cmpinfo = PAPI_get_component_info( cid );

	  if (cmpinfo->disabled) continue;

	  printf( "Name:   %-23s %s\n", cmpinfo->name ,cmpinfo->description);

	  printf( "        %-23s Native: %d, Preset: %d, Counters: %d\n",

		  " ", cmpinfo->num_native_events, cmpinfo->num_preset_events, cmpinfo->num_cntrs);

	  printf( "        %-23s PMUs supported: ", " ");

	  int line_len = 49;

	  for (i=0 ; i

		  if (cmpinfo->pmu_names[i] == NULL) continue;

		  if (line_len + strlen(cmpinfo->pmu_names[i]) > 130) {

			  printf("\n        %-23s                  ", " ");

			  line_len = 49;

		  } else {

			  line_len += strlen(cmpinfo->pmu_names[i]);

		  }

		  // if it is not the first entry on a line, separate the names

		  if ((i != 0) && (line_len > 50)) {

			  printf(", ");

		  }

		  printf("%s", cmpinfo->pmu_names[i]);

	  }

	  printf("\n\n");

	  if ( flags.details ) {

		printf( "        %-23s Version:\t\t\t%s\n", " ", cmpinfo->version );

		printf( "        %-23s Fast counter read:\t\t%d\n", " ", cmpinfo->fast_counter_read);

		printf("\n");

	  }

	}

	printf

	  ( "\n--------------------------------------------------------------------------------\n" );

	return 0;

}