Add in the connect and init files for universe - should fix the make problem Denis encountered.
This commit was SVN r1502.
Этот коммит содержится в:
родитель
74fb2fd531
Коммит
f5696db512
37
src/runtime/universe_connect.c
Обычный файл
37
src/runtime/universe_connect.c
Обычный файл
@ -0,0 +1,37 @@
|
|||||||
|
/*
|
||||||
|
* $HEADER$
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <unistd.h>
|
||||||
|
#include <fcntl.h>
|
||||||
|
#include <string.h>
|
||||||
|
#include <sys/stat.h>
|
||||||
|
|
||||||
|
#include "ompi_config.h"
|
||||||
|
#include "include/constants.h"
|
||||||
|
|
||||||
|
#include "util/os_path.h"
|
||||||
|
#include "runtime/universe_connect.h"
|
||||||
|
|
||||||
|
int ompi_universe_connect(char *tmpdir)
|
||||||
|
{
|
||||||
|
char *uri, tmp[100], *oob_info_path;
|
||||||
|
FILE *fp;
|
||||||
|
|
||||||
|
if (NULL == tmpdir) { /* protect against errors */
|
||||||
|
return(OMPI_ERROR);
|
||||||
|
}
|
||||||
|
|
||||||
|
oob_info_path = ompi_os_path(tmpdir, "oob", NULL);
|
||||||
|
fp = fopen(oob_info_path, "r");
|
||||||
|
if (NULL == fp) {
|
||||||
|
return(OMPI_ERROR);
|
||||||
|
}
|
||||||
|
|
||||||
|
fscanf(fp, "%s", tmp);
|
||||||
|
uri = strdup(tmp);
|
||||||
|
fclose(fp);
|
||||||
|
return(OMPI_SUCCESS);
|
||||||
|
}
|
9
src/runtime/universe_connect.h
Обычный файл
9
src/runtime/universe_connect.h
Обычный файл
@ -0,0 +1,9 @@
|
|||||||
|
/*
|
||||||
|
* $HEADER$
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
/** @file
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
int ompi_universe_connect(char *tmpdir);
|
9
src/runtime/universe_init.h
Обычный файл
9
src/runtime/universe_init.h
Обычный файл
@ -0,0 +1,9 @@
|
|||||||
|
/*
|
||||||
|
* $HEADER$
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
/** @file
|
||||||
|
*
|
||||||
|
*/
|
||||||
|
|
||||||
|
char *ompi_universe_init(char *tmpdir, char *user, char *universe);
|
Загрузка…
x
Ссылка в новой задаче
Block a user