/** 

 * @author  Vince Weaver, Heike McCraw 

 */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <unistd.h>

#include "papi.h"

#define MAX_DEVICES (32)

#define EVENTS_PER_DEVICE 10

#define MAX_EVENTS (MAX_DEVICES*EVENTS_PER_DEVICE)

char events[MAX_EVENTS][BUFSIZ];

char filenames[MAX_EVENTS][BUFSIZ];

FILE *fff[MAX_EVENTS];

static int num_events=0;

int main (int argc, char **argv)

{

    int retval,cid,host_micpower_cid=-1,numcmp;

    int EventSet = PAPI_NULL;

    long long values[MAX_EVENTS];

    int i,code,enum_retval;

    const PAPI_component_info_t *cmpinfo = NULL;

    long long start_time,before_time,after_time;

    double elapsed_time,total_time;

	double energy = 0.0;

    char event_name[BUFSIZ];

	/* PAPI Initialization */

     retval = PAPI_library_init( PAPI_VER_CURRENT );

     if ( retval != PAPI_VER_CURRENT ) {

        fprintf(stderr,"PAPI_library_init failed\n");

	exit(1);

     }

     numcmp = PAPI_num_components();

     for(cid=0; cid

	if ( (cmpinfo = PAPI_get_component_info(cid)) == NULL) {

	   fprintf(stderr,"PAPI_get_component_info failed\n");

	   exit(1);

	}

	if (strstr(cmpinfo->name,"host_micpower")) {

	   host_micpower_cid=cid;

	   printf("Found host_micpower component at cid %d\n", host_micpower_cid);

           if (cmpinfo->disabled) {

	     fprintf(stderr,"No host_micpower events found: %s\n",

		     cmpinfo->disabled_reason);

	     exit(1);

           }

	   break;

	}

     }

     /* Component not found */

     if (cid==numcmp) {

        fprintf(stderr,"No host_micpower component found\n");

        exit(1);

     }

     /* Find Events */

     code = PAPI_NATIVE_MASK;

     enum_retval = PAPI_enum_cmp_event( &code, PAPI_ENUM_FIRST, cid );

     while ( enum_retval == PAPI_OK ) {

       retval = PAPI_event_code_to_name( code, event_name );

       if ( retval != PAPI_OK ) {

	  printf("Error translating %#x\n",code);

	  exit(1);

       }

       printf("Found: %s\n",event_name);

       strncpy(events[num_events],event_name,BUFSIZ);

       sprintf(filenames[num_events],"results.%s",event_name);

       num_events++;

       if (num_events==MAX_EVENTS) {

	  printf("Too many events! %d\n",num_events);

	  exit(1);

       }

       enum_retval = PAPI_enum_cmp_event( &code, PAPI_ENUM_EVENTS, cid );

     }

     if (num_events==0) {

        printf("Error!  No host_micpower events found!\n");

	exit(1);

     }

     /* Open output files */

     for(i=0;i

        fff[i]=fopen(filenames[i],"w");

	if (fff[i]==NULL) {

	   fprintf(stderr,"Could not open %s\n",filenames[i]);

	   exit(1);

	}

     }

     /* Create EventSet */

     retval = PAPI_create_eventset( &EventSet );

     if (retval != PAPI_OK) {

        fprintf(stderr,"Error creating eventset!\n");

     }

     for(i=0;i

        retval = PAPI_add_named_event( EventSet, events[i] );

        if (retval != PAPI_OK) {

	   fprintf(stderr,"Error adding event %s\n",events[i]);

	}

     }

     start_time=PAPI_get_real_nsec();

     while(1) {

        /* Start Counting */

        before_time=PAPI_get_real_nsec();

        retval = PAPI_start( EventSet);

        if (retval != PAPI_OK) {

           fprintf(stderr,"PAPI_start() failed\n");

	   exit(1);

        }

        usleep(100000);

        /* Stop Counting */

        after_time=PAPI_get_real_nsec();

        retval = PAPI_stop( EventSet, values);

        if (retval != PAPI_OK) {

           fprintf(stderr, "PAPI_start() failed\n");

        }

        total_time=((double)(after_time-start_time))/1.0e9;

        elapsed_time=((double)(after_time-before_time))/1.0e9;

        for(i=0;i

		if( (strstr(events[i],"vccp") != NULL) || 

			(strstr(events[i],"vddg") != NULL) || 

			(strstr(events[i],"vddq") != NULL) ) {

		   fprintf(fff[i],"%.4f %.1f (* Average Voltage (Volt) for %s *)\n",

			   total_time,

			   ((double)values[i]/1.0e6),

			   events[i]);

		} else {

			if( strstr(events[i],"tot0") != NULL ){

			energy += elapsed_time*((double)values[i]/1.0e6);

			fprintf(fff[i],"%.4f %.1f %.1f (* Average Power (Watt) and Energy consumption (kWs) for %s *)\n",

				total_time,

				((double)values[i]/1.0e6),

				energy/1.0e3,

				events[i]);

			} else {

				fprintf(fff[i],"%.4f %.1f (* Average Power (Watt) for %s *)\n",

						total_time,

						((double)values[i]/1.0e6),

						events[i]);

			}

		}

		fflush(fff[i]);

		}

	 }

	 return 0;

}