--- rpl/src/interruptions.c	2011/09/15 17:51:43	1.69
+++ rpl/src/interruptions.c	2011/09/19 17:33:17	1.75
@@ -59,7 +59,7 @@ static volatile struct_liste_chainee_vol
 		= NULL;
 static volatile int								code_erreur_gsl = 0;
 
-static unsigned char							*racine_segment;
+unsigned char									*racine_segment;
 
 static pthread_mutex_t							mutex_interruptions
 		= PTHREAD_MUTEX_INITIALIZER;
@@ -2172,7 +2172,6 @@ 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:
@@ -2252,7 +2251,11 @@ scrutation_interruptions(struct_processu
 	// à lire. Les pointeurs d'écriture pointent sur les prochains éléments à
 	// écrire.
 
-	if (pthread_mutex_trylock(&((*s_queue_signaux).mutex)) == 0)
+#	ifndef SEMAPHORES_NOMMES
+		if (sem_trywait(&((*s_queue_signaux).semaphore)) == 0)
+#	else
+		if (sem_trywait(semaphore_queue_signaux) == 0)
+#	endif
 	{
 		if ((*s_queue_signaux).pointeur_lecture !=
 				(*s_queue_signaux).pointeur_ecriture)
@@ -2267,10 +2270,13 @@ scrutation_interruptions(struct_processu
 			(*s_queue_signaux).pointeur_lecture =
 					((*s_queue_signaux).pointeur_lecture + 1)
 					% LONGUEUR_QUEUE_SIGNAUX;
-uprintf("Traité\n");
 		}
 
-		pthread_mutex_unlock(&((*s_queue_signaux).mutex));
+#		ifndef SEMAPHORES_NOMMES
+			sem_post(&((*s_queue_signaux).semaphore));
+#		else
+			sem_post(semaphore_queue_signaux);
+#		endif
 	}
 
 	// Interruptions qui arrivent depuis le groupe courant de threads.
@@ -2349,11 +2355,32 @@ nom_segment(unsigned char *chemin, pid_t
 }
 
 
+/*
+================================================================================
+  Fonctions d'envoi d'un signal à un thread ou à un processus.
+================================================================================
+  Entrée : processus et signal
+--------------------------------------------------------------------------------
+  Sortie : erreur
+--------------------------------------------------------------------------------
+  Effet de bord : Néant
+================================================================================
+*/
+
 int
 envoi_signal_processus(pid_t pid, enum signaux_rpl signal)
 {
 	int								segment;
 
+#	ifndef IPCS_SYSV
+#		ifdef SEMAPHORES_NOMMES
+			sem_t					*semaphore;
+#		endif
+#	else
+		int							desc;
+		key_t						clef;
+#	endif
+
 	struct_queue_signaux			*queue;
 
 	unsigned char					*nom;
@@ -2367,10 +2394,15 @@ envoi_signal_processus(pid_t pid, enum s
 
 		if (s_queue_signaux == NULL)
 		{
+			uprintf("Paf !\n");
 			return(1);
 		}
 
-		if (pthread_mutex_lock(&((*s_queue_signaux).mutex)) != 0)
+#		ifndef SEMAPHORES_NOMMES
+			if (sem_wait(&((*s_queue_signaux).semaphore)) != 0)
+#		else
+			if (sem_wait(semaphore_queue_signaux) != 0)
+#		endif
 		{
 			return(1);
 		}
@@ -2384,7 +2416,11 @@ envoi_signal_processus(pid_t pid, enum s
 				((*s_queue_signaux).pointeur_ecriture + 1)
 				% LONGUEUR_QUEUE_SIGNAUX;
 
-		if (pthread_mutex_unlock(&((*s_queue_signaux).mutex)) != 0)
+#		ifndef SEMAPHORES_NOMMES
+			if (sem_post(&((*s_queue_signaux).semaphore)) != 0)
+#		else
+			if (sem_post(semaphore_queue_signaux) != 0)
+#		endif
 		{
 			return(1);
 		}
@@ -2393,33 +2429,84 @@ envoi_signal_processus(pid_t pid, enum s
 	{
 		// Le signal est envoyé depuis un processus distinct.
 
-		if ((nom = nom_segment(racine_segment, pid)) == NULL)
-		{
-			return(1);
-		}
+#		ifdef IPCS_SYSV
+			if ((nom = nom_segment(racine_segment, getpid())) == NULL)
+			{
+				return(1);
+			}
+
+			if ((desc = open(nom, O_RDWR)) == -1)
+			{
+				free(nom);
+				return(1);
+			}
+
+			close(desc);
+
+			if ((clef = ftok(nom, 1)) == -1)
+			{
+				free(nom);
+				return(1);
+			}
 
-		if ((segment = shm_open(nom, O_RDWR, 0)) == -1)
-		{
 			free(nom);
-			return(1);
-		}
 
-		free(nom);
+			if ((segment = shmget(clef, sizeof(struct_queue_signaux), 0)) == -1)
+			{
+				return(1);
+			}
 
-		if ((queue = mmap(NULL, sizeof(struct_queue_signaux),
-				PROT_READ | PROT_WRITE, MAP_SHARED, segment, 0)) ==
-				MAP_FAILED)
-		{
-			close(segment);
-			return(1);
-		}
+			queue = shmat(segment, NULL, 0);
+#		else // POSIX
+			if ((nom = nom_segment(racine_segment, pid)) == NULL)
+			{
+				return(1);
+			}
 
-uprintf("Lock\n");
-		if (pthread_mutex_lock(&((*queue).mutex)) != 0)
-		{
-uprintf("Unlock (error)\n");
-			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);
+			}
+#		endif
+
+			// À ce moment, le segment de mémoire partagée est projeté
+			// dans l'espace du processus.
+
+#		ifndef IPCS_SYSV // POSIX
+#			ifndef SEMAPHORES_NOMMES
+				if (sem_wait(&((*queue).semaphore)) != 0)
+				{
+					return(1);
+				}
+#			else
+				if ((semaphore = sem_open2(pid)) == SEM_FAILED)
+				{
+					return(1);
+				}
+
+				if (sem_wait(semaphore) != 0)
+				{
+					sem_close(semaphore);
+					return(1);
+				}
+#			endif
+#		else // IPCS_SYSV
+			if (sem_wait(&((*queue).semaphore)) != 0)
+			{
+				return(1);
+			}
+#		endif
 
 		(*queue).queue[(*queue).pointeur_ecriture].pid = getpid();
 		(*queue).queue[(*queue).pointeur_ecriture].signal = signal;
@@ -2427,18 +2514,41 @@ uprintf("Unlock (error)\n");
 		(*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);
-		}
+#		ifndef IPCS_SYSV // POSIX
+#			ifndef SEMAPHORES_NOMMES
+				if (sem_post(&((*queue).semaphore)) != 0)
+				{
+					return(1);
+				}
+#			else
+				if (sem_post(semaphore) != 0)
+				{
+					sem_close(semaphore);
+					return(1);
+				}
 
-		if (munmap(queue, sizeof(struct_queue_signaux)) != 0)
-		{
-			close(segment);
-			return(1);
-		}
+				if (sem_close(semaphore) != 0)
+				{
+					return(1);
+				}
+#			endif
+
+			if (munmap(queue, sizeof(struct_queue_signaux)) != 0)
+			{
+				close(segment);
+				return(1);
+			}
+#		else // IPCS_SYSV
+			if (sem_post(&((*queue).semaphore)) != 0)
+			{
+				return(1);
+			}
+
+			if (shmdt(queue) != 0)
+			{
+				return(1);
+			}
+#		endif
 
 		close(segment);
 	}
@@ -2542,146 +2652,149 @@ envoi_signal_contexte(struct_processus *
 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 ((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)
+		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;
 		}
 
-		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);
+		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).pointeur_lecture = 0;
-	(*s_queue_signaux).pointeur_ecriture = 0;
+		s_queue_signaux = mmap(NULL, sizeof(struct_queue_signaux),
+				PROT_READ | PROT_WRITE, MAP_SHARED, f_queue_signaux, 0);
 
-	if (msync(s_queue_signaux, sizeof(struct_queue_signaux), 0))
-	{
-		(*s_etat_processus).erreur_systeme = d_es_processus;
-		return;
-	}
-
-#	else // SystemV
-#	ifndef OS2
+		if (((void *) s_queue_signaux) == ((void *) -1))
+		{
+			if (shm_unlink(nom) == -1)
+			{
+				free(nom);
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return;
+			}
 
-	file							*desc;
+			free(nom);
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+			return;
+		}
 
-	key_t							clef;
+		free(nom);
 
-	// Création d'un segment de données associé au PID du processus courant
+#		ifndef SEMAPHORES_NOMMES
+			sem_init(&((*s_queue_signaux).semaphore), 1, 1);
+#		else
+			if ((semaphore_queue_signaux = sem_init2(1, getpid()))
+					== SEM_FAILED)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_processus;
+				return;
+			}
+#		endif
 
-	chemin = (*s_etat_processus).chemin_fichiers_temporaires;
+		(*s_queue_signaux).pointeur_lecture = 0;
+		(*s_queue_signaux).pointeur_ecriture = 0;
 
-	if ((nom = nom_segment((*s_etat_processus).chemin_fichiers_temporaires,
-			getpid())) == NULL)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
-		return;
-	}
+		if (msync(s_queue_signaux, sizeof(struct_queue_signaux), 0))
+		{
+			(*s_etat_processus).erreur_systeme = d_es_processus;
+			return;
+		}
+#	else // IPCS_SYSV
+#		ifndef OS2
+			int								segment;
+			int								support;
 
