rpl/src/simplification.c - diff

Return to simplification.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/simplification.c between versions 1.68 and 1.69

-version 1.68, 2019/10/31 15:40:25
+version 1.69, 2019/11/04 10:05:25
  Line 25
  /*
  ================================================================================
+   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
- Line 359  simplification(struct_processus *s_etat_
+ Line 430  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);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.68
changed lines
	Added in v.1.69