src/Message/CommCreator.cpp

Go to the documentation of this file.

// -*- C++ -*-
/***************************************************************************
 *
 * The IPPL Framework
 * 
 * This program was prepared by PSI. 
 * All rights in the program are reserved by PSI.
 * Neither PSI nor the author(s)
 * makes any warranty, express or implied, or assumes any liability or
 * responsibility for the use of this software
 *
 * Visit http://www.acl.lanl.gov/POOMS for more details
 *
 ***************************************************************************/

// -*- C++ -*-
/***************************************************************************
 *
 * The IPPL Framework
 * 
 *
 * Visit http://people.web.psi.ch/adelmann/ for more details
 *
 ***************************************************************************/

// include files
#include "Message/CommCreator.h"
#include "Message/Communicate.h"
#include "Profile/Profiler.h"

// include files for specific communication libraries
#if defined(IPPL_PVM)
#include "Message/CommPVM.h"
#endif

#if defined(IPPL_MPI)
#include "Message/CommMPI.h"
#endif

#if defined(IPPL_SHMEMPI)
#include "Message/CommSHMEMPI.h"
#endif

#if defined(IPPL_ACLMPL)
#include "Message/CommACLMPL.h"
#endif

#if defined(IPPL_PM)
#include "Message/CommPM.h"
#endif

#include <string.h>

// static data for this file
static char *CommLibraryNames[CommCreator::COMMLIBRARIES] =
  { "aclmpl", "pm", "mpi", "shmempi", "pvm", "serial" };
static char *CommLibraryList = "aclmpl, pm, mpi, shmempi, pvm, or serial";


// return the name of the Nth library
const char *CommCreator::getLibraryName(int n) {
  TAU_PROFILE("CommCreator::getLibraryName()", "char * (int n)", TAU_MESSAGE);
  if (n >= 0 && n < COMMLIBRARIES)
    return CommLibraryNames[n];
  else
    return 0;
}


// return a list of all the libraries, as a single string
const char *CommCreator::getAllLibraryNames() {
  TAU_PROFILE("CommCreator::getAllLibraryNames()", "char *()", TAU_MESSAGE);
  return CommLibraryList;
}


bool CommCreator::supported(int cm) {
  TAU_PROFILE("CommCreator::supported()", "bool (int)", TAU_MESSAGE);
  if (cm == ACLMPL) {
#ifdef IPPL_ACLMPL
    return true;
#endif
  } else if (cm == PM) {
#ifdef IPPL_PM
    return true;
#endif
  } else if (cm == MPI) {
#ifdef IPPL_MPI
    return true;
#endif
  } else if (cm == SHMEMPI) {
#ifdef IPPL_SHMEMPI
    return true;
#endif
  } else if (cm == PVM) {
#ifdef IPPL_PVM
    return true;
#endif
  } else if (cm == SERIAL) {
    return true;
  }

  return false;
}


// return the index of the given named library, or (-1) if not found
int CommCreator::libindex(const char *nm) {
  TAU_PROFILE("CommCreator::libindex()", "int (char *)", TAU_MESSAGE);
  for (int i=0; i < COMMLIBRARIES; ++i) {
    if (strcmp(nm, getLibraryName(i)) == 0)
      return i;
  }

  // if here, it was not found
  return (-1);
}


// create a new Communicate object.  Arguments = type, argc, argv, num nodes,
// whether to do initialization or not (ignored by some libs).
// If the type code is illegal, or the comm library is not supported,
// return 0.
Communicate *CommCreator::create(int cm, int& argc, char**& argv, int nodes,
                                 bool doinit) {
  TAU_PROFILE("CommCreator::create()",
              "Communicate * (int, int, char **, int)", TAU_MESSAGE);

  Communicate *comm = 0;

  // to avoid warning message
  if (doinit);

  if (cm == ACLMPL) {
#ifdef IPPL_ACLMPL
    comm = new CommACLMPL(argc, argv, nodes);
#endif

  } else if (cm == PM) {
#ifdef IPPL_PM
    comm = new CommPM(argc, argv, nodes);
#endif  

  } else if (cm == MPI) {
#ifdef IPPL_MPI
    comm = new CommMPI(argc, argv, nodes, doinit);
#endif

  } else if (cm == SHMEMPI) {
#ifdef IPPL_SHMEMPI
    comm = new CommSHMEMPI(argc, argv, nodes);
#endif

  } else if (cm == PVM) {
#ifdef IPPL_PVM
    comm = new CommPVM(argc, argv, nodes);
#endif

  } else if (cm == SERIAL) {
    // just make a dummy comm object, which does nothing
    comm = new Communicate(argc, argv, nodes);
  }

  // return the Communicate object
  return comm;
}


/***************************************************************************
 * $RCSfile: CommCreator.cpp,v $   $Author: adelmann $
 * $Revision: 1.1.1.1 $   $Date: 2003/01/23 07:40:28 $
 * IPPL_VERSION_ID: $Id: CommCreator.cpp,v 1.1.1.1 2003/01/23 07:40:28 adelmann Exp $ 
 ***************************************************************************/

---