/*

* File:    papi_libpfm4_events.c

* Author:  Vince Weaver vincent.weaver @ maine.edu

*          based heavily on existing papi_libpfm3_events.c

*/

#include <string.h>

#include "papi.h"

#include "papi_internal.h"

#include "papi_vector.h"

#include "papi_libpfm4_events.h"

#include "perfmon/pfmlib.h"

#include "perfmon/pfmlib_perf_event.h"

/**********************************************************/

/* Local scope globals                                    */

/**********************************************************/

static int libpfm4_users=0;

/***********************************************************/

/* Exported functions                                      */

/***********************************************************/

/** @class  _papi_libpfm4_error

 *  @brief  convert libpfm error codes to PAPI error codes

 *

 *  @param[in] pfm_error

 *             -- a libpfm4 error code

 *

 *  @returns returns a PAPI error code

 *

 */

int

_papi_libpfm4_error( int pfm_error ) {

  switch ( pfm_error ) {

  case PFM_SUCCESS:      return PAPI_OK;       /* success */

  case PFM_ERR_NOTSUPP:  return PAPI_ENOSUPP;  /* function not supported */

  case PFM_ERR_INVAL:    return PAPI_EINVAL;   /* invalid parameters */

  case PFM_ERR_NOINIT:   return PAPI_ENOINIT;  /* library not initialized */

  case PFM_ERR_NOTFOUND: return PAPI_ENOEVNT;  /* event not found */

  case PFM_ERR_FEATCOMB: return PAPI_ECOMBO;   /* invalid combination of features */

  case PFM_ERR_UMASK:    return PAPI_EATTR;    /* invalid or missing unit mask */

  case PFM_ERR_NOMEM:    return PAPI_ENOMEM;   /* out of memory */

  case PFM_ERR_ATTR:     return PAPI_EATTR;    /* invalid event attribute */

  case PFM_ERR_ATTR_VAL: return PAPI_EATTR;    /* invalid event attribute value */

  case PFM_ERR_ATTR_SET: return PAPI_EATTR;    /* attribute value already set */

  case PFM_ERR_TOOMANY:  return PAPI_ECOUNT;   /* too many parameters */

  case PFM_ERR_TOOSMALL: return PAPI_ECOUNT;   /* parameter is too small */

  default:

	PAPIWARN("Unknown libpfm error code %d, returning PAPI_EINVAL",pfm_error);

	return PAPI_EINVAL;

  }

}

/** @class  _papi_libpfm4_shutdown

 *  @brief  Shutdown any initialization done by the libpfm4 code

 *

 *  @param[in] component

 *        -- component doing the shutdown

 *

 *  @retval PAPI_OK       Success

 *

 */

int

_papi_libpfm4_shutdown(papi_vector_t *my_vector) {

	/* clean out and free the native events structure */

	_papi_hwi_lock( NAMELIB_LOCK );

	libpfm4_users--;

	/* Only free if we're the last user */

	if (!libpfm4_users) {

		pfm_terminate();

	}

	_papi_hwi_unlock( NAMELIB_LOCK );

	strcpy(my_vector->cmp_info.support_version,"");

	return PAPI_OK;

}

/** @class  _papi_libpfm4_init

 *  @brief  Initialize the libpfm4 code

 *

 *  @param[in] my_vector

 *        -- vector of the component doing the initialization

 *

 *  @retval PAPI_OK       Success

 *  @retval PAPI_ECMP     There was an error initializing

 *

 */

int

_papi_libpfm4_init(papi_vector_t *my_vector) {

	int version;

	pfm_err_t retval = PFM_SUCCESS;

	_papi_hwi_lock( NAMELIB_LOCK );

	if (!libpfm4_users) {

		retval = pfm_initialize();

		if ( retval == PFM_SUCCESS ) {

			libpfm4_users++;

		}

		else {

			strncpy(my_vector->cmp_info.disabled_reason,

				pfm_strerror(retval),PAPI_MAX_STR_LEN);

			_papi_hwi_unlock( NAMELIB_LOCK );

			return PAPI_ESBSTR;

		}

	}

	else {

		libpfm4_users++;

	}

	_papi_hwi_unlock( NAMELIB_LOCK );

	/* get the libpfm4 version */

	version=pfm_get_version( );

	if (version >= 0) {

		/* Complain if the compiled-against version */

		/* doesn't match current version            */

		if ( PFM_MAJ_VERSION( version ) !=

			PFM_MAJ_VERSION( LIBPFM_VERSION ) ) {

			PAPIWARN( "Version mismatch of libpfm: "

				"compiled %#x vs. installed %#x\n",

				PFM_MAJ_VERSION( LIBPFM_VERSION ),

				PFM_MAJ_VERSION( version ) );

		}

		/* Set the version */

		sprintf( my_vector->cmp_info.support_version, "%d.%d",

			PFM_MAJ_VERSION( version ),

			PFM_MIN_VERSION( version ) );

	} else {

		PAPIWARN( "pfm_get_version(): %s", pfm_strerror( retval ) );

	}

	return PAPI_OK;

}