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

Diff for /rpl/src/instructions_w1.c between versions 1.54 and 1.65

version 1.54, 2011/12/02 10:43:22 version 1.65, 2012/07/05 08:05:50
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.5    RPL/2 (R) version 4.1.9
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2012 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 391  instruction_write(struct_processus *s_et Line 391  instruction_write(struct_processus *s_et
     integer8                            id;      integer8                            id;
     integer8                            ordre;      integer8                            ordre;
   
       logical1                            format_degenere;
     logical1                            mise_a_jour;      logical1                            mise_a_jour;
   
       long                                longueur;
     long                                longueur_effective;      long                                longueur_effective;
     long                                recursivite;      long                                recursivite;
   
Line 428  instruction_write(struct_processus *s_et Line 430  instruction_write(struct_processus *s_et
     unsigned char                       *chaine_utf8;      unsigned char                       *chaine_utf8;
     unsigned char                       *clef_utf8;      unsigned char                       *clef_utf8;
     unsigned char                       *commande;      unsigned char                       *commande;
       unsigned char                       *format_chaine;
   
     unsigned long                       i;      unsigned long                       i;
   
Line 1328  instruction_write(struct_processus *s_et Line 1331  instruction_write(struct_processus *s_et
             {              {
                 BUG(((*descripteur).type != 'C'), uprintf("Bad filetype !\n"));                  BUG(((*descripteur).type != 'C'), uprintf("Bad filetype !\n"));
   
                 if ((*((*((struct_liste_chainee *) (*s_objet_argument_2).objet))                  if ((*s_objet_argument_2).type != LST)
                         .donnee)).type != CHN)  
                 {                  {
                     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 1339  instruction_write(struct_processus *s_et Line 1341  instruction_write(struct_processus *s_et
                     return;                      return;
                 }                  }
   
                 if ((chaine = formateur_flux(s_etat_processus, (unsigned char *)                  if ((*((struct_liste_chainee *) (*s_objet_argument_2).objet))
                         (*((*((struct_liste_chainee *) (*s_objet_argument_2)                          .donnee == NULL)
                         .objet)).donnee)).objet, &longueur_effective)) == NULL)  
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      liberation(s_etat_processus, s_objet_argument_2);
                             d_es_allocation_memoire;                      liberation(s_etat_processus, s_objet_argument_1);
   
                       (*s_etat_processus).erreur_execution =
                               d_ex_erreur_type_argument;
                     return;                      return;
                 }                  }
   
                 if (fwrite(chaine, sizeof(unsigned char), longueur_effective,                  l_element_courant = (*s_objet_argument_2).objet;
                         (*descripteur).descripteur_c) !=                  l_element_courant_format = (struct_liste_chainee *)
                         (size_t) longueur_effective)                          (*(*((struct_fichier *) (*s_objet_argument_1).objet))
                           .format).objet;
   
                   while((l_element_courant != NULL) &&
                           (l_element_courant_format != NULL))
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;                      if ((*(*l_element_courant).donnee).type != CHN)
                     return;                      {
                           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 ((*(*l_element_courant_format).donnee).type != CHN)
                       {
                           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 ((format_chaine = conversion_majuscule((unsigned char *)
                               (*(*l_element_courant_format).donnee).objet))
                               == NULL)
                       {
                           (*s_etat_processus).erreur_systeme =
                                   d_es_allocation_memoire;
                           return;
                       }
   
                       if (strncmp("LENGTH*(", format_chaine, 8) != 0)
                       {
                           free(format_chaine);
   
                           liberation(s_etat_processus, s_objet_argument_2);
                           liberation(s_etat_processus, s_objet_argument_1);
   
                           (*s_etat_processus).erreur_execution =
                                   d_ex_erreur_format_fichier;
                           return;
                       }
   
                       longueur = strlen(format_chaine);
   
                       if (format_chaine[longueur - 1] != ')')
                       {
                           free(format_chaine);
   
                           liberation(s_etat_processus, s_objet_argument_2);
                           liberation(s_etat_processus, s_objet_argument_1);
   
                           (*s_etat_processus).erreur_execution =
                                   d_ex_erreur_format_fichier;
                           return;
                       }
   
                       format_chaine[longueur] = d_code_fin_chaine;
   
                       if (format_chaine[8] == '*')
                       {
                           format_degenere = d_vrai;
                       }
                       else
                       {
                           // Détermination de la longueur
                           format_degenere = d_faux;
   
                           if (sscanf(&(format_chaine[8]), "%ld", &longueur) != 1)
                           {
                               free(format_chaine);
   
                               liberation(s_etat_processus, s_objet_argument_2);
                               liberation(s_etat_processus, s_objet_argument_1);
   
                               (*s_etat_processus).erreur_execution =
                                       d_ex_erreur_format_fichier;
                               return;
                           }
                       }
   
                       free(format_chaine);
   
                       if ((chaine = formateur_flux(s_etat_processus,
                               (unsigned char *) (*(*l_element_courant).donnee)
                               .objet, &longueur_effective)) == NULL)
                       {
                           (*s_etat_processus).erreur_systeme =
                                   d_es_allocation_memoire;
                           return;
                       }
   
                       if ((format_degenere == d_vrai) ||
                               (longueur_effective < longueur))
                       {
                           if (fwrite(chaine, sizeof(unsigned char),
                                   longueur_effective,
                                   (*descripteur).descripteur_c) !=
                                   (size_t) longueur_effective)
                           {
                               (*s_etat_processus).erreur_systeme =
                                       d_es_erreur_fichier;
                               return;
                           }
                       }
                       else
                       {
                           if (fwrite(chaine, sizeof(unsigned char),
                                   longueur_effective,
                                   (*descripteur).descripteur_c) !=
                                   (size_t) longueur)
                           {
                               (*s_etat_processus).erreur_systeme =
                                       d_es_erreur_fichier;
                               return;
                           }
                       }
   
                       free(chaine);
   
                       l_element_courant = (*l_element_courant).suivant;
                       l_element_courant_format = (*l_element_courant_format)
                               .suivant;
                 }                  }
   
                 free(chaine);                  if ((l_element_courant_format != NULL) ||
                           (l_element_courant != NULL))
                   {
                       liberation(s_etat_processus, s_objet_argument_2);
                       liberation(s_etat_processus, s_objet_argument_1);
   
                       (*s_etat_processus).erreur_execution =
                               d_ex_erreur_format_fichier;
                       return;
                   }
             }              }
             else              else
             {              {
Line 2753  instruction_wfsock(struct_processus *s_e Line 2889  instruction_wfsock(struct_processus *s_e
             s_poll.events = POLLIN;              s_poll.events = POLLIN;
             s_poll.revents = 0;              s_poll.revents = 0;
   
             while(poll(&s_poll, 1, -1) < 0)              do
             {              {
                 if (errno != EINTR)                  drapeau = d_vrai;
   
   #               ifndef SEMAPHORES_NOMMES
                   if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
   #               else
                   if (sem_post((*s_etat_processus).semaphore_fork) != 0)
   #               endif
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme = d_es_processus;
                             d_es_erreur_fichier;                      return;
                     return;    
                 }                  }
             }  
                   if (poll(&s_poll, 1, -1) < 0)
                   {
                       erreur = errno;
   
   #                   ifndef SEMAPHORES_NOMMES
                       while(sem_wait(&((*s_etat_processus)
                               .semaphore_fork)) != 0)
   #                   else
                       while(sem_wait((*s_etat_processus).semaphore_fork)
                               != 0)
   #                   endif
   
                       if (erreur != EINTR)
                       {
                           liberation(s_etat_processus, s_objet_argument);
                           liberation(s_etat_processus, s_objet_resultat);
   
                           (*s_etat_processus).erreur_execution =
                                   d_ex_erreur_acces_fichier;
                           return;
                       }
   
                       scrutation_injection(s_etat_processus);
   
                       if ((*s_etat_processus).var_volatile_requete_arret != 0)
                       {
                           drapeau = d_vrai;
                       }
                       else
                       {
                           drapeau = d_faux;
                       }
                   }
                   else
                   {
   #                   ifndef SEMAPHORES_NOMMES
                           while(sem_wait(&((*s_etat_processus)
                                   .semaphore_fork)) != 0)
   #                   else
                           while(sem_wait((*s_etat_processus).semaphore_fork)
                                   != 0)
   #                   endif
                       {
                           if (errno != EINTR)
                           {
                               (*s_etat_processus).erreur_systeme =
                                       d_es_processus;
                               return;
                           }
                       }
                   }
               } while(drapeau == d_faux);
   
             if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),              if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
                     s_objet_argument) == d_erreur)                      s_objet_argument) == d_erreur)
Line 2818  instruction_wfsock(struct_processus *s_e Line 3011  instruction_wfsock(struct_processus *s_e
                     {                      {
                         erreur = errno;                          erreur = 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)
 #                   else  #                       else
                             while(sem_wait((*s_etat_processus).semaphore_fork)                          while(sem_wait((*s_etat_processus).semaphore_fork)
                                     != 0)                                  != 0)
 #                   endif  #                       endif
                         {                          {
                             if (errno != EINTR)                              if (errno != EINTR)
                             {                              {
Removed from v.1.54  
changed lines
  Added in v.1.65

CVSweb interface <joel.bertrand@systella.fr>