-	if ((desc = fopen(nom, "w")) == NULL)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
-		return;
-	}
+			key_t							clef;
 
-	fclose(desc);
+			// Création d'un segment de données associé au PID du processus
+			// courant
 
-	if ((clef = ftok(nom, 1)) == -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;
+			}
 
-	free(nom);
+			if ((support = open(nom, O_RDWR | O_CREAT | O_EXCL |
+					S_IRUSR | S_IWUSR)) == -1)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
+				return;
+			}
 
-	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;
-	}
+			if ((clef = ftok(nom, 1)) == -1)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return;
+			}
 
-	fifos = shmat(segment, NULL, 0);
+			close(support);
+			free(nom);
 
-	if (((void *) fifos) == ((void *) -1))
-	{
-		if (shmctl(segment, IPC_RMID, 0) == -1)
-		{
-			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
-			return;
-		}
+			if ((segment = shmget(clef, sizeof(struct_queue_signaux),
+					IPC_CREAT | IPC_EXCL | S_IRUSR | S_IWUSR)) == -1)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return;
+			}
 
-		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
-		return;
-	}
+			s_queue_signaux = shmat(segment, NULL, 0);
+			f_queue_signaux = segment;
 
-#	else
+			if (((void *) s_queue_signaux) == ((void *) -1))
+			{
+				if (shmctl(f_queue_signaux, IPC_RMID, 0) == -1)
+				{
+					(*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;
-	}
+				(*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;
-	}
+			sem_init(&((*s_queue_signaux).semaphore), 1, 1);
+			(*s_queue_signaux).pointeur_lecture = 0;
+			(*s_queue_signaux).pointeur_ecriture = 0;
+#		else // OS/2
+			if ((nom = nom_segment(NULL, getpid())) == NULL)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return;
+			}
 
-	free(nom);
-	fifos = ptr_os2;
+			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;
+			}
 
