rpl/src/rpl.h - diff

Return to rpl.h CVS log

Up to [local] / rpl / src

Diff for /rpl/src/rpl.h between versions 1.294 and 1.305

version 1.294, 2016/03/23 21:51:14	version 1.305, 2017/06/29 12:33:34
Line 1	Line 1
#define DEBUG_ERREURS
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.25	RPL/2 (R) version 4.1.27
Copyright (C) 1989-2016 Dr. BERTRAND Joël	Copyright (C) 1989-2017 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 65	Line 64
# define SA_ONSTACK 0	# define SA_ONSTACK 0
#endif	#endif

	#ifdef BROKEN_SIGSEGV
	# undef HAVE_STACK_OVERFLOW_RECOVERY
	# undef HAVE_SIGSEGV_RECOVERY
	#endif

#define DEBUG_TRACE uprintf("[%d/%X] %s(%d)\n", \	#define DEBUG_TRACE uprintf("[%d/%X] %s(%d)\n", \
getpid(), pthread_self(), __FILE__, __LINE__);	getpid(), pthread_self(), __FILE__, __LINE__);
#define TEST_ABSENCE_FICHIER(nom) \	#define TEST_ABSENCE_FICHIER(nom) \
Line 216	Line 220
# endif	# endif

# include "sqlite3.h"	# include "sqlite3.h"
# include "sigsegv.h"
	# ifndef BROKEN_SIGSEGV
	# include "sigsegv.h"
	# endif

# ifdef OS2	# ifdef OS2
// Bug de libsigsegv	// Bug de libsigsegv
# undef HAVE_STACK_OVERFLOW_RECOVERY	# undef HAVE_STACK_OVERFLOW_RECOVERY
Line 273	Line 281
# define __STATIC_MUTEX_INITIALIZATION__	# define __STATIC_MUTEX_INITIALIZATION__
#endif	#endif


