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

Diff for /rpl/src/compilation.c between versions 1.85 and 1.93

version 1.85, 2016/03/01 22:12:26 version 1.93, 2018/05/30 09:27:31
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.25    RPL/2 (R) version 4.1.29
   Copyright (C) 1989-2016 Dr. BERTRAND Joël    Copyright (C) 1989-2018 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
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 *, void **);
   
   
     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 930  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;
Line 990  recherche_instruction_suivante_recursive Line 996  recherche_instruction_suivante_recursive
         return(erreur);          return(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;
       (*s_etat_processus).position_courante = pointeur_caractere_courant
               - (*s_etat_processus).definitions_chainees;
   
       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, NULL)) != 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).definitions_chainees +
                           (*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;
       }
   
     pointeur_debut_instruction = pointeur_caractere_courant;      pointeur_debut_instruction = pointeur_caractere_courant;
   
     while(((*pointeur_caractere_courant) != d_code_espace) &&      while(((*pointeur_caractere_courant) != d_code_espace) &&
Line 1655  recherche_instruction_suivante_recursive Line 1706  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.85  
changed lines
  Added in v.1.93

CVSweb interface <joel.bertrand@systella.fr>