traceback_handler.c File Reference

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <signal.h>

Go to the source code of this file.

Macros
#define	_FCALL
#define	trace_cf   trace_cf_

Functions
void	ARRET (int *n)
void	arret_ (int *n)
void	arret_c (int n)
void	setignorecore (int *on)
void	ignoreCore (int s)
void	trace_cf (int *s, int *iw)
void	user_abrt (int sig)
void _FCALL	SETIGNORECORE (int *on)
void	setignorecore__ (int *on)
void	setignorecore_ (int *on)

Macro Definition Documentation

_FCALL

#define _FCALL

Definition at line 29 of file traceback_handler.c.

trace_cf

#define trace_cf   trace_cf_

Definition at line 39 of file traceback_handler.c.

Function Documentation

ARRET()

void ARRET

(

int *

n

)

arret_()

void arret_

(

int *

n

)

arret_c()

void arret_c

(

int

n

)

---

Calls the Fortran Arret routine for termination

n is the error termination

Definition at line 132 of file write_routtines.c.

{
/*Appel a une routine Fortran */
#ifdef _WIN64
 ARRET(&n);
#else
 arret_(&n);
#endif
}

ignoreCore()

void ignoreCore

(

int

s

)

Definition at line 60 of file traceback_handler.c.

{
  int iw = 1, is;
  if     (s == SIGBUS ) is=1;
  else if(s == SIGFPE ) is=2;
  else if(s == SIGSEGV) is=3;
    
  trace_cf(&is,&iw);
/*  setIgnoreCore (1);*/
}

SETIGNORECORE()

void _FCALL SETIGNORECORE

(

int *

on

)

Definition at line 83 of file traceback_handler.c.

{setignorecore (on);}

setignorecore()

void setignorecore

(

int *

on

)

Definition at line 90 of file traceback_handler.c.

{
  if (*on) {            /*ignoring core */
#ifdef SIGBUS
    signal (SIGBUS, ignoreCore);  /* 7 bus error*/
#endif
#ifdef SIGFPE
    signal (SIGFPE, ignoreCore);  /* 8 i/0 */
#endif
#ifdef SIGSEGV
    signal (SIGSEGV, ignoreCore);  /* 11 segmentation violation*/
#endif
  }
  else {            /* acknowledging core */
#ifdef SIGBUS
    signal (SIGBUS, SIG_DFL);  /* 7 bus error*/
#endif
#ifdef SIGFPE
    signal (SIGFPE, SIG_DFL);  /* 8 i/0 */
#endif
#ifdef SIGSEGV
    signal (SIGSEGV, SIG_DFL);  /* 11 segmentation violation*/
#endif
  }
 
#ifdef SIGINT
signal (SIGINT,user_abrt);  /* 2 Interrupt from keyboard*/
#endif
 
#ifdef SIGABRT
signal (SIGABRT,user_abrt);  /* 6 Abnormal termination*/
#endif
 
#ifdef SIGBREAK
signal (SIGBREAK,user_abrt);  /* Ctrl-Break signal*/
#endif
 
#ifdef SIGTERM
signal (SIGTERM,user_abrt);  /* 15 Termination signal*/
#endif
}

setignorecore_()

void setignorecore_

(

int *

on

)

Definition at line 87 of file traceback_handler.c.

{setignorecore (on);}

setignorecore__()

void setignorecore__

(

int *

on

)

Definition at line 85 of file traceback_handler.c.

{setignorecore (on);}

trace_cf()

void trace_cf	(	int *	s,
		int *	iw )

user_abrt()

void user_abrt

(

int

sig

)

Definition at line 73 of file traceback_handler.c.

{
 int val=6;         /* arret_c(6) initiates STOP with 3 as error code (system error) */
 printf("\n\nUser or system abort detected (CTRL-C) !\n\n");
 arret_c(val);
}