mumps_io_err.c File Reference

#include "mumps_io_err.h"
#include "mumps_io_basic.h"
#include "mumps_c_types.h"

Go to the source code of this file.

Functions
void MUMPS_CALL	MUMPS_LOW_LEVEL_INIT_ERR_STR (MUMPS_INT *dim, char *err_str, mumps_ftnlen l1)
MUMPS_INLINE MUMPS_INT	mumps_io_protect_err ()
MUMPS_INLINE MUMPS_INT	mumps_io_unprotect_err ()
MUMPS_INT	mumps_io_init_err_lock ()
MUMPS_INT	mumps_io_destroy_err_lock ()
MUMPS_INT	mumps_check_error_th ()
MUMPS_INT	mumps_io_error (MUMPS_INT mumps_errno, const char *desc)
MUMPS_INT	mumps_io_sys_error (MUMPS_INT mumps_errno, const char *desc)

Variables
char *	mumps_err
MUMPS_INT *	dim_mumps_err
MUMPS_INT	mumps_err_max_len
MUMPS_INT	err_flag
pthread_mutex_t	err_mutex

Function Documentation

mumps_check_error_th()

MUMPS_INT mumps_check_error_th

(

)

Definition at line 74 of file mumps_io_err.c.

{
  /* If err_flag != 0, then error_str is set */
  return err_flag;
}

mumps_io_destroy_err_lock()

MUMPS_INT mumps_io_destroy_err_lock

(

)

Definition at line 68 of file mumps_io_err.c.

{
  pthread_mutex_destroy(&err_mutex);
  return 0;
}

mumps_io_error()

MUMPS_INT mumps_io_error	(	MUMPS_INT	mumps_errno,
		const char *	desc )

Definition at line 81 of file mumps_io_err.c.

{
    MUMPS_INT len;
#if ! defined( MUMPS_WIN32 ) && ! defined( WITHOUT_PTHREAD )
  mumps_io_protect_err();
#endif
  if(err_flag == 0){
    strncpy(mumps_err, desc, mumps_err_max_len);
    /* mumps_err is a FORTRAN string, we do not care about adding a final 0 */
    len = (MUMPS_INT) strlen(desc);
    *dim_mumps_err = (len <= mumps_err_max_len ) ? len : mumps_err_max_len;
    err_flag = mumps_errno;
  }
#if ! defined( MUMPS_WIN32 ) && ! defined( WITHOUT_PTHREAD )
  mumps_io_unprotect_err();
#endif
  return mumps_errno;
}

mumps_io_init_err_lock()

MUMPS_INT mumps_io_init_err_lock

(

)

Definition at line 62 of file mumps_io_err.c.

{
  pthread_mutex_init(&err_mutex,NULL);
  return 0;
}

mumps_io_protect_err()

MUMPS_INLINE MUMPS_INT mumps_io_protect_err

(

)

Definition at line 46 of file mumps_io_err.c.

{
  if(mumps_io_flag_async==IO_ASYNC_TH){
    pthread_mutex_lock(&err_mutex);
  }
  return 0;
}

mumps_io_sys_error()

MUMPS_INT mumps_io_sys_error	(	MUMPS_INT	mumps_errno,
		const char *	desc )

Definition at line 100 of file mumps_io_err.c.

{
  MUMPS_INT len = 2; /* length of ": " */
  const char* _desc;
  char* _err;
#if defined( MUMPS_WIN32 )
  MUMPS_INT _err_len;
#endif
#if ! defined( MUMPS_WIN32 ) && ! defined( WITHOUT_PTHREAD )
  mumps_io_protect_err();
#endif
  if(err_flag==0){
    if(desc == NULL) {
      _desc = "";
    } else {
        len += (MUMPS_INT) strlen(desc);
      _desc = desc;
    }
#if ! defined( MUMPS_WIN32 )
    _err = strerror(errno);
    len += (MUMPS_INT) strlen(_err);
    snprintf(mumps_err, mumps_err_max_len, "%s: %s", _desc, _err);
    /* mumps_err is a FORTRAN string, we do not care about adding a final 0 */
#else
    /* This a VERY UGLY workaround for snprintf: this function has been
     * integrated quite lately into the ANSI stdio: some windows compilers are
     * not up-to-date yet. */
    if( len >= mumps_err_max_len - 1 ) { /* then do not print sys error msg at all */
      len -= 2;
      len = (len >= mumps_err_max_len ) ? mumps_err_max_len - 1 : len;
      _err = strdup( _desc );
      _err[len] = '\0';
      sprintf(mumps_err, "%s", _err);
    } else {
      _err = strdup(strerror(errno));
      _err_len = (MUMPS_INT) strlen(_err);
      /* We will use sprintf, so make space for the final '\0' ! */
      if((len + _err_len) >= mumps_err_max_len) {
        /* truncate _err, not to overtake mumps_err_max_len at the end. */
        _err[mumps_err_max_len - len - 1] = '\0';
        len = mumps_err_max_len - 1;
      } else {
        len += _err_len;
      }
      sprintf(mumps_err, "%s: %s", _desc, _err);
    }
    free(_err);
#endif
    *dim_mumps_err = (len <= mumps_err_max_len ) ? len : mumps_err_max_len;
    err_flag = mumps_errno;
  }
#if ! defined( MUMPS_WIN32 ) && ! defined( WITHOUT_PTHREAD )
  mumps_io_unprotect_err();
#endif
  return mumps_errno;
}

mumps_io_unprotect_err()

MUMPS_INLINE MUMPS_INT mumps_io_unprotect_err

(

)

Definition at line 54 of file mumps_io_err.c.

{
  if(mumps_io_flag_async==IO_ASYNC_TH){
    pthread_mutex_unlock(&err_mutex);
  }
  return 0;
}

MUMPS_LOW_LEVEL_INIT_ERR_STR()

void MUMPS_CALL MUMPS_LOW_LEVEL_INIT_ERR_STR	(	MUMPS_INT *	dim,
		char *	err_str,
		mumps_ftnlen	l1 )

Definition at line 37 of file mumps_io_err.c.

                                                                            {
  mumps_err = err_str;
  dim_mumps_err = (MUMPS_INT *) dim;
  mumps_err_max_len = (MUMPS_INT) *dim;
  err_flag = 0;
  return;
}

Variable Documentation

dim_mumps_err

MUMPS_INT* dim_mumps_err

Definition at line 24 of file mumps_io_err.c.

err_flag

MUMPS_INT err_flag

Definition at line 26 of file mumps_io_err.c.

err_mutex

pthread_mutex_t err_mutex

Definition at line 28 of file mumps_io_err.c.

mumps_err

char* mumps_err

Definition at line 23 of file mumps_io_err.c.

mumps_err_max_len

MUMPS_INT mumps_err_max_len

Definition at line 25 of file mumps_io_err.c.