[BACK]Return to gestion_variables.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/gestion_variables.c between versions 1.2 and 1.37

version 1.2, 2010/01/27 22:22:11 version 1.37, 2011/06/21 07:45:22
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.10    RPL/2 (R) version 4.1.0.prerelease.1
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2011 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 20 Line 20
 */  */
   
   
 #include "rpl.conv.h"  #include "rpl-conv.h"
   
   
   /*
   ================================================================================
     Fonction de debug
   ================================================================================
     Entrée :
   --------------------------------------------------------------------------------
     Sortie :
   --------------------------------------------------------------------------------
     Effets de bords : néant
   ================================================================================
   */
   
   static void
   liste_variables_par_niveaux(struct_processus *s_etat_processus)
   {
       int                     c;
   
       logical1                fin;
   
       struct_liste_variables  *l;
   
       struct_liste_chainee    *e;
   
       printf("===========================================================\n");
       printf("  Liste des variables par niveaux\n");
       printf("===========================================================\n");
   
       if ((*s_etat_processus).l_liste_variables_par_niveau == NULL)
       {
           printf("===========================================================\n");
           return;
       }
   
       printf("Backward\n");
       l = (*s_etat_processus).l_liste_variables_par_niveau;
       c = 0;
       fin = d_faux;
   
       do
       {
           l = l->precedent;
           e = l->liste;
   
           while(e != NULL)
           {
               printf("%s (%p, %d) ", ((struct_variable *) e->donnee)->nom,
                       e->donnee, ((struct_variable *) e->donnee)->niveau);
               e = e->suivant;
               c++;
               if (c > 100)
               {
                   fin = d_vrai;
                   break;
               }
           }
   
           printf("\n");
   
       } while(l != (*s_etat_processus).l_liste_variables_par_niveau);
   
       printf("Forward\n");
       l = (*s_etat_processus).l_liste_variables_par_niveau;
       c = 0;
   
       do
       {
           e = l->liste;
   
           while(e != NULL)
           {
               printf("%s (%p, %d) ", ((struct_variable *) e->donnee)->nom,
                       e->donnee, ((struct_variable *) e->donnee)->niveau);
               e = e->suivant;
               c++;
               if (c > 100) exit(0);
           }
   
           printf("\n");
   
           l = l->suivant;
       } while(l != (*s_etat_processus).l_liste_variables_par_niveau);
   
       printf("===========================================================\n");
   
       if (fin == d_vrai) exit(0);
   
       return;
   }
   
   static void
   liste_variables_tas(struct_processus *s_etat_processus,
           struct_arbre_variables *arbre)
   {
       int                     c;
       int                     i;
   
       logical1                fin;
   
       struct_liste_variables  *l;
   
       fin = d_faux;
   
       if (arbre == NULL)
       {
           return;
       }
   
       printf(">>> Position :                  %d\n",
               (*arbre).indice_tableau_pere);
       printf(">>> Nombre de noeuds utilisés : %u\n",
               (*arbre).noeuds_utilises);
       printf(">>> Noeuds fils : ");
   
       for(i = 0; i < (*s_etat_processus).nombre_caracteres_variables; i++)
       {
           if ((*arbre).noeuds[i] != NULL)
           {
               printf("%d ", i);
           }
       }
   
       printf("\b\n");
   
       if ((*arbre).feuille != NULL)
       {
           printf("Feuille %p [%d]\n", (*arbre).feuille, (*arbre).noeuds_utilises);
   
           printf("  Backward\n");
   
           l = (*arbre).feuille;
           c = 0;
           fin = d_faux;
   
           do
           {
               l = l->precedent;
               c++;
               if (c > 100)
               {
                   fin = d_vrai;
                   break;
               }
               printf("    %s (%p, %d)\n", l->variable->nom, l->variable,
                       l->variable->niveau);
           } while((*arbre).feuille != l);
   
           printf("  Forward\n");
   
           l = (*arbre).feuille;
           c = 0;
   
           do
           {
               c++;
               if (c > 100) exit(0);
               printf("    %s (%p, %d)\n", l->variable->nom, l->variable,
                       l->variable->niveau);
               l = l->suivant;
           } while((*arbre).feuille != l);
       }
   
       printf("-----------------------------------------------------------\n");
   
       for(i = 0; i < (*s_etat_processus).nombre_caracteres_variables; i++)
       {
           if ((*arbre).noeuds[i] != NULL)
           {
   
               liste_variables_tas(s_etat_processus, (*arbre).noeuds[i]);
           }
       }
   
       if (fin == d_vrai) exit(0);
   
       return;
   }
   
   
   static void
   liste_variables_par_feuilles(struct_processus *s_etat_processus)
   {
       printf("===========================================================\n");
       printf("  Liste des variables sur le tas\n");
       printf("===========================================================\n");
   
       liste_variables_tas(s_etat_processus,
               (*s_etat_processus).s_arbre_variables);
   
       printf("===========================================================\n");
   
       return;
   }
   
   
 /*  /*
 ================================================================================  ================================================================================
   Routine de création d'une nouvelle variable    Routine de création d'une nouvelle variable
   Entrée : autorisation_creation_variable_statique vaut 'V' ou 'S'.  ================================================================================
   Dans le cas 'V', la variable est volatile.    Entrée : autorisation_creation_variable_statique vaut 'v' ou 's'.
   Dans le cas 'S', elle est statique.    dans le cas 'v', la variable est volatile.
   Entrée : autorisation_creation_variable_partagee vaut 'P' ou 'S'.    dans le cas 's', elle est statique.
   Dans le cas 'P', la variable est privée.    Entrée : autorisation_creation_variable_partagee vaut 'p' ou 's'.
   Dans le cas 'S', elle est partagée.    dans le cas 'p', la variable est privée.
     dans le cas 's', elle est partagée.
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Sortie :    Sortie :
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
Line 39 Line 234
 ================================================================================  ================================================================================
 */  */
   
 logical1  static logical1
 creation_variable(struct_processus *s_etat_processus,  ajout_variable(struct_processus *s_etat_processus, struct_variable *s_variable)
         struct_variable *s_variable,  
         unsigned char autorisation_creation_variable_statique,  
         unsigned char autorisation_creation_variable_partagee)  
 {  {
     long                    i;      int                         i;
   
     struct_variable         *s_nouvelle_base;      logical1                    niveau_acceptable;
   
     (*s_etat_processus).nombre_variables++;      struct_liste_variables      *l_nouvelle_variable;
       struct_liste_variables      *l_variable_candidate;
   
     if ((*s_etat_processus).nombre_variables > (*s_etat_processus)      struct_arbre_variables      *l_variable_courante;
             .nombre_variables_allouees)      struct_arbre_variables      *l_variable_precedente;
   
       struct_liste_chainee        *l_nouvel_element;
   
       unsigned char               *ptr;
   
       void                        *pointeur_variable_cree;
   
       if ((*s_etat_processus).s_arbre_variables == NULL)
     {      {
         // La nouvelle variable ne tient pas dans la table courante. Il          if (((*s_etat_processus).s_arbre_variables =
         // faut donc en augmenter la taille.                  malloc(sizeof(struct_arbre_variables))) == NULL)
           {
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return(d_erreur);
           }
   
         if ((*s_etat_processus).nombre_variables_allouees == 0)          (*(*s_etat_processus).s_arbre_variables).feuille = NULL;
           (*(*s_etat_processus).s_arbre_variables).noeuds_utilises = 0;
           (*(*s_etat_processus).s_arbre_variables).indice_tableau_pere = -1;
           (*(*s_etat_processus).s_arbre_variables).noeud_pere = NULL;
   
           if (((*(*s_etat_processus).s_arbre_variables).noeuds =
                   malloc((*s_etat_processus).nombre_caracteres_variables
                   * sizeof(struct_arbre_variables))) == NULL)
         {          {
             (*s_etat_processus).nombre_variables_allouees =              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                     (*s_etat_processus).nombre_variables;              return(d_erreur);
           }
   
           for(i = 0; i < (*s_etat_processus).nombre_caracteres_variables; i++)
           {
               (*(*s_etat_processus).s_arbre_variables).noeuds[i] = NULL;
           }
       }
   
       l_variable_precedente = NULL;
       l_variable_courante = (*s_etat_processus).s_arbre_variables;
       ptr = (*s_variable).nom;
   
       while((*ptr) != d_code_fin_chaine)
       {
           BUG((*s_etat_processus).pointeurs_caracteres_variables[*ptr] < 0,
                   printf("Variable=\"%s\", (*ptr)='%c'\n", (*s_variable).nom,
                   *ptr));
   
           if ((*l_variable_courante).noeuds[(*s_etat_processus)
                   .pointeurs_caracteres_variables[*ptr]] == NULL)
           {
               // Le noeud n'existe pas encore, on le crée et on le marque
               // comme utilisé dans la structure parente.
   
               if (((*l_variable_courante).noeuds[(*s_etat_processus)
                       .pointeurs_caracteres_variables[*ptr]] =
                       malloc(sizeof(struct_arbre_variables))) == NULL)
               {
                   (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                   return(d_erreur);
               }
   
               (*l_variable_courante).noeuds_utilises++;
   
               // La feuille est par défaut vide et aucun élément du tableau noeuds
               // (les branches qui peuvent être issues de ce nouveau noeud)
               // n'est encore utilisée.
   
               (*(*l_variable_courante).noeuds[(*s_etat_processus)
                       .pointeurs_caracteres_variables[*ptr]]).feuille = NULL;
               (*(*l_variable_courante).noeuds[(*s_etat_processus)
                       .pointeurs_caracteres_variables[*ptr]]).noeuds_utilises = 0;
   
               // Le champ noeud_pere de la structure créée pointe sur
               // la structure parente et l'indice tableau_pere correspond à la
               // position réelle dans le tableau noeuds[] de la structure parente
               // du noeud courant. Cette valeur sera utilisée lors de la
               // destruction du noeud pour annuler le pointeur contenu dans
               // le tableau noeuds[] de la structure parente.
   
               (*(*l_variable_courante).noeuds[(*s_etat_processus)
                       .pointeurs_caracteres_variables[*ptr]]).noeud_pere =
                       l_variable_courante;
               (*(*l_variable_courante).noeuds[(*s_etat_processus)
                       .pointeurs_caracteres_variables[*ptr]])
                       .indice_tableau_pere = (*s_etat_processus)
                       .pointeurs_caracteres_variables[*ptr];
   
               // Allocation du tableau noeuds[] et initialisation à zéro de
               // tous les pointeurs.
   
               if (((*(*l_variable_courante).noeuds[(*s_etat_processus)
                       .pointeurs_caracteres_variables[*ptr]]).noeuds =
                       malloc((*s_etat_processus).nombre_caracteres_variables
                       * sizeof(struct_arbre_variables))) == NULL)
               {
                   (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                   return(d_erreur);
               }
   
               for(i = 0; i < (*s_etat_processus).nombre_caracteres_variables; i++)
               {
                   (*(*l_variable_courante).noeuds[(*s_etat_processus)
                           .pointeurs_caracteres_variables[*ptr]]).noeuds[i]
                           = NULL;
               }
           }
   
           l_variable_precedente = l_variable_courante;
           l_variable_courante = (*l_variable_courante).noeuds
                   [(*s_etat_processus).pointeurs_caracteres_variables[*ptr]];
           ptr++;
       }
   
       if ((*l_variable_courante).feuille == NULL)
       {
           // Aucune variable de même nom préexiste. On alloue le premier
           // élément de la liste doublement chaînée contenant toutes les
           // variables de même nom. Cette liste boucle en premier lieu sur
           // elle-même.
   
           if (((*l_variable_courante).feuille = malloc(
                   sizeof(struct_liste_variables))) == NULL)
           {
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return(d_erreur);
           }
   
           (*l_variable_courante).noeuds_utilises++;
   
           (*(*l_variable_courante).feuille).suivant =
                   (*l_variable_courante).feuille;
           (*(*l_variable_courante).feuille).precedent =
                   (*l_variable_courante).feuille;
           (*(*l_variable_courante).feuille).noeud_pere = l_variable_precedente;
           (*(*l_variable_courante).feuille).noeud = l_variable_courante;
   
           // Allocation de la variable sur l'élément de la liste.
   
           if (((*(*l_variable_courante).feuille).variable =
                   malloc(sizeof(struct_variable))) == NULL)
           { 
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return(d_erreur);
           }
   
           (*((struct_variable *) (*(*l_variable_courante).feuille).variable)) =
                   (*s_variable);
           pointeur_variable_cree = (*(*l_variable_courante).feuille).variable;
       }
       else
       {
           if ((l_nouvelle_variable = malloc(sizeof(struct_liste_variables)))
                   == NULL)
           {
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return(d_erreur);
           }
   
           if ((*s_variable).niveau > 1)
           {
               // Cas d'une variable locale
   
               // Si le niveau de la dernière variable de même nom est
               // supérieur au niveau de la variable locale que l'on veut
               // enregistrer dans la liste, cette liste est incohérente.
   
               BUG((*(*(*l_variable_courante).feuille).variable).niveau >=
                       (*s_variable).niveau,
                       printf("Variable=\"%s\"\n", (*s_variable).nom));
   
               // On ajoute la variable à la liste existante.
   
               (*l_nouvelle_variable).suivant = (*l_variable_courante).feuille;
               (*l_nouvelle_variable).precedent = (*(*l_variable_courante).feuille)
                       .precedent;
               (*l_nouvelle_variable).noeud_pere = l_variable_precedente;
               (*l_nouvelle_variable).noeud = l_variable_courante;
               (*(*(*l_variable_courante).feuille).precedent).suivant =
                       l_nouvelle_variable;
               (*(*l_variable_courante).feuille).precedent =
                       l_nouvelle_variable;
               (*l_variable_courante).feuille = l_nouvelle_variable;
   
               if (((*(*l_variable_courante).feuille).variable =
                       malloc(sizeof(struct_variable))) == NULL)
               { 
                   (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                   return(d_erreur);
               }
   
               (*((struct_variable *) (*(*l_variable_courante).feuille).variable))
                       = (*s_variable);
               pointeur_variable_cree = (*(*l_variable_courante).feuille).variable;
         }          }
         else          else
         {          {
             while((*s_etat_processus).nombre_variables >              // Cas d'une variable globale (niveau 0 [définitions] ou 1
                     (*s_etat_processus).nombre_variables_allouees)              // [variables globales])
   
               l_variable_candidate = (*l_variable_courante).feuille;
   
               do
             {              {
                 (*s_etat_processus).nombre_variables_allouees *= 2;                  // S'il y a déjà une variable de même niveau, la pile
                   // est incohérente.
   
                   BUG((*(*l_variable_candidate).variable).niveau ==
                           (*s_variable).niveau,
                           printf("Variable=\"%s\"\n", (*s_variable).nom));
   
                   l_variable_candidate = (*l_variable_candidate).precedent;
               } while((l_variable_candidate != (*l_variable_courante).feuille) &&
                       ((*(*l_variable_candidate).variable).niveau <= 1));
   
               BUG((*s_variable).niveau == 0,
                       uprintf("Attempt to create a level-0 variable!\n"));
   
               if ((*(*(*(*l_variable_courante).feuille).precedent).variable)
                       .niveau > 1)
               {
                   // La variable précédente est de niveau strictement supérieur
                   // à 1. Il ne peut donc y avoir aucune variable de niveau
                   // inférieur ou égal à 1 puisque la boucle est triée.
                   // On insère donc directement la variable en queue.
             }              }
               else
               {
                   // Le niveau de la variable précédente dans la boucle est
                   // inférieur ou égal à 1.
                   l_variable_candidate = (*(*l_variable_courante).feuille)
                           .precedent;
               }
   
               (*l_nouvelle_variable).suivant = l_variable_candidate;
               (*l_nouvelle_variable).precedent = (*l_variable_candidate)
                       .precedent;
               (*l_nouvelle_variable).noeud_pere = l_variable_precedente;
               (*l_nouvelle_variable).noeud = l_variable_courante;
               (*(*l_variable_candidate).precedent).suivant = l_nouvelle_variable;
               (*l_variable_candidate).precedent = l_nouvelle_variable;
   
               // Si la variable suivant la variable que l'on vient d'insérer
               // dans la boucle est de niveau 0, la variable insérée est par
               // construction de niveau 1 et il convient de modifier le
               // pointeur de feuille pointant sur l'élément de plus haut niveau
               // de la boucle.
   
               if ((*(*(*l_nouvelle_variable).precedent).variable).niveau == 0)
               {
                   (*(*l_nouvelle_variable).noeud).feuille = l_nouvelle_variable;
               }
   
               if (((*l_nouvelle_variable).variable =
                       malloc(sizeof(struct_variable))) == NULL)
               { 
                   (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                   return(d_erreur);
               }
   
               (*(*l_nouvelle_variable).variable) = (*s_variable);
               pointeur_variable_cree = (*l_nouvelle_variable).variable;
           }
       }
   
       // Ajout de la variable nouvellement créée à la liste par niveaux.
       // Le pointeur contenu dans la structure de description du processus indique
       // toujours le plus haut niveau utilisé.
   
       if ((*s_etat_processus).l_liste_variables_par_niveau == NULL)
       {
           // Le niveau courant n'existe pas. Il est créé.
   
           if ((l_nouvelle_variable = malloc(sizeof(struct_liste_variables)))
                   == NULL)
           {
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return(d_erreur);
         }          }
   
         if ((s_nouvelle_base = realloc((*s_etat_processus).s_liste_variables,          (*l_nouvelle_variable).suivant = l_nouvelle_variable;
                 (*s_etat_processus).nombre_variables_allouees *          (*l_nouvelle_variable).precedent = l_nouvelle_variable;
                 sizeof(struct_variable))) == NULL)          (*l_nouvelle_variable).noeud_pere = NULL;
           (*l_nouvelle_variable).liste = NULL;
   
           (*s_etat_processus).l_liste_variables_par_niveau = l_nouvelle_variable;
   
           // Ajout de la variable en tête de la liste
   
           if ((l_nouvel_element = malloc(sizeof(struct_liste_chainee))) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             (*s_etat_processus).nombre_variables--;  
             return(d_erreur);              return(d_erreur);
         }          }
   
         (*s_etat_processus).s_liste_variables = s_nouvelle_base;          (*l_nouvel_element).suivant = (*(*s_etat_processus)
                   .l_liste_variables_par_niveau).liste;
           (*l_nouvel_element).donnee = pointeur_variable_cree;
           (*(*s_etat_processus).l_liste_variables_par_niveau).liste =
                   l_nouvel_element;
     }      }
       else if ((*s_variable).niveau > (*((struct_variable *)
               (*(*(*s_etat_processus).l_liste_variables_par_niveau).liste)
               .donnee)).niveau)
       {
           // Le niveau courant n'existe pas. Il est créé.
   
           if ((l_nouvelle_variable = malloc(sizeof(struct_liste_variables)))
                   == NULL)
           {
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return(d_erreur);
           }
   
           (*l_nouvelle_variable).suivant = (*s_etat_processus)
                   .l_liste_variables_par_niveau;
           (*l_nouvelle_variable).precedent = (*(*s_etat_processus)
                   .l_liste_variables_par_niveau).precedent;
           (*l_nouvelle_variable).noeud_pere = NULL;
           (*l_nouvelle_variable).liste = NULL;
           (*(*(*s_etat_processus).l_liste_variables_par_niveau).precedent)
                   .suivant = l_nouvelle_variable;
           (*(*s_etat_processus).l_liste_variables_par_niveau)
                   .precedent = l_nouvelle_variable;
   
           (*s_etat_processus).l_liste_variables_par_niveau = l_nouvelle_variable;
   
           // Ajout de la variable en tête de la liste
   
           if ((l_nouvel_element = malloc(sizeof(struct_liste_chainee))) == NULL)
           {
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return(d_erreur);
           }
   
           (*l_nouvel_element).suivant = (*(*s_etat_processus)
                   .l_liste_variables_par_niveau).liste;
           (*l_nouvel_element).donnee = pointeur_variable_cree;
           (*(*s_etat_processus).l_liste_variables_par_niveau).liste =
                   l_nouvel_element;
       }
       else if ((*s_variable).niveau <= 1)
       {
           // Création d'une variable de niveau 0 ou 1. Il convient de
           // chercher dans la liste si un niveau 0 ou 1 préexiste. Pour cela, on
           // regarde la position courante et les deux précédentes.
   
           l_variable_candidate = (*s_etat_processus).l_liste_variables_par_niveau;
           niveau_acceptable = d_faux;
   
           for(i = 0; i <= 2; i++)
           {
               if ((*l_variable_candidate).liste == NULL)
               {
                   continue;
               }
   
               if ((*((struct_variable *) (*(*l_variable_candidate)
                       .liste).donnee)).niveau == (*s_variable).niveau)
               {
                   niveau_acceptable = d_vrai;
                   break;
               }
   
               l_variable_candidate = (*l_variable_candidate).precedent;
           }
   
           if (niveau_acceptable == d_faux)
           {
               if ((l_nouvelle_variable = malloc(sizeof(struct_liste_variables)))
                       == NULL)
               {
                   (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
                   return(d_erreur);
               }
   
               l_variable_candidate =
                       (*(*s_etat_processus).l_liste_variables_par_niveau)
                       .precedent;
   
               // On ne peut créer qu'une variable de niveau supérieur ou égal à
               // 1 lors de l'exécution normale d'un programme. Les variables
               // de niveau 0 sont créées à l'initialisation et relèvent du
               // cas précédent car il n'existe lors de leur création aucun
               // niveau non nul.
   
               BUG((*s_variable).niveau == 0,
                       uprintf("Attempt to create a level-0 variable!\n"));
   
               (*l_nouvelle_variable).suivant = l_variable_candidate;
               (*l_nouvelle_variable).precedent = (*l_variable_candidate)
                       .precedent;
               (*l_nouvelle_variable).noeud_pere = NULL;
               (*l_nouvelle_variable).liste = NULL;
               (*(*l_variable_candidate).precedent).suivant = l_nouvelle_variable;
               (*l_variable_candidate).precedent = l_nouvelle_variable;
   
               l_variable_candidate = l_nouvelle_variable;
           }
   
           // Ajout de la variable en tête de la liste l_variable_candidate.
   
           if ((l_nouvel_element = malloc(sizeof(struct_liste_chainee))) == NULL)
           {
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return(d_erreur);
           }
   
           (*l_nouvel_element).suivant = (*l_variable_candidate).liste;
           (*l_nouvel_element).donnee = pointeur_variable_cree;
           (*l_variable_candidate).liste = l_nouvel_element;
       }
       else
       {
           // Ajout de la variable en tête de la liste
   
           if ((l_nouvel_element = malloc(sizeof(struct_liste_chainee))) == NULL)
           {
               (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
               return(d_erreur);
           }
   
           (*l_nouvel_element).suivant = (*(*s_etat_processus)
                   .l_liste_variables_par_niveau).liste;
           (*l_nouvel_element).donnee = pointeur_variable_cree;
           (*(*s_etat_processus).l_liste_variables_par_niveau).liste =
                   l_nouvel_element;
       }
   
       return(d_absence_erreur);
   }
   
   
   logical1
   creation_variable(struct_processus *s_etat_processus,
           struct_variable *s_variable,
           unsigned char autorisation_creation_variable_statique,
           unsigned char autorisation_creation_variable_partagee)
   {
     if ((*s_etat_processus).mode_execution_programme == 'Y')      if ((*s_etat_processus).mode_execution_programme == 'Y')
     {      {
         (*s_variable).origine = 'P';          (*s_variable).origine = 'P';
Line 188  creation_variable(struct_processus *s_et Line 787  creation_variable(struct_processus *s_et
     }      }
   
     /*      /*
      * Positionnement de la variable au bon endroit       * Recherche de la feuille correspondante dans l'arbre des variables.
        * Si cette feuille n'existe pas, elle est créée.
      */       */
   
     // Nous avons (*s_etat_processus).nombre_variables - 1 variables dans la      if (ajout_variable(s_etat_processus, s_variable) == d_erreur)
     // table qui sera balayée de la fin vers le début.  
   
     if ((*s_etat_processus).nombre_variables == 1)  
     {      {
         (*s_etat_processus).s_liste_variables[0] = (*s_variable);          return(d_erreur);
     }  
     else  
     {  
         for(i = (*s_etat_processus).nombre_variables - 2; i >= 0; i--)  
         {  
             if (strcmp((*s_variable).nom,  
                     (*s_etat_processus).s_liste_variables[i].nom) < 0)  
             {  
                 (*s_etat_processus).s_liste_variables[i + 1] =  
                         (*s_etat_processus).s_liste_variables[i];  
             }  
             else  
             {  
                 break;  
             }  
         }  
   
         (*s_etat_processus).s_liste_variables[i + 1] = (*s_variable);  
     }      }
   
     return(d_absence_erreur);      return(d_absence_erreur);
Line 223  creation_variable(struct_processus *s_et Line 802  creation_variable(struct_processus *s_et
   
 /*  /*
 ================================================================================  ================================================================================
   Procédure de retrait d'une variable de la base    Procédure de recherche d'une variable par son nom dans la base
 ================================================================================  ================================================================================
   Entrée : type 'G' ou 'L' selon que l'on retire une variable locale (incluant    Entrée :
            les globales) ou strictement globale.  
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Sortie :    Sortie :
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
Line 235  creation_variable(struct_processus *s_et Line 813  creation_variable(struct_processus *s_et
 */  */
   
 logical1  logical1
 retrait_variable(struct_processus *s_etat_processus,  recherche_variable(struct_processus *s_etat_processus,
         unsigned char *nom_variable, unsigned char type)          unsigned char *nom_variable)
 {  {
     struct_variable     *s_nouvelle_base;      int                         pointeur;
   
     logical1            erreur;      struct_arbre_variables      *l_variable_courante;
       struct_liste_pile_systeme   *l_element_courant;
   
     unsigned long       position_courante;      unsigned char               *ptr;
     unsigned long       position_supprimee;  
   
     if (recherche_variable(s_etat_processus, nom_variable) == d_vrai)      unsigned long               niveau_appel;
   
       if ((*s_etat_processus).s_arbre_variables == NULL)
     {      {
         if (type == 'G')          (*s_etat_processus).erreur_systeme = d_es_variable_introuvable;
           return(d_faux);
       }
   
       l_variable_courante = (*s_etat_processus).s_arbre_variables;
       ptr = nom_variable;
   
       while((*ptr) != d_code_fin_chaine)
       {
           pointeur = (*s_etat_processus).pointeurs_caracteres_variables[*ptr];
   
           if (pointeur < 0)
         {          {
             if ((*s_etat_processus).position_variable_courante > 0)              // Caractère hors de l'alphabet des variables
             {  
                 while(strcmp((*s_etat_processus).s_liste_variables  
                         [(*s_etat_processus).position_variable_courante]  
                         .nom, nom_variable) == 0)  
                 {  
                     (*s_etat_processus).position_variable_courante--;  
   
                     if ((*s_etat_processus).position_variable_courante >=              (*s_etat_processus).erreur_systeme = d_es_variable_introuvable;
                             (*s_etat_processus).nombre_variables)              return(d_faux);
                     {          }
                         erreur = d_erreur;  
                         (*s_etat_processus).erreur_execution =  
                                 d_ex_variable_non_definie;  
                         return erreur;  
                     }  
                 }  
   
                 (*s_etat_processus).position_variable_courante++;          if ((*l_variable_courante).noeuds[pointeur] == NULL)
             }          {
               // Le chemin de la variable candidate n'existe pas.
               (*s_etat_processus).erreur_systeme = d_es_variable_introuvable;
               return(d_faux);
           }
   
             if ((*s_etat_processus).s_liste_variables          l_variable_courante = (*l_variable_courante).noeuds[pointeur];
                     [(*s_etat_processus).position_variable_courante]          ptr++;
                     .niveau != 1)      }
             {  
                 erreur = d_erreur;  
                 (*s_etat_processus).erreur_execution =  
                         d_ex_variable_non_definie;  
                 return erreur;  
             }  
   
             if ((*s_etat_processus).s_liste_variables      if ((*l_variable_courante).feuille != NULL)
                     [(*s_etat_processus).position_variable_courante]      {
                     .variable_verrouillee == d_vrai)          // Il existe une pile de variables de même nom. Le sommet de la
           // pile est la variable de niveau le plus haut.
   
           l_element_courant = (*s_etat_processus).l_base_pile_systeme;
   
           if (l_element_courant == NULL)
           {
               // Problème : la pile système est vide !
               (*s_etat_processus).erreur_systeme = d_es_pile_vide;
               return(d_faux);
           }
   
           while((*l_element_courant).retour_definition != 'Y')
           {
               l_element_courant = (*l_element_courant).suivant;
   
               if (l_element_courant == NULL)
             {              {
                 erreur = d_erreur;                  (*s_etat_processus).erreur_systeme = d_es_pile_vide;
                 (*s_etat_processus).erreur_execution =                  return(d_faux);
                         d_ex_variable_verrouillee;  
                 return erreur;  
             }              }
         }          }
   
         if ((*s_etat_processus).nombre_variables <          niveau_appel = (*l_element_courant).niveau_courant;
                 ((*s_etat_processus).nombre_variables_allouees / 2))  
           if (niveau_appel < (*(*(*l_variable_courante).feuille).variable).niveau)
         {          {
             (*s_etat_processus).nombre_variables_allouees /= 2;              // Une variable locale est accessible puisque créée dans la
               // fonction courante.
   
             // (*s_etat_processus).nombre_variables est forcément              (*s_etat_processus).pointeur_variable_courante =
             // supérieur à 1 (la décrémentation est postérieure). Ce test                      (*(*l_variable_courante).feuille).variable;
             // est vrai lorsque le nombre de variables allouées est              (*s_etat_processus).pointeur_feuille_courante =
             // strictement supérieur à 2.                      (*l_variable_courante).feuille;
               return(d_vrai);
           }
           else
           {
               // Aucune variable locale n'est accessible depuis la fonction.
               // Dans ce cas, on prend la variable de niveau le plus bas
               // si ce niveau est inférieur ou égal à 1 (variable globale
               // ou fonction définie par l'utilisateur). Si le niveau de la
               // plus ancienne variable est strictement supérieur à 1, il
               // s'agit d'une variable locale inaccessible.
   
               if ((*(*(*(*l_variable_courante).feuille).precedent).variable)
                       .niveau <= 1)
               {
                   (*s_etat_processus).pointeur_variable_courante =
                           (*(*(*l_variable_courante).feuille).precedent).variable;
                   (*s_etat_processus).pointeur_feuille_courante =
                           (*(*l_variable_courante).feuille).precedent;
   
                   // S'il existe une variable de niveau 0 et une seconde de
                   // niveau 1, la variable de niveau 0 (fonction) est masquée
                   // par celle de niveau 1.
   
                   if (((*(*(*(*l_variable_courante).feuille).precedent)
                           .variable).niveau == 0) && ((*(*(*(*
                           (*l_variable_courante).feuille).precedent).precedent)
                           .variable).niveau == 1))
                   {
                       (*s_etat_processus).pointeur_variable_courante =
                               (*(*(*(*l_variable_courante).feuille).precedent)
                               .precedent).variable;
                       (*s_etat_processus).pointeur_feuille_courante =
                               (*(*(*l_variable_courante).feuille).precedent)
                               .precedent;
                   }
   
             if ((s_nouvelle_base =                  return(d_vrai);
                     realloc((*s_etat_processus).s_liste_variables,  
                     (*s_etat_processus).nombre_variables_allouees *  
                     sizeof(struct_variable))) == NULL)  
             {  
                 (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;  
                 return(d_erreur);  
             }              }
   
             (*s_etat_processus).s_liste_variables = s_nouvelle_base;  
         }          }
       }
   
       (*s_etat_processus).erreur_systeme = d_es_variable_introuvable;
       return(d_faux);
   }
   
         position_supprimee = (*s_etat_processus).position_variable_courante;  
   
         liberation(s_etat_processus, (*s_etat_processus).s_liste_variables  logical1
                 [position_supprimee].objet);  recherche_variable_globale(struct_processus *s_etat_processus,
         free((*s_etat_processus).s_liste_variables[position_supprimee].nom);          unsigned char *nom)
   {
       logical1            presence_variable;
   
         (*s_etat_processus).nombre_variables--;      presence_variable = recherche_variable(s_etat_processus, nom);
   
         for(position_courante = position_supprimee;      if (presence_variable == d_vrai)
                 position_courante < (*s_etat_processus).nombre_variables;      {
                 position_courante++)          switch((*(*s_etat_processus).pointeur_variable_courante).niveau)
         {          {
             (*s_etat_processus).s_liste_variables[position_courante] =              case 0:
                     (*s_etat_processus).s_liste_variables              {
                     [position_courante + 1];                  // La variable est une définition.
         }                  presence_variable = d_faux;
                   break;
               }
   
         erreur = d_absence_erreur;              case 1:
               {
                   break;
               }
   
               default:
               {
                   if ((*(*(*(*s_etat_processus).pointeur_feuille_courante)
                           .precedent).variable).niveau == 1)
                   {
                       (*s_etat_processus).pointeur_feuille_courante =
                               (*(*s_etat_processus).pointeur_feuille_courante)
                               .precedent;
                       (*s_etat_processus).pointeur_variable_courante =
                               (*(*s_etat_processus).pointeur_feuille_courante)
                               .variable;
                   }
                   else if ((*(*(*(*(*s_etat_processus).pointeur_feuille_courante)
                           .precedent).precedent).variable).niveau == 1)
                   {
                       (*s_etat_processus).pointeur_feuille_courante =
                               (*(*(*s_etat_processus).pointeur_feuille_courante)
                               .precedent).precedent;
                       (*s_etat_processus).pointeur_variable_courante =
                               (*(*s_etat_processus).pointeur_feuille_courante)
                               .variable;
                   }
                   else
                   {
                       presence_variable = d_faux;
                   }
   
                   break;
               }
           }
     }      }
     else  
       if (presence_variable == d_vrai)
     {      {
         erreur = d_erreur;          if ((*(*s_etat_processus).pointeur_variable_courante).objet == NULL)
         (*s_etat_processus).erreur_systeme = d_es_variable_introuvable;          {
               // La variable n'est pas globale, elle est partagée.
               presence_variable = d_faux;
               (*s_etat_processus).erreur_execution = d_ex_variable_partagee;
           }
     }      }
   
     return erreur;      return(presence_variable);
 }  }
   
   
 /*  /*
 ================================================================================  ================================================================================
   Procédure de recherche d'une variable par son nom dans la base    Procédure de retrait d'une variable de la base
 ================================================================================  ================================================================================
   Entrée :    Entrée : type 'G' ou 'L' selon que l'on retire une variable locale (incluant
              les globales) ou strictement globale.
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
   Sortie :    Sortie :
 --------------------------------------------------------------------------------  --------------------------------------------------------------------------------
Line 355  retrait_variable(struct_processus *s_eta Line 1023  retrait_variable(struct_processus *s_eta
 */  */
   
 logical1  logical1
 recherche_variable(struct_processus *s_etat_processus,  retrait_variable(struct_processus *s_etat_processus,
         unsigned char *nom_variable)          unsigned char *nom_variable, unsigned char type)
 {  {
     logical1                    existence_variable;      logical1                    erreur;
       logical1                    variable_supprimee;
   
     long                        difference;      struct_arbre_variables      *s_arbre_a_supprimer;
     long                        difference_inferieure;      struct_arbre_variables      *s_arbre_courant;
     long                        difference_superieure;  
   
     struct_liste_pile_systeme   *l_element_courant;      struct_liste_chainee        *l_element_courant;
       struct_liste_chainee        *l_element_precedent;
   
     unsigned long               borne_inferieure;      struct_liste_variables      *variable_a_supprimer;
     unsigned long               borne_superieure;      struct_liste_variables      *variables_par_niveau;
     unsigned long               moyenne;  
     unsigned long               niveau_appel;  
     unsigned long               nombre_iterations_maximal;  
     unsigned long               ordre_iteration;  
   
     if ((*s_etat_processus).nombre_variables == 0)  
     {  
         (*s_etat_processus).erreur_systeme = d_es_variable_introuvable;  
         return d_faux;  
     }  
   
     ordre_iteration = 0;      unsigned long               niveau;
     nombre_iterations_maximal = ((unsigned long)  
             (log((*s_etat_processus).nombre_variables) / log(2))) + 2;  
   
     borne_inferieure = 0;      (*s_etat_processus).niveau_supprime = d_faux;
     borne_superieure = (*s_etat_processus).nombre_variables - 1;  
   
     do      if (recherche_variable(s_etat_processus, nom_variable) == d_vrai)
     {      {
         moyenne = (borne_inferieure + borne_superieure) / 2;          // Une variable correspondant au nom recherché est accessible.
         ordre_iteration++;  
   
         if (((borne_inferieure + borne_superieure) % 2) == 0)          if (type == 'G')
         {          {
             difference = strcmp(nom_variable,              if ((*(*s_etat_processus).pointeur_variable_courante).niveau > 1)
                     ((*s_etat_processus).s_liste_variables)[moyenne].nom);  
   
             if (difference != 0)  
             {              {
                 if (difference > 0)                  // La variable obtenue est une variable locale. il faut
                   // s'assurer qu'il existe une variable de niveau 1 de même
                   // nom sur la feuille.
   
                   if ((*(*(*(*s_etat_processus).pointeur_feuille_courante)
                           .precedent).variable).niveau <= 1)
                 {                  {
                     borne_inferieure = moyenne;                      (*s_etat_processus).pointeur_feuille_courante =
                               (*(*s_etat_processus).pointeur_feuille_courante)
                               .precedent;
                       (*s_etat_processus).pointeur_variable_courante =
                               (*(*s_etat_processus).pointeur_feuille_courante)
                               .variable;
   
                       // Si la variable retournée est de niveau 0, on regarde
                       // un peu plus loin si une variable de niveau 1 existe.
   
                       if (((*(*(*s_etat_processus).pointeur_feuille_courante)
                               .variable).niveau == 0) &&
                               ((*(*(*(*s_etat_processus)
                               .pointeur_feuille_courante).precedent).variable)
                               .niveau == 1))
                       {
                           (*s_etat_processus).pointeur_feuille_courante =
                                   (*(*s_etat_processus).pointeur_feuille_courante)
                                   .precedent;
                           (*s_etat_processus).pointeur_variable_courante =
                                   (*(*s_etat_processus).pointeur_feuille_courante)
                                   .variable;
                       }
                 }                  }
                 else                  else
                 {                  {
                     borne_superieure = moyenne;                      // Aucune variable globale (niveau 1) n'existe.
   
                       erreur = d_erreur;
                       (*s_etat_processus).erreur_execution =
                               d_ex_variable_non_definie;
                       return(erreur);
                 }                  }
             }              }
         }  
         else  
         {  
             difference_inferieure = strcmp(nom_variable,  
                     ((*s_etat_processus).s_liste_variables)[moyenne].nom);  
             difference_superieure = strcmp(nom_variable,  
                     ((*s_etat_processus).s_liste_variables)[moyenne + 1].nom);  
   
             if (difference_inferieure == 0)              if ((*(*s_etat_processus).pointeur_variable_courante)
             {                      .variable_verrouillee == d_vrai)
                 difference = 0;  
             }  
             else if (difference_superieure == 0)  
             {  
                 difference = 0;  
                 moyenne++;  
             }  
             else  
             {              {
                 difference = difference_inferieure;                  erreur = d_erreur;
                   (*s_etat_processus).erreur_execution =
                 if (difference > 0)                          d_ex_variable_verrouillee;
                 {                  return(erreur);
                     borne_inferieure = moyenne;  
                 }  
                 else  
                 {  
                     borne_superieure = moyenne;  
                 }  
             }              }
         }          }
     } while((difference != 0) &&  
             (ordre_iteration <= nombre_iterations_maximal));  
   
     if (ordre_iteration > nombre_iterations_maximal)          // Suppression de la variable de la liste.
     {          // Deux cas peuvent survenir :
         existence_variable = d_faux;          // 1/ les pointeurs sur la variable et la variable suivante
         (*s_etat_processus).erreur_systeme = d_es_variable_introuvable;          // sont identiques et on supprime la variable ainsi que la feuille
     }          // associée ;
     else          // 2/ ces deux pointeurs sont différents et se contente de retirer
     {          // la structure décrivant la variable.
         if ((moyenne + 1) < (*s_etat_processus).nombre_variables)  
         {          if ((*s_etat_processus).pointeur_feuille_courante ==
             while(strcmp(((*s_etat_processus).s_liste_variables)                  (*(*s_etat_processus).pointeur_feuille_courante).suivant)
                     [moyenne + 1].nom, nom_variable) == 0)          {
               // Cas 1 :
               // On retire la variable du noeud en décrémentant le nombre
               // de feuilles de ce noeud. Si le nombre de feuilles du noeud
               // est nul, on retire les noeuds récursivement jusqu'à obtenir
               // un nombre non nul de feuilles utilisées (ou la racine des
               // variables).
   
               variable_a_supprimer = (*s_etat_processus)
                       .pointeur_feuille_courante;
               //s_arbre_courant = (*variable_a_supprimer).noeud_pere;
               s_arbre_courant = (*variable_a_supprimer).noeud;
               BUG((*s_arbre_courant).noeuds_utilises == 0,
                       uprintf("Freed node !\n"));
               (*s_arbre_courant).noeuds_utilises--;
   
               (*((*(*variable_a_supprimer).noeud_pere).noeuds
                       [(*(*variable_a_supprimer).noeud).indice_tableau_pere]))
                       .feuille = NULL;
   
               while((*s_arbre_courant).noeuds_utilises == 0)
             {              {
                 moyenne++;                  s_arbre_a_supprimer = s_arbre_courant;
                   s_arbre_courant = (*s_arbre_courant).noeud_pere;
   
                 if ((moyenne + 1) >= (*s_etat_processus).nombre_variables)                  if (s_arbre_courant == NULL)
                 {                  {
                       free((*s_arbre_a_supprimer).noeuds);
                       free(s_arbre_a_supprimer);
   
                       (*s_etat_processus).s_arbre_variables = NULL;
                     break;                      break;
                 }                  }
   
                   // s_arbre_a_supprimer contient la structure de feuille qui
                   // vient d'être libérée. Il s'agit maintenant
                   // d'annuler le pointeur dans le tableau noeuds de la structure
                   // pointée par noeud_pere, soit s_arbre_courant.
   
                   BUG((*s_arbre_a_supprimer).indice_tableau_pere < 0,
                           uprintf("Invalid pointer !\n"));
                   (*s_arbre_courant).noeuds[(*s_arbre_a_supprimer)
                           .indice_tableau_pere] = NULL;
   
                   free((*s_arbre_a_supprimer).noeuds);
                   free(s_arbre_a_supprimer);
   
                   BUG((*s_arbre_courant).noeuds_utilises == 0,
                           uprintf("Freed node !\n"));
                   (*s_arbre_courant).noeuds_utilises--;
             }              }
         }          }
           else
         (*s_etat_processus).position_variable_courante = moyenne;  
   
         if ((*s_etat_processus).s_liste_variables[(*s_etat_processus)  
                 .position_variable_courante].niveau > 1)  
         {          {
             // La variable trouvée est une variable locale.              // Cas 2 :
             // On vérifie qu'elle est accessible à la définition              // On retire la variable de la liste.
             // courante.  
   
             niveau_appel = (*s_etat_processus).niveau_courant;              variable_a_supprimer = (*s_etat_processus)
             l_element_courant = (*s_etat_processus).l_base_pile_systeme;                      .pointeur_feuille_courante;
   
             if (l_element_courant == NULL)              (*(*(*s_etat_processus).pointeur_feuille_courante).precedent)
             {                      .suivant = (*(*s_etat_processus).pointeur_feuille_courante)
                 (*s_etat_processus).erreur_systeme = d_es_pile_vide;                      .suivant;
                 existence_variable = d_faux;              (*(*(*s_etat_processus).pointeur_feuille_courante).suivant)
                       .precedent = (*(*s_etat_processus)
                       .pointeur_feuille_courante).precedent;
   
                 return existence_variable;              // Mise à jour du pointeur dans l'arbre des variables. Cette
             }              // mise à jour n'est nécessaire que dans le cas où la variable
               // supprimée est en tête de la liste.
   
             while((*l_element_courant).retour_definition != 'Y')              if (variable_a_supprimer == (*((*(*variable_a_supprimer).noeud_pere)
                       .noeuds[(*(*variable_a_supprimer).noeud)
                       .indice_tableau_pere])).feuille)
             {              {
                 l_element_courant = (*l_element_courant).suivant;                  (*((*(*variable_a_supprimer).noeud_pere).noeuds
                           [(*(*variable_a_supprimer).noeud).indice_tableau_pere]))
                           .feuille = (*(*((*(*variable_a_supprimer).noeud_pere)
                           .noeuds[(*(*variable_a_supprimer).noeud)
                           .indice_tableau_pere])).feuille).suivant;
               }
   
                 if (l_element_courant == NULL)              (*s_etat_processus).pointeur_feuille_courante =
                 {                      (*(*s_etat_processus).pointeur_feuille_courante).suivant;
                     (*s_etat_processus).erreur_systeme = d_es_pile_vide;              (*s_etat_processus).pointeur_variable_courante =
                     existence_variable = d_faux;                      (*(*s_etat_processus).pointeur_feuille_courante).variable;
           }
   
                     return existence_variable;          // Dans tous les cas, on retire la variable de la liste des variables
                 }          // par niveau.
             }  
   
             niveau_appel = (*l_element_courant).niveau_courant;          niveau = (*(*variable_a_supprimer).variable).niveau;
           variables_par_niveau = (*s_etat_processus).l_liste_variables_par_niveau;
           variable_supprimee = d_faux;
   
             if (niveau_appel < (*s_etat_processus).s_liste_variables          if (variables_par_niveau != NULL)
                     [(*s_etat_processus).position_variable_courante].niveau)          {
             {              do
                 existence_variable = d_vrai;  
             }  
             else  
             {              {
                 existence_variable = d_faux;                  l_element_courant = (*variables_par_niveau).liste;
   
                 // La variable locale n'est pas accessible. On regarde si par  
                 // hasard il existe une variable globale.  
   
                 while((*s_etat_processus).position_variable_courante != 0)                  if (l_element_courant != NULL)
                 {                  {
                     if (strcmp(((*s_etat_processus).s_liste_variables)                      if ((*((struct_variable *) (*l_element_courant).donnee))
                             [(*s_etat_processus).position_variable_courante - 1]                            .nom, nom_variable) == 0)                              .niveau == niveau)
                     {                      {
                         (*s_etat_processus).position_variable_courante--;                          // On parcourt le bon niveau.
                     }  
                     else                          l_element_precedent = NULL;
                     {  
                         if ((*s_etat_processus).s_liste_variables                          while(l_element_courant != NULL)
                                 [(*s_etat_processus).position_variable_courante]  
                                 .niveau <= 1)  
                         {                          {
                             existence_variable = d_vrai;                              // Tant que l_element_courant est non nul, il reste
                         }                              // des variables à explorer dans le niveau courant.
   
                               if ((*l_element_courant).donnee ==
                                       (void *) (*variable_a_supprimer).variable)
                               {
                                   // On a trouvé la variable à supprimer.
   
                                   if (l_element_precedent == NULL)
                                   {
                                       (*variables_par_niveau).liste =
                                               (*l_element_courant).suivant;
                                   }
                                   else
                                   {
                                       (*l_element_precedent).suivant =
                                               (*l_element_courant).suivant;
                                   }
   
                                   free(l_element_courant);
   
                                   if ((*variables_par_niveau).liste == NULL)
                                   {
                                       (*s_etat_processus).niveau_supprime =
                                               d_vrai;
   
                                       if ((*s_etat_processus)
                                               .l_liste_variables_par_niveau
                                               == variables_par_niveau)
                                       {
                                           // On retire l'élément de la liste
                                           // pointé par
                                           // l_liste_variable_par_niveau
   
                                           (*s_etat_processus)
                                                   .l_liste_variables_par_niveau =
                                                   (*variables_par_niveau).suivant;
                                       }
   
                                       (*(*variables_par_niveau).precedent)
                                               .suivant =
                                               (*variables_par_niveau).suivant;
                                       (*(*variables_par_niveau).suivant)
                                               .precedent =
                                               (*variables_par_niveau)
                                               .precedent;
                                       free(variables_par_niveau);
                                   }
   
                                   variable_supprimee = d_vrai;
                                   break;
                               }
   
                         break;                              l_element_precedent = l_element_courant;
                               l_element_courant = (*l_element_courant).suivant;
                           }
                     }                      }
                 }                  }
   
                 if ((strcmp(((*s_etat_processus).s_liste_variables)                  if (variable_supprimee == d_vrai)
                         [(*s_etat_processus).position_variable_courante].nom,  
                         nom_variable) == 0) && ((*s_etat_processus)  
                         .s_liste_variables[(*s_etat_processus)  
                         .position_variable_courante].niveau <= 1))  
                 {                  {
                     existence_variable = d_vrai;                      break;
                 }                  }
             }  
         }  
         else  
         {  
             // La variable trouvée est soit un pointeur sur une définition  
             // (niveau 0), soit une variable globale (niveau 1).  
   
             existence_variable = d_vrai;                  variables_par_niveau = (*variables_par_niveau).suivant;
   
               } while(variables_par_niveau != (*s_etat_processus)
                       .l_liste_variables_par_niveau);
         }          }
   
           // Puis on libère le contenu de la variable.
   
           free((*(*variable_a_supprimer).variable).nom);
           liberation(s_etat_processus, (*(*variable_a_supprimer).variable).objet);
           free((*variable_a_supprimer).variable);
           free(variable_a_supprimer);
   
           erreur = d_absence_erreur;
       }
       else
       {
           // Aucune variable n'est accessible depuis le point courant du
           // programme.
   
           erreur = d_erreur;
           (*s_etat_processus).erreur_systeme = d_es_variable_introuvable;
     }      }
   
     return existence_variable;      return(erreur);
 }  }
   
   
Line 568  recherche_variable(struct_processus *s_e Line 1332  recherche_variable(struct_processus *s_e
 logical1  logical1
 retrait_variable_par_niveau(struct_processus *s_etat_processus)  retrait_variable_par_niveau(struct_processus *s_etat_processus)
 {  {
     unsigned long                   i;      struct_liste_variables          *l_element_a_supprimer;
     unsigned long                   j;  
   
     struct_variable                 *tampon;      // Utilisation du champ (*s_etat_processus).liste_variables_par_niveau.
       // La tête de la pile contient toujours les variables de plus haut niveau
       // créées.
   
     for(j = 0, i = 0; i < (*s_etat_processus).nombre_variables; i++)      while((*s_etat_processus).l_liste_variables_par_niveau != NULL)
     {      {
         if ((*s_etat_processus).s_liste_variables[i].niveau <=          if ((*(*s_etat_processus).l_liste_variables_par_niveau).liste == NULL)
                 (*s_etat_processus).niveau_courant)  
         {          {
             (*s_etat_processus).s_liste_variables[j++] =              // Si le niveau ne contient aucune variable, on le détruit.
                     (*s_etat_processus).s_liste_variables[i];              // Le pointeur sur la chaîne est déjà nul et il ne reste rien à
               // faire.
         }          }
         else          else
         {          {
             if ((*s_etat_processus).s_liste_variables[i].origine == 'P')              // Le niveau contient des variables.
   
               if ((*((struct_variable *) (*(*(*s_etat_processus)
                       .l_liste_variables_par_niveau).liste).donnee)).niveau
                       <= (*s_etat_processus).niveau_courant)
               {
                   // On a retiré de l'arbre des variables toutes les
                   // variables de niveau strictement supérieur au niveau
                   // courant.
   
                   break;
               }
   
               while((*(*s_etat_processus).l_liste_variables_par_niveau).liste
                       != NULL)
             {              {
                 if ((*s_etat_processus).s_liste_variables[i]                  // Nécessaire car le pointeur sur la tête de la pile
                         .variable_statique.adresse != 0)                  // peut être modifié par retrait_variable().
                   // Sauvegarde des variables statiques.
   
                   if ((*((struct_variable *) (*(*(*s_etat_processus)
                           .l_liste_variables_par_niveau).liste).donnee)).origine
                           == 'P')
                 {                  {
                     /*                      if ((*((struct_variable *) (*(*(*s_etat_processus)
                      * Gestion des variables statiques                              .l_liste_variables_par_niveau).liste).donnee))
                      */                              .variable_statique.adresse != 0)
   
                     if (recherche_variable_statique(s_etat_processus,  
                             (*s_etat_processus).s_liste_variables[i]  
                             .nom, (*s_etat_processus).s_liste_variables  
                             [i].variable_statique, ((*s_etat_processus)  
                             .mode_execution_programme  
                              == 'Y') ? 'P' : 'E') == d_vrai)  
                     {                      {
                         (*s_etat_processus).s_liste_variables_statiques                          if (recherche_variable_statique(s_etat_processus,
                                 [(*s_etat_processus)                                  (*((struct_variable *) (*(*(*s_etat_processus)
                                 .position_variable_statique_courante]                                  .l_liste_variables_par_niveau).liste).donnee))
                                 .objet = (*s_etat_processus)                                  .nom, (*((struct_variable *)
                                 .s_liste_variables[i].objet;                                  (*(*(*s_etat_processus)
                                   .l_liste_variables_par_niveau).liste).donnee))
                                   .variable_statique, ((*s_etat_processus)
                                   .mode_execution_programme
                                    == 'Y') ? 'P' : 'E') == d_vrai)
                           {
                               (*s_etat_processus).s_liste_variables_statiques
                                       [(*s_etat_processus)
                                       .position_variable_statique_courante]
                                       .objet = (*((struct_variable *)
                                       (*(*(*s_etat_processus)
                                       .l_liste_variables_par_niveau).liste)
                                       .donnee)).objet;
                           }
                           else
                           {
                               (*s_etat_processus).erreur_systeme =
                                       d_es_variable_introuvable;
                           }
   
                           (*((struct_variable *) (*(*(*s_etat_processus)
                                   .l_liste_variables_par_niveau).liste).donnee))
                                   .objet = NULL;
                     }                      }
                     else                  }
                   else
                   {
                       if ((*((struct_variable *) (*(*(*s_etat_processus)
                               .l_liste_variables_par_niveau).liste).donnee))
                               .variable_statique.pointeur != NULL)
                     {                      {
                         (*s_etat_processus).erreur_systeme =                          /*
                                 d_es_variable_introuvable;                           * Gestion des variables statiques
                            */
   
                           if (recherche_variable_statique(s_etat_processus,
                                   (*((struct_variable *) (*(*(*s_etat_processus)
                                   .l_liste_variables_par_niveau).liste).donnee))
                                   .nom, (*((struct_variable *)
                                   (*(*(*s_etat_processus)
                                   .l_liste_variables_par_niveau).liste).donnee))
                                   .variable_statique, ((*s_etat_processus)
                                   .mode_execution_programme
                                    == 'Y') ? 'P' : 'E') == d_vrai)
                           {
                               (*s_etat_processus).s_liste_variables_statiques
                                       [(*s_etat_processus)
                                       .position_variable_statique_courante]
                                       .objet = (*((struct_variable *)
                                       (*(*(*s_etat_processus)
                                       .l_liste_variables_par_niveau).liste)
                                       .donnee)).objet;
                           }
                           else
                           {
                               (*s_etat_processus).erreur_systeme =
                                       d_es_variable_introuvable;
                               return(d_erreur);
                           }
   
                           (*((struct_variable *) (*(*(*s_etat_processus)
                                   .l_liste_variables_par_niveau).liste).donnee))
                                   .objet = NULL;
                     }                      }
                   }
   
                     (*s_etat_processus).s_liste_variables[i].objet = NULL;                  if (retrait_variable(s_etat_processus,
                           (*((struct_variable *) (*(*(*s_etat_processus)
                           .l_liste_variables_par_niveau).liste).donnee)).nom,
                           'L') == d_erreur)
                   {
                       return(d_erreur);
                   }
   
                   if ((*((struct_variable *) (*(*(*s_etat_processus)
                           .l_liste_variables_par_niveau).liste).donnee)).niveau
                           <= (*s_etat_processus).niveau_courant)
                   {
                       // On a retiré de l'arbre des variables toutes les
                       // variables de niveau strictement supérieur au niveau
                       // courant.
   
                       return(d_absence_erreur);
                 }                  }
             }              }
             else          }
   
           // On retire l'élément de la liste doublement chaînée et circulaire.
   
           (*(*(*s_etat_processus).l_liste_variables_par_niveau).precedent).suivant
                   = (*(*s_etat_processus).l_liste_variables_par_niveau).suivant;
           (*(*(*s_etat_processus).l_liste_variables_par_niveau).suivant).precedent
                   = (*(*s_etat_processus).l_liste_variables_par_niveau).precedent;
   
           l_element_a_supprimer = (*s_etat_processus)
                   .l_liste_variables_par_niveau;
           (*s_etat_processus).l_liste_variables_par_niveau =
                   (*l_element_a_supprimer).suivant;
           free(l_element_a_supprimer);
       }
   
       return(d_absence_erreur);
   }
   
   
   /*
   ================================================================================
     Procédure de retrait des toutes les variables locales et globales
   ================================================================================
     Entrée : drapeau indiquant s'il faut retirer les définitions (variables
              de niveau 0)
   --------------------------------------------------------------------------------
     Sortie :
   --------------------------------------------------------------------------------
     Effets de bord : néant
   ================================================================================
   */
   
   void
   liberation_arbre_variables(struct_processus *s_etat_processus,
           struct_arbre_variables *arbre, logical1 retrait_definitions)
   {
       int                     i;
   
       struct_liste_chainee    *l_element_courant_liste;
       struct_liste_chainee    *l_element_suivant_liste;
   
       struct_liste_variables  *l_element_courant;
       struct_liste_variables  *l_element_suivant;
   
       // Libération de l'arbre des variables. Le contenu des variables n'est
       // pas détruit par cette opération, il sera détruit lors de la libération
       // de la liste des variables par niveau.
   
       if (arbre == NULL)
       {
           return;
       }
   
       l_element_courant = (*arbre).feuille;
   
       if (l_element_courant != NULL)
       {
           do
           {
               l_element_suivant = (*l_element_courant).suivant;
               free(l_element_courant);
               l_element_courant = l_element_suivant;
           } while(l_element_courant != (*arbre).feuille);
       }
   
       for(i = 0; i < (*s_etat_processus).nombre_caracteres_variables; i++)
       {
           if ((*arbre).noeuds[i] != NULL)
           {
               liberation_arbre_variables(s_etat_processus, (*arbre).noeuds[i],
                       retrait_definitions);
           }
       }
   
       // Suppression de la liste des variables par niveau.
   
       if (arbre == (*s_etat_processus).s_arbre_variables)
       {
           l_element_courant = (*s_etat_processus).l_liste_variables_par_niveau;
   
           if (l_element_courant != NULL)
           {
               do
             {              {
                 if ((*s_etat_processus).s_liste_variables[i]                  l_element_courant_liste = (*l_element_courant).liste;
                         .variable_statique.pointeur != NULL)  
                   while(l_element_courant_liste != NULL)
                 {                  {
                     /*                      if ((retrait_definitions == d_vrai) ||
                      * Gestion des variables statiques                              ((*((struct_variable *) (*l_element_courant_liste)
                      */                              .donnee)).niveau >= 1))
   
                     if (recherche_variable_statique(s_etat_processus,  
                             (*s_etat_processus).s_liste_variables[i]  
                             .nom, (*s_etat_processus).s_liste_variables[i]  
                             .variable_statique, ((*s_etat_processus)  
                             .mode_execution_programme  
                              == 'Y') ? 'P' : 'E') == d_vrai)  
                     {  
                         (*s_etat_processus).s_liste_variables_statiques  
                                 [(*s_etat_processus)  
                                 .position_variable_statique_courante]  
                                 .objet = (*s_etat_processus)  
                                 .s_liste_variables[i].objet;  
                     }  
                     else  
                     {                      {
                         (*s_etat_processus).erreur_systeme =                          liberation(s_etat_processus, (*((struct_variable *)
                                 d_es_variable_introuvable;                                  (*l_element_courant_liste).donnee)).objet);
                           free((*((struct_variable *) (*l_element_courant_liste)
                                   .donnee)).nom);
                           free((*l_element_courant_liste).donnee);
                     }                      }
   
                     (*s_etat_processus).s_liste_variables[i].objet = NULL;                      l_element_suivant_liste =
                               (*l_element_courant_liste).suivant;
                       free(l_element_courant_liste);
                       l_element_courant_liste = l_element_suivant_liste;
                 }                  }
             }  
   
             free((*s_etat_processus).s_liste_variables[i].nom);                  l_element_suivant = (*l_element_courant).suivant;
             liberation(s_etat_processus,                  free(l_element_courant);
                     (*s_etat_processus).s_liste_variables[i].objet);                  l_element_courant = l_element_suivant;
               } while(l_element_courant != (*s_etat_processus)
                       .l_liste_variables_par_niveau);
         }          }
     }      }
   
     (*s_etat_processus).nombre_variables = j;      free((*arbre).noeuds);
       free(arbre);
   
       return;
   }
   
   
     if ((*s_etat_processus).nombre_variables <  /*
             ((*s_etat_processus).nombre_variables_allouees / 2))  ================================================================================
     Procédure renvoyant les variables dans un tableau
   ================================================================================
     Entrée :
   --------------------------------------------------------------------------------
     Sortie :
   --------------------------------------------------------------------------------
     Effets de bord : néant
   ================================================================================
   */
   
   int
   nombre_variables(struct_processus *s_etat_processus,
           struct_arbre_variables *l_element_courant)
   {
       int                     i;
       int                     n;
   
       struct_liste_variables  *l_variable;
   
       n = 0;
   
       if ((*l_element_courant).feuille != NULL)
     {      {
         (*s_etat_processus).nombre_variables_allouees /= 2;          l_variable = (*l_element_courant).feuille;
   
         if ((tampon = realloc((*s_etat_processus).s_liste_variables,          do
                 (*s_etat_processus).nombre_variables_allouees *  
                 sizeof(struct_variable))) == NULL)  
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              n++;
             return(d_erreur);              l_variable = (*l_variable).suivant;
           } while(l_variable != (*l_element_courant).feuille);
       }
   
       for(i = 0; i < (*s_etat_processus).nombre_caracteres_variables; i++)
       {
           if ((*l_element_courant).noeuds[i] != NULL)
           {
               n += nombre_variables(s_etat_processus,
                       (*l_element_courant).noeuds[i]);
         }          }
       }
   
       return(n);
   }
   
         (*s_etat_processus).s_liste_variables = tampon;  int
   liste_variables(struct_processus *s_etat_processus,
           struct_tableau_variables *tableau, int position,
           struct_arbre_variables *l_element_courant)
   {
       int                     i;
   
       struct_liste_variables  *l_variable;
   
       if ((*l_element_courant).feuille != NULL)
       {
           l_variable = (*l_element_courant).feuille;
   
           do
           {
               tableau[position].origine = (*(*l_variable).variable).origine;
               tableau[position].nom = (*(*l_variable).variable).nom;
               tableau[position].niveau = (*(*l_variable).variable).niveau;
               tableau[position].objet = (*(*l_variable).variable).objet;
               tableau[position].variable_verrouillee =
                       (*(*l_variable).variable).variable_verrouillee;
               tableau[position].variable_statique =
                       (*(*l_variable).variable).variable_statique;
               tableau[position].variable_partagee =
                       (*(*l_variable).variable).variable_partagee;
   
               position++;
               l_variable = (*l_variable).suivant;
           } while(l_variable != (*l_element_courant).feuille);
     }      }
   
       for(i = 0; i < (*s_etat_processus).nombre_caracteres_variables; i++)
       {
           if ((*l_element_courant).noeuds[i] != NULL)
           {
               position = liste_variables(s_etat_processus,
                       tableau, position, (*l_element_courant).noeuds[i]);
           }
       }
   
       return(position);
   }
   
   /*
   ================================================================================
     Procédure de copie de l'arbre des variables
   ================================================================================
     Entrée :
   --------------------------------------------------------------------------------
     Sortie :
   --------------------------------------------------------------------------------
     Effets de bord : néant
   ================================================================================
   */
   
   struct_arbre_variables *
   copie_arbre_variables(struct_processus *s_etat_processus)
   {
       // Les définitions sont partagées entre tous les threads et ne sont pas
       // copiées.
       //
       // NB : on ne copie que les variables de niveaux 0 et 1, les autres
       // variables locales étant masquées par le processus de création de thread
       // ou de processus, elles sont inaccessibles.
   
       BUG(1, uprintf("Oops !\n"));
   
     return(d_absence_erreur);      return(d_absence_erreur);
 }  }
   
   
   /*
   ================================================================================
     Procédure d'initialisation de la table de correspondance des variables
   ================================================================================
     Entrée :
   --------------------------------------------------------------------------------
     Sortie :
   --------------------------------------------------------------------------------
     Effets de bord : néant
   ================================================================================
   */
   
   /*
    * Caractères autorisés dans les instructions
    *
    * A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
    * a b c d e f g h i j k l m n o p q r s t u v w x y z
    * _
    * 1 2 3 4 5 6 7 8 9 0
    */
   
   void
   initialisation_variables(struct_processus *s_etat_processus)
   {
       int             decalage;
       int             i;
       int             longueur_tableau;
   
       unsigned char   caractere;
   
       // Récupération de la longueur d'un unsigned char
   
       longueur_tableau = 1;
       decalage = 0;
       caractere = 1;
   
       while((1L << decalage) == (long) ((unsigned char) (caractere << decalage)))
       {
           decalage++;
           longueur_tableau *= 2;
       }
   
       if (((*s_etat_processus).pointeurs_caracteres_variables =
               malloc(longueur_tableau * sizeof(int))) == NULL)
       {
           (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
           return;
       }
   
       for(i = 0; i < longueur_tableau; i++)
       {
           (*s_etat_processus).pointeurs_caracteres_variables[i] = -1;
       }
   
       (*s_etat_processus).nombre_caracteres_variables = 0;
   
   #define DECLARATION_CARACTERE(c) \
           do { (*s_etat_processus).pointeurs_caracteres_variables[c] = \
           (*s_etat_processus).nombre_caracteres_variables++; } while(0)
   
       DECLARATION_CARACTERE('A');
       DECLARATION_CARACTERE('B');
       DECLARATION_CARACTERE('C');
       DECLARATION_CARACTERE('D');
       DECLARATION_CARACTERE('E');
       DECLARATION_CARACTERE('F');
       DECLARATION_CARACTERE('G');
       DECLARATION_CARACTERE('H');
       DECLARATION_CARACTERE('I');
       DECLARATION_CARACTERE('J');
       DECLARATION_CARACTERE('K');
       DECLARATION_CARACTERE('L');
       DECLARATION_CARACTERE('M');
       DECLARATION_CARACTERE('N');
       DECLARATION_CARACTERE('O');
       DECLARATION_CARACTERE('P');
       DECLARATION_CARACTERE('Q');
       DECLARATION_CARACTERE('R');
       DECLARATION_CARACTERE('S');
       DECLARATION_CARACTERE('T');
       DECLARATION_CARACTERE('U');
       DECLARATION_CARACTERE('V');
       DECLARATION_CARACTERE('W');
       DECLARATION_CARACTERE('X');
       DECLARATION_CARACTERE('Y');
       DECLARATION_CARACTERE('Z');
   
       DECLARATION_CARACTERE('a');
       DECLARATION_CARACTERE('b');
       DECLARATION_CARACTERE('c');
       DECLARATION_CARACTERE('d');
       DECLARATION_CARACTERE('e');
       DECLARATION_CARACTERE('f');
       DECLARATION_CARACTERE('g');
       DECLARATION_CARACTERE('h');
       DECLARATION_CARACTERE('i');
       DECLARATION_CARACTERE('j');
       DECLARATION_CARACTERE('k');
       DECLARATION_CARACTERE('l');
       DECLARATION_CARACTERE('m');
       DECLARATION_CARACTERE('n');
       DECLARATION_CARACTERE('o');
       DECLARATION_CARACTERE('p');
       DECLARATION_CARACTERE('q');
       DECLARATION_CARACTERE('r');
       DECLARATION_CARACTERE('s');
       DECLARATION_CARACTERE('t');
       DECLARATION_CARACTERE('u');
       DECLARATION_CARACTERE('v');
       DECLARATION_CARACTERE('w');
       DECLARATION_CARACTERE('x');
       DECLARATION_CARACTERE('y');
       DECLARATION_CARACTERE('z');
   
       DECLARATION_CARACTERE('_');
   
       DECLARATION_CARACTERE('1');
       DECLARATION_CARACTERE('2');
       DECLARATION_CARACTERE('3');
       DECLARATION_CARACTERE('4');
       DECLARATION_CARACTERE('5');
       DECLARATION_CARACTERE('6');
       DECLARATION_CARACTERE('7');
       DECLARATION_CARACTERE('8');
       DECLARATION_CARACTERE('9');
       DECLARATION_CARACTERE('0');
   #undef DECLARATION_CARACTERE
   
       return;
   }
   
 // vim: ts=4  // vim: ts=4
Removed from v.1.2  
changed lines
  Added in v.1.37

CVSweb interface <joel.bertrand@systella.fr>