1
1
openmpi/opal/mca/installdirs/env/opal_installdirs_env.c
Rainer Keller d8cf4c0fec - Get pgcc on XT to complain less:
In case we use memcmp, strlen, strup and friends include <string.h>
   Also several constants.h are not included directly
 - Let's have mca_topo_base_cart_create  return ompi-errors in
   ompi/mca/topo/base/topo_base_cart_create.c

This commit was SVN r20773.
2009-03-13 02:10:32 +00:00

84 строки
2.4 KiB
C

/*
* Copyright (c) 2006-2007 Los Alamos National Security, LLC. All rights
* reserved.
* Copyright (c) 2007 Cisco Systems, Inc. All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "opal_config.h"
#include <stdlib.h>
#include <string.h>
#include "opal/constants.h"
#include "opal/mca/installdirs/installdirs.h"
static int installdirs_env_open(void);
opal_installdirs_base_component_t mca_installdirs_env_component = {
/* First, the mca_component_t struct containing meta information
about the component itself */
{
OPAL_INSTALLDIRS_BASE_VERSION_2_0_0,
/* Component name and version */
"env",
OPAL_MAJOR_VERSION,
OPAL_MINOR_VERSION,
OPAL_RELEASE_VERSION,
/* Component open and close functions */
installdirs_env_open,
NULL
},
{
/* This component is checkpointable */
MCA_BASE_METADATA_PARAM_CHECKPOINT
},
/* Next the opal_install_dirs_t install_dirs_data information */
{
NULL,
},
};
#define SET_FIELD(field, envname) \
do { \
char *tmp = getenv(envname); \
if (NULL != tmp && 0 == strlen(tmp)) { \
tmp = NULL; \
} \
mca_installdirs_env_component.install_dirs_data.field = tmp; \
} while (0)
static int
installdirs_env_open(void)
{
SET_FIELD(prefix, "OPAL_PREFIX");
SET_FIELD(exec_prefix, "OPAL_EXEC_PREFIX");
SET_FIELD(bindir, "OPAL_BINDIR");
SET_FIELD(sbindir, "OPAL_SBINDIR");
SET_FIELD(libexecdir, "OPAL_LIBEXECDIR");
SET_FIELD(datarootdir, "OPAL_DATAROOTDIR");
SET_FIELD(datadir, "OPAL_DATADIR");
SET_FIELD(sysconfdir, "OPAL_SYSCONFDIR");
SET_FIELD(sharedstatedir, "OPAL_SHAREDSTATEDIR");
SET_FIELD(localstatedir, "OPAL_LOCALSTATEDIR");
SET_FIELD(libdir, "OPAL_LIBDIR");
SET_FIELD(includedir, "OPAL_INCLUDEDIR");
SET_FIELD(infodir, "OPAL_INFODIR");
SET_FIELD(mandir, "OPAL_MANDIR");
SET_FIELD(pkgdatadir, "OPAL_PKGDATADIR");
SET_FIELD(pkglibdir, "OPAL_PKGLIBDIR");
SET_FIELD(pkgincludedir, "OPAL_PKGINCLUDEDIR");
return OPAL_SUCCESS;
}