papi_xml_event_info.c File Reference

Include dependency graph for papi_xml_event_info.c:

Go to the source code of this file.

Functions
static int	xmlize (const char *msg, FILE *f)
static int	papi_xml_hwinfo (FILE *f)
static int	test_event (int evt)
static void	xmlize_event (FILE *f, PAPI_event_info_t *info, int num)
static void	enum_preset_events (FILE *f, int cidx)
static void	enum_native_events (FILE *f, int cidx)
static void	usage (char *argv[])

Variables
static int	EventSet
static int	preset = 1
static int	native = 1
static int	cidx = -1

Function Documentation

enum_native_events()

static void enum_native_events ( FILE *  f, int  cidx  )

static

Definition at line 205 of file papi_xml_event_info.c.

{
    int i, k, num;
    int retval;
    PAPI_event_info_t info;

    i = PAPI_NATIVE_MASK;
    fprintf( f, "  <eventset type=\"NATIVE\">\n" );
    num = -1;
    retval = PAPI_enum_cmp_event( &i, PAPI_ENUM_FIRST, cidx );

    while ( retval == PAPI_OK ) {

       num++;
       retval = PAPI_get_event_info( i, &info );
       if ( retval != PAPI_OK ) {
          retval = PAPI_enum_cmp_event( &i, PAPI_ENUM_EVENTS, cidx );
          continue;
       }

       /* enumerate any umasks */
       k = i;
       if ( PAPI_enum_cmp_event( &k, PAPI_NTV_ENUM_UMASKS, cidx ) == PAPI_OK ) {

          /* Test if event can be added */
          if ( test_event( k ) == PAPI_OK ) {

         /* add the event */
         xmlize_event( f, &info, num );

         /* add the event's unit masks */
         do {
            retval = PAPI_get_event_info( k, &info );
            if ( retval == PAPI_OK ) {
               if ( test_event( k )!=PAPI_OK ) {
               break;
               }
               xmlize_event( f, &info, -1 );
            }
         } while ( PAPI_enum_cmp_event( &k, PAPI_NTV_ENUM_UMASKS, cidx ) == PAPI_OK);
         fprintf( f, "    </event>\n" );
          }
       } else {
              /* this event has no unit masks; test & write the event */
          if ( test_event( i ) == PAPI_OK ) {
         xmlize_event( f, &info, num );
         fprintf( f, "    </event>\n" );
          }
       }
       retval = PAPI_enum_cmp_event( &i, PAPI_ENUM_EVENTS, cidx );
    }
    fprintf( f, "  </eventset>\n" );
}

Here is the call graph for this function:

enum_preset_events()

static void enum_preset_events ( FILE *  f, int  cidx  )

static

Definition at line 173 of file papi_xml_event_info.c.

{
    int i, num;
    int retval;
    PAPI_event_info_t info;

    i = PAPI_PRESET_MASK;
    fprintf( f, "  <eventset type=\"PRESET\">\n" );
    num = -1;
    retval = PAPI_enum_cmp_event( &i, PAPI_ENUM_FIRST, cidx );

    while ( retval == PAPI_OK ) {
       num++;
       retval = PAPI_get_event_info( i, &info );
       if ( retval != PAPI_OK ) {
         retval = PAPI_enum_cmp_event( &i, PAPI_ENUM_EVENTS, cidx );
          continue;
       }
       if ( test_event( i ) == PAPI_OK ) {
          xmlize_event( f, &info, num );
          fprintf( f, "    </event>\n" );
       }
       retval = PAPI_enum_cmp_event( &i, PAPI_ENUM_EVENTS, cidx );
    }
    fprintf( f, "  </eventset>\n" );
}

Here is the call graph for this function:

papi_xml_hwinfo()

static int papi_xml_hwinfo ( FILE *  f )

static

Definition at line 82 of file papi_xml_event_info.c.

