649301a3a2
Still not completely done as we need a better way of tracking the routed module being used down in the OOB - e.g., when a peer drops connection, we want to remove that route from all conduits that (a) use the OOB and (b) are routed, but we don't want to remove it from an OFI conduit.
1136 строки
37 KiB
C
1136 строки
37 KiB
C
/*
|
|
* Copyright (c) 2012-2013 Los Alamos National Security, LLC.
|
|
* All rights reserved.
|
|
* Copyright (c) 2014-2016 Intel, Inc. All rights reserved.
|
|
* Copyright (c) 2014-2015 Research Organization for Information Science
|
|
* and Technology (RIST). All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "orte_config.h"
|
|
|
|
#include <sys/types.h>
|
|
#ifdef HAVE_UNISTD_H
|
|
#include <unistd.h>
|
|
#endif /* HAVE_UNISTD_H */
|
|
#include <string.h>
|
|
#ifdef HAVE_FCNTL_H
|
|
#include <fcntl.h>
|
|
#endif
|
|
#include <sys/stat.h>
|
|
|
|
#include "opal/util/if.h"
|
|
#include "opal/util/output.h"
|
|
#include "opal/util/uri.h"
|
|
#include "opal/dss/dss.h"
|
|
#include "opal/mca/pmix/pmix.h"
|
|
|
|
#include "orte/util/error_strings.h"
|
|
#include "orte/util/name_fns.h"
|
|
#include "orte/util/show_help.h"
|
|
#include "orte/runtime/orte_globals.h"
|
|
#include "orte/mca/errmgr/errmgr.h"
|
|
#include "orte/mca/rml/rml.h"
|
|
|
|
#include "orte/mca/dfs/base/base.h"
|
|
#include "dfs_test.h"
|
|
|
|
/*
|
|
* Module functions: Global
|
|
*/
|
|
static int init(void);
|
|
static int finalize(void);
|
|
|
|
static void dfs_open(char *uri,
|
|
orte_dfs_open_callback_fn_t cbfunc,
|
|
void *cbdata);
|
|
static void dfs_close(int fd,
|
|
orte_dfs_close_callback_fn_t cbfunc,
|
|
void *cbdata);
|
|
static void dfs_get_file_size(int fd,
|
|
orte_dfs_size_callback_fn_t cbfunc,
|
|
void *cbdata);
|
|
static void dfs_seek(int fd, long offset, int whence,
|
|
orte_dfs_seek_callback_fn_t cbfunc,
|
|
void *cbdata);
|
|
static void dfs_read(int fd, uint8_t *buffer,
|
|
long length,
|
|
orte_dfs_read_callback_fn_t cbfunc,
|
|
void *cbdata);
|
|
static void dfs_post_file_map(opal_buffer_t *bo,
|
|
orte_dfs_post_callback_fn_t cbfunc,
|
|
void *cbdata);
|
|
static void dfs_get_file_map(orte_process_name_t *target,
|
|
orte_dfs_fm_callback_fn_t cbfunc,
|
|
void *cbdata);
|
|
static void dfs_load_file_maps(orte_jobid_t jobid,
|
|
opal_buffer_t *bo,
|
|
orte_dfs_load_callback_fn_t cbfunc,
|
|
void *cbdata);
|
|
static void dfs_purge_file_maps(orte_jobid_t jobid,
|
|
orte_dfs_purge_callback_fn_t cbfunc,
|
|
void *cbdata);
|
|
|
|
/******************
|
|
* TEST module
|
|
******************/
|
|
orte_dfs_base_module_t orte_dfs_test_module = {
|
|
init,
|
|
finalize,
|
|
dfs_open,
|
|
dfs_close,
|
|
dfs_get_file_size,
|
|
dfs_seek,
|
|
dfs_read,
|
|
dfs_post_file_map,
|
|
dfs_get_file_map,
|
|
dfs_load_file_maps,
|
|
dfs_purge_file_maps
|
|
};
|
|
|
|
static opal_list_t requests, active_files;
|
|
static int local_fd = 0;
|
|
static uint64_t req_id = 0;
|
|
static void recv_dfs(int status, orte_process_name_t* sender,
|
|
opal_buffer_t* buffer, orte_rml_tag_t tag,
|
|
void* cbdata);
|
|
|
|
static int init(void)
|
|
{
|
|
OBJ_CONSTRUCT(&requests, opal_list_t);
|
|
OBJ_CONSTRUCT(&active_files, opal_list_t);
|
|
orte_rml.recv_buffer_nb(ORTE_NAME_WILDCARD,
|
|
ORTE_RML_TAG_DFS_DATA,
|
|
ORTE_RML_PERSISTENT,
|
|
recv_dfs,
|
|
NULL);
|
|
return ORTE_SUCCESS;
|
|
}
|
|
|
|
static int finalize(void)
|
|
{
|
|
opal_list_item_t *item;
|
|
|
|
orte_rml.recv_cancel(ORTE_NAME_WILDCARD, ORTE_RML_TAG_DFS_DATA);
|
|
while (NULL != (item = opal_list_remove_first(&requests))) {
|
|
OBJ_RELEASE(item);
|
|
}
|
|
OBJ_DESTRUCT(&requests);
|
|
while (NULL != (item = opal_list_remove_first(&active_files))) {
|
|
OBJ_RELEASE(item);
|
|
}
|
|
OBJ_DESTRUCT(&active_files);
|
|
return ORTE_SUCCESS;
|
|
}
|
|
|
|
/* receives take place in an event, so we are free to process
|
|
* the request list without fear of getting things out-of-order
|
|
*/
|
|
static void recv_dfs(int status, orte_process_name_t* sender,
|
|
opal_buffer_t* buffer, orte_rml_tag_t tag,
|
|
void* cbdata)
|
|
{
|
|
orte_dfs_cmd_t cmd;
|
|
int32_t cnt;
|
|
orte_dfs_request_t *dfs, *dptr;
|
|
opal_list_item_t *item;
|
|
int remote_fd, rc;
|
|
int64_t i64;
|
|
uint64_t rid;
|
|
orte_dfs_tracker_t *trk;
|
|
|
|
/* unpack the command this message is responding to */
|
|
cnt = 1;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.unpack(buffer, &cmd, &cnt, ORTE_DFS_CMD_T))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return;
|
|
}
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s recvd cmd %d from sender %s",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), (int)cmd,
|
|
ORTE_NAME_PRINT(sender));
|
|
|
|
switch (cmd) {
|
|
case ORTE_DFS_OPEN_CMD:
|
|
/* unpack the request id */
|
|
cnt = 1;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.unpack(buffer, &rid, &cnt, OPAL_UINT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return;
|
|
}
|
|
/* unpack the remote fd */
|
|
cnt = 1;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.unpack(buffer, &remote_fd, &cnt, OPAL_INT))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return;
|
|
}
|
|
/* search our list of requests to find the matching one */
|
|
dfs = NULL;
|
|
for (item = opal_list_get_first(&requests);
|
|
item != opal_list_get_end(&requests);
|
|
item = opal_list_get_next(item)) {
|
|
dptr = (orte_dfs_request_t*)item;
|
|
if (dptr->id == rid) {
|
|
/* as the request has been fulfilled, remove it */
|
|
opal_list_remove_item(&requests, item);
|
|
dfs = dptr;
|
|
break;
|
|
}
|
|
}
|
|
if (NULL == dfs) {
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s recvd open file - no corresponding request found for local fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), local_fd);
|
|
ORTE_ERROR_LOG(ORTE_ERR_NOT_FOUND);
|
|
return;
|
|
}
|
|
|
|
/* if the remote_fd < 0, then we had an error, so return
|
|
* the error value to the caller
|
|
*/
|
|
if (remote_fd < 0) {
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s recvd open file response error file %s [error: %d]",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME),
|
|
dfs->uri, remote_fd);
|
|
if (NULL != dfs->open_cbfunc) {
|
|
dfs->open_cbfunc(remote_fd, dfs->cbdata);
|
|
}
|
|
/* release the request */
|
|
OBJ_RELEASE(dfs);
|
|
return;
|
|
}
|
|
/* otherwise, create a tracker for this file */
|
|
trk = OBJ_NEW(orte_dfs_tracker_t);
|
|
trk->requestor.jobid = ORTE_PROC_MY_NAME->jobid;
|
|
trk->requestor.vpid = ORTE_PROC_MY_NAME->vpid;
|
|
trk->host_daemon.jobid = sender->jobid;
|
|
trk->host_daemon.vpid = sender->vpid;
|
|
trk->filename = strdup(dfs->uri);
|
|
/* define the local fd */
|
|
trk->local_fd = local_fd++;
|
|
/* record the remote file descriptor */
|
|
trk->remote_fd = remote_fd;
|
|
/* add it to our list of active files */
|
|
opal_list_append(&active_files, &trk->super);
|
|
/* return the local_fd to the caller for
|
|
* subsequent operations
|
|
*/
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s recvd open file completed for file %s [local fd: %d remote fd: %d]",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME),
|
|
dfs->uri, trk->local_fd, remote_fd);
|
|
if (NULL != dfs->open_cbfunc) {
|
|
dfs->open_cbfunc(trk->local_fd, dfs->cbdata);
|
|
}
|
|
/* release the request */
|
|
OBJ_RELEASE(dfs);
|
|
break;
|
|
|
|
case ORTE_DFS_SIZE_CMD:
|
|
/* unpack the request id for this request */
|
|
cnt = 1;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.unpack(buffer, &rid, &cnt, OPAL_UINT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return;
|
|
}
|
|
/* search our list of requests to find the matching one */
|
|
dfs = NULL;
|
|
for (item = opal_list_get_first(&requests);
|
|
item != opal_list_get_end(&requests);
|
|
item = opal_list_get_next(item)) {
|
|
dptr = (orte_dfs_request_t*)item;
|
|
if (dptr->id == rid) {
|
|
/* request was fulfilled, so remove it */
|
|
opal_list_remove_item(&requests, item);
|
|
dfs = dptr;
|
|
break;
|
|
}
|
|
}
|
|
if (NULL == dfs) {
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s recvd size - no corresponding request found for local fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), local_fd);
|
|
ORTE_ERROR_LOG(ORTE_ERR_NOT_FOUND);
|
|
return;
|
|
}
|
|
/* get the size */
|
|
cnt = 1;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.unpack(buffer, &i64, &cnt, OPAL_INT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_RELEASE(dfs);
|
|
return;
|
|
}
|
|
/* pass it back to the original caller */
|
|
if (NULL != dfs->size_cbfunc) {
|
|
dfs->size_cbfunc(i64, dfs->cbdata);
|
|
}
|
|
/* release the request */
|
|
OBJ_RELEASE(dfs);
|
|
break;
|
|
|
|
case ORTE_DFS_SEEK_CMD:
|
|
/* unpack the request id for this read */
|
|
cnt = 1;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.unpack(buffer, &rid, &cnt, OPAL_UINT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return;
|
|
}
|
|
/* search our list of requests to find the matching one */
|
|
dfs = NULL;
|
|
for (item = opal_list_get_first(&requests);
|
|
item != opal_list_get_end(&requests);
|
|
item = opal_list_get_next(item)) {
|
|
dptr = (orte_dfs_request_t*)item;
|
|
if (dptr->id == rid) {
|
|
/* request was fulfilled, so remove it */
|
|
opal_list_remove_item(&requests, item);
|
|
dfs = dptr;
|
|
break;
|
|
}
|
|
}
|
|
if (NULL == dfs) {
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s recvd seek - no corresponding request found for local fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), local_fd);
|
|
ORTE_ERROR_LOG(ORTE_ERR_NOT_FOUND);
|
|
return;
|
|
}
|
|
/* get the returned offset/status */
|
|
cnt = 1;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.unpack(buffer, &i64, &cnt, OPAL_INT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_RELEASE(dfs);
|
|
return;
|
|
}
|
|
/* pass it back to the original caller */
|
|
if (NULL != dfs->seek_cbfunc) {
|
|
dfs->seek_cbfunc(i64, dfs->cbdata);
|
|
}
|
|
/* release the request */
|
|
OBJ_RELEASE(dfs);
|
|
break;
|
|
|
|
case ORTE_DFS_READ_CMD:
|
|
/* unpack the request id for this read */
|
|
cnt = 1;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.unpack(buffer, &rid, &cnt, OPAL_UINT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return;
|
|
}
|
|
/* search our list of requests to find the matching one */
|
|
dfs = NULL;
|
|
for (item = opal_list_get_first(&requests);
|
|
item != opal_list_get_end(&requests);
|
|
item = opal_list_get_next(item)) {
|
|
dptr = (orte_dfs_request_t*)item;
|
|
if (dptr->id == rid) {
|
|
/* request was fulfilled, so remove it */
|
|
opal_list_remove_item(&requests, item);
|
|
dfs = dptr;
|
|
break;
|
|
}
|
|
}
|
|
if (NULL == dfs) {
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s recvd read - no corresponding request found for local fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), local_fd);
|
|
ORTE_ERROR_LOG(ORTE_ERR_NOT_FOUND);
|
|
return;
|
|
}
|
|
/* get the bytes read */
|
|
cnt = 1;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.unpack(buffer, &i64, &cnt, OPAL_INT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_RELEASE(dfs);
|
|
return;
|
|
}
|
|
if (0 < i64) {
|
|
cnt = i64;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.unpack(buffer, dfs->read_buffer, &cnt, OPAL_UINT8))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_RELEASE(dfs);
|
|
return;
|
|
}
|
|
}
|
|
/* pass them back to the original caller */
|
|
if (NULL != dfs->read_cbfunc) {
|
|
dfs->read_cbfunc(i64, dfs->read_buffer, dfs->cbdata);
|
|
}
|
|
/* release the request */
|
|
OBJ_RELEASE(dfs);
|
|
break;
|
|
|
|
case ORTE_DFS_POST_CMD:
|
|
/* unpack the request id for this read */
|
|
cnt = 1;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.unpack(buffer, &rid, &cnt, OPAL_UINT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return;
|
|
}
|
|
/* search our list of requests to find the matching one */
|
|
dfs = NULL;
|
|
for (item = opal_list_get_first(&requests);
|
|
item != opal_list_get_end(&requests);
|
|
item = opal_list_get_next(item)) {
|
|
dptr = (orte_dfs_request_t*)item;
|
|
if (dptr->id == rid) {
|
|
/* request was fulfilled, so remove it */
|
|
opal_list_remove_item(&requests, item);
|
|
dfs = dptr;
|
|
break;
|
|
}
|
|
}
|
|
if (NULL == dfs) {
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s recvd post - no corresponding request found",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME));
|
|
ORTE_ERROR_LOG(ORTE_ERR_NOT_FOUND);
|
|
return;
|
|
}
|
|
if (NULL != dfs->post_cbfunc) {
|
|
dfs->post_cbfunc(dfs->cbdata);
|
|
}
|
|
OBJ_RELEASE(dfs);
|
|
break;
|
|
|
|
case ORTE_DFS_GETFM_CMD:
|
|
/* unpack the request id for this read */
|
|
cnt = 1;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.unpack(buffer, &rid, &cnt, OPAL_UINT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
return;
|
|
}
|
|
/* search our list of requests to find the matching one */
|
|
dfs = NULL;
|
|
for (item = opal_list_get_first(&requests);
|
|
item != opal_list_get_end(&requests);
|
|
item = opal_list_get_next(item)) {
|
|
dptr = (orte_dfs_request_t*)item;
|
|
if (dptr->id == rid) {
|
|
/* request was fulfilled, so remove it */
|
|
opal_list_remove_item(&requests, item);
|
|
dfs = dptr;
|
|
break;
|
|
}
|
|
}
|
|
if (NULL == dfs) {
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s recvd getfm - no corresponding request found",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME));
|
|
ORTE_ERROR_LOG(ORTE_ERR_NOT_FOUND);
|
|
return;
|
|
}
|
|
/* return it to caller */
|
|
if (NULL != dfs->fm_cbfunc) {
|
|
dfs->fm_cbfunc(buffer, dfs->cbdata);
|
|
}
|
|
OBJ_RELEASE(dfs);
|
|
break;
|
|
|
|
default:
|
|
opal_output(0, "TEST:DFS:RECV WTF");
|
|
break;
|
|
}
|
|
}
|
|
|
|
static void process_opens(int fd, short args, void *cbdata)
|
|
{
|
|
orte_dfs_request_t *dfs = (orte_dfs_request_t*)cbdata;
|
|
int rc;
|
|
opal_buffer_t *buffer;
|
|
char *scheme, *host=NULL, *filename=NULL;
|
|
orte_process_name_t daemon;
|
|
opal_list_t lt;
|
|
opal_namelist_t *nm;
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s PROCESSING OPEN", ORTE_NAME_PRINT(ORTE_PROC_MY_NAME));
|
|
|
|
/* get the scheme to determine if we can process locally or not */
|
|
if (NULL == (scheme = opal_uri_get_scheme(dfs->uri))) {
|
|
ORTE_ERROR_LOG(ORTE_ERR_BAD_PARAM);
|
|
goto complete;
|
|
}
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s GOT SCHEME", ORTE_NAME_PRINT(ORTE_PROC_MY_NAME));
|
|
|
|
if (0 != strcmp(scheme, "file")) {
|
|
/* not yet supported */
|
|
orte_show_help("orte_dfs_help.txt", "unsupported-filesystem",
|
|
true, dfs->uri);
|
|
free(scheme);
|
|
goto complete;
|
|
}
|
|
free(scheme);
|
|
|
|
/* dissect the uri to extract host and filename/path */
|
|
if (NULL == (filename = opal_filename_from_uri(dfs->uri, &host))) {
|
|
goto complete;
|
|
}
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s GOT FILENAME %s", ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), filename);
|
|
if (NULL == host) {
|
|
host = strdup(orte_process_info.nodename);
|
|
}
|
|
|
|
/* ident the daemon on that host */
|
|
daemon.jobid = ORTE_PROC_MY_DAEMON->jobid;
|
|
OBJ_CONSTRUCT(<, opal_list_t);
|
|
if (ORTE_SUCCESS != (rc = opal_pmix.resolve_peers(host, daemon.jobid, <))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_DESTRUCT(<);
|
|
goto complete;
|
|
}
|
|
nm = (opal_namelist_t*)opal_list_get_first(<);
|
|
daemon.vpid = nm->name.vpid;
|
|
OPAL_LIST_DESTRUCT(<);
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s file %s on host %s daemon %s",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME),
|
|
filename, host, ORTE_NAME_PRINT(&daemon));
|
|
|
|
/* add this request to our local list so we can
|
|
* match it with the returned response when it comes
|
|
*/
|
|
dfs->id = req_id++;
|
|
opal_list_append(&requests, &dfs->super);
|
|
|
|
/* setup a message for the daemon telling
|
|
* them what file we want to access
|
|
*/
|
|
buffer = OBJ_NEW(opal_buffer_t);
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &dfs->cmd, 1, ORTE_DFS_CMD_T))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
opal_list_remove_item(&requests, &dfs->super);
|
|
goto complete;
|
|
}
|
|
/* pass the request id */
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &dfs->id, 1, OPAL_UINT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
opal_list_remove_item(&requests, &dfs->super);
|
|
goto complete;
|
|
}
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &filename, 1, OPAL_STRING))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
opal_list_remove_item(&requests, &dfs->super);
|
|
goto complete;
|
|
}
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s sending open file request to %s file %s",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME),
|
|
ORTE_NAME_PRINT(&daemon),
|
|
filename);
|
|
/* send it */
|
|
if (0 > (rc = orte_rml.send_buffer_nb(orte_mgmt_conduit,
|
|
&daemon, buffer,
|
|
ORTE_RML_TAG_DFS_CMD,
|
|
orte_rml_send_callback, NULL))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_RELEASE(buffer);
|
|
opal_list_remove_item(&requests, &dfs->super);
|
|
goto complete;
|
|
}
|
|
/* don't release it */
|
|
free(host);
|
|
free(filename);
|
|
return;
|
|
|
|
complete:
|
|
/* we get here if an error occurred - execute any
|
|
* pending callback so the proc doesn't hang
|
|
*/
|
|
if (NULL != host) {
|
|
free(host);
|
|
}
|
|
if (NULL != filename) {
|
|
free(filename);
|
|
}
|
|
if (NULL != dfs->open_cbfunc) {
|
|
dfs->open_cbfunc(-1, dfs->cbdata);
|
|
}
|
|
OBJ_RELEASE(dfs);
|
|
}
|
|
|
|
|
|
/* in order to handle the possible opening/reading of files by
|
|
* multiple threads, we have to ensure that all operations are
|
|
* carried out in events - so the "open" cmd simply posts an
|
|
* event containing the required info, and then returns
|
|
*/
|
|
static void dfs_open(char *uri,
|
|
orte_dfs_open_callback_fn_t cbfunc,
|
|
void *cbdata)
|
|
{
|
|
orte_dfs_request_t *dfs;
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s opening file %s",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), uri);
|
|
|
|
/* setup the request */
|
|
dfs = OBJ_NEW(orte_dfs_request_t);
|
|
dfs->cmd = ORTE_DFS_OPEN_CMD;
|
|
dfs->uri = strdup(uri);
|
|
dfs->open_cbfunc = cbfunc;
|
|
dfs->cbdata = cbdata;
|
|
|
|
/* post it for processing */
|
|
ORTE_DFS_POST_REQUEST(dfs, process_opens);
|
|
}
|
|
|
|
static void process_close(int fd, short args, void *cbdata)
|
|
{
|
|
orte_dfs_request_t *close_dfs = (orte_dfs_request_t*)cbdata;
|
|
orte_dfs_tracker_t *tptr, *trk;
|
|
opal_list_item_t *item;
|
|
opal_buffer_t *buffer;
|
|
int rc;
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s closing fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME),
|
|
close_dfs->local_fd);
|
|
|
|
/* look in our local records for this fd */
|
|
trk = NULL;
|
|
for (item = opal_list_get_first(&active_files);
|
|
item != opal_list_get_end(&active_files);
|
|
item = opal_list_get_next(item)) {
|
|
tptr = (orte_dfs_tracker_t*)item;
|
|
if (tptr->local_fd == close_dfs->local_fd) {
|
|
trk = tptr;
|
|
break;
|
|
}
|
|
}
|
|
if (NULL == trk) {
|
|
ORTE_ERROR_LOG(ORTE_ERR_NOT_FOUND);
|
|
if (NULL != close_dfs->close_cbfunc) {
|
|
close_dfs->close_cbfunc(close_dfs->local_fd, close_dfs->cbdata);
|
|
}
|
|
OBJ_RELEASE(close_dfs);
|
|
return;
|
|
}
|
|
|
|
/* setup a message for the daemon telling
|
|
* them what file to close
|
|
*/
|
|
buffer = OBJ_NEW(opal_buffer_t);
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &close_dfs->cmd, 1, ORTE_DFS_CMD_T))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto complete;
|
|
}
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &trk->remote_fd, 1, OPAL_INT))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto complete;
|
|
}
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s sending close file request to %s for fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME),
|
|
ORTE_NAME_PRINT(&trk->host_daemon),
|
|
trk->local_fd);
|
|
/* send it */
|
|
if (0 > (rc = orte_rml.send_buffer_nb(orte_mgmt_conduit,
|
|
&trk->host_daemon, buffer,
|
|
ORTE_RML_TAG_DFS_CMD,
|
|
orte_rml_send_callback, NULL))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_RELEASE(buffer);
|
|
goto complete;
|
|
}
|
|
|
|
complete:
|
|
opal_list_remove_item(&active_files, &trk->super);
|
|
OBJ_RELEASE(trk);
|
|
if (NULL != close_dfs->close_cbfunc) {
|
|
close_dfs->close_cbfunc(close_dfs->local_fd, close_dfs->cbdata);
|
|
}
|
|
OBJ_RELEASE(close_dfs);
|
|
}
|
|
|
|
static void dfs_close(int fd,
|
|
orte_dfs_close_callback_fn_t cbfunc,
|
|
void *cbdata)
|
|
{
|
|
orte_dfs_request_t *dfs;
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s close called on fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), fd);
|
|
|
|
dfs = OBJ_NEW(orte_dfs_request_t);
|
|
dfs->cmd = ORTE_DFS_CLOSE_CMD;
|
|
dfs->local_fd = fd;
|
|
dfs->close_cbfunc = cbfunc;
|
|
dfs->cbdata = cbdata;
|
|
|
|
/* post it for processing */
|
|
ORTE_DFS_POST_REQUEST(dfs, process_close);
|
|
}
|
|
|
|
static void process_sizes(int fd, short args, void *cbdata)
|
|
{
|
|
orte_dfs_request_t *size_dfs = (orte_dfs_request_t*)cbdata;
|
|
orte_dfs_tracker_t *tptr, *trk;
|
|
opal_list_item_t *item;
|
|
opal_buffer_t *buffer;
|
|
int rc;
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s processing get_size on fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME),
|
|
size_dfs->local_fd);
|
|
|
|
/* look in our local records for this fd */
|
|
trk = NULL;
|
|
for (item = opal_list_get_first(&active_files);
|
|
item != opal_list_get_end(&active_files);
|
|
item = opal_list_get_next(item)) {
|
|
tptr = (orte_dfs_tracker_t*)item;
|
|
if (tptr->local_fd == size_dfs->local_fd) {
|
|
trk = tptr;
|
|
break;
|
|
}
|
|
}
|
|
if (NULL == trk) {
|
|
ORTE_ERROR_LOG(ORTE_ERR_NOT_FOUND);
|
|
OBJ_RELEASE(size_dfs);
|
|
return;
|
|
}
|
|
|
|
/* add this request to our local list so we can
|
|
* match it with the returned response when it comes
|
|
*/
|
|
size_dfs->id = req_id++;
|
|
opal_list_append(&requests, &size_dfs->super);
|
|
|
|
/* setup a message for the daemon telling
|
|
* them what file we want to access
|
|
*/
|
|
buffer = OBJ_NEW(opal_buffer_t);
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &size_dfs->cmd, 1, ORTE_DFS_CMD_T))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
opal_list_remove_item(&requests, &size_dfs->super);
|
|
goto complete;
|
|
}
|
|
/* pass the request id */
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &size_dfs->id, 1, OPAL_UINT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
opal_list_remove_item(&requests, &size_dfs->super);
|
|
goto complete;
|
|
}
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &trk->remote_fd, 1, OPAL_INT))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
opal_list_remove_item(&requests, &size_dfs->super);
|
|
goto complete;
|
|
}
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s sending get_size request to %s for fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME),
|
|
ORTE_NAME_PRINT(&trk->host_daemon),
|
|
trk->local_fd);
|
|
/* send it */
|
|
if (0 > (rc = orte_rml.send_buffer_nb(orte_mgmt_conduit,
|
|
&trk->host_daemon, buffer,
|
|
ORTE_RML_TAG_DFS_CMD,
|
|
orte_rml_send_callback, NULL))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_RELEASE(buffer);
|
|
opal_list_remove_item(&requests, &size_dfs->super);
|
|
if (NULL != size_dfs->size_cbfunc) {
|
|
size_dfs->size_cbfunc(-1, size_dfs->cbdata);
|
|
}
|
|
goto complete;
|
|
}
|
|
/* leave the request there */
|
|
return;
|
|
|
|
complete:
|
|
OBJ_RELEASE(size_dfs);
|
|
}
|
|
|
|
static void dfs_get_file_size(int fd,
|
|
orte_dfs_size_callback_fn_t cbfunc,
|
|
void *cbdata)
|
|
{
|
|
orte_dfs_request_t *dfs;
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s get_size called on fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), fd);
|
|
|
|
dfs = OBJ_NEW(orte_dfs_request_t);
|
|
dfs->cmd = ORTE_DFS_SIZE_CMD;
|
|
dfs->local_fd = fd;
|
|
dfs->size_cbfunc = cbfunc;
|
|
dfs->cbdata = cbdata;
|
|
|
|
/* post it for processing */
|
|
ORTE_DFS_POST_REQUEST(dfs, process_sizes);
|
|
}
|
|
|
|
|
|
static void process_seeks(int fd, short args, void *cbdata)
|
|
{
|
|
orte_dfs_request_t *seek_dfs = (orte_dfs_request_t*)cbdata;
|
|
orte_dfs_tracker_t *tptr, *trk;
|
|
opal_list_item_t *item;
|
|
opal_buffer_t *buffer;
|
|
int64_t i64;
|
|
int rc;
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s processing seek on fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME),
|
|
seek_dfs->local_fd);
|
|
|
|
/* look in our local records for this fd */
|
|
trk = NULL;
|
|
for (item = opal_list_get_first(&active_files);
|
|
item != opal_list_get_end(&active_files);
|
|
item = opal_list_get_next(item)) {
|
|
tptr = (orte_dfs_tracker_t*)item;
|
|
if (tptr->local_fd == seek_dfs->local_fd) {
|
|
trk = tptr;
|
|
break;
|
|
}
|
|
}
|
|
if (NULL == trk) {
|
|
ORTE_ERROR_LOG(ORTE_ERR_NOT_FOUND);
|
|
OBJ_RELEASE(seek_dfs);
|
|
return;
|
|
}
|
|
|
|
/* add this request to our local list so we can
|
|
* match it with the returned response when it comes
|
|
*/
|
|
seek_dfs->id = req_id++;
|
|
opal_list_append(&requests, &seek_dfs->super);
|
|
|
|
/* setup a message for the daemon telling
|
|
* them what file to seek
|
|
*/
|
|
buffer = OBJ_NEW(opal_buffer_t);
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &seek_dfs->cmd, 1, ORTE_DFS_CMD_T))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto complete;
|
|
}
|
|
/* pass the request id */
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &seek_dfs->id, 1, OPAL_UINT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
opal_list_remove_item(&requests, &seek_dfs->super);
|
|
goto complete;
|
|
}
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &trk->remote_fd, 1, OPAL_INT))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto complete;
|
|
}
|
|
i64 = (int64_t)seek_dfs->read_length;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &i64, 1, OPAL_INT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto complete;
|
|
}
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &seek_dfs->remote_fd, 1, OPAL_INT))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto complete;
|
|
}
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s sending seek file request to %s for fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME),
|
|
ORTE_NAME_PRINT(&trk->host_daemon),
|
|
trk->local_fd);
|
|
/* send it */
|
|
if (0 > (rc = orte_rml.send_buffer_nb(orte_mgmt_conduit,
|
|
&trk->host_daemon, buffer,
|
|
ORTE_RML_TAG_DFS_CMD,
|
|
orte_rml_send_callback, NULL))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_RELEASE(buffer);
|
|
goto complete;
|
|
}
|
|
/* leave the request */
|
|
return;
|
|
|
|
complete:
|
|
OBJ_RELEASE(seek_dfs);
|
|
}
|
|
|
|
|
|
static void dfs_seek(int fd, long offset, int whence,
|
|
orte_dfs_seek_callback_fn_t cbfunc,
|
|
void *cbdata)
|
|
{
|
|
orte_dfs_request_t *dfs;
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s seek called on fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME), fd);
|
|
|
|
dfs = OBJ_NEW(orte_dfs_request_t);
|
|
dfs->cmd = ORTE_DFS_SEEK_CMD;
|
|
dfs->local_fd = fd;
|
|
dfs->read_length = offset;
|
|
dfs->remote_fd = whence;
|
|
dfs->seek_cbfunc = cbfunc;
|
|
dfs->cbdata = cbdata;
|
|
|
|
/* post it for processing */
|
|
ORTE_DFS_POST_REQUEST(dfs, process_seeks);
|
|
}
|
|
|
|
static void process_reads(int fd, short args, void *cbdata)
|
|
{
|
|
orte_dfs_request_t *read_dfs = (orte_dfs_request_t*)cbdata;
|
|
orte_dfs_tracker_t *tptr, *trk;
|
|
opal_list_item_t *item;
|
|
opal_buffer_t *buffer;
|
|
int64_t i64;
|
|
int rc;
|
|
|
|
/* look in our local records for this fd */
|
|
trk = NULL;
|
|
for (item = opal_list_get_first(&active_files);
|
|
item != opal_list_get_end(&active_files);
|
|
item = opal_list_get_next(item)) {
|
|
tptr = (orte_dfs_tracker_t*)item;
|
|
if (tptr->local_fd == read_dfs->local_fd) {
|
|
trk = tptr;
|
|
break;
|
|
}
|
|
}
|
|
if (NULL == trk) {
|
|
ORTE_ERROR_LOG(ORTE_ERR_NOT_FOUND);
|
|
OBJ_RELEASE(read_dfs);
|
|
return;
|
|
}
|
|
|
|
/* add this request to our pending list */
|
|
read_dfs->id = req_id++;
|
|
opal_list_append(&requests, &read_dfs->super);
|
|
|
|
/* setup a message for the daemon telling
|
|
* them what file to read
|
|
*/
|
|
buffer = OBJ_NEW(opal_buffer_t);
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &read_dfs->cmd, 1, ORTE_DFS_CMD_T))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto complete;
|
|
}
|
|
/* include the request id */
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &read_dfs->id, 1, OPAL_UINT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto complete;
|
|
}
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &trk->remote_fd, 1, OPAL_INT))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto complete;
|
|
}
|
|
i64 = (int64_t)read_dfs->read_length;
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &i64, 1, OPAL_INT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto complete;
|
|
}
|
|
|
|
opal_output_verbose(1, orte_dfs_base_framework.framework_output,
|
|
"%s sending read file request to %s for fd %d",
|
|
ORTE_NAME_PRINT(ORTE_PROC_MY_NAME),
|
|
ORTE_NAME_PRINT(&trk->host_daemon),
|
|
trk->local_fd);
|
|
/* send it */
|
|
if (0 > (rc = orte_rml.send_buffer_nb(orte_mgmt_conduit,
|
|
&trk->host_daemon, buffer,
|
|
ORTE_RML_TAG_DFS_CMD,
|
|
orte_rml_send_callback, NULL))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
OBJ_RELEASE(buffer);
|
|
}
|
|
/* don't release the request */
|
|
return;
|
|
|
|
complete:
|
|
/* don't need to hang on to this request */
|
|
opal_list_remove_item(&requests, &read_dfs->super);
|
|
OBJ_RELEASE(read_dfs);
|
|
}
|
|
|
|
static void dfs_read(int fd, uint8_t *buffer,
|
|
long length,
|
|
orte_dfs_read_callback_fn_t cbfunc,
|
|
void *cbdata)
|
|
{
|
|
orte_dfs_request_t *dfs;
|
|
|
|
dfs = OBJ_NEW(orte_dfs_request_t);
|
|
dfs->cmd = ORTE_DFS_READ_CMD;
|
|
dfs->local_fd = fd;
|
|
dfs->read_buffer = buffer;
|
|
dfs->read_length = length;
|
|
dfs->read_cbfunc = cbfunc;
|
|
dfs->cbdata = cbdata;
|
|
|
|
/* post it for processing */
|
|
ORTE_DFS_POST_REQUEST(dfs, process_reads);
|
|
}
|
|
|
|
static void process_posts(int fd, short args, void *cbdata)
|
|
{
|
|
orte_dfs_request_t *dfs = (orte_dfs_request_t*)cbdata;
|
|
opal_buffer_t *buffer;
|
|
int rc;
|
|
|
|
/* we will get confirmation in our receive function, so
|
|
* add this request to our list */
|
|
dfs->id = req_id++;
|
|
opal_list_append(&requests, &dfs->super);
|
|
|
|
/* Send the buffer's contents to our local daemon for storage */
|
|
buffer = OBJ_NEW(opal_buffer_t);
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &dfs->cmd, 1, ORTE_DFS_CMD_T))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto error;
|
|
}
|
|
/* include the request id */
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &dfs->id, 1, OPAL_UINT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto error;
|
|
}
|
|
/* add my name */
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, ORTE_PROC_MY_NAME, 1, ORTE_NAME))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto error;
|
|
}
|
|
/* pack the payload */
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &dfs->bptr, 1, OPAL_BUFFER))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto error;
|
|
}
|
|
/* send it */
|
|
if (0 > (rc = orte_rml.send_buffer_nb(orte_mgmt_conduit,
|
|
ORTE_PROC_MY_DAEMON, buffer,
|
|
ORTE_RML_TAG_DFS_CMD,
|
|
orte_rml_send_callback, NULL))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto error;
|
|
}
|
|
return;
|
|
|
|
error:
|
|
OBJ_RELEASE(buffer);
|
|
opal_list_remove_item(&requests, &dfs->super);
|
|
if (NULL != dfs->post_cbfunc) {
|
|
dfs->post_cbfunc(dfs->cbdata);
|
|
}
|
|
OBJ_RELEASE(dfs);
|
|
}
|
|
|
|
static void dfs_post_file_map(opal_buffer_t *bo,
|
|
orte_dfs_post_callback_fn_t cbfunc,
|
|
void *cbdata)
|
|
{
|
|
orte_dfs_request_t *dfs;
|
|
|
|
dfs = OBJ_NEW(orte_dfs_request_t);
|
|
dfs->cmd = ORTE_DFS_POST_CMD;
|
|
dfs->bptr = bo;
|
|
dfs->post_cbfunc = cbfunc;
|
|
dfs->cbdata = cbdata;
|
|
|
|
/* post it for processing */
|
|
ORTE_DFS_POST_REQUEST(dfs, process_posts);
|
|
}
|
|
|
|
static void process_getfm(int fd, short args, void *cbdata)
|
|
{
|
|
orte_dfs_request_t *dfs = (orte_dfs_request_t*)cbdata;
|
|
opal_buffer_t *buffer;
|
|
int rc;
|
|
|
|
/* we will get confirmation in our receive function, so
|
|
* add this request to our list */
|
|
dfs->id = req_id++;
|
|
opal_list_append(&requests, &dfs->super);
|
|
|
|
/* Send the request to our local daemon */
|
|
buffer = OBJ_NEW(opal_buffer_t);
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &dfs->cmd, 1, ORTE_DFS_CMD_T))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto error;
|
|
}
|
|
/* include the request id */
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &dfs->id, 1, OPAL_UINT64))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto error;
|
|
}
|
|
/* and the target */
|
|
if (OPAL_SUCCESS != (rc = opal_dss.pack(buffer, &dfs->target, 1, ORTE_NAME))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto error;
|
|
}
|
|
/* send it */
|
|
if (0 > (rc = orte_rml.send_buffer_nb(orte_mgmt_conduit,
|
|
ORTE_PROC_MY_DAEMON, buffer,
|
|
ORTE_RML_TAG_DFS_CMD,
|
|
orte_rml_send_callback, NULL))) {
|
|
ORTE_ERROR_LOG(rc);
|
|
goto error;
|
|
}
|
|
return;
|
|
|
|
error:
|
|
OBJ_RELEASE(buffer);
|
|
opal_list_remove_item(&requests, &dfs->super);
|
|
if (NULL != dfs->fm_cbfunc) {
|
|
dfs->fm_cbfunc(NULL, dfs->cbdata);
|
|
}
|
|
OBJ_RELEASE(dfs);
|
|
}
|
|
|
|
static void dfs_get_file_map(orte_process_name_t *target,
|
|
orte_dfs_fm_callback_fn_t cbfunc,
|
|
void *cbdata)
|
|
{
|
|
orte_dfs_request_t *dfs;
|
|
|
|
dfs = OBJ_NEW(orte_dfs_request_t);
|
|
dfs->cmd = ORTE_DFS_GETFM_CMD;
|
|
dfs->target.jobid = target->jobid;
|
|
dfs->target.vpid = target->vpid;
|
|
dfs->fm_cbfunc = cbfunc;
|
|
dfs->cbdata = cbdata;
|
|
|
|
/* post it for processing */
|
|
ORTE_DFS_POST_REQUEST(dfs, process_getfm);
|
|
}
|
|
|
|
static void dfs_load_file_maps(orte_jobid_t jobid,
|
|
opal_buffer_t *bo,
|
|
orte_dfs_load_callback_fn_t cbfunc,
|
|
void *cbdata)
|
|
{
|
|
/* apps don't store file maps */
|
|
if (NULL != cbfunc) {
|
|
cbfunc(cbdata);
|
|
}
|
|
}
|
|
|
|
static void dfs_purge_file_maps(orte_jobid_t jobid,
|
|
orte_dfs_purge_callback_fn_t cbfunc,
|
|
void *cbdata)
|
|
{
|
|
/* apps don't store file maps */
|
|
if (NULL != cbfunc) {
|
|
cbfunc(cbdata);
|
|
}
|
|
}
|
|
|