#include <lal/LALConfig.h>#include <stdlib.h>#include <string.h>#include <lal/LALMalloc.h>#include <lal/LALDatatypes.h>#include <lal/LALError.h>#include <lal/LALRCSID.h>#include <lal/XLALGSL.h>#include <gsl/gsl_errno.h>Include dependency graph for LALGSL.h:

Go to the source code of this file.
Defines | |
| #define | LALGSL_PTHREAD_MUTEX_LOCK ((void)(0)) |
| #define | LALGSL_PTHREAD_MUTEX_UNLOCK ((void)(0)) |
| #define | CALLGSL(statement, statusptr) |
| #define | TRYGSL(statement, statusptr) |
Functions | |
| NRCSID (LALGSLH,"$Id: LALGSL.h,v 1.5 2007/06/08 14:41:52 bema Exp $") | |
| void | LALGSLErrorHandler (const char *reason, const char *file, int line, int errnum) |
Variables | |
| LALStatus * | lalGSLGlobalStatusPtr |
| #define CALLGSL | ( | statement, | |||
| statusptr | ) |
Value:
if ( (statusptr) ) { LALStatus *saveLALGSLGlobalStatusPtr_; gsl_error_handler_t *saveGSLErrorHandler_; if ( !( (statusptr)->statusPtr ) ) { ABORT( (statusptr), -8, "CALLGSL: null status pointer pointer" ); } /* LALGSL_PTHREAD_MUTEX_LOCK; */ saveGSLErrorHandler_ = gsl_set_error_handler( LALGSLErrorHandler ); saveLALGSLGlobalStatusPtr_ = lalGSLGlobalStatusPtr; lalGSLGlobalStatusPtr = (statusptr)->statusPtr; statement; lalGSLGlobalStatusPtr = saveLALGSLGlobalStatusPtr_; gsl_set_error_handler( saveGSLErrorHandler_ ); /* LALGSL_PTHREAD_MUTEX_UNLOCK; */ } else lalAbortHook( "Abort: CALLGSL, file %s, line %d\n" " Null status pointer passed to CALLGSL\n", __FILE__, __LINE__ )
| #define TRYGSL | ( | statement, | |||
| statusptr | ) |
Value:
if ( (statusptr) ) { LALStatus *saveLALGSLGlobalStatusPtr_; gsl_error_handler_t *saveGSLErrorHandler_; if ( !( (statusptr)->statusPtr ) ) { ABORT( (statusptr), -8, "CALLGSL: null status pointer pointer" ); } /* LALGSL_PTHREAD_MUTEX_LOCK; */ saveGSLErrorHandler_ = gsl_set_error_handler( LALGSLErrorHandler ); saveLALGSLGlobalStatusPtr_ = lalGSLGlobalStatusPtr; lalGSLGlobalStatusPtr = (statusptr)->statusPtr; statement; lalGSLGlobalStatusPtr = saveLALGSLGlobalStatusPtr_; gsl_set_error_handler( saveGSLErrorHandler_ ); /* LALGSL_PTHREAD_MUTEX_UNLOCK; */ if ( (statusptr)->statusPtr->statusCode ) { SETSTATUS( statusptr, -1, "Recursive error" ); (void) LALError( statusptr, "Statement \"" #statement "\" failed:" ); (void) LALTrace( statusptr, 1 ); return; } } else lalAbortHook( "Abort: CALLGSL, file %s, line %d\n" " Null status pointer passed to CALLGSL\n", __FILE__, __LINE__ )
| NRCSID | ( | LALGSLH | , | |
| "$Id: LALGSL. | h, | |||
| v 1.5 2007/06/08 14:41:52 bema Exp $" | ||||
| ) |
| void LALGSLErrorHandler | ( | const char * | reason, | |
| const char * | file, | |||
| int | line, | |||
| int | errnum | |||
| ) |
1.5.2