--- rpl/src/formateur.c	2014/07/17 08:07:17	1.70
+++ rpl/src/formateur.c	2015/11/26 11:44:31	1.78
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.19
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.24
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -103,7 +103,8 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "@ %016llX", (*((unsigned long long *)
+		if (alsprintf(s_etat_processus, &chaine,
+				"@ %016llX", (*((unsigned long long *)
 				((*s_objet).objet)))) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -122,7 +123,7 @@ formateur(struct_processus *s_etat_proce
 #		pragma GCC diagnostic push
 #		pragma GCC diagnostic ignored "-Wpointer-to-int-cast"
 
-		if (alsprintf(&chaine, "Library $ %016llX [%s]",
+		if (alsprintf(s_etat_processus, &chaine, "Library $ %016llX [%s]",
 				(unsigned long long) (*((struct_bibliotheque *)
 				(*s_objet).objet)).descripteur, (*((struct_bibliotheque *)
 				(*s_objet).objet)).nom) < 0)
@@ -146,7 +147,8 @@ formateur(struct_processus *s_etat_proce
 #		pragma GCC diagnostic push
 #		pragma GCC diagnostic ignored "-Wpointer-to-int-cast"
 
-		if (alsprintf(&chaine, "Semaphore $ %016llX '%s'", (unsigned long long)
+		if (alsprintf(s_etat_processus,
+				&chaine, "Semaphore $ %016llX '%s'", (unsigned long long)
 				&((*((struct_semaphore *) (*s_objet).objet)).semaphore),
 				(*((struct_semaphore *) (*s_objet).objet)).nom) < 0)
 		{
@@ -170,7 +172,7 @@ formateur(struct_processus *s_etat_proce
 				"MYSQL") == 0)
 		{
 #			ifdef MYSQL_SUPPORT
-			if (alsprintf(&chaine, "Sql $ %016llX (%s)",
+			if (alsprintf(s_etat_processus, &chaine, "Sql $ %016llX (%s)",
 					(unsigned long long) (*((struct_connecteur_sql *)
 					(*s_objet).objet)).descripteur.mysql,
 					(*((struct_connecteur_sql *) (*s_objet).objet)).type) < 0)
@@ -197,7 +199,7 @@ formateur(struct_processus *s_etat_proce
 				"POSTGRESQL") == 0)
 		{
 #			ifdef POSTGRESQL_SUPPORT
-			if (alsprintf(&chaine, "Sql $ %016llX (%s)",
+			if (alsprintf(s_etat_processus, &chaine, "Sql $ %016llX (%s)",
 					(unsigned long long) (*((struct_connecteur_sql *)
 					(*s_objet).objet)).descripteur.postgresql,
 					(*((struct_connecteur_sql *) (*s_objet).objet)).type) < 0)
@@ -239,7 +241,8 @@ formateur(struct_processus *s_etat_proce
 		if ((*(*((struct_processus_fils *) (*s_objet).objet)).thread)
 				.processus_detache == d_vrai)
 		{
-			if (alsprintf(&chaine, "Process $ %016llX", (unsigned long long)
+			if (alsprintf(s_etat_processus, &chaine,
+					"Process $ %016llX", (unsigned long long)
 					(*(*((struct_processus_fils *) (*s_objet).objet)).thread)
 					.pid) < 0)
 			{
@@ -249,7 +252,8 @@ formateur(struct_processus *s_etat_proce
 		}
 		else
 		{
-			if (alsprintf(&chaine, "Light weight process $ %016llX/%016llX",
+			if (alsprintf(s_etat_processus, &chaine,
+					"Light weight process $ %016llX/%016llX",
 					(unsigned long long) (*(*((struct_processus_fils *)
 					(*s_objet).objet)).thread).pid,
 					(unsigned long long) (*(*((struct_processus_fils *)
@@ -269,7 +273,8 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "File $ %016llX", (unsigned long long)
+		if (alsprintf(s_etat_processus,
+				&chaine, "File $ %016llX", (unsigned long long)
 				(*((struct_fichier *) ((*s_objet).objet))).descripteur) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -294,8 +299,10 @@ formateur(struct_processus *s_etat_proce
 			cf(s_etat_processus, 45);
 		}
 
-		if ((format_majuscule = conversion_majuscule(format)) == NULL)
+		if ((format_majuscule = conversion_majuscule(s_etat_processus,
+				format)) == NULL)
 		{
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return(NULL);
 		}
 
@@ -401,7 +408,8 @@ formateur(struct_processus *s_etat_proce
 --------------------------------------------------------------------------------
 */
 
-		if (alsprintf(&chaine, "Socket $ %016llX", (unsigned long long)
+		if (alsprintf(s_etat_processus, &chaine,
+				"Socket $ %016llX", (unsigned long long)
 				(*((struct_socket *) ((*s_objet).objet))).socket) < 0)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -426,7 +434,8 @@ formateur(struct_processus *s_etat_proce
 			cf(s_etat_processus, 45);
 		}
 
-		if ((format_majuscule = conversion_majuscule(format)) == NULL)
+		if ((format_majuscule = conversion_majuscule(s_etat_processus,
+				format)) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return(NULL);
@@ -699,6 +708,7 @@ formateur(struct_processus *s_etat_proce
 								|| ((*s_etat_processus).instruction_courante[1]
 								== '-')) ? d_vrai : d_faux;
 
+						(*s_etat_processus).type_en_cours = NON;
 						recherche_type(s_etat_processus);
 
 						if ((*s_etat_processus).erreur_execution != d_ex)
@@ -756,6 +766,7 @@ formateur(struct_processus *s_etat_proce
 							{
 								if ((strcmp(chaine_fonction, "AND") == 0) ||
 										(strcmp(chaine_fonction, "XOR") == 0) ||
+										(strcmp(chaine_fonction, "EQV") == 0) ||
 										(strcmp(chaine_fonction, "OR") == 0))
 								{
 									autorisation_parenthese = d_vrai;
@@ -782,6 +793,7 @@ formateur(struct_processus *s_etat_proce
 										(strcmp(chaine_fonction, "-") == 0) ||
 										(strcmp(chaine_fonction, "AND") == 0) ||
 										(strcmp(chaine_fonction, "XOR") == 0) ||
+										(strcmp(chaine_fonction, "EQV") == 0) ||
 										(strcmp(chaine_fonction, "OR") == 0))
 								{
 									autorisation_parenthese = d_vrai;
@@ -862,6 +874,7 @@ formateur(struct_processus *s_etat_proce
 								"'%s'", (unsigned char *)
 								(*s_sous_objet_1).objet);
 
+						(*s_etat_processus).type_en_cours = NON;
 						recherche_type(s_etat_processus);
 
 						if ((*s_etat_processus).erreur_execution != d_ex)
@@ -917,6 +930,7 @@ formateur(struct_processus *s_etat_proce
 							{
 								if ((strcmp(chaine_fonction, "AND") == 0) ||
 										(strcmp(chaine_fonction, "XOR") == 0) ||
+										(strcmp(chaine_fonction, "EQV") == 0) ||
 										(strcmp(chaine_fonction, "OR") == 0))
 								{
 									autorisation_parenthese = d_vrai;
@@ -933,6 +947,7 @@ formateur(struct_processus *s_etat_proce
 										(strcmp(chaine_fonction, "-") == 0) ||
 										(strcmp(chaine_fonction, "AND") == 0) ||
 										(strcmp(chaine_fonction, "XOR") == 0) ||
+										(strcmp(chaine_fonction, "EQV") == 0) ||
 										(strcmp(chaine_fonction, "OR") == 0))
 								{
 									autorisation_parenthese = d_vrai;
@@ -1159,6 +1174,8 @@ formateur(struct_processus *s_etat_proce
 							(*(*l_element_courant).donnee).objet)).nom_fonction,
 							"XOR") == 0) || (strcmp((*((struct_fonction *)
 							(*(*l_element_courant).donnee).objet)).nom_fonction,
+							"EQV") == 0) || (strcmp((*((struct_fonction *)
+							(*(*l_element_courant).donnee).objet)).nom_fonction,
 							"AND") == 0))
 					{
 						if (depilement(s_etat_processus, &((*s_etat_processus)
@@ -1203,6 +1220,7 @@ formateur(struct_processus *s_etat_proce
 								"'%s'", (unsigned char *)
 								(*s_sous_objet_1).objet);
 
+						(*s_etat_processus).type_en_cours = NON;
 						recherche_type(s_etat_processus);
 
 						if ((*s_etat_processus).erreur_execution != d_ex)
@@ -1248,6 +1266,7 @@ formateur(struct_processus *s_etat_proce
 							}
 
 							if (((strcmp(chaine_fonction, "OR") == 0) ||
+									(strcmp(chaine_fonction, "EQV") == 0) ||
 									(strcmp(chaine_fonction, "XOR") == 0)) &&
 									(strcmp((*((struct_fonction *)
 									(*(*l_element_courant).donnee).objet))
@@ -1278,6 +1297,7 @@ formateur(struct_processus *s_etat_proce
 								"'%s'", (unsigned char *)
 								(*s_sous_objet_2).objet);
 
+						(*s_etat_processus).type_en_cours = NON;
 						recherche_type(s_etat_processus);
 
 						if ((*s_etat_processus).erreur_execution != d_ex)
@@ -1323,6 +1343,7 @@ formateur(struct_processus *s_etat_proce
 							}
 
 							if (((strcmp(chaine_fonction, "OR") == 0) ||
+									(strcmp(chaine_fonction, "EQV") == 0) ||
 									(strcmp(chaine_fonction, "XOR") == 0)) &&
 									(strcmp((*((struct_fonction *)
 									(*(*l_element_courant).donnee).objet))
@@ -3009,7 +3030,8 @@ formateur(struct_processus *s_etat_proce
 	}
 	else if ((*s_objet).type == MTX)
 	{
-		if (alsprintf(&chaine, "Mutex $ %016llX owned by $ %016llX",
+		if (alsprintf(s_etat_processus, &chaine,
+				"Mutex $ %016llX owned by $ %016llX",
 				&((*((struct_mutex *) (*s_objet).objet)).mutex),
 				(logical8) (*((struct_mutex *) (*s_objet).objet)).tid) < 0)
 		{