--- rpl/src/formateur_fichiers.c	2013/06/21 14:15:52	1.73
+++ rpl/src/formateur_fichiers.c	2015/02/19 11:01:19	1.83
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.15
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.21
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -234,6 +234,7 @@ formateur_fichier(struct_processus *s_et
 									.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)
@@ -293,7 +294,8 @@ formateur_fichier(struct_processus *s_et
 									if ((strcmp(chaine_fonction, "AND") == 0) ||
 											(strcmp(chaine_fonction, "XOR") ==
 											0) || (strcmp(chaine_fonction, "OR")
-											== 0))
+											== 0) || (strcmp(chaine_fonction,
+											"EQV") == 0))
 									{
 										autorisation_parenthese = d_vrai;
 									}
@@ -320,7 +322,9 @@ formateur_fichier(struct_processus *s_et
 											|| (strcmp(chaine_fonction, "AND")
 											== 0) || (strcmp(chaine_fonction,
 											"XOR") == 0) || (strcmp(
-											chaine_fonction, "OR") == 0))
+											chaine_fonction, "OR") == 0) ||
+											(strcmp(chaine_fonction, "EQV")
+											== 0))
 									{
 										autorisation_parenthese = d_vrai;
 									}
@@ -401,6 +405,7 @@ formateur_fichier(struct_processus *s_et
 									"'%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)
@@ -458,7 +463,8 @@ formateur_fichier(struct_processus *s_et
 									if ((strcmp(chaine_fonction, "AND") == 0) ||
 											(strcmp(chaine_fonction, "XOR") ==
 											0) || (strcmp(chaine_fonction, "OR")
-											== 0))
+											== 0) || (strcmp(chaine_fonction,
+											"EQV") == 0))
 									{
 										autorisation_parenthese = d_vrai;
 									}
@@ -475,7 +481,9 @@ formateur_fichier(struct_processus *s_et
 											|| (strcmp(chaine_fonction, "AND")
 											== 0) || (strcmp(chaine_fonction,
 											"XOR") == 0) || (strcmp(
-											chaine_fonction, "OR") == 0))
+											chaine_fonction, "OR") == 0) ||
+											(strcmp(chaine_fonction, "EQV")
+											== 0))
 									{
 										autorisation_parenthese = d_vrai;
 									}
@@ -716,7 +724,9 @@ formateur_fichier(struct_processus *s_et
 								"XOR") == 0) || (strcmp((*((struct_fonction *)
 								(*(*l_element_courant).donnee).objet))
 								.nom_fonction,
-								"AND") == 0))
+								"AND") == 0) || (strcmp((*((struct_fonction *)
+								(*(*l_element_courant).donnee).objet))
+								.nom_fonction, "EQV") == 0))
 						{
 							if (depilement(s_etat_processus,
 									&((*s_etat_processus)
@@ -1531,7 +1541,8 @@ formateur_fichier(struct_processus *s_et
 				}
 				else
 				{
-					if ((format_chaine = conversion_majuscule((unsigned char *)
+					if ((format_chaine = conversion_majuscule(
+							s_etat_processus, (unsigned char *)
 							(*(*l_element_courant_format).donnee).objet))
 							== NULL)
 					{
@@ -1933,6 +1944,7 @@ formateur_fichier(struct_processus *s_et
 					else
 					{
 						if ((format_chaine = conversion_majuscule(
+								s_etat_processus,
 								(unsigned char *) (*(*((struct_tableau *)
 								(*s_format).objet)).elements[i]).objet))
 								== NULL)
@@ -3757,7 +3769,8 @@ formateur_fichier(struct_processus *s_et
 				}
 				else
 				{
-					if ((format_chaine = conversion_majuscule((unsigned char *)
+					if ((format_chaine = conversion_majuscule(
+							s_etat_processus, (unsigned char *)
 							(*(*l_element_courant_format).donnee).objet))
 							== NULL)
 					{