Commit 639ab0fd authored by Steve Plimpton's avatar Steve Plimpton
Browse files

Merge branch 'core/cpp_exceptions' of https://github.com/rbberger/lammps into error

parents 6c65af71 f5a50c3c

doc/src/Section_start.txt

+9 −0
Original line number Diff line number Diff line
@@ -262,6 +262,7 @@ within the LAMMPS code. The options that are currently recogized are: 
-DLAMMPS_BIGBIG

-DLAMMPS_SMALLSMALL

-DLAMMPS_LONGLONG_TO_LONG

-DLAMMPS_EXCEPTIONS

-DPACK_ARRAY

-DPACK_POINTER

-DPACK_MEMCPY :ul
@@ -334,6 +335,14 @@ MPI version does not recognize "long long" data types. In this case a 
"long" data type is likely already 64-bits, in which case this setting

will convert to that data type.



The -DLAMMPS_EXCEPTIONS setting can be used to activate alternative

versions of error handling inside of LAMMPS. This is useful for external

codes driving LAMMPS as a library. Using this option, errors do not exit

the driving process. Instead, the call stack is unwinded and the library

functions can return. The library interface provides the lammps_has_error

and lammps_get_last_error_message functions to detect and find out more

about an LAMMPS error.



Using one of the -DPACK_ARRAY, -DPACK_POINTER, and -DPACK_MEMCPY

options can make for faster parallel FFTs (in the PPPM solver) on some

platforms.  The -DPACK_ARRAY setting is the default.  See the

python/lammps.py

+5 −0
Original line number Diff line number Diff line
@@ -150,6 +150,11 @@ class lammps(object): 
    if cmd: cmd = cmd.encode()

    self.lib.lammps_command(self.lmp,cmd)



    if self.lib.lammps_has_error(self.lmp):

      sb = create_string_buffer(100)

      self.lib.lammps_get_last_error_message(self.lmp, sb, 100)

      raise Exception(sb.value.decode().strip())



  def extract_global(self,name,type):

    if name: name = name.encode()

    if type == 0:

src/error.cpp

+61 −1
Original line number Diff line number Diff line
@@ -13,6 +13,7 @@ 


#include <mpi.h>

#include <stdlib.h>

#include <string.h>

#include "error.h"

#include "universe.h"

#include "output.h"
@@ -21,7 +22,7 @@ using namespace LAMMPS_NS; 


/* ---------------------------------------------------------------------- */



Error::Error(LAMMPS *lmp) : Pointers(lmp) {}

Error::Error(LAMMPS *lmp) : Pointers(lmp), last_error_message(NULL) {}



/* ----------------------------------------------------------------------

   called by all procs in universe
@@ -47,8 +48,14 @@ void Error::universe_all(const char *file, int line, const char *str) 
  }

  if (universe->ulogfile) fclose(universe->ulogfile);



#ifdef LAMMPS_EXCEPTIONS

  char msg[100];

  sprintf(msg, "ERROR: %s (%s:%d)\n", str, file, line);

  throw LAMMPSException(msg);

#else

  MPI_Finalize();

  exit(1);

#endif

}



/* ----------------------------------------------------------------------
@@ -61,7 +68,14 @@ void Error::universe_one(const char *file, int line, const char *str) 
  if (universe->uscreen)

    fprintf(universe->uscreen,"ERROR on proc %d: %s (%s:%d)\n",

            universe->me,str,file,line);



#ifdef LAMMPS_EXCEPTIONS

  char msg[100];

  sprintf(msg, "ERROR: %s (%s:%d)\n", str, file, line);

  throw LAMMPSAbortException(msg, universe->uworld);

#else

  MPI_Abort(universe->uworld,1);

#endif

}



/* ----------------------------------------------------------------------
@@ -95,6 +109,16 @@ void Error::all(const char *file, int line, const char *str) 
    if (logfile) fprintf(logfile,"ERROR: %s (%s:%d)\n",str,file,line);

  }



#ifdef LAMMPS_EXCEPTIONS

  char msg[100];

  sprintf(msg, "ERROR: %s (%s:%d)\n", str, file, line);



  if (universe->nworlds > 1) {

    throw LAMMPSAbortException(msg, universe->uworld);

  }



  throw LAMMPSException(msg);

#else

  if (output) delete output;

  if (screen && screen != stdout) fclose(screen);

  if (logfile) fclose(logfile);
@@ -102,6 +126,7 @@ void Error::all(const char *file, int line, const char *str) 
  if (universe->nworlds > 1) MPI_Abort(universe->uworld,1);

  MPI_Finalize();

  exit(1);

#endif

}



/* ----------------------------------------------------------------------
@@ -121,7 +146,14 @@ void Error::one(const char *file, int line, const char *str) 
    if (universe->uscreen)

      fprintf(universe->uscreen,"ERROR on proc %d: %s (%s:%d)\n",

              universe->me,str,file,line);



#ifdef LAMMPS_EXCEPTIONS

  char msg[100];

  sprintf(msg, "ERROR on proc %d: %s (%s:%d)\n", me, str, file, line);

  throw LAMMPSAbortException(msg, world);

#else

  MPI_Abort(world,1);

#endif

}



/* ----------------------------------------------------------------------
@@ -165,3 +197,31 @@ void Error::done(int status) 
  MPI_Finalize();

  exit(status);

}



/* ----------------------------------------------------------------------

   return the last error message reported by LAMMPS (only used if

   compiled with -DLAMMPS_EXCEPTIONS)

------------------------------------------------------------------------- */



