--- rpl/src/interruptions.c	2011/09/03 10:31:50	1.63
+++ rpl/src/interruptions.c	2011/09/14 14:34:28	1.67
@@ -1457,8 +1457,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;
 
@@ -1482,12 +1482,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);
 }
 
 
@@ -1718,178 +1717,199 @@ deverrouillage_gestionnaire_signaux()
 	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(SIGHANDLER_ARGS)
+interruption1(int signal)
 {
-	pid_t					pid;
+	test_signal(signal);
 
-	pthread_t				thread;
+	switch(signal)
+	{
+		case SIGINT:
+			envoi_signal_processus(getpid(), rpl_sigint);
+			break;
 
-	struct_processus		*s_etat_processus;
+		case SIGTERM:
+			envoi_signal_processus(getpid(), rpl_sigterm);
+			break;
 
-	volatile sig_atomic_t	exclusion = 0;
+		case SIGALRM:
+			envoi_signal_processus(getpid(), rpl_sigalrm);
+			break;
+	}
+
+	return;
+}
+
+inline static void
+signal_alrm(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
 
 	verrouillage_gestionnaire_signaux();
 
-#	ifdef _BROKEN_SIGINFO
-	if ((signal == SIGINT) || (signal == SIGTERM))
+	if (pid == getpid())
 	{
-		// Si l'interruption provient du clavier, il n'y a pas eu d'appel
-		// à queue_in().
+		// 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.
 
-		pid = getpid();
-	}
-	else
-	{
-		pid = origine_signal(signal);
-	}
-#	else
-	if (siginfo != NULL)
-	{
-		pid = (*siginfo).si_pid;
+		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
+		{
+			printf("[%d] RPL/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
 	{
-		pid = getpid();
-	}
-#	endif
+		// Le signal est issu d'un processus différent. On recherche le
+		// thread principal pour remonter le signal.
 
-	switch(signal)
-	{
-		case SIGALRM :
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
 		{
-			if (pid == getpid())
-			{
-				if ((s_etat_processus = recherche_thread(getpid(),
-						pthread_self())) == NULL)
-				{
-					deverrouillage_gestionnaire_signaux();
-					 return;
-				}
+			envoi_signal_contexte(s_thread_principal, rpl_sigalrm);
+		}
+	}
 
-				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);
-				}
+	deverrouillage_gestionnaire_signaux();
+	return;
+}
 
-				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);
-				}
-			}
+inline static void
+signal_term(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
+	volatile sig_atomic_t	exclusion = 0;
 
-			break;
+	verrouillage_gestionnaire_signaux();
+
+	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 :
-		case SIGTERM :
+		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;
 
-#			ifndef _BROKEN_SIGINFO
-			if (siginfo == NULL)
+			while(exclusion == 1);
+			exclusion = 1;
+
+			if ((*s_etat_processus).var_volatile_requete_arret == -1)
 			{
-				kill(getpid(), signal);
+				deverrouillage_gestionnaire_signaux();
+				exclusion = 0;
+				return;
 			}
-			else
-#			endif
-			if (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)
-				{
-					if (signal == SIGINT)
-					{
-						printf("[%d] SIGINT (thread %llu)\n", (int) getpid(),
-								(unsigned long long) pthread_self());
-					}
-					else
-					{
-						printf("[%d] SIGTERM (thread %llu)\n", (int) getpid(),
-								(unsigned long long) pthread_self());
-					}
+			(*s_etat_processus).var_volatile_requete_arret = -1;
+			(*s_etat_processus).var_volatile_alarme = -1;
 
-					fflush(stdout);
-				}
+			exclusion = 0;
+		}
+	}
+	else
+	{
+		if ((s_thread_principal = recherche_thread_principal(getpid()))
+				!= NULL)
+		{
+			envoi_signal_contexte(s_thread_principal, rpl_sigterm);
+		}
+	}
 
-				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;
+	deverrouillage_gestionnaire_signaux();
+	return;
+}
 
