Blame src/components/rapl/utils/rapl_plot.c

Packit Service a1973e
/** 
Packit Service a1973e
 * @author  Vince Weaver
Packit Service a1973e
 */
Packit Service a1973e
Packit Service a1973e
#include <stdio.h>
Packit Service a1973e
#include <stdlib.h>
Packit Service a1973e
#include <string.h>
Packit Service a1973e
#include <unistd.h>
Packit Service a1973e
Packit Service a1973e
#include "papi.h"
Packit Service a1973e
Packit Service a1973e
#define MAX_EVENTS 128
Packit Service a1973e
Packit Service a1973e
char events[MAX_EVENTS][BUFSIZ];
Packit Service a1973e
char units[MAX_EVENTS][BUFSIZ];
Packit Service a1973e
int data_type[MAX_EVENTS];
Packit Service a1973e
char filenames[MAX_EVENTS][BUFSIZ];
Packit Service a1973e
Packit Service a1973e
FILE *fff[MAX_EVENTS];
Packit Service a1973e
Packit Service a1973e
static int num_events=0;
Packit Service a1973e
Packit Service a1973e
int main (int argc, char **argv)
Packit Service a1973e
{
Packit Service a1973e
Packit Service a1973e
	int retval,cid,rapl_cid=-1,numcmp;
Packit Service a1973e
	int EventSet = PAPI_NULL;
Packit Service a1973e
	long long values[MAX_EVENTS];
Packit Service a1973e
	int i,code,enum_retval;
Packit Service a1973e
	PAPI_event_info_t evinfo;
Packit Service a1973e
	const PAPI_component_info_t *cmpinfo = NULL;
Packit Service a1973e
	long long start_time,before_time,after_time;
Packit Service a1973e
	double elapsed_time,total_time;
Packit Service a1973e
	char event_name[BUFSIZ];
Packit Service a1973e
Packit Service a1973e
	/* PAPI Initialization */
Packit Service a1973e
	retval = PAPI_library_init( PAPI_VER_CURRENT );
Packit Service a1973e
	if ( retval != PAPI_VER_CURRENT ) {
Packit Service a1973e
		fprintf(stderr,"PAPI_library_init failed\n");
Packit Service a1973e
		exit(1);
Packit Service a1973e
	}
Packit Service a1973e
Packit Service a1973e
	numcmp = PAPI_num_components();
Packit Service a1973e
Packit Service a1973e
	for(cid=0; cid
Packit Service a1973e
Packit Service a1973e
		if ( (cmpinfo = PAPI_get_component_info(cid)) == NULL) {
Packit Service a1973e
			fprintf(stderr,"PAPI_get_component_info failed\n");
Packit Service a1973e
			exit(1);
Packit Service a1973e
		}
Packit Service a1973e
Packit Service a1973e
		if (strstr(cmpinfo->name,"rapl")) {
Packit Service a1973e
			rapl_cid=cid;
Packit Service a1973e
			printf("Found rapl component at cid %d\n", rapl_cid);
Packit Service a1973e
Packit Service a1973e
			if (cmpinfo->disabled) {
Packit Service a1973e
				fprintf(stderr,"No rapl events found: %s\n",
Packit Service a1973e
						cmpinfo->disabled_reason);
Packit Service a1973e
				exit(1);
Packit Service a1973e
			}
Packit Service a1973e
			break;
Packit Service a1973e
		}
Packit Service a1973e
	}
Packit Service a1973e
Packit Service a1973e
	/* Component not found */
Packit Service a1973e
	if (cid==numcmp) {
Packit Service a1973e
		fprintf(stderr,"No rapl component found\n");
Packit Service a1973e
		exit(1);
Packit Service a1973e
	}
Packit Service a1973e
Packit Service a1973e
	/* Find Events */
Packit Service a1973e
	code = PAPI_NATIVE_MASK;
Packit Service a1973e
Packit Service a1973e
	enum_retval = PAPI_enum_cmp_event( &code, PAPI_ENUM_FIRST, cid );
Packit Service a1973e
Packit Service a1973e
	while ( enum_retval == PAPI_OK ) {
Packit Service a1973e
Packit Service a1973e
		retval = PAPI_event_code_to_name( code, event_name );
Packit Service a1973e
		if ( retval != PAPI_OK ) {
Packit Service a1973e
			printf("Error translating %#x\n",code);
Packit Service a1973e
			exit(1);
Packit Service a1973e
		}
Packit Service a1973e
Packit Service a1973e
		printf("Found: %s\n",event_name);
Packit Service a1973e
		strncpy(events[num_events],event_name,BUFSIZ);
Packit Service a1973e
		sprintf(filenames[num_events],"results.%s",event_name);
Packit Service a1973e
Packit Service a1973e
Packit Service a1973e
        /* Find additional event information: unit, data type */
Packit Service a1973e
		retval = PAPI_get_event_info(code, &evinfo);
Packit Service a1973e
		if (retval != PAPI_OK) {
Packit Service a1973e
			printf("Error getting event info for %#x\n",code);
Packit Service a1973e
			exit(1);
Packit Service a1973e
		}
Packit Service a1973e
Packit Service a1973e
		strncpy(units[num_events],evinfo.units,sizeof(units[0])-1);
Packit Service a1973e
		/* buffer must be null terminated to safely use strstr operation on it below */
Packit Service a1973e
		units[num_events][sizeof(units[0])-1] = '\0';
Packit Service a1973e
Packit Service a1973e
		data_type[num_events] = evinfo.data_type;
Packit Service a1973e
Packit Service a1973e
		num_events++;
Packit Service a1973e
Packit Service a1973e
		if (num_events==MAX_EVENTS) {
Packit Service a1973e
			printf("Too many events! %d\n",num_events);
Packit Service a1973e
			exit(1);
Packit Service a1973e
		}
Packit Service a1973e
Packit Service a1973e
		enum_retval = PAPI_enum_cmp_event( &code, PAPI_ENUM_EVENTS, cid );
Packit Service a1973e
Packit Service a1973e
	}
Packit Service a1973e
Packit Service a1973e
Packit Service a1973e
Packit Service a1973e
	if (num_events==0) {
Packit Service a1973e
		printf("Error!  No RAPL events found!\n");
Packit Service a1973e
		exit(1);
Packit Service a1973e
	}
Packit Service a1973e
Packit Service a1973e
	/* Open output files */
Packit Service a1973e
	for(i=0;i
Packit Service a1973e
		fff[i]=fopen(filenames[i],"w");
Packit Service a1973e
		if (fff[i]==NULL) {
Packit Service a1973e
			fprintf(stderr,"Could not open %s\n",filenames[i]);
Packit Service a1973e
			exit(1);
Packit Service a1973e
		}
Packit Service a1973e
	}
Packit Service a1973e
Packit Service a1973e
Packit Service a1973e
	/* Create EventSet */
Packit Service a1973e
	retval = PAPI_create_eventset( &EventSet );
Packit Service a1973e
	if (retval != PAPI_OK) {
Packit Service a1973e
		fprintf(stderr,"Error creating eventset!\n");
Packit Service a1973e
	}
Packit Service a1973e
Packit Service a1973e
	for(i=0;i
Packit Service a1973e
Packit Service a1973e
		retval = PAPI_add_named_event( EventSet, events[i] );
Packit Service a1973e
		if (retval != PAPI_OK) {
Packit Service a1973e
			fprintf(stderr,"Error adding event %s\n",events[i]);
Packit Service a1973e
		}
Packit Service a1973e
	}
Packit Service a1973e
Packit Service a1973e
Packit Service a1973e
Packit Service a1973e
	start_time=PAPI_get_real_nsec();
Packit Service a1973e
Packit Service a1973e
	while(1) {
Packit Service a1973e
Packit Service a1973e
		/* Start Counting */
Packit Service a1973e
		before_time=PAPI_get_real_nsec();
Packit Service a1973e
		retval = PAPI_start( EventSet);
Packit Service a1973e
		if (retval != PAPI_OK) {
Packit Service a1973e
			fprintf(stderr,"PAPI_start() failed\n");
Packit Service a1973e
			exit(1);
Packit Service a1973e
		}
Packit Service a1973e
Packit Service a1973e
Packit Service a1973e
		usleep(100000);
Packit Service a1973e
Packit Service a1973e
		/* Stop Counting */
Packit Service a1973e
		after_time=PAPI_get_real_nsec();
Packit Service a1973e
		retval = PAPI_stop( EventSet, values);
Packit Service a1973e
		if (retval != PAPI_OK) {
Packit Service a1973e
			fprintf(stderr, "PAPI_start() failed\n");
Packit Service a1973e
		}
Packit Service a1973e
Packit Service a1973e
		total_time=((double)(after_time-start_time))/1.0e9;
Packit Service a1973e
		elapsed_time=((double)(after_time-before_time))/1.0e9;
Packit Service a1973e
Packit Service a1973e
		for(i=0;i
Packit Service a1973e
Packit Service a1973e
Packit Service a1973e
			if (!strstr(events[i],"ENERGY")) {
Packit Service a1973e
Packit Service a1973e
                /* Scaled fixed value */
Packit Service a1973e
				if (data_type[i] == PAPI_DATATYPE_FP64) {
Packit Service a1973e
Packit Service a1973e
					union {
Packit Service a1973e
						long long ll;
Packit Service a1973e
						double fp;
Packit Service a1973e
					} result;
Packit Service a1973e
Packit Service a1973e
					result.ll=values[i];
Packit Service a1973e
Packit Service a1973e
Packit Service a1973e
					fprintf(fff[i],"%.4f  %.3f  (* %s in (%s) *)\n",
Packit Service a1973e
							total_time,
Packit Service a1973e
							result.fp, 
Packit Service a1973e
							events[i], units[i] );
Packit Service a1973e
Packit Service a1973e
				} 
Packit Service a1973e
				/* Fixed value counts */
Packit Service a1973e
				else if (data_type[i] == PAPI_DATATYPE_UINT64) {
Packit Service a1973e
Packit Service a1973e
					fprintf(fff[i],"%.4f  %lld  (* %s *)\n",
Packit Service a1973e
							total_time,
Packit Service a1973e
							values[i], 
Packit Service a1973e
							events[i] );
Packit Service a1973e
Packit Service a1973e
				}
Packit Service a1973e
			}
Packit Service a1973e
Packit Service a1973e
			/* Energy measurement counts */
Packit Service a1973e
			else if (strstr(events[i],"ENERGY_CNT")) {  
Packit Service a1973e
Packit Service a1973e
				fprintf(fff[i],"%.4f  %lld  (* %s *)\n",
Packit Service a1973e
						total_time,
Packit Service a1973e
						values[i], 
Packit Service a1973e
						events[i] );
Packit Service a1973e
Packit Service a1973e
			}
Packit Service a1973e
Packit Service a1973e
			/* Scaled energy measurements */
Packit Service a1973e
			else {
Packit Service a1973e
				fprintf(fff[i],"%.4f  %.3f %s  %.3f %s  (* Average Power for %s *)\n",
Packit Service a1973e
						total_time,
Packit Service a1973e
						((double)values[i]/1.0e9), "J",
Packit Service a1973e
						((double)values[i]/1.0e9)/elapsed_time, "W", 
Packit Service a1973e
						events[i] );
Packit Service a1973e
			};
Packit Service a1973e
Packit Service a1973e
			fflush(fff[i]);
Packit Service a1973e
		}
Packit Service a1973e
	}
Packit Service a1973e
Packit Service a1973e
	return 0;
Packit Service a1973e
}
Packit Service a1973e