--- rpl/src/interruptions.c	2010/03/04 10:17:54	1.4
+++ rpl/src/interruptions.c	2011/09/15 17:51:43	1.69
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.12
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.3
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -57,6 +57,12 @@ static volatile struct_liste_chainee_vol
 		= NULL;
 static volatile struct_liste_chainee_volatile	*liste_threads_surveillance
 		= NULL;
+static volatile int								code_erreur_gsl = 0;
+
+static unsigned char							*racine_segment;
+
+static pthread_mutex_t							mutex_interruptions
+		= PTHREAD_MUTEX_INITIALIZER;
 
 void
 modification_pid_thread_pere(struct_processus *s_etat_processus)
@@ -74,45 +80,17 @@ modification_pid_thread_pere(struct_proc
 void
 insertion_thread(struct_processus *s_etat_processus, logical1 thread_principal)
 {
-	sigset_t									oldset;
-	sigset_t									set;
-
 	volatile struct_liste_chainee_volatile		*l_nouvel_objet;
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
-	while(sem_wait(&semaphore_liste_threads) == -1)
-	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			sigpending(&set);
-
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
-	}
-
 	if ((l_nouvel_objet = malloc(sizeof(struct_liste_chainee_volatile)))
 			== NULL)
 	{
-		sem_post(&semaphore_liste_threads);
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;
 	}
 
-	(*l_nouvel_objet).suivant = liste_threads;
-
 	if (((*l_nouvel_objet).donnee = malloc(sizeof(struct_thread))) == NULL)
 	{
-		sem_post(&semaphore_liste_threads);
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;
 	}
@@ -124,19 +102,21 @@ insertion_thread(struct_processus *s_eta
 	(*((struct_thread *) (*l_nouvel_objet).donnee)).s_etat_processus =
 			s_etat_processus;
 
+	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
+	}
+
+	(*l_nouvel_objet).suivant = liste_threads;
 	liste_threads = l_nouvel_objet;
 
-	if (sem_post(&semaphore_liste_threads) != 0)
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
 	return;
 }
 
@@ -144,78 +124,49 @@ void
 insertion_thread_surveillance(struct_processus *s_etat_processus,
 		struct_descripteur_thread *s_argument_thread)
 {
-	sigset_t									oldset;
-	sigset_t									set;
-
 	volatile struct_liste_chainee_volatile		*l_nouvel_objet;
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
-	while(sem_wait(&semaphore_liste_threads) == -1)
-	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			sigpending(&set);
-
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
-	}
-
 	if ((l_nouvel_objet = malloc(sizeof(struct_liste_chainee_volatile)))
 			== NULL)
 	{
-		sem_post(&semaphore_liste_threads);
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;
 	}
 
+	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
+	}
+
+	pthread_mutex_lock(&((*s_argument_thread).mutex_nombre_references));
+	(*s_argument_thread).nombre_references++;
+	pthread_mutex_unlock(&((*s_argument_thread).mutex_nombre_references));
+
 	(*l_nouvel_objet).suivant = liste_threads_surveillance;
 	(*l_nouvel_objet).donnee = (void *) s_argument_thread;
 
 	liste_threads_surveillance = l_nouvel_objet;
 
-	if (sem_post(&semaphore_liste_threads) != 0)
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
 	return;
 }
 
 void
 retrait_thread(struct_processus *s_etat_processus)
 {
-	sigset_t								oldset;
-	sigset_t								set;
-
 	volatile struct_liste_chainee_volatile	*l_element_precedent;
 	volatile struct_liste_chainee_volatile	*l_element_courant;
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
-	while(sem_wait(&semaphore_liste_threads) == -1)
+	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
 	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			sigpending(&set);
-
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
 	}
 
 	l_element_precedent = NULL;
@@ -236,10 +187,7 @@ retrait_thread(struct_processus *s_etat_
 
 	if (l_element_courant == NULL)
 	{
-		sem_post(&semaphore_liste_threads);
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
+		pthread_mutex_unlock(&mutex_liste_threads);
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
@@ -253,30 +201,15 @@ retrait_thread(struct_processus *s_etat_
 		(*l_element_precedent).suivant = (*l_element_courant).suivant;
 	}
 
-	free((void *) (*l_element_courant).donnee);
-	free((struct_liste_chainee_volatile *) l_element_courant);
-
-	if (pthread_setspecific(semaphore_fork_processus_courant, NULL) != 0)
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_processus;
-
-		sem_post(&semaphore_liste_threads);
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
 		return;
 	}
 
-	if (sem_post(&semaphore_liste_threads) != 0)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_processus;
-
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-		return;
-	}
+	free((void *) (*l_element_courant).donnee);
+	free((struct_liste_chainee_volatile *) l_element_courant);
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
 	return;
 }
 
@@ -284,25 +217,13 @@ void
 retrait_thread_surveillance(struct_processus *s_etat_processus,
 		struct_descripteur_thread *s_argument_thread)
 {
-	sigset_t								set;
-	sigset_t								oldset;
-
 	volatile struct_liste_chainee_volatile	*l_element_precedent;
 	volatile struct_liste_chainee_volatile	*l_element_courant;
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
-	while(sem_wait(&semaphore_liste_threads) == -1)
+	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
 	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			sigpending(&set);
-
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
 	}
 
 	l_element_precedent = NULL;
