openmpi/src/mca/io/base/io_base_request.c

/*
 * Copyright (c) 2004-2005 The Trustees of Indiana University.
 *                         All rights reserved.
 * Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
 *                         All rights reserved.
 * $COPYRIGHT$
 * 
 * Additional copyrights may follow
 * 
 * $HEADER$
 */

#include "ompi_config.h"

#include "class/ompi_object.h"
#include "file/file.h"
#include "mca/io/base/io_base_request.h"


/*
 * Private functions
 */
static void io_base_request_constructor(mca_io_base_request_t *req);


OBJ_CLASS_INSTANCE(mca_io_base_request_t,
                   ompi_request_t,
                   io_base_request_constructor,
                   NULL);


static void io_base_request_constructor(mca_io_base_request_t *req)
{
    req->req_ompi.req_type = OMPI_REQUEST_IO;
}


/*
 * Return a module-specific IO MPI_Request
 */
int mca_io_base_request_alloc(ompi_file_t *file, 
                              mca_io_base_request_t **req)
{
    int err;
    size_t extra;
    mca_io_base_module_request_init_fn_t func;

    /* JMS For the moment, no freelisting */

    switch (file->f_io_version) {
    case MCA_IO_BASE_V_1_0_0:
        extra = file->f_io_selected_module.v1_0_0.io_module_cache_bytes;
        func = file->f_io_selected_module.v1_0_0.io_module_request_init;
        break;

    default:
        extra = 0;
        func = NULL;
        break;
    }

    /* Malloc out enough space */

    *req = malloc(sizeof(mca_io_base_request_t) + extra);
    if (NULL == *req) {
        return OMPI_ERR_OUT_OF_RESOURCE;
    }

    /* Construct the object and call the module's request init
       function, if it exists */

    OBJ_CONSTRUCT(req, mca_io_base_request_t);
    if (NULL != func) {
        if (OMPI_SUCCESS != (err = func(&file->f_io_selected_module, *req))) {
            OBJ_RELEASE(*req);
            return err;
        }
    }

    return OMPI_SUCCESS;
}


/*
 * Free a module-specific IO MPI_Request
 */
void mca_io_base_request_free(ompi_file_t *file,
                              mca_io_base_request_t **req)
{
    mca_io_base_module_request_finalize_fn_t func;

    /* JMS For the moment, no freelisting */

    switch (file->f_io_version) {
    case MCA_IO_BASE_V_1_0_0:
        func = file->f_io_selected_module.v1_0_0.io_module_request_finalize;
        if (NULL != func) {
            func(&file->f_io_selected_module, *req);
        }
        break;

    default:
        break;
    }

    OBJ_RELEASE(*req);
    *req = (mca_io_base_request_t*) MPI_REQUEST_NULL;
}