powercap_limit.c

Go to the documentation of this file.

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>

#include "papi.h"
#include "papi_test.h"

#define MAX_powercap_EVENTS 64

int main ( int argc, char **argv )
{
  (void) argv;
  (void) argc;
  int retval,cid,powercap_cid=-1,numcmp;
  int EventSet = PAPI_NULL;
  long long values[MAX_powercap_EVENTS];
  int limit_map[MAX_powercap_EVENTS];
  int num_events=0, num_limits=0;
  int code;
  char event_names[MAX_powercap_EVENTS][PAPI_MAX_STR_LEN];
  int r,i;

  const PAPI_component_info_t *cmpinfo = NULL;

  /* PAPI Initialization */
  retval = PAPI_library_init( PAPI_VER_CURRENT );
  if ( retval != PAPI_VER_CURRENT )
    test_fail( __FILE__, __LINE__,"PAPI_library_init()\n",retval );

  if ( !TESTS_QUIET ) printf( "Trying all powercap events\n" );

  numcmp = PAPI_num_components();

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

    if ( ( cmpinfo = PAPI_get_component_info( cid ) ) == NULL )
      test_fail( __FILE__, __LINE__,"PAPI_get_component_info()\n", 0 );

    if ( strstr( cmpinfo->name,"powercap" ) ) {
      powercap_cid=cid;
      if ( !TESTS_QUIET ) printf( "Found powercap component at cid %d\n",powercap_cid );
      if ( cmpinfo->disabled ) {
        if ( !TESTS_QUIET ) {
          printf( "powercap component disabled: %s\n",
                  cmpinfo->disabled_reason );
        }
        test_skip( __FILE__,__LINE__,"powercap component disabled",0 );
      }
      break;
    }
  }

  /* Component not found */
  if ( cid==numcmp )
    test_skip( __FILE__,__LINE__,"No powercap component found\n",0 );

  /* Skip if component has no counters */
  if ( cmpinfo->num_cntrs==0 )
    test_skip( __FILE__,__LINE__,"No counters in the powercap component\n",0 );

  /* Create EventSet */
  retval = PAPI_create_eventset( &EventSet );
  if ( retval != PAPI_OK )
    test_fail( __FILE__, __LINE__, "PAPI_create_eventset()",retval );

  /* Add all package limit events */
  code = PAPI_NATIVE_MASK;
  r = PAPI_enum_cmp_event( &code, PAPI_ENUM_FIRST, powercap_cid );


  /* find all package power events */
  while ( r == PAPI_OK ) {
    retval = PAPI_event_code_to_name( code, event_names[num_events] );
    if ( retval != PAPI_OK ) 
      test_fail( __FILE__, __LINE__,"PAPI_event_code_to_name()", retval );

    retval = PAPI_add_event(EventSet, code);
    if (retval != PAPI_OK)
      break; /* We've hit an event limit */

    if (!(strstr(event_names[num_events],"SUBZONE")) && (strstr(event_names[num_events],"POWER_LIMIT"))) {

      limit_map[num_limits] = num_events;
      num_limits++;
    }
    num_events++;
    r = PAPI_enum_cmp_event( &code, PAPI_ENUM_EVENTS, powercap_cid );
  }


  /* start collecting power data */
  retval = PAPI_start( EventSet );
  if ( retval != PAPI_OK )
    test_fail( __FILE__, __LINE__, "PAPI_start()",retval );

  /* initial read of package limits */
  retval = PAPI_read( EventSet, values );
  if ( retval != PAPI_OK )
    test_fail( __FILE__, __LINE__, "PAPI_read()",retval );


  printf("\nCURRENT LIMITS\n");
  for( i=0; i<num_limits; i++ ) {
    printf("EVENT: %s\tLIMIT: %0.2lf Watts\n", event_names[limit_map[i]], ((double)values[limit_map[i]]*1e-6));
    values[limit_map[i]] = values[limit_map[i]] - (10 * 1e6); //minus 10 Watts
  }
  usleep(10000);

  printf("\nSETTING LIMITS 10 WATTS BELOW CURRENT LIMITS\n");
  retval = PAPI_write( EventSet, values );
  if ( retval != PAPI_OK )
    test_fail( __FILE__, __LINE__, "PAPI_write()",retval );

  usleep(10000);

  printf("\nREADING LIMITS TO MAKE SURE THEY ARE SET\n");
  retval = PAPI_read( EventSet, values );
  if ( retval != PAPI_OK )
    test_fail( __FILE__, __LINE__, "PAPI_read()",retval );
  usleep(10000);

  printf("\nNEW LIMITS\n");
  for( i=0; i<num_limits; i++ ) {
    printf("EVENT: %s\tLIMIT: %0.2lf Watts\n", event_names[limit_map[i]], ((double)values[limit_map[i]]*1e-6));
    values[limit_map[i]] = values[limit_map[i]] + (10 * 1e6); //plus 10 Watts
  }

  printf("\nRESET LIMITS BEFORE EXITING...");
  retval = PAPI_write( EventSet, values );
  if ( retval != PAPI_OK )
    test_fail( __FILE__, __LINE__, "PAPI_write()",retval );
  usleep(10000);

  printf("\nREADING RESET LIMITS TO MAKE SURE THEY ARE SET\n");
  retval = PAPI_read( EventSet, values );
  if ( retval != PAPI_OK )
    test_fail( __FILE__, __LINE__, "PAPI_read()",retval );
  usleep(10000);

  printf("\nRESET LIMITS\n");
  for( i=0; i<num_limits; i++ ) {
    printf("EVENT: %s\tLIMIT: %0.2lf Watts\n", event_names[limit_map[i]], ((double)values[limit_map[i]]*1e-6));
  }

  printf("done\n");

  retval = PAPI_stop( EventSet, values );
  if ( retval != PAPI_OK )
    test_fail( __FILE__, __LINE__, "PAPI_stop()",retval );

  /* Done, clean up */
  retval = PAPI_cleanup_eventset( EventSet );
  if ( retval != PAPI_OK )
    test_fail( __FILE__, __LINE__,"PAPI_cleanup_eventset()",retval );

  retval = PAPI_destroy_eventset( &EventSet );
  if ( retval != PAPI_OK )
    test_fail( __FILE__, __LINE__, "PAPI_destroy_eventset()",retval );

  test_pass( __FILE__ );

  return 0;
}