/*	/*
================================================================================	================================================================================
Bugs spécifiques	Bugs spécifiques
Line 529 union semun	Line 538 union semun
__EXTERN__ pthread_mutex_t mutex_sem __STATIC_MUTEX_INITIALIZATION__;	__EXTERN__ pthread_mutex_t mutex_sem __STATIC_MUTEX_INITIALIZATION__;

__EXTERN__ volatile int routine_recursive;	__EXTERN__ volatile int routine_recursive;
__EXTERN__ volatile sig_atomic_t	__EXTERN__ volatile int nombre_thread_surveillance_processus;
nombre_thread_surveillance_processus;

# define SEM_FORK 0	# define SEM_FORK 0
# define SEM_QUEUE 1	# define SEM_QUEUE 1
Line 810 pid_t debug_fork();	Line 818 pid_t debug_fork();
# define __erreur_(i) i	# define __erreur_(i) i
#endif	#endif

	#ifdef DEBUG_FICHIERS
	# define open(a, ...) \
	({ ufprintf(stderr, "[%d] OPEN %s AT %s() FROM %s LINE %d\n", \
	getpid(), a, \
	__FUNCTION__, __FILE__, __LINE__); open(a, __VA_ARGS__); })
	# define pipe(a) \
	({ ufprintf(stderr, "[%d] PIPE %s AT %s() FROM %s LINE %d\n", \
	getpid(), a, \
	__FUNCTION__, __FILE__, __LINE__); pipe(a); })
	# define shm_open(a, ...) \
	({ ufprintf(stderr, "[%d] SHM_OPEN %s AT %s() FROM %s LINE %d\n", \
	getpid(), a, \
	__FUNCTION__, __FILE__, __LINE__); shm_open(a, __VA_ARGS__); })
	# define shm_unlink(a) \
	({ ufprintf(stderr, "[%d] SHM_UNLINK %s AT %s() FROM %s LINE %d\n", \
	getpid(), a, \
	__FUNCTION__, __FILE__, __LINE__); shm_unlink(a); })
	# define sem_open(a, ...) \
	({ ufprintf(stderr, "[%d] SEM_OPEN %s AT %s() FROM %s LINE %d\n", \
	getpid(), a, \
	__FUNCTION__, __FILE__, __LINE__); sem_open(a, __VA_ARGS__); })
	# define sem_unlink(a) \
	({ ufprintf(stderr, "[%d] SEM_UNLINK %s AT %s() FROM %s LINE %d\n", \
	getpid(), a, \
	__FUNCTION__, __FILE__, __LINE__); sem_unlink(a); })
	# define close(a) \
	({ ufprintf(stderr, "[%d] CLOSE %s AT %s() FROM %s LINE %d\n", \
	getpid(), a, \
	__FUNCTION__, __FILE__, __LINE__); close(a); })
	#endif

// -1 : erreur provoquée par une bibliothèque externe	// -1 : erreur provoquée par une bibliothèque externe
#ifndef RPLARGS	#ifndef RPLARGS
Line 1004 pid_t debug_fork();	Line 1042 pid_t debug_fork();
#define BIN __RPL_BIN	#define BIN __RPL_BIN
#define CHN __RPL_CHN	#define CHN __RPL_CHN
#define CPL __RPL_CPL	#define CPL __RPL_CPL
	#define EXT __RPL_EXT
#define FCH __RPL_FCH	#define FCH __RPL_FCH
#define FCT __RPL_FCT	#define FCT __RPL_FCT
#define INT __RPL_INT	#define INT __RPL_INT
Line 1029 pid_t debug_fork();	Line 1068 pid_t debug_fork();

enum t_rplcas_commandes { RPLCAS_INTEGRATION = 0, RPLCAS_LIMITE };	enum t_rplcas_commandes { RPLCAS_INTEGRATION = 0, RPLCAS_LIMITE };

enum t_type { ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST,	enum t_type { ADR = 0, ALG, BIN, CHN, CPL, EXT, FCH, FCT, INT, LST,
MCX, MIN, MRL, MTX, NOM, NON, PRC, REC, REL, RPN, SCK,	MCX, MIN, MRL, MTX, NOM, NON, PRC, REC, REL, RPN, SCK,
SLB, SPH, SQL, TBL, VCX, VIN, VRL };	SLB, SPH, SQL, TBL, VCX, VIN, VRL };

Line 1053 enum t_type { ADR = 0, ALG, BIN, CHN, C	Line 1092 enum t_type { ADR = 0, ALG, BIN, CHN, C
Sans objet.	Sans objet.
Type C/Fortran : complex16	Type C/Fortran : complex16

	EXT : type géré dans une bibliothèque externe.

FCH : descripteur de fichier (struct_fichier *).	FCH : descripteur de fichier (struct_fichier *).

FCT : déclaration d'une fonction et de son nombre d'arguments	FCT : déclaration d'une fonction et de son nombre d'arguments
Line 1118 enum t_type { ADR = 0, ALG, BIN, CHN, C	Line 1159 enum t_type { ADR = 0, ALG, BIN, CHN, C
typedef struct objet	typedef struct objet
{	{
enum t_type type;	enum t_type type;
	int extension_type;
	void *descripteur_bibliotheque;

volatile long nombre_occurrences;	volatile long nombre_occurrences;

Line 3120 void interruption3(int signal);	Line 3163 void interruption3(int signal);
void interruption4(int signal);	void interruption4(int signal);
void interruption5(int signal);	void interruption5(int signal);
void interruption6(int signal);	void interruption6(int signal);
void interruption_depassement_pile(int urgence, stackoverflow_context_t scp);	#ifdef HAVE_SIGSEGV_RECOVERY
	void interruption_depassement_pile(int urgence,
	stackoverflow_context_t scp);
	#endif
void inversion_matrice(struct_processus *s_etat_processus,	void inversion_matrice(struct_processus *s_etat_processus,
struct_matrice *s_matrice);	struct_matrice *s_matrice);
void lancement_daemon(struct_processus *s_etat_processus);	void lancement_daemon(struct_processus *s_etat_processus);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.294
changed lines
	Added in v.1.305