5011348de4
have it there * condense the rsh pcm into fewer files, for faster compile times * Fix return value bug in mca_pcm_base_build_base_env() This commit was SVN r2200.
50 строки
851 B
C
50 строки
851 B
C
/* -*- C -*-
|
|
*
|
|
* $HEADER$
|
|
*
|
|
*/
|
|
|
|
#include "ompi_config.h"
|
|
|
|
#include "mca/pcm/base/base.h"
|
|
#include "mca/pcm/base/base.h"
|
|
|
|
#include <string.h>
|
|
|
|
|
|
extern char **environ;
|
|
|
|
char *
|
|
mca_pcm_base_no_unique_name(void)
|
|
{
|
|
return strdup("0");
|
|
}
|
|
|
|
|
|
int
|
|
mca_pcm_base_build_base_env(char ***envp)
|
|
{
|
|
char **env = NULL;
|
|
int envc = 0;
|
|
int i, j;
|
|
|
|
for (i = 0 ; environ[i] != NULL ; ++i) {
|
|
if (0 != strncmp("OMPI_", environ[i], strlen("OMPI_"))) {
|
|
++envc;
|
|
}
|
|
}
|
|
|
|
env = (char**) malloc(sizeof(char*) * (envc + 1));
|
|
if (NULL == env) return OMPI_ERR_OUT_OF_RESOURCE;
|
|
|
|
env[envc] = NULL;
|
|
for (i = 0, j = 0 ; environ[i] != NULL ; ++i) {
|
|
if (0 != strncmp("OMPI_", environ[i], strlen("OMPI_"))) {
|
|
env[j] = strdup(environ[i]);
|
|
++j;
|
|
}
|
|
}
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|