{
    const PAPI_hw_info_t *hwinfo;

    if ( ( hwinfo = PAPI_get_hardware_info(  ) ) == NULL )
        return PAPI_ESYS;

    fprintf( f, "<hardware>\n" );

    fprintf( f, "  <vendor string=\"");
       xmlize( hwinfo->vendor_string, f );
       fprintf( f,"\"/>\n");
    fprintf( f, "  <vendorCode value=\"%d\"/>\n", hwinfo->vendor );
    fprintf( f, "  <model string=\"");
    xmlize( hwinfo->model_string, f );
       fprintf( f, "\"/>\n");
    fprintf( f, "  <modelCode value=\"%d\"/>\n", hwinfo->model );
    fprintf( f, "  <cpuRevision value=\"%f\"/>\n", hwinfo->revision );
    fprintf( f, "  <cpuID>\n" );
    fprintf( f, "    <family value=\"%d\"/>\n", hwinfo->cpuid_family );
    fprintf( f, "    <model value=\"%d\"/>\n", hwinfo->cpuid_model );
    fprintf( f, "    <stepping value=\"%d\"/>\n", hwinfo->cpuid_stepping );
    fprintf( f, "  </cpuID>\n" );
    fprintf( f, "  <cpuMaxMegahertz value=\"%d\"/>\n", hwinfo->cpu_max_mhz );
    fprintf( f, "  <cpuMinMegahertz value=\"%d\"/>\n", hwinfo->cpu_min_mhz );
    fprintf( f, "  <threads value=\"%d\"/>\n", hwinfo->threads );
    fprintf( f, "  <cores value=\"%d\"/>\n", hwinfo->cores );
    fprintf( f, "  <sockets value=\"%d\"/>\n", hwinfo->sockets );
    fprintf( f, "  <nodes value=\"%d\"/>\n", hwinfo->nnodes );
    fprintf( f, "  <cpuPerNode value=\"%d\"/>\n", hwinfo->ncpu );
    fprintf( f, "  <totalCPUs value=\"%d\"/>\n", hwinfo->totalcpus );
    fprintf( f, "</hardware>\n" );

    return PAPI_OK;
}

Here is the call graph for this function:

test_event()

static int test_event ( int  evt )

static

Definition at line 126 of file papi_xml_event_info.c.

{
    int retval;

    retval = PAPI_add_event( EventSet, evt );
    if ( retval != PAPI_OK ) {
        return retval;
    }

    if ( ( retval = PAPI_remove_event( EventSet, evt ) ) != PAPI_OK ) {
       fprintf( stderr, "Error removing event from eventset\n" );
       exit( 1 );
    }
    return PAPI_OK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

usage()

static void usage ( char *  argv[] )

static

Definition at line 264 of file papi_xml_event_info.c.

xmlize()

static int xmlize ( const char *  msg, FILE *  f  )

static

Definition at line 46 of file papi_xml_event_info.c.

{
    const char *op;

    if ( !msg )
        return PAPI_OK;

    for ( op = msg; *op != '\0'; op++ ) {
        switch ( *op ) {
        case '"':
            fprintf( f, """ );
            break;
        case '&':
            fprintf( f, "&" );
            break;
        case '\'':
            fprintf( f, "'" );
            break;
        case '<':
            fprintf( f, "&lt;" );
            break;
        case '>':
            fprintf( f, "&gt;" );
            break;
        default:
                fprintf( f, "%c", *op);
        }
    }

    return PAPI_OK;
}

Here is the call graph for this function:

Here is the caller graph for this function:

xmlize_event()

static void xmlize_event ( FILE *  f, PAPI_event_info_t *  info, int  num  )

static

Definition at line 147 of file papi_xml_event_info.c.

{

    if ( num >= 0 ) {
       fprintf( f, "    <event index=\"%d\" name=\"",num);
       xmlize( info->symbol, f );
       fprintf( f, "\" desc=\"");
       xmlize( info->long_descr, f );
       fprintf( f, "\">\n");
    }
    else {
       fprintf( f,"        <modifier name=\"");
       xmlize( info->symbol, f );
       fprintf( f,"\" desc=\"");
       xmlize( info->long_descr, f );
       fprintf( f,"\"> </modifier>\n");
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

cidx

int cidx = -1

static

Definition at line 40 of file papi_xml_event_info.c.

EventSet

int EventSet

static

Definition at line 37 of file papi_xml_event_info.c.

native

int native = 1

static

Definition at line 39 of file papi_xml_event_info.c.

preset

int preset = 1

static

Definition at line 38 of file papi_xml_event_info.c.