1a100e65c1
host / cpu information down into a handle that need not exist when the llm isn't being used. Fix all the test cases and whatnot to match This commit was SVN r2490.
65 строки
1.3 KiB
C
65 строки
1.3 KiB
C
/* -*- C -*-
|
|
*
|
|
* $HEADER$
|
|
*
|
|
*/
|
|
|
|
#include "ompi_config.h"
|
|
|
|
#include <string.h>
|
|
|
|
#include "include/constants.h"
|
|
#include "class/ompi_list.h"
|
|
#include "util/argv.h"
|
|
#include "runtime/runtime_types.h"
|
|
#include "mca/pcm/base/base.h"
|
|
#include "mca/llm/base/base.h"
|
|
#include "mca/llm/base/base_internal.h"
|
|
|
|
char *
|
|
mca_pcm_base_no_unique_name(void)
|
|
{
|
|
return strdup("0");
|
|
}
|
|
|
|
|
|
int
|
|
mca_pcm_base_build_base_env(char **in_env, char ***out_envp)
|
|
{
|
|
char **env = NULL;
|
|
int envc = 0;
|
|
int i;
|
|
int ret;
|
|
|
|
for (i = 0 ; in_env[i] != NULL ; ++i) {
|
|
if (0 == strncmp("OMPI_", in_env[i], strlen("OMPI_"))) {
|
|
ret = ompi_argv_append(&envc, &env, in_env[i]);
|
|
if (OMPI_SUCCESS != ret) {
|
|
ompi_argv_free(env);
|
|
return ret;
|
|
}
|
|
}
|
|
}
|
|
|
|
*out_envp = env;
|
|
|
|
return OMPI_SUCCESS;
|
|
}
|
|
|
|
|
|
char *
|
|
mca_pcm_base_get_username(mca_llm_base_hostfile_node_t *host)
|
|
{
|
|
ompi_list_item_t *item;
|
|
ompi_rte_valuepair_t *valpair;
|
|
|
|
for (item = ompi_list_get_first(host->info) ;
|
|
item != ompi_list_get_end(host->info) ;
|
|
item = ompi_list_get_next(item)) {
|
|
valpair = (ompi_rte_valuepair_t*) item;
|
|
if (0 == strcmp("user", valpair->key)) return valpair->value;
|
|
}
|
|
|
|
return NULL;
|
|
}
|