-					while(exclusion == 1);
-					exclusion = 1;
+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 ((*s_etat_processus).var_volatile_requete_arret == -1)
-					{
-						deverrouillage_gestionnaire_signaux();
-						exclusion = 0;
-						return;
-					}
+	verrouillage_gestionnaire_signaux();
 
-					if (signal == SIGINT)
-					{
-						if (strncmp(getenv("LANG"), "fr", 2) == 0)
-						{
-							printf("+++Interruption\n");
-						}
-						else
-						{
-							printf("+++Interrupt\n");
-						}
+	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);
+		}
 
-						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;
 
-					(*s_etat_processus).var_volatile_requete_arret = -1;
-					(*s_etat_processus).var_volatile_alarme = -1;
+			while(exclusion == 1);
+			exclusion = 1;
 
-					exclusion = 0;
-				}
+			if ((*s_etat_processus).var_volatile_requete_arret == -1)
+			{
+				deverrouillage_gestionnaire_signaux();
+				exclusion = 0;
+				return;
+			}
+
+			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);
+
+			(*s_etat_processus).var_volatile_requete_arret = -1;
+			(*s_etat_processus).var_volatile_alarme = -1;
 
-		default :
+			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);
 		}
 	}
 
@@ -1897,59 +1917,33 @@ interruption1(SIGHANDLER_ARGS)
 	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(SIGHANDLER_ARGS)
+interruption2(int signal)
 {
-	pid_t					pid;
-
-	pthread_t				thread;
+	test_signal(signal);
+	envoi_signal_processus(getpid(), rpl_sigtstp);
+	return;
+}
 
-	struct_processus		*s_etat_processus;
+static inline void
+signal_tstp(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
 
 	verrouillage_gestionnaire_signaux();
 
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	if (siginfo != NULL)
-	{
-		pid = (*siginfo).si_pid;
-	}
-	else
-	{
-		pid = getpid();
-	}
-#	endif
-
-#	ifndef _BROKEN_SIGINFO
-	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.
-		 */
-
-		if (recherche_thread_principal(getpid(), &thread) == d_vrai)
-		{
-			pthread_kill(thread, SIGHUP);
-			deverrouillage_gestionnaire_signaux();
-			return;
-		}
-	}
-	else
-#	endif
 	if (pid == getpid())
 	{
-		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
-				== NULL)
-		{
-			deverrouillage_gestionnaire_signaux();
-			return;
-		}
-
 		/*
 		 *  0 => fonctionnement normal
 		 * -1 => requête
@@ -1958,14 +1952,15 @@ interruption2(SIGHANDLER_ARGS)
 
 		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
 		{
@@ -1976,11 +1971,10 @@ interruption2(SIGHANDLER_ARGS)
 	{
 		// 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);
 		}
 	}
 
@@ -1989,12 +1983,35 @@ interruption2(SIGHANDLER_ARGS)
 }
 
 void
-interruption3(SIGHANDLER_ARGS)
+interruption3(int signal)
+{
+	// 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;
 
 	struct_processus		*s_etat_processus;
 
+	test_signal(signal);
 	verrouillage_gestionnaire_signaux();
 
 	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
@@ -2041,11 +2058,14 @@ interruption3(SIGHANDLER_ARGS)
 
 			if (strncmp(getenv("LANG"), "fr", 2) == 0)
 			{
-				printf("+++Système : Violation d'accès\n");
+				printf("+++Système : Violation d'accès, tentative de "
+						"terminaison de la tâche\n");
+				printf("             (defauts multiples)\n");
 			}
 			else
 			{
-				printf("+++System : Access violation\n");
+				printf("+++System : Access violation, trying to kill task "
+						"(multiple defaults)\n");
 			}
 
 			fflush(stdout);
@@ -2099,52 +2119,35 @@ interruption3(SIGHANDLER_ARGS)
 	deverrouillage_gestionnaire_signaux();
 	return;
 }
+#endif
 
-void
-interruption4(SIGHANDLER_ARGS)
-{
-	struct_processus		*s_etat_processus;
-
-	verrouillage_gestionnaire_signaux();
-
-	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
-	{
-		deverrouillage_gestionnaire_signaux();
-		return;
-	}
-
-	/*
-	 * Démarrage d'un processus fils ou gestion de SIGCONT (SUSPEND)
-	 */
-
-	if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
-	{
-		printf("[%d] SIGSTART/SIGCONT (thread %llu)\n", (int) getpid(),
-				(unsigned long long) pthread_self());
-		fflush(stdout);
-	}
+// Traitement de rpl_sigstart
 
