--- rpl/src/simplification.c	2019/10/31 15:40:25	1.68
+++ rpl/src/simplification.c	2019/11/04 10:05:25	1.69
@@ -25,6 +25,77 @@
 
 /*
 ================================================================================
+  Fonction d'affichage d'un arbre q-aire
+================================================================================
+  Entrées : pointeur sur une structure struct_processus
+--------------------------------------------------------------------------------
+  Sorties :
+--------------------------------------------------------------------------------
+  Effets de bord : néant
+================================================================================
+*/
+
+static void
+affichage_arbre(struct_processus *s_etat_processus, struct_arbre *s_arbre,
+		int niveau)
+{
+	int							i;
+
+	integer8					branche;
+
+	struct_liste_chainee		*l_element_courant;
+
+	unsigned char				*chaine;
+
+	if (niveau == 0)
+	{
+		printf("Arbre $%016X\n", s_arbre);
+	}
+
+	// Affichage de la feuille (fonction ou donnée générale s'il n'y 
+	// a pas de branche)
+
+	l_element_courant = (*s_arbre).feuille;
+
+	while(l_element_courant != NULL)
+	{
+		if ((chaine = formateur(s_etat_processus, 0,
+				(*l_element_courant).donnee)) == NULL)
+		{
+			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+			return;
+		}
+
+		for(i = 0; i < niveau; i++)
+		{
+			printf("  ");
+		}
+
+		printf("%s\n", chaine);
+		free(chaine);
+
+		l_element_courant = (*l_element_courant).suivant;
+	}
+
+	// Affichage des branches (arguments de la fonction dans la feuille)
+
+	for(branche = 0; branche < (*s_arbre).nombre_branches; branche++)
+	{
+		affichage_arbre(s_etat_processus, (*s_arbre).branches[branche],
+				niveau + 1);
+	}
+
+	if (niveau == 0)
+	{
+		printf("---\n");
+	}
+
+	return;
+}
+
+
+/*
+================================================================================
   Fonction de transcription d'un arbre en liste chaînée
 ================================================================================
   Entrées : pointeur sur une structure struct_processus
@@ -359,6 +430,8 @@ simplification(struct_processus *s_etat_
 		 * Simplification de l'arbre
 		 */
 
+		affichage_arbre(s_etat_processus, s_arbre, 0);
+
 #		ifdef	EXPERIMENTAL_CODE 
 		simplification_arbre(s_etat_processus, s_arbre);