--- rpl/src/transliteration.c	2011/08/30 14:19:28	1.39
+++ rpl/src/transliteration.c	2013/03/15 12:41:21	1.67
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.3
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -90,6 +90,20 @@ reencodage(struct_processus *s_etat_proc
 	if ((transcodage = iconv_open(codage_sortie, codage_entree)) ==
 			(iconv_t) -1)
 	{
+		// On affiche une erreur ici car la fonction d'affichage
+		// de l'erreur utilise la macro printf() donc une
+		// opération de translitération qui échouera elle aussi.
+		// Le positionnement de l'erreur permet de sortir du programme.
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			fprintf(stderr, "+++Erreur : Erreur de transcodage\n");
+		}
+		else
+		{
+			fprintf(stderr, "+++Error : Transcodage error\n");
+		}
+
 		(*s_etat_processus).erreur_execution = d_ex_erreur_transcodage;
 		return(NULL);
 	}
@@ -117,16 +131,62 @@ reencodage(struct_processus *s_etat_proc
 		longueur_sortie = d_LONGUEUR;
 		pointeur = buffer_sortie;
 
-		if ((ios = iconv(transcodage, (char **) &buffer_entree,
+		if ((ios = iconv(transcodage, (const char **) &buffer_entree,
 				&longueur_entree, (char **) &pointeur, &longueur_sortie))
 				== (size_t) -1)
 		{
-			// On autorise les erreurs EINVAL et EILSEQ
-			if (errno == EILSEQ)
+			// On autorise les erreurs EINVAL si le caractère suivant est non
+			// nul : la séquence d'entrée est continue sur le bloc suivant.
+
+			if (errno == EINVAL)
+			{
+				if ((*(buffer_entree + 1)) == d_code_fin_chaine)
+				{
+					free(buffer_sortie);
+					free(chaine_sortie);
+
+					// On affiche une erreur ici car la fonction d'affichage
+					// de l'erreur utilise la macro printf() donc une
+					// opération de translitération qui échouera elle aussi.
+					// Le positionnement de l'erreur permet de sortir du
+					// programme.
+
+					if ((*s_etat_processus).langue == 'F')
+					{
+						fprintf(stderr, "+++Erreur : Erreur de transcodage\n");
+					}
+					else
+					{
+						fprintf(stderr, "+++Error : Transcodage error\n");
+					}
+
+					(*s_etat_processus).erreur_execution =
+							d_ex_erreur_transcodage;
+					return(NULL);
+				}
+			}
+
+			// Si la séquence d'entrée est invalide, on reçoit une erreur
+			// EILSEQ.
+			else if (errno == EILSEQ)
 			{
 				free(buffer_sortie);
 				free(chaine_sortie);
 
+				// On affiche une erreur ici car la fonction d'affichage
+				// de l'erreur utilise la macro printf() donc une
+				// opération de translitération qui échouera elle aussi.
+				// Le positionnement de l'erreur permet de sortir du programme.
+
+				if ((*s_etat_processus).langue == 'F')
+				{
+					fprintf(stderr, "+++Erreur : Erreur de transcodage\n");
+				}
+				else
+				{
+					fprintf(stderr, "+++Error : Transcodage error\n");
+				}
+
 				(*s_etat_processus).erreur_execution = d_ex_erreur_transcodage;
 				return(NULL);
 			}
@@ -181,11 +241,6 @@ localisation_courante(struct_processus *
 
 	pid_t						pid;
 
-	sigset_t					oldset;
-	sigset_t					set;
-
-	struct sigaction			action_passee;
-
 	unsigned char				*tampon;
 
 	unsigned long				longueur_lecture;
@@ -234,16 +289,10 @@ localisation_courante(struct_processus *
 		return;
 	}
 
-	sigfillset(&set);
-	pthread_sigmask(SIG_BLOCK, &set, &oldset);
-
 	verrouillage_threads_concurrents(s_etat_processus);
 	pid = fork();
 	deverrouillage_threads_concurrents(s_etat_processus);
 
-	pthread_sigmask(SIG_SETMASK, &oldset, NULL);
-	sigpending(&set);
-
 	if (pid < 0)
 	{
 		if (close(pipes_entree[0]) != 0)
@@ -406,9 +455,9 @@ localisation_courante(struct_processus *
 			 */
 
 #			ifndef SEMAPHORES_NOMMES
-			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
+				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
 #			endif
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
@@ -418,9 +467,9 @@ localisation_courante(struct_processus *
 			if (waitpid(pid, &status, 0) == -1)
 			{
 #				ifndef SEMAPHORES_NOMMES
-				if (sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+					while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #				else
-				if (sem_wait((*s_etat_processus).semaphore_fork) == -1)
+					while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #				endif
 				{
 					if (errno != EINTR)
@@ -435,9 +484,9 @@ localisation_courante(struct_processus *
 			}
 
 #			ifndef SEMAPHORES_NOMMES
-			if (sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			if (sem_wait((*s_etat_processus).semaphore_fork) == -1)
+				while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #			endif
 			{
 				if (errno != EINTR)
@@ -462,9 +511,9 @@ localisation_courante(struct_processus *
 		tampon[0] = d_code_fin_chaine;
 
 #		ifndef SEMAPHORES_NOMMES
-		if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
+			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #		else
-		if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
 #		endif
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
@@ -476,9 +525,9 @@ localisation_courante(struct_processus *
 				longueur_lecture)) > 0)
 		{
 #			ifndef SEMAPHORES_NOMMES
-			while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+				while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+				while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #			endif
 			{
 				if (errno != EINTR)
@@ -502,9 +551,9 @@ localisation_courante(struct_processus *
 			}
 
 #			ifndef SEMAPHORES_NOMMES
-			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
+				if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #			else
-			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+				if (sem_post((*s_etat_processus).semaphore_fork) != 0)
 #			endif
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
@@ -513,9 +562,9 @@ localisation_courante(struct_processus *
 		}
 
 #		ifndef SEMAPHORES_NOMMES
-		while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+			while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #		else
-		while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+			while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #		endif
 		{
 			if (errno != EINTR)
@@ -563,18 +612,6 @@ localisation_courante(struct_processus *
 			strcpy((*s_etat_processus).localisation, d_locale);
 		}
 
-		if (sigaction(SIGINT, &action_passee, NULL) != 0)
-		{
-			for(i = 0; i < nombre_arguments; i++)
-			{
-				free(arguments[i]);
-			}
-
-			free(arguments);
-			(*s_etat_processus).erreur_systeme = d_es_signal;
-			return;
-		}
-
 		for(i = 0; i < nombre_arguments; i++)
 		{
 			free(arguments[i]);
@@ -583,9 +620,9 @@ localisation_courante(struct_processus *
 		free(arguments);
 
 #		ifndef SEMAPHORES_NOMMES
-		if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
+			if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
 #		else
-		if (sem_post((*s_etat_processus).semaphore_fork) != 0)
+			if (sem_post((*s_etat_processus).semaphore_fork) != 0)
 #		endif
 		{
 			(*s_etat_processus).erreur_systeme = d_es_processus;
@@ -609,9 +646,9 @@ localisation_courante(struct_processus *
 		}
 
 #		ifndef SEMAPHORES_NOMMES
-		while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
+			while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #		else
-		while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
+			while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #		endif
 		{
 			if (errno != EINTR)
@@ -684,7 +721,7 @@ transliterated_fprintf(struct_processus
 	}
 
 #	ifdef OS2
-	if ((flux == stdin) || (flux == stdout))
+	if ((flux == stderr) || (flux == stdout))
 	{
 		i = 0;
 		ptr_l = tampon2;
@@ -703,7 +740,7 @@ transliterated_fprintf(struct_processus
 				sizeof(unsigned char))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
-			return(NULL);
+			return(-1);
 		}
 
 		ptr_e = tampon3;