1
1
openmpi/opal/mca/paffinity/solaris/paffinity_solaris_module.c

96 строки
2.1 KiB
C
Исходник Обычный вид История

/*
* Copyright (c) 2004-2005 The Trustees of Indiana University.
* All rights reserved.
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
* All rights reserved.
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2005 The Regents of the University of California.
* All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "ompi_config.h"
/* This component will only be compiled on Solaris, where we are
guaranteed to have <unistd.h> and friends */
#include <sched.h>
#include <unistd.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include "opal/include/opal_constants.h"
#include "opal/mca/base/mca_base_param.h"
#include "opal/mca/paffinity/paffinity.h"
#include "opal/mca/paffinity/base/base.h"
#include "paffinity_solaris.h"
/*
* Local functions
*/
static int solaris_module_init(void);
static int solaris_module_get_num_procs(int *num_procs);
static int solaris_module_set(int id);
static int solaris_module_get(int *id);
/*
* Solaris paffinity module
*/
static const opal_paffinity_base_module_1_0_0_t module = {
/* Initialization function */
solaris_module_init,
/* Module function pointers */
solaris_module_get_num_procs,
solaris_module_set,
solaris_module_get
};
const opal_paffinity_base_module_1_0_0_t *
opal_paffinity_solaris_component_query(int *query)
{
int param;
param = mca_base_param_find("paffinity", "solaris", "priority");
mca_base_param_lookup_int(param, query);
return &module;
}
static int solaris_module_init(void)
{
/* Nothing to do */
return OPAL_SUCCESS;
}
static int solaris_module_get_num_procs(int *num_procs)
{
*num_procs = sysconf(_SC_NPROCESSORS_ONLN);
return OPAL_SUCCESS;
}
static int solaris_module_set(int id)
{
return OPAL_ERR_NOT_IMPLEMENTED;
}
static int solaris_module_get(int *id)
{
return OPAL_ERR_NOT_IMPLEMENTED;
}