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

Diff for /rpl/src/chainage.c between versions 1.29 and 1.52

version 1.29, 2011/06/21 07:45:21 version 1.52, 2013/03/20 17:11:43
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.0.prerelease.1    RPL/2 (R) version 4.1.13
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2013 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 45  chainage(struct_processus *s_etat_proces Line 45  chainage(struct_processus *s_etat_proces
   
     int                     caractere;      int                     caractere;
     int                     erreur;      int                     erreur;
     int                     erreur_os;  
   
     logical1                drapeau_fin;      logical1                drapeau_fin;
       logical1                erreur_os;
     logical1                existence;      logical1                existence;
     logical1                initialisation;      logical1                initialisation;
     logical1                ouverture;      logical1                ouverture;
     logical1                presence_chaine;      logical1                presence_chaine;
   
     long                    i;      integer8                i;
     long                    nombre_caracteres_source;      integer8                nombre_caracteres_source;
   
     unsigned char           *commande;      unsigned char           *commande;
     unsigned char           *executable_candidat;      unsigned char           *executable_candidat;
Line 145  chainage(struct_processus *s_etat_proces Line 145  chainage(struct_processus *s_etat_proces
                 return(d_erreur);                  return(d_erreur);
             }              }
   
             if (controle(s_etat_processus, executable_candidat, "md5",              if (controle_integrite(s_etat_processus, executable_candidat,
                     rpliconv_md5) != d_vrai)                          "rpliconv") != d_vrai)
             {  
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;  
                 return(d_erreur);  
             }  
   
             if (controle(s_etat_processus, executable_candidat, "sha1",  
                     rpliconv_sha1) != d_vrai)  
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;                  (*s_etat_processus).erreur_systeme = d_es_somme_controle;
                 return(d_erreur);                  return(d_erreur);
Line 168  chainage(struct_processus *s_etat_proces Line 161  chainage(struct_processus *s_etat_proces
                 return(d_erreur);                  return(d_erreur);
             }              }
   
             if (controle(s_etat_processus, executable_candidat, "md5",              if (controle_integrite(s_etat_processus, executable_candidat,
                     rplfile_md5) != d_vrai)                      "rplfile") != d_vrai)
             {  
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;  
                 return(d_erreur);  
             }  
   
             if (controle(s_etat_processus, executable_candidat, "sha1",  
                     rplfile_sha1) != d_vrai)  
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;                  (*s_etat_processus).erreur_systeme = d_es_somme_controle;
                 return(d_erreur);                  return(d_erreur);
Line 191  chainage(struct_processus *s_etat_proces Line 177  chainage(struct_processus *s_etat_proces
                 return(d_erreur);                  return(d_erreur);
             }              }
   
             if (controle(s_etat_processus, executable_candidat, "md5",              if (controle_integrite(s_etat_processus, executable_candidat,
                     rplpp_md5) != d_vrai)                      "rplpp") != d_vrai)
             {  
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;  
                 return(d_erreur);  
             }  
   
             if (controle(s_etat_processus, executable_candidat, "sha1",  
                     rplpp_sha1) != d_vrai)  
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;                  (*s_etat_processus).erreur_systeme = d_es_somme_controle;
                 return(d_erreur);                  return(d_erreur);
Line 214  chainage(struct_processus *s_etat_proces Line 193  chainage(struct_processus *s_etat_proces
                 return(d_erreur);                  return(d_erreur);
             }              }
   
             if (controle(s_etat_processus, executable_candidat, "md5",              if (controle_integrite(s_etat_processus, executable_candidat,
                     rplawk_md5) != d_vrai)                      "rplawk") != d_vrai)
             {  
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;  
                 return(d_erreur);  
             }  
   
             if (controle(s_etat_processus, executable_candidat, "sha1",  
                     rplawk_sha1) != d_vrai)  
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;                  (*s_etat_processus).erreur_systeme = d_es_somme_controle;
                 return(d_erreur);                  return(d_erreur);
Line 263  chainage(struct_processus *s_etat_proces Line 235  chainage(struct_processus *s_etat_proces
                 return(d_erreur);                  return(d_erreur);
             }              }
   
             if (controle(s_etat_processus, executable_candidat, "md5",              if (controle_integrite(s_etat_processus, executable_candidat,
                     rpliconv_md5) != d_vrai)                      "rpliconv") != d_vrai)
             {  
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;  
                 return(d_erreur);  
             }  
   
             if (controle(s_etat_processus, executable_candidat, "sha1",  
                     rpliconv_sha1) != d_vrai)  
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;                  (*s_etat_processus).erreur_systeme = d_es_somme_controle;
                 return(d_erreur);                  return(d_erreur);
Line 286  chainage(struct_processus *s_etat_proces Line 251  chainage(struct_processus *s_etat_proces
                 return(d_erreur);                  return(d_erreur);
             }              }
   
             if (controle(s_etat_processus, executable_candidat, "md5",              if (controle_integrite(s_etat_processus, executable_candidat,
                     rplfile_md5) != d_vrai)                      "rplfile") != d_vrai)
             {  
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;  
                 return(d_erreur);  
             }  
   
             if (controle(s_etat_processus, executable_candidat, "sha1",  
                     rplfile_sha1) != d_vrai)  
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;                  (*s_etat_processus).erreur_systeme = d_es_somme_controle;
                 return(d_erreur);                  return(d_erreur);
Line 309  chainage(struct_processus *s_etat_proces Line 267  chainage(struct_processus *s_etat_proces
                 return(d_erreur);                  return(d_erreur);
             }              }
   
             if (controle(s_etat_processus, executable_candidat, "md5",              if (controle_integrite(s_etat_processus, executable_candidat,
                     rplpp_md5) != d_vrai)                      "rplpp") != d_vrai)
             {  
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;  
                 return(d_erreur);  
             }  
   
             if (controle(s_etat_processus, executable_candidat, "sha1",  
                     rplpp_sha1) != d_vrai)  
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;                  (*s_etat_processus).erreur_systeme = d_es_somme_controle;
                 return(d_erreur);                  return(d_erreur);
Line 332  chainage(struct_processus *s_etat_proces Line 283  chainage(struct_processus *s_etat_proces
                 return(d_erreur);                  return(d_erreur);
             }              }
   
             if (controle(s_etat_processus, executable_candidat, "md5",              if (controle_integrite(s_etat_processus, executable_candidat,
                     rplawk_md5) != d_vrai)                      "rplawk") != d_vrai)
             {  
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;  
                 return(d_erreur);  
             }  
   
             if (controle(s_etat_processus, executable_candidat, "sha1",  
                     rplawk_sha1) != d_vrai)  
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_somme_controle;                  (*s_etat_processus).erreur_systeme = d_es_somme_controle;
                 return(d_erreur);                  return(d_erreur);
Line 389  chainage(struct_processus *s_etat_proces Line 333  chainage(struct_processus *s_etat_proces
         }          }
   
         (*s_etat_processus).definitions_chainees = (unsigned char *)          (*s_etat_processus).definitions_chainees = (unsigned char *)
                 malloc((nombre_caracteres_source + 1) * sizeof(unsigned char));                  malloc((((size_t) nombre_caracteres_source) + 1)
                   * sizeof(unsigned char));
                   
         if ((*s_etat_processus).definitions_chainees == NULL)          if ((*s_etat_processus).definitions_chainees == NULL)
         {          {
Line 472  chainage(struct_processus *s_etat_proces Line 417  chainage(struct_processus *s_etat_proces
                         }                          }
                     }                      }
   
                     if ((((*s_etat_processus).definitions_chainees)[i] =                      if (((int) (((*s_etat_processus).definitions_chainees)[i] =
                             caractere) == '\"')                              ((unsigned char) caractere))) == '\"')
                     {                      {
                         if (i > 0)                          if (i > 0)
                         {                          {
Line 509  chainage(struct_processus *s_etat_proces Line 454  chainage(struct_processus *s_etat_proces
         }          }
   
         (*s_etat_processus).longueur_definitions_chainees =          (*s_etat_processus).longueur_definitions_chainees =
                 strlen((*s_etat_processus).definitions_chainees);                  (integer8) strlen((*s_etat_processus).definitions_chainees);
   
         if (fclose(f_source) != 0)          if (fclose(f_source) != 0)
         {          {
Line 543  chainage(struct_processus *s_etat_proces Line 488  chainage(struct_processus *s_etat_proces
   
     if (((*s_etat_processus).definitions_chainees =      if (((*s_etat_processus).definitions_chainees =
             realloc((*s_etat_processus).definitions_chainees,              realloc((*s_etat_processus).definitions_chainees,
             ((*s_etat_processus).longueur_definitions_chainees + 1) *              (((size_t) (*s_etat_processus).longueur_definitions_chainees) + 1)
             sizeof(unsigned char))) == NULL)              * sizeof(unsigned char))) == NULL)
     {      {
         (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;          (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
         return(d_erreur);          return(d_erreur);
Removed from v.1.29  
changed lines
  Added in v.1.52

CVSweb interface <joel.bertrand@systella.fr>