-	deverrouillage_gestionnaire_signaux();
+static inline void
+signal_start(struct_processus *s_etat_processus, pid_t pid)
+{
+	(*s_etat_processus).demarrage_fils = d_vrai;
 	return;
 }
 
-void
-interruption5(SIGHANDLER_ARGS)
+// Traitement de rpl_sigcont
+
+static inline void
+signal_cont(struct_processus *s_etat_processus, pid_t pid)
 {
-	pid_t					pid;
+	(*s_etat_processus).redemarrage_processus = d_vrai;
+	return;
+}
 
-	pthread_t				thread;
+// Traitement de rpl_sigstop
 
-	struct_processus		*s_etat_processus;
+static inline void
+signal_stop(struct_processus *s_etat_processus, pid_t pid)
+{
+	struct_processus		*s_thread_principal;
 
 	verrouillage_gestionnaire_signaux();
 
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	pid = (*siginfo).si_pid;
-#	endif
-
 	if (pid == getpid())
 	{
 		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
@@ -2156,7 +2159,7 @@ interruption5(SIGHANDLER_ARGS)
 
 		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
 		{
-			printf("[%d] SIGFSTOP (thread %llu)\n", (int) getpid(),
+			printf("[%d] RPL/SIGFSTOP (thread %llu)\n", (int) getpid(),
 					(unsigned long long) pthread_self());
 			fflush(stdout);
 		}
@@ -2188,11 +2191,10 @@ interruption5(SIGHANDLER_ARGS)
 
 		// 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, signal);
-			deverrouillage_gestionnaire_signaux();
-			return;
+			envoi_signal_contexte(s_thread_principal, rpl_sigstop);
 		}
 	}
 
@@ -2200,11 +2202,11 @@ interruption5(SIGHANDLER_ARGS)
 	return;
 }
 
-void
-interruption6(SIGHANDLER_ARGS)
-{
-	struct_processus		*s_etat_processus;
+// Traitement de rpl_siginject
 
+static inline void
+signal_inject(struct_processus *s_etat_processus, pid_t pid)
+{
 	verrouillage_gestionnaire_signaux();
 
 	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
@@ -2215,7 +2217,7 @@ interruption6(SIGHANDLER_ARGS)
 
 	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);
 	}
@@ -2224,50 +2226,33 @@ interruption6(SIGHANDLER_ARGS)
 	return;
 }
 
+// Récupération des signaux
+// - SIGPIPE
+
 void
-interruption7(SIGHANDLER_ARGS)
+interruption5(int signal)
 {
-	struct_processus		*s_etat_processus;
+	unsigned char		message[] = "+++System : SIGPIPE\n"
+								"+++System : Aborting !\n";
 
-	verrouillage_gestionnaire_signaux();
+	test_signal(signal);
 
-	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
-	{
-		deverrouillage_gestionnaire_signaux();
-		return;
-	}
-
-	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(SIGHANDLER_ARGS)
+static inline void
+signal_urg(struct_processus *s_etat_processus, pid_t pid)
 {
-	pid_t					pid;
-
-	pthread_t				thread;
-
-	struct_processus		*s_etat_processus;
+	struct_processus		*s_thread_principal;
 
 	verrouillage_gestionnaire_signaux();
 
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	pid = (*siginfo).si_pid;
-#	endif
-
 	if (pid == getpid())
 	{
 		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
@@ -2279,7 +2264,7 @@ interruption8(SIGHANDLER_ARGS)
 
 		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);
 		}
@@ -2291,11 +2276,10 @@ interruption8(SIGHANDLER_ARGS)
 	{
 		// 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);
 		}
 	}
 