-#	endif
+			free(nom);
+			fifos = ptr_os2;
+#		endif
 #	endif
 
 	return;
@@ -2706,9 +2819,20 @@ liberation_queue_signaux(struct_processu
 {
 #	ifdef IPCS_SYSV // SystemV
 #		ifndef OS2
+			if (shmdt(s_queue_signaux) == -1)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return;
+			}
 #		else // OS/2
 #		endif
 #	else // POSIX
+#		ifndef SEMAPHORES_NOMMES
+			sem_close(&((*s_queue_signaux).semaphore));
+#		else
+			sem_close(semaphore_queue_signaux);
+#		endif
+
 		if (munmap(s_queue_signaux, sizeof(struct_queue_signaux)) != 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -2741,68 +2865,79 @@ destruction_queue_signaux(struct_process
 	unsigned char		*nom;
 
 #	ifdef IPCS_SYSV // SystemV
-#	ifndef OS2
+#		ifndef OS2
+			// Il faut commencer par éliminer le sémaphore.
 
-	if (shmdt(fifos) == -1)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
-		return;
-	}
+			if (semctl((*s_queue_signaux).semaphore.sem, 0, IPC_RMID) == -1)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_processus;
+				return;
+			}
 
-	if (shmctl(segment, IPC_RMID, 0) == -1)
-	{
-		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
-		return;
-	}
+			unlink((*s_queue_signaux).semaphore.path);
 
-	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
+			if (shmdt(s_queue_signaux) == -1)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return;
+			}
 
-	unlink(nom);
-	free(nom);
+			if (shmctl(f_queue_signaux, IPC_RMID, 0) == -1)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return;
+			}
 
-#	else
+			if ((nom = nom_segment((*s_etat_processus)
+					.chemin_fichiers_temporaires, getpid())) == NULL)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return;
+			}
 
-	if (DosFreeMem(fifos) != 0)
-	{
-		(*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;
+			}
 
-	// FERMER LE FICHIER
+		// FERMER LE FICHIER
 
-#	endif
+#		endif
 #	else // POSIX
+#		ifndef SEMAPHORES_NOMMES
+			sem_close(&((*s_queue_signaux).semaphore));
+			sem_destroy(&((*s_queue_signaux).semaphore));
+#		else
+			sem_close(semaphore_queue_signaux);
+			sem_destroy2(semaphore_queue_signaux, getpid());
+#		endif
 
-	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 (munmap(s_queue_signaux, sizeof(struct_queue_signaux)) != 0)
+		{
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+			return;
+		}
 
-	close(f_queue_signaux);
+		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;
-	}
+		close(f_queue_signaux);
 
-	free(nom);
+		if (shm_unlink(nom) != 0)
+		{
+			free(nom);
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+			return;
+		}
 
+		free(nom);
 #	endif
 
 	return;