--- rpl/src/rpl.h	2016/03/22 19:03:36	1.293
+++ rpl/src/rpl.h	2016/09/27 15:29:40	1.300
@@ -1,7 +1,6 @@
-#define DEBUG_ERREURS
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.25
+  RPL/2 (R) version 4.1.26
   Copyright (C) 1989-2016 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -273,6 +272,7 @@
 #	define __STATIC_MUTEX_INITIALIZATION__
 #endif
 
+
 /*
 ================================================================================
   Bugs spécifiques
@@ -529,8 +529,7 @@ union semun
 	__EXTERN__ pthread_mutex_t		mutex_sem __STATIC_MUTEX_INITIALIZATION__;
 
 	__EXTERN__ volatile int			routine_recursive;
-	__EXTERN__ volatile sig_atomic_t
-									nombre_thread_surveillance_processus;
+	__EXTERN__ volatile int			nombre_thread_surveillance_processus;
 
 #	define SEM_FORK					0
 #	define SEM_QUEUE				1
@@ -798,16 +797,48 @@ pid_t debug_fork();
 #		else
 #			define __erreur_(i)	i
 #		endif
-#		define __erreur(i)	({ if (strstr(__FUNCTION__, "recherche_variable") \
-				== NULL) ufprintf(stderr, \
-				"ERROR %d AT %s() FROM %s LINE %d\n", \
-				i, __FUNCTION__, __FILE__, __LINE__); BACKTRACE(16); i; })
+#		define __erreur(i)	({ int ios; ios = errno; \
+				if (strstr(__FUNCTION__, "recherche_variable") \
+				== NULL) { if(ios != 0) \
+				ufprintf(stderr, "LAST ERROR: %s\n", strerror(ios)); \
+				ufprintf(stderr, "ERROR %d AT %s() FROM %s LINE %d\n", \
+				i, __FUNCTION__, __FILE__, __LINE__); BACKTRACE(16); } i; })
 #	endif
 #else
 #	define __erreur(i)	i
 #	define __erreur_(i)	i
 #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
 #ifndef RPLARGS