Diff for /rpl/src/compilation.c between versions 1.88 and 1.89

version 1.88, 2017/06/28 09:20:30 version 1.89, 2017/06/29 12:33:34
Line 917  recherche_instruction_suivante_recursive Line 917  recherche_instruction_suivante_recursive
     int                         erreur_analyse;      int                         erreur_analyse;
     int                         erreur_format;      int                         erreur_format;
   
       integer8                    nombre_caracteres;
       integer8                    (*__type_parse)(struct_processus
                                           *s_etat_processus);
   
   
     unsigned char               base_binaire;      unsigned char               base_binaire;
     unsigned char               caractere_fin;      unsigned char               caractere_fin;
     unsigned char               *pointeur_caractere_courant;      unsigned char               *pointeur_caractere_courant;
Line 926  recherche_instruction_suivante_recursive Line 931  recherche_instruction_suivante_recursive
   
     signed long                 niveau;      signed long                 niveau;
   
       struct_liste_chainee        *l_element_courant;
   
     erreur_analyse = d_ex;      erreur_analyse = d_ex;
     erreur_format = d_ex;      erreur_format = d_ex;
     erreur = d_absence_erreur;      erreur = d_absence_erreur;
   
       /*
        * On regarde s'il existe des fonctions permettant de parser
        * les objets dans les bibliothèques externes.
        */
   
       l_element_courant = (*s_etat_processus).s_bibliotheques;
   
       while(l_element_courant != NULL)
       {
           if ((__type_parse = dlsym((*((struct_bibliotheque *)
                   (*l_element_courant).donnee)).descripteur, "__type_parse"))
                   != NULL)
           {
               // Une fonction declareTypeExtension(parse) se trouve dans la
               // bibliothèque. Si cette fonction renvoie une valeur non nulle,
               // elle a réussi à parser correctement un objet.
   
               if ((nombre_caracteres = __type_parse(s_etat_processus)) != 0)
               {
                   if (((*s_etat_processus).instruction_courante =
                           malloc((((unsigned) nombre_caracteres) + 1)
                           * sizeof(unsigned char))) == NULL)
                   {
                       (*s_etat_processus).erreur_systeme =
                               d_es_allocation_memoire;
                       return(d_erreur);
                   }
   
                   strncpy((*s_etat_processus).instruction_courante,
                           (*s_etat_processus).instruction_courante +
                           (*s_etat_processus).position_courante,
                           (unsigned) nombre_caracteres);
                   (*s_etat_processus).instruction_courante[nombre_caracteres]
                           = d_code_fin_chaine;
   
                   (*s_etat_processus).position_courante += nombre_caracteres;
                   return(erreur);
               }
           }
   
           l_element_courant = (*l_element_courant).suivant;
       }
   
       /*
        * Gestion des types intrinsèques
        */
   
     switch((*s_etat_processus).type_en_cours)      switch((*s_etat_processus).type_en_cours)
     {      {
         case RPN:          case RPN:
Line 1655  recherche_instruction_suivante_recursive Line 1709  recherche_instruction_suivante_recursive
         }          }
         else if ((*pointeur_caractere_courant) == caractere_fin)          else if ((*pointeur_caractere_courant) == caractere_fin)
         {          {
             // Condition pour traiter les cas 123}              // Condition pour traiter les cas "123}"
             break;              break;
         }          }
     }      }

Removed from v.1.88  
changed lines
  Added in v.1.89


CVSweb interface <joel.bertrand@systella.fr>