papi_component_avail.c

Go to the documentation of this file.

 
#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 force_cmp_init(int cid);
 
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_hardware_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 == PAPI_EDELAY_INIT) {
          force_cmp_init(cid);
      }
      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);
 
     int pmus=0;
     for (i=0; i<PAPI_PMU_MAX; i++) {                          // Count pmus to print.
        if (cmpinfo->pmu_names[i] != NULL) pmus++;             // Non-Null get printed.
     }
 
     if (pmus) {                                               // If we have any, print.
         printf( "        %-23s PMUs supported: ", " ");
         int line_len = 48, name_len;
         for (i=0 ; i<PAPI_PMU_MAX ; i++) {
            if (cmpinfo->pmu_names[i] == NULL) continue;
 
            name_len = strlen(cmpinfo->pmu_names[i]);
 
            if ((line_len + 2 + name_len) > 130) {              // If it would be too long,
               printf("\n        %-23s                 ", " "); // terminate line without printing current name,
               line_len = 48;                                   // reset line length.
            }
 
            // if it is not the first entry on a line, separate the names
            if (line_len > 48) {
               printf(", ");
               line_len += 2;                                   // account for the separator.
            }
            printf("%s", cmpinfo->pmu_names[i]);
            line_len += name_len;                               // Add the new name to the length.
         }
 
         printf("\n");
     } // end if we had PMUs to print.
 
     printf("\n"); // extra line.
 
      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;
}
 
void force_cmp_init(int cid)
{
    int nvt_code = 0 | PAPI_NATIVE_MASK;
    PAPI_enum_cmp_event(&nvt_code, PAPI_ENUM_FIRST, cid);
}