@@ -2303,10 +2287,12 @@ interruption8(SIGHANDLER_ARGS)
 	return;
 }
 
-void
-interruption9(SIGHANDLER_ARGS)
+// 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();
 
@@ -2318,32 +2304,84 @@ interruption9(SIGHANDLER_ARGS)
 
 	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);
 	}
 
-#	ifdef _BROKEN_SIGINFO
-	if (queue_in(getpid(), signal) != 0)
+	if (pid == getpid())
 	{
-		return;
+		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
+				== NULL)
+		{
+			deverrouillage_gestionnaire_signaux();
+			return;
+		}
+
+		(*s_etat_processus).arret_depuis_abort = -1;
+
+		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
+		{
+			printf("[%d] SIGFABORT (thread %llu)\n", (int) getpid(),
+					(unsigned long long) pthread_self());
+			fflush(stdout);
+		}
+
+		/*
+		 * 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
+	{
+		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
+				== NULL)
+		{
+			deverrouillage_gestionnaire_signaux();
+			return;
+		}
+
+		(*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();
-	interruption11(signal);
-#	else
-	deverrouillage_gestionnaire_signaux();
-	interruption11(signal, siginfo, context);
-#	endif
 	return;
 }
 
+// Récupération des signaux
+// - SIGHUP
+
 void
-interruption10(SIGHANDLER_ARGS)
+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];
 
@@ -2380,97 +2418,451 @@ interruption10(SIGHANDLER_ARGS)
 }
 
 void
-interruption11(SIGHANDLER_ARGS)
+traitement_exceptions_gsl(const char *reason, const char *file,
+		int line, int gsl_errno)
 {
-	pid_t					pid;
-
-	pthread_t				thread;
-
 	struct_processus		*s_etat_processus;
 
 	verrouillage_gestionnaire_signaux();
 
-#	ifdef _BROKEN_SIGINFO
-	pid = origine_signal(signal);
-#	else
-	pid = (*siginfo).si_pid;
-#	endif
+	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
+	{
+		deverrouillage_gestionnaire_signaux();
+		return;
+	}
 
-	if (pid == getpid())
+	(*s_etat_processus).var_volatile_exception_gsl = gsl_errno;
+	deverrouillage_gestionnaire_signaux();
+	return;
+}
+
+static inline void
+envoi_interruptions(struct_processus *s_etat_processus, enum signaux_rpl signal,
+		pid_t pid_source)
+{
+	unsigned char		message[] = "+++System : Spurious signa !\n";
+
+	switch(signal)
 	{
-		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
-				== NULL)
-		{
-			deverrouillage_gestionnaire_signaux();
-			return;
-		}
+		case rpl_sigint:
+			signal_int(s_etat_processus, pid_source);
+			break;
 
-		(*s_etat_processus).arret_depuis_abort = -1;
+		case rpl_sigterm:
+			signal_term(s_etat_processus, pid_source);
+			break;
 
-		if (((*s_etat_processus).type_debug & d_debug_signaux) != 0)
-		{
-			printf("[%d] SIGFABORT (thread %llu)\n", (int) getpid(),
-					(unsigned long long) pthread_self());
-			fflush(stdout);
-		}
+		case rpl_sigstart:
+			signal_start(s_etat_processus, pid_source);
+			break;
 
-		/*
-		 * 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)
-		 */
+		case rpl_sigcont:
+			signal_cont(s_etat_processus, pid_source);
+			break;
 