@@ -321,10 +242,7 @@ retrait_thread_surveillance(struct_proce
 
 	if (l_element_courant == NULL)
 	{
-		sem_post(&semaphore_liste_threads);
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
+		pthread_mutex_unlock(&mutex_liste_threads);
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
@@ -338,13 +256,10 @@ retrait_thread_surveillance(struct_proce
 		(*l_element_precedent).suivant = (*l_element_courant).suivant;
 	}
 
-	free((struct_liste_chainee_volatile *) l_element_courant);
-
-	if (pthread_mutex_lock(&((*s_argument_thread).mutex)) != 0)
+	if (pthread_mutex_lock(&((*s_argument_thread).mutex_nombre_references))
+			!= 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
+		pthread_mutex_unlock(&mutex_liste_threads);
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
@@ -357,41 +272,36 @@ retrait_thread_surveillance(struct_proce
 
 	if ((*s_argument_thread).nombre_references == 0)
 	{
-		if (pthread_mutex_unlock(&((*s_argument_thread).mutex)) != 0)
+		if (pthread_mutex_unlock(&((*s_argument_thread)
+				.mutex_nombre_references)) != 0)
 		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			sigpending(&set);
-
+			pthread_mutex_unlock(&mutex_liste_threads);
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return;
 		}
 
 		pthread_mutex_destroy(&((*s_argument_thread).mutex));
+		pthread_mutex_destroy(&((*s_argument_thread).mutex_nombre_references));
 		free(s_argument_thread);
 	}
 	else
 	{
-		if (pthread_mutex_unlock(&((*s_argument_thread).mutex)) != 0)
+		if (pthread_mutex_unlock(&((*s_argument_thread)
+				.mutex_nombre_references)) != 0)
 		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			sigpending(&set);
-
+			pthread_mutex_unlock(&mutex_liste_threads);
 			(*s_etat_processus).erreur_systeme = d_es_processus;
 			return;
 		}
 	}
 
-	if (sem_post(&semaphore_liste_threads) != 0)
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-		sigpending(&set);
-
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
+	free((struct_liste_chainee_volatile *) l_element_courant);
 	return;
 }
 
@@ -400,13 +310,10 @@ verrouillage_threads_concurrents(struct_
 {
 	volatile struct_liste_chainee_volatile	*l_element_courant;
 
-	while(sem_wait(&semaphore_liste_threads) == -1)
+	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
 	{
-		if (errno != EINTR)
-		{
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
 	}
 
 	l_element_courant = liste_threads;
@@ -417,14 +324,11 @@ verrouillage_threads_concurrents(struct_
 				== getpid()) && (pthread_equal((*((struct_thread *)
 				(*l_element_courant).donnee)).tid, pthread_self()) == 0))
 		{
-			while(sem_wait(&((*(*((struct_thread *) (*l_element_courant)
-					.donnee)).s_etat_processus).semaphore_fork)) == -1)
+			if (pthread_mutex_lock(&((*(*((struct_thread *) (*l_element_courant)
+					.donnee)).s_etat_processus).mutex_fork)) == -1)
 			{
-				if (errno != EINTR)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
+				(*s_etat_processus).erreur_systeme = d_es_processus;
+				return;
 			}
 		}
 
@@ -447,11 +351,11 @@ deverrouillage_threads_concurrents(struc
 				== getpid()) && (pthread_equal((*((struct_thread *)
 				(*l_element_courant).donnee)).tid, pthread_self()) == 0))
 		{
-			if (sem_post(&((*(*((struct_thread *)
+			if (pthread_mutex_unlock(&((*(*((struct_thread *)
 					(*l_element_courant).donnee)).s_etat_processus)
-					.semaphore_fork)) != 0)
+					.mutex_fork)) != 0)
 			{
-				if (sem_post(&semaphore_liste_threads) != 0)
+				if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -465,7 +369,7 @@ deverrouillage_threads_concurrents(struc
 		l_element_courant = (*l_element_courant).suivant;
 	}
 
-	if (sem_post(&semaphore_liste_threads) != 0)
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
@@ -479,9 +383,6 @@ liberation_threads(struct_processus *s_e
 {
 	logical1									suppression_variables_partagees;
 
-	sigset_t									oldset;
-	sigset_t									set;
-
 	struct_descripteur_thread					*s_argument_thread;
 
 	struct_processus							*candidat;
@@ -495,17 +396,10 @@ liberation_threads(struct_processus *s_e
 	volatile struct_liste_chainee_volatile		*l_element_courant;
 	volatile struct_liste_chainee_volatile		*l_element_suivant;
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
-	while(sem_wait(&semaphore_liste_threads) == -1)
+	if (pthread_mutex_lock(&mutex_liste_threads) == -1)
 	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			(*s_etat_processus).erreur_systeme = d_es_processus;
-			return;
-		}
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
 	}
 
 	l_element_courant = liste_threads;
@@ -539,6 +433,8 @@ liberation_threads(struct_processus *s_e
 			close((*s_etat_processus).pipe_nombre_objets_attente);
 			close((*s_etat_processus).pipe_nombre_interruptions_attente);
 
+			liberation(s_etat_processus, (*s_etat_processus).at_exit);
+
 			if ((*s_etat_processus).nom_fichier_impression != NULL)
 			{
 				free((*s_etat_processus).nom_fichier_impression);
@@ -580,18 +476,76 @@ liberation_threads(struct_processus *s_e
 					.l_base_pile_processus;
 			while(element_courant != NULL)
 			{
-				pthread_mutex_trylock(&((*(*((struct_liste_chainee *)
-						element_courant)).donnee).mutex));
-				pthread_mutex_unlock(&((*(*((struct_liste_chainee *)
-						element_courant)).donnee).mutex));
-				liberation(s_etat_processus,
-						(*((struct_liste_chainee *) element_courant)).donnee);
+				s_argument_thread = (struct_descripteur_thread *)
+						(*((struct_liste_chainee *) element_courant)).donnee;
+
+				if (pthread_mutex_lock(&((*s_argument_thread)
+						.mutex_nombre_references)) != 0)
+				{
+					(*s_etat_processus).erreur_systeme = d_es_processus;
+					pthread_mutex_unlock(&mutex_liste_threads);
+					return;
+				}
+
+				(*s_argument_thread).nombre_references--;
+
+				BUG((*s_argument_thread).nombre_references < 0,
+						printf("(*s_argument_thread).nombre_references = %d\n",
+						(int) (*s_argument_thread).nombre_references));
+
+				if ((*s_argument_thread).nombre_references == 0)
+				{
+					close((*s_argument_thread).pipe_objets[0]);
+					close((*s_argument_thread).pipe_acquittement[1]);
+					close((*s_argument_thread).pipe_injections[1]);
+					close((*s_argument_thread).pipe_nombre_injections[1]);
+					close((*s_argument_thread).pipe_nombre_objets_attente[0]);
+					close((*s_argument_thread).pipe_interruptions[0]);
+					close((*s_argument_thread)
+							.pipe_nombre_interruptions_attente[0]);
+
+					if (pthread_mutex_unlock(&((*s_argument_thread)
+							.mutex_nombre_references)) != 0)
+					{
+						(*s_etat_processus).erreur_systeme = d_es_processus;
+						pthread_mutex_unlock(&mutex_liste_threads);
+						return;
+					}
+
+					pthread_mutex_destroy(&((*s_argument_thread).mutex));
+					pthread_mutex_destroy(&((*s_argument_thread)
+							.mutex_nombre_references));
+
+					if ((*s_argument_thread).processus_detache == d_faux)
+					{
+						if ((*s_argument_thread).destruction_objet == d_vrai)
+						{
+							liberation(s_etat_processus, (*s_argument_thread)
+									.argument);
+						}
+					}
+
+					free(s_argument_thread);
+				}
+				else
+				{
+					if (pthread_mutex_unlock(&((*s_argument_thread)
+							.mutex_nombre_references)) != 0)
+					{
+						(*s_etat_processus).erreur_systeme = d_es_processus;
+						pthread_mutex_unlock(&mutex_liste_threads);
+						return;
+					}
+				}
+
 				element_suivant = (*((struct_liste_chainee *) element_courant))
 						.suivant;
-				free((struct_liste_chainee *) element_courant);
+				free(element_courant);
 				element_courant = element_suivant;
 			}
 
+			(*s_etat_processus).l_base_pile_processus = NULL;
+
 			pthread_mutex_trylock(&((*(*s_etat_processus).indep).mutex));
 			pthread_mutex_unlock(&((*(*s_etat_processus).indep).mutex));
 			liberation(s_etat_processus, (*s_etat_processus).indep);
@@ -648,25 +602,8 @@ liberation_threads(struct_processus *s_e
 				}
 			}
 
-			for(i = 0; i < (*s_etat_processus).nombre_variables; i++)
-			{
-				pthread_mutex_trylock(&((*(*s_etat_processus)
-						.s_liste_variables[i].objet).mutex));
-				pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables[i].objet).mutex));
-
-				// Les variables de niveau 0 sont des définitions qui
-				// ne sont pas copiées entre threads.
-				if ((*s_etat_processus).s_liste_variables[i].niveau > 0)
-				{
-					liberation(s_etat_processus,
-							(*s_etat_processus).s_liste_variables[i].objet);
-				}
-
-				free((*s_etat_processus).s_liste_variables[i].nom);
-			}
-
-			free((*s_etat_processus).s_liste_variables);
+			liberation_arbre_variables(s_etat_processus,
+					(*s_etat_processus).s_arbre_variables, d_faux);
 
 			for(i = 0; i < (*s_etat_processus).nombre_variables_statiques; i++)
 			{
@@ -916,12 +853,6 @@ liberation_threads(struct_processus *s_e
 				{
 					if (((*((struct_descripteur_fichier *)
 							(*((struct_liste_chainee *) element_courant))
-							.donnee)).descripteur ==
-							(*((struct_descripteur_fichier *)
-							(*((struct_liste_chainee *) element_candidat))
-							.donnee)).descripteur) &&
-							((*((struct_descripteur_fichier *)
-							(*((struct_liste_chainee *) element_courant))
 							.donnee)).pid ==
 							(*((struct_descripteur_fichier *)
 							(*((struct_liste_chainee *) element_candidat))
@@ -932,7 +863,52 @@ liberation_threads(struct_processus *s_e
 							(*((struct_liste_chainee *) element_candidat))
 							.donnee)).tid) != 0))
 					{
-						break;
+						if ((*((struct_descripteur_fichier *)
+								(*((struct_liste_chainee *) element_courant))
+								.donnee)).type ==
+								(*((struct_descripteur_fichier *)
+								(*((struct_liste_chainee *) element_candidat))
+								.donnee)).type)
+						{
+							if ((*((struct_descripteur_fichier *)
+									(*((struct_liste_chainee *)
+									element_candidat)).donnee)).type == 'C')
+							{
+								if ((*((struct_descripteur_fichier *)
+										(*((struct_liste_chainee *)
+										element_courant)).donnee))
+										.descripteur_c ==
+										(*((struct_descripteur_fichier *)
+										(*((struct_liste_chainee *)
+										element_candidat)).donnee))
+										.descripteur_c)
+								{
+									break;
+								}
+							}
+							else
+							{
+								if (((*((struct_descripteur_fichier *)
+										(*((struct_liste_chainee *)
+										element_courant)).donnee))
+										.descripteur_sqlite ==
+										(*((struct_descripteur_fichier *)
+										(*((struct_liste_chainee *)
+										element_candidat)).donnee))
+										.descripteur_sqlite) &&
+										((*((struct_descripteur_fichier *)
+										(*((struct_liste_chainee *)
+										element_courant)).donnee))
+										.descripteur_c ==
+										(*((struct_descripteur_fichier *)
+										(*((struct_liste_chainee *)
+										element_candidat)).donnee))
+										.descripteur_c))
+								{
+									break;
+								}
+							}
+						}
 					}
 
 					element_candidat = (*((struct_liste_chainee *)
@@ -943,7 +919,16 @@ liberation_threads(struct_processus *s_e
 				{
 					fclose((*((struct_descripteur_fichier *)
 							(*((struct_liste_chainee *) element_courant))
-							.donnee)).descripteur);
+							.donnee)).descripteur_c);
+
+					if ((*((struct_descripteur_fichier *)
+							(*((struct_liste_chainee *) element_courant))
+							.donnee)).type != 'C')
+					{
+						sqlite3_close((*((struct_descripteur_fichier *)
+								(*((struct_liste_chainee *) element_courant))
+								.donnee)).descripteur_sqlite);
+					}
 				}
 
 				free((*((struct_descripteur_fichier *)
@@ -1018,6 +1003,12 @@ liberation_threads(struct_processus *s_e
 				element_courant = element_suivant;
 			}
 
+/*
+================================================================================
+  À noter : on ne ferme pas la connexion car la conséquence immédiate est
+  une destruction de l'objet pour le processus père.
+================================================================================
+
 			element_courant = (*s_etat_processus).s_connecteurs_sql;
 			while(element_courant != NULL)
 			{
@@ -1101,6 +1092,9 @@ liberation_threads(struct_processus *s_e
 
 				element_courant = element_suivant;
 			}
+*/
+
+			(*s_etat_processus).s_connecteurs_sql = NULL;
 
 			element_courant = (*s_etat_processus).s_marques;
 			while(element_courant != NULL)
@@ -1115,9 +1109,10 @@ liberation_threads(struct_processus *s_e
 
 			liberation_allocateur(s_etat_processus);
 
-			sem_post(&((*s_etat_processus).semaphore_fork));
-			sem_destroy(&((*s_etat_processus).semaphore_fork));
+			pthread_mutex_unlock(&((*s_etat_processus).mutex_fork));
+			pthread_mutex_destroy(&((*s_etat_processus).mutex_fork));
 
+			liberation_contexte_cas(s_etat_processus);
 			free(s_etat_processus);
 
 			s_etat_processus = candidat;
@@ -1140,17 +1135,11 @@ liberation_threads(struct_processus *s_e
 		s_argument_thread = (struct_descripteur_thread *)
 				(*l_element_courant).donnee;
 
-		close((*s_argument_thread).pipe_objets[0]);
-		close((*s_argument_thread).pipe_acquittement[1]);
-		close((*s_argument_thread).pipe_injections[1]);
-		close((*s_argument_thread).pipe_nombre_injections[1]);
-		close((*s_argument_thread).pipe_nombre_objets_attente[0]);
-		close((*s_argument_thread).pipe_interruptions[0]);
-		close((*s_argument_thread).pipe_nombre_interruptions_attente[0]);
-
-		if (pthread_mutex_lock(&((*s_argument_thread).mutex)) != 0)
+		if (pthread_mutex_lock(&((*s_argument_thread).mutex_nombre_references))
+				!= 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
+			pthread_mutex_unlock(&mutex_liste_threads);
 			return;
 		}
 
@@ -1162,20 +1151,43 @@ liberation_threads(struct_processus *s_e
 
 		if ((*s_argument_thread).nombre_references == 0)
 		{
-			if (pthread_mutex_unlock(&((*s_argument_thread).mutex)) != 0)
+			close((*s_argument_thread).pipe_objets[0]);
+			close((*s_argument_thread).pipe_acquittement[1]);
+			close((*s_argument_thread).pipe_injections[1]);
+			close((*s_argument_thread).pipe_nombre_injections[1]);
+			close((*s_argument_thread).pipe_nombre_objets_attente[0]);
+			close((*s_argument_thread).pipe_interruptions[0]);
+			close((*s_argument_thread).pipe_nombre_interruptions_attente[0]);
+
+			if (pthread_mutex_unlock(&((*s_argument_thread)
+					.mutex_nombre_references)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
+				pthread_mutex_unlock(&mutex_liste_threads);
 				return;
 			}
 
 			pthread_mutex_destroy(&((*s_argument_thread).mutex));
+			pthread_mutex_destroy(&((*s_argument_thread)
+					.mutex_nombre_references));
+
+			if ((*s_argument_thread).processus_detache == d_faux)
+			{
+				if ((*s_argument_thread).destruction_objet == d_vrai)
+				{
+					liberation(s_etat_processus, (*s_argument_thread).argument);
+				}
+			}
+
 			free(s_argument_thread);
 		}
 		else
 		{
-			if (pthread_mutex_unlock(&((*s_argument_thread).mutex)) != 0)
+			if (pthread_mutex_unlock(&((*s_argument_thread)
+					.mutex_nombre_references)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
+				pthread_mutex_unlock(&mutex_liste_threads);
 				return;
 			}
 		}
@@ -1187,15 +1199,12 @@ liberation_threads(struct_processus *s_e
 
 	liste_threads_surveillance = NULL;
 
-	if (sem_post(&semaphore_liste_threads) != 0)
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
 		(*s_etat_processus).erreur_systeme = d_es_processus;
 		return;
 	}
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
 	return;
 }
 
@@ -1235,8 +1244,8 @@ recherche_thread(pid_t pid, pthread_t ti
 	return(s_etat_processus);
 }
 
-static logical1
-recherche_thread_principal(pid_t pid, pthread_t *thread)
+static struct_processus *
+recherche_thread_principal(pid_t pid)
 {
 	volatile struct_liste_chainee_volatile		*l_element_courant;
 
@@ -1260,12 +1269,11 @@ recherche_thread_principal(pid_t pid, pt
 		 * Le processus n'existe plus. On ne distribue aucun signal.
 		 */
 
-		return(d_faux);
+		return(NULL);
 	}
 
-	(*thread) = (*((struct_thread *) (*l_element_courant).donnee)).tid;
-
-	return(d_vrai);
+	return((*((struct_thread *) (*l_element_courant).donnee))
+			.s_etat_processus);
 }
 
 
@@ -1282,61 +1290,54 @@ recherche_thread_principal(pid_t pid, pt
 */
 
 // Les routines suivantes sont uniquement appelées depuis les gestionnaires
-// des signaux asynchrones. Elles de doivent pas bloquer dans le cas où
+// des signaux asynchrones. Elles ne doivent pas bloquer dans le cas où
 // les sémaphores sont déjà bloqués par un gestionnaire de signal.
 
 static inline void
-verrouillage_gestionnaire_signaux()
+verrouillage_gestionnaire_signaux(struct_processus *s_etat_processus)
 {
 	int			semaphore;
 
-	sigset_t	oldset;
-	sigset_t	set;
-
-	sem_t		*sem;
-
-	if ((sem = pthread_getspecific(semaphore_fork_processus_courant))
-			!= NULL)
+	if (pthread_mutex_unlock(&((*s_etat_processus).mutex_fork)) != 0)
 	{
-		if (sem_post(sem) != 0)
-		{
-			BUG(1, uprintf("Lock error !\n"));
-			return;
-		}
+		BUG(1, uprintf("Lock error !\n"));
+		return;
 	}
 
 	// Il faut respecteur l'atomicité des deux opérations suivantes !
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
-	while(sem_wait(&semaphore_gestionnaires_signaux_atomique) == -1)
+	if (pthread_mutex_lock(&mutex_gestionnaires_signaux_atomique) != 0)
 	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			BUG(1, uprintf("Unlock error !\n"));
-			return;
-		}
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
+		BUG(1, uprintf("Unlock error !\n"));
+		return;
 	}
 
+#	ifndef SEMAPHORES_NOMMES
 	if (sem_post(&semaphore_gestionnaires_signaux) == -1)
+#	else
+	if (sem_post(semaphore_gestionnaires_signaux) == -1)
+#	endif
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
 		BUG(1, uprintf("Lock error !\n"));
 		return;
 	}
 
+#	ifndef SEMAPHORES_NOMMES
 	if (sem_getvalue(&semaphore_gestionnaires_signaux, &semaphore) != 0)
+#	else
+	if (sem_getvalue(semaphore_gestionnaires_signaux, &semaphore) != 0)
+#	endif
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
 		BUG(1, uprintf("Lock error !\n"));
 		return;
 	}
 
-	if (sem_post(&semaphore_gestionnaires_signaux_atomique) != 0)
+	if (pthread_mutex_unlock(&mutex_gestionnaires_signaux_atomique) != 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
 		BUG(1, uprintf("Unlock error !\n"));
 		return;
 	}
@@ -1349,287 +1350,308 @@ verrouillage_gestionnaire_signaux()
 		// par un thread concurrent. On essaye donc de le bloquer jusqu'à
 		// ce que ce soit possible.
 
-		while(sem_trywait(&semaphore_liste_threads) == -1)
+		if (pthread_mutex_lock(&mutex_liste_threads) != 0)
 		{
-			if ((errno != EINTR) && (errno != EAGAIN))
-			{
-				pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-
-				while(sem_wait(sem) == -1)
-				{
-					if (errno != EINTR)
-					{
-						BUG(1, uprintf("Lock error !\n"));
-						return;
-					}
-				}
-
-				BUG(1, uprintf("Lock error !\n"));
-				return;
-			}
-
-			sched_yield();
+			pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
+			BUG(1, uprintf("Lock error !\n"));
+			return;
 		}
 	}
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
-
 	return;
 }
 
 static inline void
-deverrouillage_gestionnaire_signaux()
+deverrouillage_gestionnaire_signaux(struct_processus *s_etat_processus)
 {
 	int			semaphore;
 
-	sem_t		*sem;
-
-	sigset_t	oldset;
-	sigset_t	set;
-
 	// Il faut respecteur l'atomicité des deux opérations suivantes !
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
-	while(sem_wait(&semaphore_gestionnaires_signaux_atomique) == -1)
+	if (pthread_mutex_lock(&mutex_gestionnaires_signaux_atomique) == -1)
 	{
-		if (errno != EINTR)
-		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-			BUG(1, uprintf("Unlock error !\n"));
-			return;
-		}
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
+		BUG(1, uprintf("Unlock error !\n"));
+		return;
 	}
 
+#	ifndef SEMAPHORES_NOMMES
 	if (sem_getvalue(&semaphore_gestionnaires_signaux, &semaphore) != 0)
+#	else
+	if (sem_getvalue(semaphore_gestionnaires_signaux, &semaphore) != 0)
+#	endif
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
 		BUG(1, uprintf("Unlock error !\n"));
 		return;
 	}
 
+#	ifndef SEMAPHORES_NOMMES
 	while(sem_wait(&semaphore_gestionnaires_signaux) == -1)
+#	else
+	while(sem_wait(semaphore_gestionnaires_signaux) == -1)
+#	endif
 	{
 		if (errno != EINTR)
 		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
+			pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
 			BUG(1, uprintf("Unlock error !\n"));
 			return;
 		}
 	}
 
-	if (sem_post(&semaphore_gestionnaires_signaux_atomique) != 0)
+	if (pthread_mutex_unlock(&mutex_gestionnaires_signaux_atomique) != 0)
 	{
-		pthread_sigmask(SIG_SETMASK, &oldset, NULL);
+		pthread_mutex_lock(&((*s_etat_processus).mutex_fork));
 		BUG(1, uprintf("Unlock error !\n"));
 		return;
 	}
 
-	if ((sem = pthread_getspecific(semaphore_fork_processus_courant))
-			!= NULL)
+	if (pthread_mutex_lock(&((*s_etat_processus).mutex_fork)) != 0)
 	{
-		while(sem_wait(sem) == -1)
-		{
-			if (errno != EINTR)
-			{
-				pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-				BUG(1, uprintf("Unlock error !\n"));
-				return;
-			}
-		}
+		BUG(1, uprintf("Unlock error !\n"));
+		return;
 	}
 
 	if (semaphore == 1)
 	{
-		if (sem_post(&semaphore_liste_threads) != 0)
+		if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
 		{
-			pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-
 			BUG(1, uprintf("Unlock error !\n"));
 			return;
 		}
 	}
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
-
 	return;
 }
 
+#define test_signal(signal) \
+	if (signal_test == SIGTEST) { signal_test = signal; return; }
+
+// Récupération des signaux
+// - SIGINT	(arrêt au clavier)
+// - SIGTERM (signal d'arrêt en provenance du système)
+
 void
-interruption1(int signal, siginfo_t *siginfo, void *context)
+interruption1(int signal)
 {
-	pthread_t				thread;
+	test_signal(signal);
 
-	struct_processus		*s_etat_processus;
+	switch(signal)
+	{
+		case SIGINT:
+			envoi_signal_processus(getpid(), rpl_sigint);
+			break;
 
-	volatile sig_atomic_t	exclusion = 0;
+		case SIGTERM:
+			envoi_signal_processus(getpid(), rpl_sigterm);
+			break;
 
-	verrouillage_gestionnaire_signaux();
+		case SIGALRM:
+			envoi_signal_processus(getpid(), rpl_sigalrm);
+			break;
+	}
 
-	switch(signal)
+	return;
+}
+
+inline static void
+signal_alrm(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
+
+	verrouillage_gestionnaire_signaux(s_etat_processus);
+
+	if (pid == getpid())
 	{
-		case SIGALRM :
+		// Si pid est égal à getpid(), le signal à traiter est issu
+		// du même processus que celui qui va le traiter, mais d'un thread
+		// différent.
+
+		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 		{
-			if ((*siginfo).si_pid == getpid())
-			{
-				if ((s_etat_processus = recherche_thread(getpid(),
-						pthread_self())) == NULL)
-				{
-					deverrouillage_gestionnaire_signaux();
-					return;
-				}
+			printf("[%d] RPL/SIGALRM (thread %llu)\n", (int) getpid(),
+					(unsigned long long) pthread_self());
+			fflush(stdout);
+		}
 
-				if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
-				{
-					printf("[%d] SIGALRM (thread %llu)\n", (int) getpid(),
-							(unsigned long long) pthread_self());
-					fflush(stdout);
-				}
+		if ((*s_etat_processus).pid_processus_pere != getpid())
+		{
+			// On n'est pas dans le processus père, on remonte le signal.
+			envoi_signal_processus((*s_etat_processus).pid_processus_pere,
+					rpl_sigalrm);
+		}
+		else
+		{
+			// On est dans le processus père, on effectue un arrêt d'urgence.
+			(*s_etat_processus).var_volatile_alarme = -1;
+			(*s_etat_processus).var_volatile_requete_arret = -1;
+		}
+	}
+	else
+	{
+		// Le signal est issu d'un processus différent. On recherche le
+		// thread principal pour remonter le signal.
 
-				if ((*s_etat_processus).pid_processus_pere != getpid())
-				{
-					kill((*s_etat_processus).pid_processus_pere, signal);
-				}
-				else
-				{
-					(*s_etat_processus).var_volatile_alarme = -1;
-					(*s_etat_processus).var_volatile_requete_arret = -1;
-				}
-			}
-			else
-			{
-				if (recherche_thread_principal(getpid(), &thread) == d_vrai)
-				{
-					pthread_kill(thread, signal);
-				}
-			}
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
+		{
+			envoi_signal_contexte(s_thread_principal, rpl_sigalrm);
+		}
+	}
 
-			break;
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
+	return;
+}
+
+inline static void
+signal_term(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
+	volatile sig_atomic_t	exclusion = 0;
+
+	verrouillage_gestionnaire_signaux(s_etat_processus);
+
+	if (pid == getpid())
+	{
+		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
+		{
+			printf("[%d] RPL/SIGTERM (thread %llu)\n", (int) getpid(),
+					(unsigned long long) pthread_self());
+			fflush(stdout);
 		}
 
-		case SIGINT :
+		if ((*s_etat_processus).pid_processus_pere != getpid())
 		{
-			/*
-			 * Une vieille spécification POSIX permet au pointeur siginfo
-			 * d'être nul dans le cas d'un ^C envoyé depuis le clavier.
-			 * Solaris suit en particulier cette spécification.
-			 */
+			envoi_signal_processus((*s_etat_processus).pid_processus_pere,
+					rpl_sigterm);
+		}
+		else
+		{
+			(*s_etat_processus).var_volatile_traitement_sigint = -1;
+
+			while(exclusion == 1);
+			exclusion = 1;
 
-			if (siginfo == NULL)
+			if ((*s_etat_processus).var_volatile_requete_arret == -1)
 			{
-				kill(getpid(), signal);
+				deverrouillage_gestionnaire_signaux(s_etat_processus);
+				exclusion = 0;
+				return;
 			}
-			else if ((*siginfo).si_pid == getpid())
-			{
-				if ((s_etat_processus = recherche_thread(getpid(),
-						pthread_self())) == NULL)
-				{
-					deverrouillage_gestionnaire_signaux();
-					return;
-				}
 
-				if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
-				{
-					printf("[%d] SIGINT (thread %llu)\n", (int) getpid(),
-							(unsigned long long) pthread_self());
-					fflush(stdout);
-				}
+			(*s_etat_processus).var_volatile_requete_arret = -1;
+			(*s_etat_processus).var_volatile_alarme = -1;
 
-				if ((*s_etat_processus).pid_processus_pere != getpid())
-				{
-					kill((*s_etat_processus).pid_processus_pere, signal);
-				}
-				else
-				{
-					(*s_etat_processus).var_volatile_traitement_sigint = -1;
+			exclusion = 0;
+		}
+	}
+	else
+	{
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
+		{
+			envoi_signal_contexte(s_thread_principal, rpl_sigterm);
+		}
+	}
 
-					while(exclusion == 1);
-					exclusion = 1;
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
+	return;
+}
 
-					if ((*s_etat_processus).var_volatile_requete_arret == -1)
-					{
-						deverrouillage_gestionnaire_signaux();
-						exclusion = 0;
-						return;
-					}
+inline static void
+signal_int(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
+	volatile sig_atomic_t	exclusion = 0;
 
-					if (strncmp(getenv("LANG"), "fr", 2) == 0)
-					{
-						printf("+++Interruption\n");
-					}
-					else
-					{
-						printf("+++Interrupt\n");
-					}
+	verrouillage_gestionnaire_signaux(s_etat_processus);
+
+	if (pid == getpid())
+	{
+		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
+		{
+			printf("[%d] RPL/SIGINT (thread %llu)\n", (int) getpid(),
+					(unsigned long long) pthread_self());
+			fflush(stdout);
+		}
+
+		if ((*s_etat_processus).pid_processus_pere != getpid())
+		{
+			envoi_signal_processus((*s_etat_processus).pid_processus_pere,
+					rpl_sigint);
+		}
+		else
+		{
+			(*s_etat_processus).var_volatile_traitement_sigint = -1;
 
-					fflush(stdout);
+			while(exclusion == 1);
+			exclusion = 1;
 
-					(*s_etat_processus).var_volatile_requete_arret = -1;
-					(*s_etat_processus).var_volatile_alarme = -1;
+			if ((*s_etat_processus).var_volatile_requete_arret == -1)
+			{
+				deverrouillage_gestionnaire_signaux(s_etat_processus);
+				exclusion = 0;
+				return;
+			}
 
-					exclusion = 0;
-				}
+			if ((*s_etat_processus).langue == 'F')
+			{
+				printf("+++Interruption\n");
 			}
 			else
 			{
-				if (recherche_thread_principal(getpid(), &thread) == d_vrai)
-				{
-					pthread_kill(thread, signal);
-				}
+				printf("+++Interrupt\n");
 			}
 
-			break;
-		}
+			fflush(stdout);
 
-		default :
+			(*s_etat_processus).var_volatile_requete_arret = -1;
+			(*s_etat_processus).var_volatile_alarme = -1;
+
+			exclusion = 0;
+		}
+	}
+	else
+	{
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
 		{
-			BUG(1, uprintf("[%d] Unknown signal %d in this context\n",
-					(int) getpid(), signal));
-			break;
+			envoi_signal_contexte(s_thread_principal, rpl_sigint);
 		}
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
+// Récupération des signaux
+// - SIGFSTP
+//
+// ATTENTION :
+// Le signal SIGFSTP provient de la mort du processus de contrôle.
+// Sous certains systèmes (Linux...), la mort du terminal de contrôle
+// se traduit par l'envoi d'un SIGHUP au processus. Sur d'autres
+// (SunOS), le processus reçoit un SIGFSTP avec une structure siginfo
+// non initialisée (pointeur NULL) issue de TERMIO.
+
 void
-interruption2(int signal, siginfo_t *siginfo, void *context)
+interruption2(int signal)
 {
-	pthread_t				thread;
-	struct_processus		*s_etat_processus;
+	test_signal(signal);
+	envoi_signal_processus(getpid(), rpl_sigtstp);
+	return;
+}
 
-	verrouillage_gestionnaire_signaux();
+static inline void
+signal_tstp(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
 
-	if (siginfo == NULL)
-	{
-		/*
-		 * Le signal SIGFSTP provient de la mort du processus de contrôle.
-		 * Sous certains systèmes (Linux...), la mort du terminal de contrôle
-		 * se traduit par l'envoi d'un SIGHUP au processus. Sur d'autres
-		 * (SunOS), le processus reçoit un SIGFSTP avec une structure siginfo
-		 * non initialisée (pointeur NULL) issue de TERMIO.
-		 */
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
-		if (recherche_thread_principal(getpid(), &thread) == d_vrai)
-		{
-			pthread_kill(thread, SIGHUP);
-			deverrouillage_gestionnaire_signaux();
-			return;
-		}
-	}
-	else if ((*siginfo).si_pid == getpid())
+	if (pid == getpid())
 	{
-		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
-				== NULL)
-		{
-			deverrouillage_gestionnaire_signaux();
-			return;
-		}
-
 		/*
 		 *  0 => fonctionnement normal
 		 * -1 => requête
@@ -1638,14 +1660,15 @@ interruption2(int signal, siginfo_t *sig
 
 		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 		{
-			printf("[%d] SIGTSTP (thread %llu)\n", (int) getpid(),
+			printf("[%d] RPL/SIGTSTP (thread %llu)\n", (int) getpid(),
 					(unsigned long long) pthread_self());
 			fflush(stdout);
 		}
 
 		if ((*s_etat_processus).var_volatile_processus_pere == 0)
 		{
-			kill((*s_etat_processus).pid_processus_pere, signal);
+			envoi_signal_processus((*s_etat_processus).pid_processus_pere,
+					rpl_sigtstp);
 		}
 		else
 		{
@@ -1656,30 +1679,52 @@ interruption2(int signal, siginfo_t *sig
 	{
 		// Envoi d'un signal au thread maître du groupe.
 
-		if (recherche_thread_principal(getpid(), &thread) == d_vrai)
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
 		{
-			pthread_kill(thread, SIGTSTP);
-			deverrouillage_gestionnaire_signaux();
-			return;
+			envoi_signal_contexte(s_thread_principal, rpl_sigtstp);
 		}
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
 void
-interruption3(int signal, siginfo_t *siginfo, void *context)
+interruption3(int signal)
 {
-	struct_processus		*s_etat_processus;
+	// Si on passe par ici, c'est qu'il est impossible de récupérer
+	// l'erreur d'accès à la mémoire. On sort donc du programme quitte à
+	// ce qu'il reste des processus orphelins.
+
+	unsigned char		message[] = "+++System : Uncaught access violation\n"
+								"+++System : Aborting !\n";
+
+	test_signal(signal);
+
+	if (pid_processus_pere == getpid())
+	{
+		kill(pid_processus_pere, SIGALRM);
+	}
+
+	write(STDERR_FILENO, message, strlen(message));
+	_exit(EXIT_FAILURE);
+}
+
+#if 0
+// Utiliser libsigsegv
+void INTERRUPTION3_A_FIXER()
+{
+	pthread_t				thread;
 
-	static int				compteur = 0;
+	struct_processus		*s_etat_processus;
 
-	verrouillage_gestionnaire_signaux();
+	test_signal(signal);
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
 	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
 	{
-		deverrouillage_gestionnaire_signaux();
+		deverrouillage_gestionnaire_signaux(s_etat_processus);
 		return;
 	}
 
@@ -1693,7 +1738,7 @@ interruption3(int signal, siginfo_t *sig
 	if ((*s_etat_processus).var_volatile_recursivite == -1)
 	{
 		// Segfault dans un appel de fonction récursive
-		deverrouillage_gestionnaire_signaux();
+		deverrouillage_gestionnaire_signaux(s_etat_processus);
 		longjmp(contexte, -1);
 	}
 	else
@@ -1701,81 +1746,166 @@ interruption3(int signal, siginfo_t *sig
 		// Segfault dans une routine interne
 		if (strncmp(getenv("LANG"), "fr", 2) == 0)
 		{
-			printf("+++Système : Violation d'accès (dépassement de pile)\n");
+			printf("+++Système : Violation d'accès\n");
 		}
 		else
 		{
-			printf("+++System : Access violation (stack overflow)\n");
+			printf("+++System : Access violation\n");
 		}
 
 		fflush(stdout);
 
-		compteur++;
+		(*s_etat_processus).compteur_violation_d_acces++;
 
-		if (compteur > 1)
+		if ((*s_etat_processus).compteur_violation_d_acces > 1)
 		{
-			deverrouillage_gestionnaire_signaux();
+			// On vient de récupérer plus d'une erreur de segmentation
+			// dans le même processus ou le même thread. L'erreur n'est pas
+			// récupérable et on sort autoritairement du programme. Il peut
+			// rester des processus orphelins en attente !
+
+			if (strncmp(getenv("LANG"), "fr", 2) == 0)
+			{
+				printf("+++Système : Violation d'accès, tentative de "
+						"terminaison de la tâche\n");
+				printf("             (defauts multiples)\n");
+			}
+			else
+			{
+				printf("+++System : Access violation, trying to kill task "
+						"(multiple defaults)\n");
+			}
+
+			fflush(stdout);
+
+			deverrouillage_gestionnaire_signaux(s_etat_processus);
 			exit(EXIT_FAILURE);
 		}
 		else
 		{
-			deverrouillage_gestionnaire_signaux();
+			// Première erreur de segmentation. On essaie de terminer
+			// proprement le thread ou le processus. Le signal ne peut être
+			// envoyé que depuis le même processus.
+
+			if (recherche_thread_principal(getpid(), &thread) == d_vrai)
+			{
+				if (pthread_equal(thread, pthread_self()) != 0)
+				{
+					deverrouillage_gestionnaire_signaux(s_etat_processus);
+
+					if ((*s_etat_processus).pid_processus_pere != getpid())
+					{
+						// On est dans le thread principal d'un processus.
+
+						longjmp(contexte_processus, -1);
+					}
+					else
+					{
+						// On est dans le thread principal du processus
+						// père.
+
+						longjmp(contexte_initial, -1);
+					}
+				}
+				else
+				{
+					// On est dans un thread fils d'un thread principal.
+
+					deverrouillage_gestionnaire_signaux(s_etat_processus);
+					longjmp(contexte_thread, -1);
+				}
+			}
+
+			// Là, on ramasse les miettes puisque le thread n'existe plus
+			// dans la base (corruption de la mémoire).
+
+			deverrouillage_gestionnaire_signaux(s_etat_processus);
 			longjmp(contexte_initial, -1);
 		}
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
+#endif
 
-void
-interruption4(int signal, siginfo_t *siginfo, void *context)
+// Traitement de rpl_sigstart
+
+static inline void
+signal_start(struct_processus *s_etat_processus, pid_t pid)
 {
-	struct_processus		*s_etat_processus;
+	struct_processus		*s_thread_principal;
 
-	verrouillage_gestionnaire_signaux();
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
-	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
+	if (pid == getpid())
 	{
-		deverrouillage_gestionnaire_signaux();
-		return;
+		(*s_etat_processus).demarrage_fils = d_vrai;
 	}
+	else
+	{
+		// Envoi d'un signal au thread maître du groupe.
 
-	/*
-	 * Démarrage d'un processus fils ou gestion de SIGCONT (SUSPEND)
-	 */
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
+		{
+			envoi_signal_contexte(s_thread_principal, rpl_sigstart);
+		}
+	}
 
-	if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
+	return;
+}
+
+// Traitement de rpl_sigcont
+
+static inline void
+signal_cont(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
+
+	verrouillage_gestionnaire_signaux(s_etat_processus);
+
+	if (pid == getpid())
 	{
-		printf("[%d] SIGSTART/SIGCONT (thread %llu)\n", (int) getpid(),
-				(unsigned long long) pthread_self());
-		fflush(stdout);
+		(*s_etat_processus).redemarrage_processus = d_vrai;
+	}
+	else
+	{
+		// Envoi d'un signal au thread maître du groupe.
+
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
+		{
+			envoi_signal_contexte(s_thread_principal, rpl_sigcont);
+		}
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
-void
-interruption5(int signal, siginfo_t *siginfo, void *context)
+// Traitement de rpl_sigstop
+
+static inline void
+signal_stop(struct_processus *s_etat_processus, pid_t pid)
 {
-	pthread_t				thread;
-	struct_processus		*s_etat_processus;
+	struct_processus		*s_thread_principal;
 
-	verrouillage_gestionnaire_signaux();
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
-	if ((*siginfo).si_pid == getpid())
+	if (pid == getpid())
 	{
 		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
 				== NULL)
 		{
-			deverrouillage_gestionnaire_signaux();
+			deverrouillage_gestionnaire_signaux(s_etat_processus);
 			return;
 		}
 
 		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 		{
-			printf("[%d] SIGFSTOP (thread %llu)\n", (int) getpid(),
+			printf("[%d] RPL/SIGSTOP (thread %llu)\n", (int) getpid(),
 					(unsigned long long) pthread_self());
 			fflush(stdout);
 		}
@@ -1800,89 +1930,80 @@ interruption5(int signal, siginfo_t *sig
 	{
 		// Envoi d'un signal au thread maître du groupe.
 
-		if (recherche_thread_principal(getpid(), &thread) == d_vrai)
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
 		{
-			pthread_kill(thread, SIGFSTOP);
-			deverrouillage_gestionnaire_signaux();
-			return;
+			envoi_signal_contexte(s_thread_principal, rpl_sigstop);
 		}
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
-void
-interruption6(int signal, siginfo_t *siginfo, void *context)
-{
-	struct_processus		*s_etat_processus;
+// Traitement de rpl_siginject
 
-	verrouillage_gestionnaire_signaux();
+static inline void
+signal_inject(struct_processus *s_etat_processus, pid_t pid)
+{
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
 	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
 	{
-		deverrouillage_gestionnaire_signaux();
+		deverrouillage_gestionnaire_signaux(s_etat_processus);
 		return;
 	}
 
 	if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 	{
-		printf("[%d] SIGINJECT/SIGQUIT (thread %llu)\n", (int) getpid(),
+		printf("[%d] RPL/SIGINJECT (thread %llu)\n", (int) getpid(),
 				(unsigned long long) pthread_self());
 		fflush(stdout);
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
+// Récupération des signaux
+// - SIGPIPE
+
 void
-interruption7(int signal, siginfo_t *siginfo, void *context)
+interruption5(int signal)
 {
-	struct_processus		*s_etat_processus;
-
-	verrouillage_gestionnaire_signaux();
+	unsigned char		message[] = "+++System : SIGPIPE\n"
+								"+++System : Aborting !\n";
 
-	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
-	{
-		deverrouillage_gestionnaire_signaux();
-		return;
-	}
+	test_signal(signal);
 
-	if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
+	if (pid_processus_pere == getpid())
 	{
-		printf("[%d] SIGPIPE (thread %llu)\n", (int) getpid(),
-				(unsigned long long) pthread_self());
-		fflush(stdout);
+		envoi_signal_processus(pid_processus_pere, rpl_sigalrm);
 	}
 
-	(*s_etat_processus).var_volatile_requete_arret = -1;
-	deverrouillage_gestionnaire_signaux();
-
-	BUG(1, printf("[%d] SIGPIPE\n", (int) getpid()));
+	write(STDERR_FILENO, message, strlen(message));
 	return;
 }
 
-void
-interruption8(int signal, siginfo_t *siginfo, void *context)
+static inline void
+signal_urg(struct_processus *s_etat_processus, pid_t pid)
 {
-	pthread_t				thread;
-	struct_processus		*s_etat_processus;
+	struct_processus		*s_thread_principal;
 
-	verrouillage_gestionnaire_signaux();
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
-	if ((*siginfo).si_pid == getpid())
+	if (pid == getpid())
 	{
 		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
 				== NULL)
 		{
-			deverrouillage_gestionnaire_signaux();
+			deverrouillage_gestionnaire_signaux(s_etat_processus);
 			return;
 		}
 
 		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 		{
-			printf("[%d] SIGURG (thread %llu)\n", (int) getpid(),
+			printf("[%d] RPL/SIGURG (thread %llu)\n", (int) getpid(),
 					(unsigned long long) pthread_self());
 			fflush(stdout);
 		}
@@ -1894,57 +2015,106 @@ interruption8(int signal, siginfo_t *sig
 	{
 		// Envoi d'un signal au thread maître du groupe.
 
-		if (recherche_thread_principal(getpid(), &thread) == d_vrai)
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
 		{
-			pthread_kill(thread, SIGURG);
-			deverrouillage_gestionnaire_signaux();
-			return;
+			envoi_signal_contexte(s_thread_principal, rpl_sigurg);
 		}
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
-void
-interruption9(int signal, siginfo_t *siginfo, void *context)
+// Traitement de rpl_sigabort
+
+static inline void
+signal_abort(struct_processus *s_etat_processus, pid_t pid)
 {
-	struct_processus		*s_etat_processus;
+	struct_processus		*s_thread_principal;
 
-	verrouillage_gestionnaire_signaux();
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
 	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
 	{
-		deverrouillage_gestionnaire_signaux();
+		deverrouillage_gestionnaire_signaux(s_etat_processus);
 		return;
 	}
 
 	if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 	{
-		printf("[%d] SIGABORT/SIGPROF (thread %llu)\n", (int) getpid(),
+		printf("[%d] RPL/SIGABORT (thread %llu)\n", (int) getpid(),
 				(unsigned long long) pthread_self());
 		fflush(stdout);
 	}
 
-	pthread_kill((*s_etat_processus).tid_processus_pere, SIGFSTOP);
-	deverrouillage_gestionnaire_signaux();
+	if (pid == getpid())
+	{
+		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
+				== NULL)
+		{
+			deverrouillage_gestionnaire_signaux(s_etat_processus);
+			return;
+		}
+
+		(*s_etat_processus).arret_depuis_abort = -1;
+
+		/*
+		 * var_globale_traitement_retarde_stop :
+		 *  0 -> traitement immédiat
+		 *  1 -> traitement retardé (aucun signal reçu)
+		 * -1 -> traitement retardé (un ou plusieurs signaux stop reçus)
+		 */
+
+		if ((*s_etat_processus).var_volatile_traitement_retarde_stop == 0)
+		{
+			(*s_etat_processus).var_volatile_requete_arret = -1;
+		}
+		else
+		{
+			(*s_etat_processus).var_volatile_traitement_retarde_stop = -1;
+		}
+	}
+	else
+	{
+		(*s_etat_processus).arret_depuis_abort = -1;
+
+		// Envoi d'un signal au thread maître du groupe.
+
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
+		{
+			envoi_signal_contexte(s_thread_principal, rpl_sigabort);
+		}
+	}
+
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
+// Récupération des signaux
+// - SIGHUP
+
 void
-interruption10(int signal, siginfo_t *siginfo, void *context)
+interruption4(int signal)
 {
-	file					*fichier;
+	test_signal(signal);
+	envoi_signal_processus(getpid(), rpl_sighup);
+	return;
+}
 
-	struct_processus		*s_etat_processus;
+static inline void
+signal_hup(struct_processus *s_etat_processus, pid_t pid)
+{
+	file					*fichier;
 
 	unsigned char			nom[8 + 64 + 1];
 
-	verrouillage_gestionnaire_signaux();
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
 	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
 	{
-		deverrouillage_gestionnaire_signaux();
+		deverrouillage_gestionnaire_signaux(s_etat_processus);
 		return;
 	}
 
@@ -1963,12 +2133,12 @@ interruption10(int signal, siginfo_t *si
 
 	if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 	{
-		printf("[%d] SIGHUP (thread %llu)\n", (int) getpid(),
+		printf("[%d] RPL/SIGHUP (thread %llu)\n", (int) getpid(),
 				(unsigned long long) pthread_self());
 		fflush(stdout);
 	}
 
-	deverrouillage_gestionnaire_signaux();
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
 	return;
 }
 
@@ -1976,18 +2146,665 @@ void
 traitement_exceptions_gsl(const char *reason, const char *file,
 		int line, int gsl_errno)
 {
-	struct_processus		*s_etat_processus;
+	code_erreur_gsl = gsl_errno;
+	envoi_signal_processus(getpid(), rpl_sigexcept);
+	return;
+}
 
-	verrouillage_gestionnaire_signaux();
+static inline void
+signal_except(struct_processus *s_etat_processus, pid_t pid)
+{
+	verrouillage_gestionnaire_signaux(s_etat_processus);
 
 	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
 	{
-		deverrouillage_gestionnaire_signaux();
+		deverrouillage_gestionnaire_signaux(s_etat_processus);
+		return;
+	}
+
+	(*s_etat_processus).var_volatile_exception_gsl = code_erreur_gsl;
+	deverrouillage_gestionnaire_signaux(s_etat_processus);
+
+	return;
+}
+
+static inline void
+envoi_interruptions(struct_processus *s_etat_processus, enum signaux_rpl signal,
+		pid_t pid_source)
+{
+uprintf("Signal : %d\n", signal);
+	switch(signal)
+	{
+		case rpl_signull:
+			break;
+
+		case rpl_sigint:
+			signal_int(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigterm:
+			signal_term(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigstart:
+			signal_start(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigcont:
+			signal_cont(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigstop:
+			signal_stop(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigabort:
+			signal_abort(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigurg:
+			signal_urg(s_etat_processus, pid_source);
+			break;
+
+		case rpl_siginject:
+			signal_inject(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigalrm:
+			signal_alrm(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sighup:
+			signal_hup(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigtstp:
+			signal_tstp(s_etat_processus, pid_source);
+			break;
+
+		case rpl_sigexcept:
+			signal_except(s_etat_processus, pid_source);
+			break;
+
+		default:
+			if ((*s_etat_processus).langue == 'F')
+			{
+				printf("+++System : Spurious signal (%d) !\n", signal);
+			}
+			else
+			{
+				printf("+++System : Signal inconnu (%d) !\n", signal);
+			}
+
+			break;
+	}
+
+	return;
+}
+
+void
+scrutation_interruptions(struct_processus *s_etat_processus)
+{
+	// Interruptions qui arrivent sur le processus depuis un
+	// processus externe.
+
+	// Les pointeurs de lecture pointent sur les prochains éléments
+	// à lire. Les pointeurs d'écriture pointent sur les prochains éléments à
+	// écrire.
+
+	if (pthread_mutex_trylock(&((*s_queue_signaux).mutex)) == 0)
+	{
+		if ((*s_queue_signaux).pointeur_lecture !=
+				(*s_queue_signaux).pointeur_ecriture)
+		{
+			// Il y a un signal en attente dans le segment partagé. On le
+			// traite.
+
+			envoi_interruptions(s_etat_processus,
+					(*s_queue_signaux).queue[(*s_queue_signaux)
+					.pointeur_lecture].signal, (*s_queue_signaux).queue
+					[(*s_queue_signaux).pointeur_lecture].pid);
+			(*s_queue_signaux).pointeur_lecture =
+					((*s_queue_signaux).pointeur_lecture + 1)
+					% LONGUEUR_QUEUE_SIGNAUX;
+uprintf("Traité\n");
+		}
+
+		pthread_mutex_unlock(&((*s_queue_signaux).mutex));
+	}
+
+	// Interruptions qui arrivent depuis le groupe courant de threads.
+
+	if (pthread_mutex_trylock(&mutex_interruptions) == 0)
+	{
+		if ((*s_etat_processus).pointeur_signal_lecture !=
+				(*s_etat_processus).pointeur_signal_ecriture)
+		{
+			// Il y a un signal dans la queue du thread courant. On le traite.
+
+			envoi_interruptions(s_etat_processus,
+					(*s_etat_processus).signaux_en_queue
+					[(*s_etat_processus).pointeur_signal_lecture],
+					getpid());
+			(*s_etat_processus).pointeur_signal_lecture =
+					((*s_etat_processus).pointeur_signal_lecture + 1)
+					% LONGUEUR_QUEUE_SIGNAUX;
+		}
+
+		pthread_mutex_unlock(&mutex_interruptions);
+	}
+
+	return;
+}
+
+/*
+================================================================================
+  Fonction renvoyant le nom du segment de mémoire partagée en fonction
+  du pid du processus.
+================================================================================
+  Entrée : Chemin absolue servant de racine, pid du processus
+--------------------------------------------------------------------------------
+  Sortie : NULL ou nom du segment
+--------------------------------------------------------------------------------
+  Effet de bord : Néant
+================================================================================
+*/
+
+static unsigned char *
+nom_segment(unsigned char *chemin, pid_t pid)
+{
+	unsigned char				*fichier;
+
+#	ifdef IPCS_SYSV // !POSIX
+#		ifndef OS2 // !OS2
+
+			if ((fichier = malloc((strlen(chemin) + 1 + 256 + 1) *
+					sizeof(unsigned char))) == NULL)
+			{
+				return(NULL);
+			}
+
+			sprintf(fichier, "%s/RPL-SIGQUEUES-%d", chemin, (int) pid);
+#		else // OS2
+			if ((fichier = malloc((10 + 256 + 1) * sizeof(unsigned char)))
+					== NULL)
+			{
+				return(NULL);
+			}
+
+			sprintf(fichier, "\\SHAREMEM\\RPL-SIGQUEUES-%d", (int) pid);
+#		endif // OS2
+#	else // POSIX
+
+		if ((fichier = malloc((1 + 256 + 1) *
+				sizeof(unsigned char))) == NULL)
+		{
+			return(NULL);
+		}
+
+		sprintf(fichier, "/RPL-SIGQUEUES-%d", (int) pid);
+#	endif
+
+	return(fichier);
+}
+
+
+int
+envoi_signal_processus(pid_t pid, enum signaux_rpl signal)
+{
+	int								segment;
+
+	struct_queue_signaux			*queue;
+
+	unsigned char					*nom;
+
+	// Il s'agit d'ouvrir le segment de mémoire partagée, de le projeter en
+	// mémoire puis d'y inscrire le signal à traiter.
+
+	if (pid == getpid())
+	{
+		// Le signal est envoyé au même processus.
+
+		if (s_queue_signaux == NULL)
+		{
+			return(1);
+		}
+
+		if (pthread_mutex_lock(&((*s_queue_signaux).mutex)) != 0)
+		{
+			return(1);
+		}
+
+		(*s_queue_signaux).queue[(*s_queue_signaux).pointeur_ecriture]
+				.pid = pid;
+		(*s_queue_signaux).queue[(*s_queue_signaux).pointeur_ecriture]
+				.signal = signal;
+
+		(*s_queue_signaux).pointeur_ecriture =
+				((*s_queue_signaux).pointeur_ecriture + 1)
+				% LONGUEUR_QUEUE_SIGNAUX;
+
+		if (pthread_mutex_unlock(&((*s_queue_signaux).mutex)) != 0)
+		{
+			return(1);
+		}
+	}
+	else
+	{
+		// Le signal est envoyé depuis un processus distinct.
+
+		if ((nom = nom_segment(racine_segment, pid)) == NULL)
+		{
+			return(1);
+		}
+
+		if ((segment = shm_open(nom, O_RDWR, 0)) == -1)
+		{
+			free(nom);
+			return(1);
+		}
+
+		free(nom);
+
+		if ((queue = mmap(NULL, sizeof(struct_queue_signaux),
+				PROT_READ | PROT_WRITE, MAP_SHARED, segment, 0)) ==
+				MAP_FAILED)
+		{
+			close(segment);
+			return(1);
+		}
+
+uprintf("Lock\n");
+		if (pthread_mutex_lock(&((*queue).mutex)) != 0)
+		{
+uprintf("Unlock (error)\n");
+			return(1);
+		}
+
+		(*queue).queue[(*queue).pointeur_ecriture].pid = getpid();
+		(*queue).queue[(*queue).pointeur_ecriture].signal = signal;
+
+		(*queue).pointeur_ecriture = ((*queue).pointeur_ecriture + 1)
+				% LONGUEUR_QUEUE_SIGNAUX;
+
+uprintf("Unlock\n");
+		if (pthread_mutex_unlock(&((*queue).mutex)) != 0)
+		{
+uprintf("Unlock failed\n");
+			return(1);
+		}
+
+		if (munmap(queue, sizeof(struct_queue_signaux)) != 0)
+		{
+			close(segment);
+			return(1);
+		}
+
+		close(segment);
+	}
+
+	return(0);
+}
+
+int
+envoi_signal_thread(pthread_t tid, enum signaux_rpl signal)
+{
+	// Un signal est envoyé d'un thread à un autre thread du même processus.
+
+	volatile struct_liste_chainee_volatile	*l_element_courant;
+
+	struct_processus						*s_etat_processus;
+
+	if (pthread_mutex_lock(&mutex_liste_threads) != 0)
+	{
+		return(1);
+	}
+
+	l_element_courant = liste_threads;
+
+	while(l_element_courant != NULL)
+	{
+		if (((*((struct_thread *) (*l_element_courant).donnee)).pid
+				== getpid()) && (pthread_equal((*((struct_thread *)
+				(*l_element_courant).donnee)).tid, tid) != 0))
+		{
+			break;
+		}
+
+		l_element_courant = (*l_element_courant).suivant;
+	}
+
+	if (l_element_courant == NULL)
+	{
+		pthread_mutex_unlock(&mutex_liste_threads);
+		return(1);
+	}
+
+	if (pthread_mutex_lock(&mutex_interruptions) != 0)
+	{
+		pthread_mutex_unlock(&mutex_liste_threads);
+		return(1);
+	}
+
+	s_etat_processus = (*((struct_thread *) (*l_element_courant).donnee))
+			.s_etat_processus;
+
+	(*s_etat_processus).signaux_en_queue
+			[(*s_etat_processus).pointeur_signal_ecriture] = signal;
+	(*s_etat_processus).pointeur_signal_ecriture =
+			((*s_etat_processus).pointeur_signal_ecriture + 1)
+			% LONGUEUR_QUEUE_SIGNAUX;
+
+	if (pthread_mutex_unlock(&mutex_interruptions) != 0)
+	{
+		pthread_mutex_unlock(&mutex_liste_threads);
+		return(1);
+	}
+
+	if (pthread_mutex_unlock(&mutex_liste_threads) != 0)
+	{
+		return(1);
+	}
+
+	return(0);
+}
+
+int
+envoi_signal_contexte(struct_processus *s_etat_processus_a_signaler,
+		enum signaux_rpl signal)
+{
+	pthread_mutex_lock(&mutex_interruptions);
+	(*s_etat_processus_a_signaler).signaux_en_queue
+			[(*s_etat_processus_a_signaler).pointeur_signal_ecriture] =
+			signal;
+	(*s_etat_processus_a_signaler).pointeur_signal_ecriture =
+			((*s_etat_processus_a_signaler).pointeur_signal_ecriture + 1)
+			% LONGUEUR_QUEUE_SIGNAUX;
+	pthread_mutex_unlock(&mutex_interruptions);
+
+	return(0);
+}
+
+
+/*
+================================================================================
+  Fonction créant un segment de mémoire partagée destiné à contenir
+  la queue des signaux.
+================================================================================
+  Entrée : structure de description du processus
+--------------------------------------------------------------------------------
+  Sortie : Néant
+--------------------------------------------------------------------------------
+  Effet de bord : Néant
+================================================================================
+*/
+
+void
+creation_queue_signaux(struct_processus *s_etat_processus)
+{
+	pthread_mutexattr_t				attributs_mutex;
+
+	unsigned char					*nom;
+
+	racine_segment = (*s_etat_processus).chemin_fichiers_temporaires;
+
+#	ifndef IPCS_SYSV // POSIX
+
+	if ((nom = nom_segment((*s_etat_processus).chemin_fichiers_temporaires,
+			getpid())) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if ((f_queue_signaux = shm_open(nom, O_RDWR | O_CREAT | O_EXCL,
+			S_IRUSR | S_IWUSR)) == -1)
+	{
+		free(nom);
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if (ftruncate(f_queue_signaux, sizeof(struct_queue_signaux)) == -1)
+	{
+		free(nom);
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	s_queue_signaux = mmap(NULL, sizeof(struct_queue_signaux),
+			PROT_READ | PROT_WRITE, MAP_SHARED, f_queue_signaux, 0);
+
+	if (((void *) s_queue_signaux) == ((void *) -1))
+	{
+		if (shm_unlink(nom) == -1)
+		{
+			free(nom);
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+			return;
+		}
+
+		free(nom);
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	free(nom);
+
+	pthread_mutexattr_init(&attributs_mutex);
+	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
+	pthread_mutex_init(&((*s_queue_signaux).mutex), &attributs_mutex);
+	pthread_mutexattr_destroy(&attributs_mutex);
+
+	(*s_queue_signaux).pointeur_lecture = 0;
+	(*s_queue_signaux).pointeur_ecriture = 0;
+
+	if (msync(s_queue_signaux, sizeof(struct_queue_signaux), 0))
+	{
+		(*s_etat_processus).erreur_systeme = d_es_processus;
+		return;
+	}
+
+#	else // SystemV
+#	ifndef OS2
+
+	file							*desc;
+
+	key_t							clef;
+
+	// Création d'un segment de données associé au PID du processus courant
+
+	chemin = (*s_etat_processus).chemin_fichiers_temporaires;
+
+	if ((nom = nom_segment((*s_etat_processus).chemin_fichiers_temporaires,
+			getpid())) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if ((desc = fopen(nom, "w")) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+		return;
+	}
+
+	fclose(desc);
+
+	if ((clef = ftok(nom, 1)) == -1)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	free(nom);
+
+	if ((segment = shmget(clef,
+			nombre_queues * ((2 * longueur_queue) + 4) * sizeof(int),
+			IPC_CREAT | IPC_EXCL | S_IRUSR | S_IWUSR)) == -1)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	fifos = shmat(segment, NULL, 0);
+
+	if (((void *) fifos) == ((void *) -1))
+	{
+		if (shmctl(segment, IPC_RMID, 0) == -1)
+		{
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+			return;
+		}
+
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+#	else
+
+	if ((nom = nom_segment(NULL, getpid())) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if (DosAllocSharedMem(&ptr_os2, nom, nombre_queues *
+			((2 * longueur_queue) + 4) * sizeof(int),
+			PAG_WRITE | PAG_READ | PAG_COMMIT) != 0)
+	{
+		free(nom);
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	free(nom);
+	fifos = ptr_os2;
+
+#	endif
+#	endif
+
+	return;
+}
+
+
+/*
+================================================================================
+  Fonction libérant le segment de mémoire partagée destiné à contenir
+  la queue des signaux.
+================================================================================
+  Entrée : structure de description du processus
+--------------------------------------------------------------------------------
+  Sortie : Néant
+--------------------------------------------------------------------------------
+  Effet de bord : Néant
+================================================================================
+*/
+
+void
+liberation_queue_signaux(struct_processus *s_etat_processus)
+{
+#	ifdef IPCS_SYSV // SystemV
+#		ifndef OS2
+#		else // OS/2
+#		endif
+#	else // POSIX
+		if (munmap(s_queue_signaux, sizeof(struct_queue_signaux)) != 0)
+		{
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+			return;
+		}
+
+		close(f_queue_signaux);
+#	endif
+
+	return;
+}
+
+
+/*
+================================================================================
+  Fonction détruisant le segment de mémoire partagée destiné à contenir
+  la queue des signaux.
+================================================================================
+  Entrée : structure de description du processus
+--------------------------------------------------------------------------------
+  Sortie : Néant
+--------------------------------------------------------------------------------
+  Effet de bord : Néant
+================================================================================
+*/
+
+void
+destruction_queue_signaux(struct_processus *s_etat_processus)
+{
+	unsigned char		*nom;
+
+#	ifdef IPCS_SYSV // SystemV
+#	ifndef OS2
+
+	if (shmdt(fifos) == -1)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if (shmctl(segment, IPC_RMID, 0) == -1)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;
 	}
 
-	(*s_etat_processus).var_volatile_exception_gsl = gsl_errno;
-	deverrouillage_gestionnaire_signaux();
+	if ((nom = nom_segment((*s_etat_processus).chemin_fichiers_temporaires,
+			getpid())) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	// FERMER LE FICHIER
+
+	unlink(nom);
+	free(nom);
+
+#	else
+
+	if (DosFreeMem(fifos) != 0)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	// FERMER LE FICHIER
+
+#	endif
+#	else // POSIX
+
+	if (munmap(s_queue_signaux, sizeof(struct_queue_signaux)) != 0)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if ((nom = nom_segment(NULL, getpid())) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	close(f_queue_signaux);
+
+	if (shm_unlink(nom) != 0)
+	{
+		free(nom);
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	free(nom);
+
+#	endif
+
 	return;
 }