Diff for /rpl/src/instructions_w1.c between versions 1.72 and 1.76

version 1.72, 2013/02/27 17:11:44 version 1.76, 2013/03/11 11:07:25
Line 592  instruction_write(struct_processus *s_et Line 592  instruction_write(struct_processus *s_et
                 if ((chaine = formateur_fichier(s_etat_processus,                  if ((chaine = formateur_fichier(s_etat_processus,
                         s_objet_argument_2, (*((struct_fichier *)                          s_objet_argument_2, (*((struct_fichier *)
                         (*s_objet_argument_1).objet)).format, 0, 0, ' ', 'F',                          (*s_objet_argument_1).objet)).format, 0, 0, ' ', 'F',
                         &longueur_effective, &recursivite)) == NULL)                          &longueur_effective, &recursivite, d_vrai)) == NULL)
                 {                  {
                     liberation(s_etat_processus, s_objet_argument_2);                      liberation(s_etat_processus, s_objet_argument_2);
                     liberation(s_etat_processus, s_objet_argument_1);                      liberation(s_etat_processus, s_objet_argument_1);
Line 674  instruction_write(struct_processus *s_et Line 674  instruction_write(struct_processus *s_et
                 if ((chaine = formateur_fichier(s_etat_processus,                  if ((chaine = formateur_fichier(s_etat_processus,
                         s_objet_argument_3, (*((struct_fichier *)                          s_objet_argument_3, (*((struct_fichier *)
                         (*s_objet_argument_1).objet)).format, 0, 0, ' ',                          (*s_objet_argument_1).objet)).format, 0, 0, ' ',
                         'F', &longueur_effective, &recursivite)) == NULL)                          'F', &longueur_effective, &recursivite, d_vrai))
                           == NULL)
                 {                  {
                     liberation(s_etat_processus, s_objet_argument_3);                      liberation(s_etat_processus, s_objet_argument_3);
                     liberation(s_etat_processus, s_objet_argument_2);                      liberation(s_etat_processus, s_objet_argument_2);
Line 897  instruction_write(struct_processus *s_et Line 898  instruction_write(struct_processus *s_et
   
                 if ((chaine = formateur_fichier(s_etat_processus,                  if ((chaine = formateur_fichier(s_etat_processus,
                         s_element, s_format, 0, 0, ' ',                          s_element, s_format, 0, 0, ' ',
                         'F', &longueur_effective, &recursivite)) == NULL)                          'F', &longueur_effective, &recursivite, d_vrai))
                           == NULL)
                 {                  {
                     liberation(s_etat_processus, s_element);                      liberation(s_etat_processus, s_element);
                     liberation(s_etat_processus, s_format);                      liberation(s_etat_processus, s_format);
Line 1211  instruction_write(struct_processus *s_et Line 1213  instruction_write(struct_processus *s_et
   
                     if ((chaine = formateur_fichier(s_etat_processus,                      if ((chaine = formateur_fichier(s_etat_processus,
                             s_element, s_format, 0, 0, ' ',                              s_element, s_format, 0, 0, ' ',
                             'F', &longueur_effective, &recursivite)) == NULL)                              'F', &longueur_effective, &recursivite, d_vrai))
                               == NULL)
                     {                      {
                         free(clef_utf8);                          free(clef_utf8);
   
Line 1304  instruction_write(struct_processus *s_et Line 1307  instruction_write(struct_processus *s_et
              * Fichiers non formatés               * Fichiers non formatés
              */               */
   
             if ((chaine = formateur_fichier(s_etat_processus,  
                     s_objet_argument_2, (*((struct_fichier *)  
                     (*s_objet_argument_1).objet)).format, 0, 0, ' ', 'U',  
                     &longueur_effective, &recursivite)) == NULL)  
             {  
                 liberation(s_etat_processus, s_objet_argument_2);  
                 liberation(s_etat_processus, s_objet_argument_1);  
   
                 return;  
             }  
   
             if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces              if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces
                     == 'S')                      == 'S')
             {              {
                   if ((*s_objet_argument_2).type != LST)
                   {
                       liberation(s_etat_processus, s_objet_argument_2);
                       liberation(s_etat_processus, s_objet_argument_1);
   
                       (*s_etat_processus).erreur_execution =
                               d_ex_erreur_type_argument;
                       return;
                   }
   
                   if ((chaine = formateur_fichier(s_etat_processus,
                           s_objet_argument_2, (*((struct_fichier *)
                           (*s_objet_argument_1).objet)).format, 0, 0, ' ', 'U',
                           &longueur_effective, &recursivite, d_vrai)) == NULL)
                   {
                       liberation(s_etat_processus, s_objet_argument_2);
                       liberation(s_etat_processus, s_objet_argument_1);
   
                       return;
                   }
   
                 BUG(((*descripteur).type != 'C'), uprintf("Bad filetype !\n"));                  BUG(((*descripteur).type != 'C'), uprintf("Bad filetype !\n"));
   
                 if (fseek((*descripteur).descripteur_c, (long) 0, SEEK_END)                  if (fseek((*descripteur).descripteur_c, (long) 0, SEEK_END)
Line 1341  instruction_write(struct_processus *s_et Line 1354  instruction_write(struct_processus *s_et
             else if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces              else if ((*((struct_fichier *) (*s_objet_argument_1).objet)).acces
                     == 'D')                      == 'D')
             {              {
                   if ((*s_objet_argument_2).type != INT)
                   {
                       liberation(s_etat_processus, s_objet_argument_2);
                       liberation(s_etat_processus, s_objet_argument_1);
   
                       (*s_etat_processus).erreur_execution =
                               d_ex_erreur_type_argument;
                       return;
                   }
   
                   if (depilement(s_etat_processus, &((*s_etat_processus)
                           .l_base_pile), &s_objet_argument_3) == d_erreur)
                   {
                       (*s_etat_processus).erreur_execution = d_ex_manque_argument;
                       return;
                   }
   
                   if ((*s_objet_argument_3).type != LST)
                   {
                       liberation(s_etat_processus, s_objet_argument_3);
                       liberation(s_etat_processus, s_objet_argument_2);
                       liberation(s_etat_processus, s_objet_argument_1);
   
                       (*s_etat_processus).erreur_execution =
                               d_ex_erreur_type_argument;
                       return;
                   }
   
                   if ((chaine = formateur_fichier(s_etat_processus,
                           s_objet_argument_2, (*((struct_fichier *)
                           (*s_objet_argument_1).objet)).format, 0, 0, ' ', 'U',
                           &longueur_effective, &recursivite, d_faux)) == NULL)
                   {
                       liberation(s_etat_processus, s_objet_argument_2);
                       liberation(s_etat_processus, s_objet_argument_1);
   
                       return;
                   }
             }              }
             else              else // Fichiers indexés
             {              {
                 /* Fichiers indexés : panique totale ! */                  if ((*s_objet_argument_2).type != LST)
                   {
                       liberation(s_etat_processus, s_objet_argument_2);
                       liberation(s_etat_processus, s_objet_argument_1);
   
                       (*s_etat_processus).erreur_execution =
                               d_ex_erreur_type_argument;
                       return;
                   }
   
                   if ((chaine = formateur_fichier(s_etat_processus,
                           s_objet_argument_2, (*((struct_fichier *)
                           (*s_objet_argument_1).objet)).format, 0, 0, ' ', 'U',
                           &longueur_effective, &recursivite, d_faux)) == NULL)
                   {
                       liberation(s_etat_processus, s_objet_argument_2);
                       liberation(s_etat_processus, s_objet_argument_1);
   
                       return;
                   }
             }              }
   
             free(chaine);              free(chaine);
Line 1560  instruction_write(struct_processus *s_et Line 1630  instruction_write(struct_processus *s_et
             if ((chaine = formateur_fichier(s_etat_processus,              if ((chaine = formateur_fichier(s_etat_processus,
                     s_objet_argument_2, (*((struct_socket *)                      s_objet_argument_2, (*((struct_socket *)
                     (*s_objet_argument_1).objet)).format, 0, 0, ' ', 'F',                      (*s_objet_argument_1).objet)).format, 0, 0, ' ', 'F',
                     &longueur_effective, &recursivite)) == NULL)                      &longueur_effective, &recursivite, d_faux)) == NULL)
             {              {
                 liberation(s_etat_processus, s_objet_argument_2);                  liberation(s_etat_processus, s_objet_argument_2);
                 liberation(s_etat_processus, s_objet_argument_1);                  liberation(s_etat_processus, s_objet_argument_1);
Line 1766  instruction_write(struct_processus *s_et Line 1836  instruction_write(struct_processus *s_et
                         return;                          return;
                     }                      }
   
                       if (ios == EMSGSIZE)
                       {
                           (*s_etat_processus).erreur_execution =
                                   d_ex_taille_message;
                           return;
                       }
   
                     (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;                      (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
                     return;                      return;
Line 1818  instruction_write(struct_processus *s_et Line 1894  instruction_write(struct_processus *s_et
                             longueur_effective, 0, (struct sockaddr *)                              longueur_effective, 0, (struct sockaddr *)
                             &adresse_ipv4, sizeof(adresse_ipv4)) < 0)                              &adresse_ipv4, sizeof(adresse_ipv4)) < 0)
                     {                      {
                           ios = errno;
   
 #                       ifndef SEMAPHORES_NOMMES  #                       ifndef SEMAPHORES_NOMMES
                             while(sem_wait(&((*s_etat_processus)                              while(sem_wait(&((*s_etat_processus)
                                     .semaphore_fork)) != 0)                                      .semaphore_fork)) != 0)
Line 1834  instruction_write(struct_processus *s_et Line 1912  instruction_write(struct_processus *s_et
                             }                              }
                         }                          }
   
                           if ((ios == EPIPE) || (ios == ECONNRESET))
                           {
                               (*s_etat_processus).erreur_execution =
                                       d_ex_erreur_acces_fichier;
                               return;
                           }
   
                           if (ios == EMSGSIZE)
                           {
                               (*s_etat_processus).erreur_execution =
                                       d_ex_taille_message;
                               return;
                           }
   
                         (*s_etat_processus).erreur_systeme =                          (*s_etat_processus).erreur_systeme =
                                 d_es_erreur_fichier;                                  d_es_erreur_fichier;
                         return;                          return;
Line 1901  instruction_write(struct_processus *s_et Line 1993  instruction_write(struct_processus *s_et
                             longueur_effective, 0, (struct sockaddr *)                              longueur_effective, 0, (struct sockaddr *)
                             &adresse_ipv6, sizeof(adresse_ipv6)) < 0)                              &adresse_ipv6, sizeof(adresse_ipv6)) < 0)
                     {                      {
                           ios = errno;
   
 #                       ifndef SEMAPHORES_NOMMES  #                       ifndef SEMAPHORES_NOMMES
                             while(sem_wait(&((*s_etat_processus)                              while(sem_wait(&((*s_etat_processus)
                                     .semaphore_fork)) != 0)                                      .semaphore_fork)) != 0)
Line 1917  instruction_write(struct_processus *s_et Line 2011  instruction_write(struct_processus *s_et
                             }                              }
                         }                          }
   
                           if ((ios == EPIPE) || (ios == ECONNRESET))
                           {
                               (*s_etat_processus).erreur_execution =
                                       d_ex_erreur_acces_fichier;
                               return;
                           }
   
                           if (ios == EMSGSIZE)
                           {
                               (*s_etat_processus).erreur_execution =
                                       d_ex_taille_message;
                               return;
                           }
   
                         (*s_etat_processus).erreur_systeme =                          (*s_etat_processus).erreur_systeme =
                                 d_es_erreur_fichier;                                  d_es_erreur_fichier;
                         return;                          return;

Removed from v.1.72  
changed lines
  Added in v.1.76


CVSweb interface <joel.bertrand@systella.fr>