-		if ((*s_etat_processus).var_volatile_traitement_retarde_stop == 0)
+		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;
+
+		default:
+			write(STDERR_FILENO, message, strlen(message));
+			break;
+	}
+
+	return;
+}
+
+void
+scrutation_interruptions(struct_processus *s_etat_processus)
+{
+	// Interruptions qui arrivent sur le processus depuis un
+	// processus externe.
+
+	// Interruptions qui arrivent depuis le groupe courant de threads.
+
+	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.
+	}
+
+	return;
+}
+
+int
+envoi_signal_processus(pid_t pid, enum signaux_rpl signal)
+{
+	// 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.
+
+	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.
+
+	return(0);
+}
+
+int
+envoi_signal_contexte(struct_processus *s_etat_processus_a_signaler,
+		enum signaux_rpl signal)
+{
+	(*s_etat_processus_a_signaler).signaux_en_queue
+			[(*s_etat_processus_a_signaler).pointeur_signal_ecriture + 1] =
+			signal;
+
+	// On valide l'écriture. Cela évite l'utilisation d'un mutex.
+
+	(*s_etat_processus_a_signaler).pointeur_signal_ecriture++;
+	return(0);
+}
+
+
+/*
+================================================================================
+  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)
 		{
-			(*s_etat_processus).var_volatile_requete_arret = -1;
+			return(NULL);
 		}
-		else
+
+		sprintf(fichier, "/RPL-SIGQUEUES-%d", (int) pid);
+#	endif
+
+	return(fichier);
+}
+
+
+/*
+================================================================================
+  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)
+{
+	int								segment;
+
+	pthread_mutexattr_t				attributs_mutex;
+
+	unsigned char					*nom;
+
+#	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 ((segment = 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(segment, 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, segment, 0);
+	close(segment);
+
+	if (((void *) s_queue_signaux) == ((void *) -1))
+	{
+		if (shm_unlink(nom) == -1)
 		{
-			(*s_etat_processus).var_volatile_traitement_retarde_stop = -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;
 	}
-	else
+
+	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;
+
+#	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)
 	{
-		if ((s_etat_processus = recherche_thread(getpid(), pthread_self()))
-				== 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)
 		{
-			deverrouillage_gestionnaire_signaux();
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
 		}
 
-		(*s_etat_processus).arret_depuis_abort = -1;
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
 
-		// Envoi d'un signal au thread maître du groupe.
+#	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;
+	}
 
-		if (recherche_thread_principal(getpid(), &thread) == d_vrai)
+	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)
 		{
-			pthread_kill(thread, signal);
-			deverrouillage_gestionnaire_signaux();
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
 		}
-	}
+#	endif
 
-	deverrouillage_gestionnaire_signaux();
 	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
-traitement_exceptions_gsl(const char *reason, const char *file,
-		int line, int gsl_errno)
+destruction_queue_signaux(struct_processus *s_etat_processus)
 {
-	struct_processus		*s_etat_processus;
+	unsigned char		*nom;
 
-	verrouillage_gestionnaire_signaux();
+#	ifdef IPCS_SYSV // SystemV
+#	ifndef OS2
 
-	if ((s_etat_processus = recherche_thread(getpid(), pthread_self())) == NULL)
+	if (shmdt(fifos) == -1)
 	{
-		deverrouillage_gestionnaire_signaux();
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;
 	}
 
-	(*s_etat_processus).var_volatile_exception_gsl = gsl_errno;
-	deverrouillage_gestionnaire_signaux();
+	if (shmctl(segment, IPC_RMID, 0) == -1)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	if ((nom = nom_segment((*s_etat_processus).chemin_fichiers_temporaires,
+			getpid())) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	unlink(nom);
+	free(nom);
+
+#	else
+
+	if (DosFreeMem(fifos) != 0)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+#	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;
+	}
+
+	if (shm_unlink(nom) != 0)
+	{
+		free(nom);
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	free(nom);
+
+#	endif
+
 	return;
 }