--- rpl/src/simplification.c 2019/11/06 17:31:47 1.71 +++ rpl/src/simplification.c 2019/11/11 13:16:25 1.73 @@ -57,6 +57,11 @@ affichage_arbre(struct_processus *s_etat l_element_courant = (*s_arbre).feuille; + for(i = 0; i < niveau; i++) + { + printf(" "); + } + while(l_element_courant != NULL) { if ((chaine = formateur(s_etat_processus, 0, @@ -66,17 +71,14 @@ affichage_arbre(struct_processus *s_etat return; } - for(i = 0; i < niveau; i++) - { - printf(" "); - } - - printf("%s\n", chaine); + printf("%s ", chaine); free(chaine); l_element_courant = (*l_element_courant).suivant; } + printf("\n"); + // Affichage des branches (arguments de la fonction dans la feuille) for(branche = 0; branche < (*s_arbre).nombre_branches; branche++) @@ -138,32 +140,11 @@ transcription_arbre(struct_processus *s_ } // Ajout des fonctions - // Arbre q-aire => si q branches, q-1 fonctions l_liste = (*s_arbre).feuille; - - for(i = 0; i < (*s_arbre).nombre_branches - 2; i++) - { - if ((l_element_courant = allocation_maillon(s_etat_processus)) - == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return(NULL); - } - - (*l_element_courant).suivant = l_liste; - - if (((*l_element_courant).donnee = copie_objet(s_etat_processus, - (*l_liste).donnee, 'P')) == NULL) - { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return(NULL); - } - - l_liste = l_element_courant; - } - +uprintf("avant free %p\n", s_arbre->branches); free((*s_arbre).branches); +uprintf("après free %p\n", s_arbre->branches); free(s_arbre); // Chaînage des arguments @@ -228,12 +209,9 @@ ordonnancement_branches(const void *a1, // On rejette les nombres à la fin. - if ((((*(*(**_a1).feuille).donnee).type == INT) || + if (((*(*(**_a1).feuille).donnee).type == INT) || ((*(*(**_a1).feuille).donnee).type == REL) || - ((*(*(**_a1).feuille).donnee).type == CPL)) && - ((((*(*(**_a2).feuille).donnee).type != INT) && - ((*(*(**_a2).feuille).donnee).type != REL) && - ((*(*(**_a2).feuille).donnee).type != CPL)))) + ((*(*(**_a1).feuille).donnee).type == CPL)) { return(1); } @@ -257,6 +235,9 @@ simplification_arbre(struct_processus *s struct_arbre *s_branche; + struct_liste_chainee *l_element_courant; + struct_liste_chainee *l_element_suivant; + struct_objet *s_objet; if ((*(*(*s_arbre).feuille).donnee).type != FCT) @@ -410,6 +391,17 @@ simplification_arbre(struct_processus *s (*(*s_arbre).branches[i]).branches[j]; } + l_element_courant = (*s_arbre).feuille; + (*s_arbre).feuille = (*(*s_arbre).branches[i]).feuille; + + l_element_suivant = (*s_arbre).feuille; + while((*l_element_suivant).suivant != NULL) + { + l_element_suivant = (*l_element_suivant).suivant; + } + + (*l_element_suivant).suivant = l_element_courant; + free((*(*s_arbre).branches[i]).branches); free((*s_arbre).branches[i]); // Retrait de la branche