[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.5 and 1.6

version 1.5, 2010/03/06 18:29:07 version 1.6, 2010/03/07 17:03:29
Line 374  instruction_wireframe(struct_processus * Line 374  instruction_wireframe(struct_processus *
 void  void
 instruction_write(struct_processus *s_etat_processus)  instruction_write(struct_processus *s_etat_processus)
 {  {
       const char                          *queue;
   
     int                                 adresse[16];      int                                 adresse[16];
     int                                 port;      int                                 port;
   
     long                                longueur_effective;      long                                longueur_effective;
     long                                recursivite;      long                                recursivite;
   
       sqlite3_stmt                        *ppStmt;
   
     ssize_t                             ios;      ssize_t                             ios;
   
     struct_descripteur_fichier          *descripteur;      struct_descripteur_fichier          *descripteur;
   
     struct_objet                        *s_objet_argument_2;  
     struct_objet                        *s_objet_argument_1;      struct_objet                        *s_objet_argument_1;
       struct_objet                        *s_objet_argument_2;
       struct_objet                        *s_objet_argument_3;
   
     struct sigaction                    action;      struct sigaction                    action;
     struct sigaction                    registre;      struct sigaction                    registre;
Line 400  instruction_write(struct_processus *s_et Line 405  instruction_write(struct_processus *s_et
   
     unsigned char                       *chaine;      unsigned char                       *chaine;
     unsigned char                       *chaine_utf8;      unsigned char                       *chaine_utf8;
       unsigned char                       *commande;
   
     unsigned long                       i;      unsigned long                       i;
   
Line 419  instruction_write(struct_processus *s_et Line 425  instruction_write(struct_processus *s_et
         }          }
   
         printf("    2: %s\n", d_LST);          printf("    2: %s\n", d_LST);
         printf("    1: %s, %s\n", d_FCH, d_SCK);          printf("    1: %s, %s\n\n", d_FCH, d_SCK);
   
           printf("    3: %s\n", d_LST);
           printf("    2: %s, %s\n", d_INT, d_CHN);
           printf("    1: %s\n", d_FCH);
         return;          return;
     }      }
     else if ((*s_etat_processus).test_instruction == 'Y')      else if ((*s_etat_processus).test_instruction == 'Y')
Line 431  instruction_write(struct_processus *s_et Line 440  instruction_write(struct_processus *s_et
   
     if (test_cfsf(s_etat_processus, 31) == d_vrai)      if (test_cfsf(s_etat_processus, 31) == d_vrai)
     {      {
         if (empilement_pile_last(s_etat_processus, 2) == d_erreur)          if ((*s_etat_processus).l_base_pile == NULL)
         {          {
               (*s_etat_processus).erreur_execution = d_ex_manque_argument;
             return;              return;
         }          }
   
           if ((*(*(*s_etat_processus).l_base_pile).donnee).type == FCH)
           {
               if ((*((struct_fichier *) (*(*(*s_etat_processus).l_base_pile)
                       .donnee).objet)).acces == 'S')
               {
                   if (empilement_pile_last(s_etat_processus, 2) == d_erreur)
                   {
                       return;
                   }
               }
               else
               {
                   if (empilement_pile_last(s_etat_processus, 3) == d_erreur)
                   {
                       return;
                   }
               }
           }
           else
           {
               if (empilement_pile_last(s_etat_processus, 2) == d_erreur)
               {
                   return;
               }
           }
     }      }
   
     if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),      if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
Line 453  instruction_write(struct_processus *s_et Line 489  instruction_write(struct_processus *s_et
         return;          return;
     }      }
           
     if (((*s_objet_argument_2).type == LST) &&      if ((*s_objet_argument_1).type == FCH)
             ((*s_objet_argument_1).type == FCH))  
     {      {
         if ((descripteur = descripteur_fichier(s_etat_processus,          if ((descripteur = descripteur_fichier(s_etat_processus,
                 (struct_fichier *) (*s_objet_argument_1).objet)) == NULL)                  (struct_fichier *) (*s_objet_argument_1).objet)) == NULL)
Line 513  instruction_write(struct_processus *s_et Line 548  instruction_write(struct_processus *s_et
              * Fichiers formatés               * Fichiers formatés
              */               */
   
             if ((chaine = formateur_fichier(s_etat_processus,  
                     s_objet_argument_2, (*((struct_fichier *)  
                     (*s_objet_argument_1).objet)).format, 0, 0, ' ', 'F',  
                     &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, ' ', 'F',
                           &longueur_effective, &recursivite)) == 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 542  instruction_write(struct_processus *s_et Line 587  instruction_write(struct_processus *s_et
                 if ((chaine_utf8 = transliteration(s_etat_processus,                  if ((chaine_utf8 = transliteration(s_etat_processus,
                         chaine, d_locale, "UTF-8")) == NULL)                          chaine, d_locale, "UTF-8")) == NULL)
                 {                  {
                       free(chaine);
   
                     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);
   
                     return;                      return;
                 }                  }
   
                   free(chaine);
   
                 if (fprintf((*descripteur).descripteur_c, "%s\n", chaine) < 0)                  if (fprintf((*descripteur).descripteur_c, "%s\n", chaine) < 0)
                 {                  {
                     free(chaine_utf8);                      free(chaine_utf8);
Line 561  instruction_write(struct_processus *s_et Line 610  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')
             {              {
                   BUG(((*descripteur).type != 'S'), uprintf("Bad filetype !\n"));
   
                   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 ((*s_objet_argument_3).objet == NULL)
                   {
                       // Effacement d'un enregistrement
   
                       if (alsprintf(&commande, "delete from data where "
                               "id = %lld", (*((integer8 *)
                               (*s_objet_argument_2).objet))) < 0)
                       {
                           liberation(s_etat_processus, s_objet_argument_3);
                           liberation(s_etat_processus, s_objet_argument_2);
                           liberation(s_etat_processus, s_objet_argument_1);
   
                           return;
                       }
                   }
                   else
                   {
                       // Modification ou création d'un nouvel enregistrement
   
                       if ((chaine = formateur_fichier(s_etat_processus,
                               s_objet_argument_3, (*((struct_fichier *)
                               (*s_objet_argument_1).objet)).format, 0, 0, ' ',
                               'F', &longueur_effective, &recursivite)) == NULL)
                       {
                           liberation(s_etat_processus, s_objet_argument_3);
                           liberation(s_etat_processus, s_objet_argument_2);
                           liberation(s_etat_processus, s_objet_argument_1);
   
                           return;
                       }
   
                       if ((chaine_utf8 = transliteration(s_etat_processus,
                               chaine, d_locale, "UTF-8")) == NULL)
                       {
                           free(chaine);
   
                           liberation(s_etat_processus, s_objet_argument_3);
                           liberation(s_etat_processus, s_objet_argument_2);
                           liberation(s_etat_processus, s_objet_argument_1);
   
                           return;
                       }
   
                       free(chaine);
   
                       if (alsprintf(&commande, "insert or replace into data "
                               "(id, data) values (%lld, '%s')", (*((integer8 *)
                               (*s_objet_argument_2).objet)), chaine_utf8) < 0)
                       {
                           free(chaine_utf8);
                           liberation(s_etat_processus, s_objet_argument_3);
                           liberation(s_etat_processus, s_objet_argument_2);
                           liberation(s_etat_processus, s_objet_argument_1);
   
                           return;
                       }
   
                       free(chaine_utf8);
                   }
   
                   if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
                           commande, strlen(commande), &ppStmt, &queue)
                           != SQLITE_OK)
                   {
                       (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
                       return;
                   }
   
                   if (sqlite3_step(ppStmt) != SQLITE_DONE)
                   {
                       (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
                       return;
                   }
   
                   if (sqlite3_finalize(ppStmt) != SQLITE_OK)
                   {
                       (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
                       return;
                   }
   
                   liberation(s_etat_processus, s_objet_argument_3);
                   free(commande);
             }              }
             else              else
             {              {
                 /* Fichiers indexés : panique totale ! */                  /* Fichiers indexés : panique totale ! */
             }              }
   
             free(chaine);  
         }          }
         else if ((*((struct_fichier *) (*s_objet_argument_1).objet)).binaire          else if ((*((struct_fichier *) (*s_objet_argument_1).objet)).binaire
                 == 'Y')                  == 'Y')
Removed from v.1.5  
changed lines
  Added in v.1.6

CVSweb interface <joel.bertrand@systella.fr>