darshan-mpiio-logutils.c 3.33 KB
Newer Older
Philip Carns's avatar
Philip Carns committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
/*
 * Copyright (C) 2015 University of Chicago.
 * See COPYRIGHT notice in top-level directory.
 *
 */

#define _GNU_SOURCE
#include "darshan-util-config.h"
#include <stdio.h>
#include <string.h>
#include <assert.h>
#include <stdlib.h>
#include <unistd.h>
#include <inttypes.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <errno.h>

#include "darshan-mpiio-logutils.h"

22 23 24 25 26 27 28 29 30 31 32
/* counter name strings for the MPI-IO module */
#define X(a) #a,
char *mpiio_counter_names[] = {
    MPIIO_COUNTERS
};

char *mpiio_f_counter_names[] = {
    MPIIO_F_COUNTERS
};
#undef X

33
static int darshan_log_get_mpiio_file(darshan_fd fd, void* mpiio_buf);
34
static int darshan_log_put_mpiio_file(darshan_fd fd, void* mpiio_buf);
35 36
static void darshan_log_print_mpiio_file(void *file_rec,
    char *file_name, char *mnt_pt, char *fs_type);
37
static void darshan_log_agg_mpiio_files(void *rec, void *agg_rec, int init_flag);
38

39 40 41
struct darshan_mod_logutil_funcs mpiio_logutils =
{
    .log_get_record = &darshan_log_get_mpiio_file,
42
    .log_put_record = &darshan_log_put_mpiio_file,
43
    .log_print_record = &darshan_log_print_mpiio_file,
44
    .log_agg_records = &darshan_log_agg_mpiio_files
45 46
};

47
static int darshan_log_get_mpiio_file(darshan_fd fd, void* mpiio_buf)
Philip Carns's avatar
Philip Carns committed
48
{
49
    struct darshan_mpiio_file *file;
Philip Carns's avatar
Philip Carns committed
50
    int i;
51
    int ret;
Philip Carns's avatar
Philip Carns committed
52

53 54 55
    ret = darshan_log_getmod(fd, DARSHAN_MPIIO_MOD, mpiio_buf,
        sizeof(struct darshan_mpiio_file));
    if(ret < 0)
56
        return(-1);
57 58 59
    else if(ret < sizeof(struct darshan_mpiio_file))
        return(0);
    else
Philip Carns's avatar
Philip Carns committed
60
    {
61 62 63 64
        file = (struct darshan_mpiio_file *)mpiio_buf;
        if(fd->swap_flag)
        {
            /* swap bytes if necessary */
65 66
            DARSHAN_BSWAP64(&(file->base_rec.id));
            DARSHAN_BSWAP64(&(file->base_rec.rank));
67 68 69 70 71 72 73
            for(i=0; i<MPIIO_NUM_INDICES; i++)
                DARSHAN_BSWAP64(&file->counters[i]);
            for(i=0; i<MPIIO_F_NUM_INDICES; i++)
                DARSHAN_BSWAP64(&file->fcounters[i]);
        }

        return(1);
Philip Carns's avatar
Philip Carns committed
74
    }
75
}
Philip Carns's avatar
Philip Carns committed
76

77 78 79 80 81 82 83 84 85
static int darshan_log_put_mpiio_file(darshan_fd fd, void* mpiio_buf)
{
    struct darshan_mpiio_file *file = (struct darshan_mpiio_file *)mpiio_buf;
    int ret;

    ret = darshan_log_putmod(fd, DARSHAN_MPIIO_MOD, file,
        sizeof(struct darshan_mpiio_file));
    if(ret < 0)
        return(-1);
86 87

    return(0);
Philip Carns's avatar
Philip Carns committed
88 89
}

90
static void darshan_log_print_mpiio_file(void *file_rec, char *file_name,
91 92 93 94 95 96 97 98 99
    char *mnt_pt, char *fs_type)
{
    int i;
    struct darshan_mpiio_file *mpiio_file_rec =
        (struct darshan_mpiio_file *)file_rec;

    for(i=0; i<MPIIO_NUM_INDICES; i++)
    {
        DARSHAN_COUNTER_PRINT(darshan_module_names[DARSHAN_MPIIO_MOD],
100 101 102
            mpiio_file_rec->base_rec.rank, mpiio_file_rec->base_rec.id,
            mpiio_counter_names[i], mpiio_file_rec->counters[i],
            file_name, mnt_pt, fs_type);
103 104 105 106 107
    }

    for(i=0; i<MPIIO_F_NUM_INDICES; i++)
    {
        DARSHAN_F_COUNTER_PRINT(darshan_module_names[DARSHAN_MPIIO_MOD],
108 109 110
            mpiio_file_rec->base_rec.rank, mpiio_file_rec->base_rec.id,
            mpiio_f_counter_names[i], mpiio_file_rec->fcounters[i],
            file_name, mnt_pt, fs_type);
111 112 113 114 115
    }

    return;
}

116 117 118 119 120 121
static void darshan_log_agg_mpiio_files(void *rec, void *agg_rec, int init_flag)
{

    return;
}

Philip Carns's avatar
Philip Carns committed
122 123 124 125 126 127 128 129
/*
 * Local variables:
 *  c-indent-level: 4
 *  c-basic-offset: 4
 * End:
 *
 * vim: ts=8 sts=4 sw=4 expandtab
 */