char * Error::get_last_error() const

{

  return last_error_message;

}





/* ----------------------------------------------------------------------

   set the last error message (only used if compiled with

   -DLAMMPS_EXCEPTIONS)

------------------------------------------------------------------------- */



void Error::set_last_error(const char * msg)

{

  delete [] last_error_message;



  if(msg) {

    last_error_message = new char[strlen(msg)+1];

    strcpy(last_error_message, msg);

  } else {

    last_error_message = NULL;

  }

}

src/error.h

+34 −0
Original line number Diff line number Diff line
@@ -15,10 +15,41 @@ 
#define LMP_ERROR_H



#include "pointers.h"

#include <string>

#include <exception>



namespace LAMMPS_NS {



class LAMMPSException : public std::exception

{

public:

  std::string message;



  LAMMPSException(std::string msg) : message(msg) {

  }



  ~LAMMPSException() throw() {

  }



  virtual const char * what() const throw() {

    return message.c_str();

  }

};



class LAMMPSAbortException : public LAMMPSException {

public:

  MPI_Comm universe;



  LAMMPSAbortException(std::string msg, MPI_Comm universe) :

    LAMMPSException(msg),

    universe(universe)

  {

  }

};



class Error : protected Pointers {

  char * last_error_message;



 public:

  Error(class LAMMPS *);
@@ -31,6 +62,9 @@ class Error : protected Pointers { 
  void warning(const char *, int, const char *, int = 1);

  void message(const char *, int, const char *, int = 1);

  void done(int = 0); // 1 would be fully backwards compatible



  char * get_last_error() const;

  void   set_last_error(const char * msg);

};



}

src/library.cpp

+35 −2
Original line number Diff line number Diff line
@@ -109,7 +109,14 @@ void lammps_file(void *ptr, char *str) 
char *lammps_command(void *ptr, char *str)

{

  LAMMPS *  lmp = (LAMMPS *) ptr;

  Error * error = lmp->error;



  try {

    return lmp->input->one(str);

  } catch(LAMMPSException & e) {

    error->set_last_error(e.message.c_str());

    return NULL;

  }

}



/* ----------------------------------------------------------------------
@@ -593,3 +600,29 @@ void lammps_scatter_atoms(void *ptr, char *name, 
    }

  }

}



/* ----------------------------------------------------------------------

   Check if a new error message

------------------------------------------------------------------------- */



int lammps_has_error(void *ptr) {

  LAMMPS *  lmp = (LAMMPS *) ptr;

  Error * error = lmp->error;

  return error->get_last_error() ? 1 : 0;

}



/* ----------------------------------------------------------------------

   Copy the last error message of LAMMPS into a character buffer

------------------------------------------------------------------------- */



int lammps_get_last_error_message(void *ptr, char * buffer, int buffer_size) {

  LAMMPS *  lmp = (LAMMPS *) ptr;

  Error * error = lmp->error;



  if(error->get_last_error()) {

    strncpy(buffer, error->get_last_error(), buffer_size-1);

    error->set_last_error(NULL);

    return 1;

  }

  return 0;

}

CRA Git | Maintained and supported by SUSTech CRA and CCSE