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

Diff for /rpl/src/instructions_r4.c between versions 1.87 and 1.101

version 1.87, 2014/01/26 18:21:33 version 1.101, 2017/01/18 15:44:22
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.17    RPL/2 (R) version 4.1.26
   Copyright (C) 1989-2014 Dr. BERTRAND Joël    Copyright (C) 1989-2017 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 1275  instruction_read(struct_processus *s_eta Line 1275  instruction_read(struct_processus *s_eta
                 indicateur_48 = test_cfsf(s_etat_processus, 48);                  indicateur_48 = test_cfsf(s_etat_processus, 48);
                 cf(s_etat_processus, 48);                  cf(s_etat_processus, 48);
   
                   (*s_etat_processus).type_en_cours = NON;
                 recherche_type(s_etat_processus);                  recherche_type(s_etat_processus);
                 free((*s_etat_processus).instruction_courante);                  free((*s_etat_processus).instruction_courante);
   
Line 1330  instruction_read(struct_processus *s_eta Line 1331  instruction_read(struct_processus *s_eta
                     return;                      return;
                 }                  }
   
                 if (alsprintf(&commande, "select data from data where "                  if (alsprintf(s_etat_processus, &commande,
                         "id = %lld", (*((integer8 *) (*s_objet_argument_2)                          "select data from data where id = %lld",
                         .objet))) < 0)                          (*((integer8 *) (*s_objet_argument_2).objet))) < 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
                             d_es_allocation_memoire;                              d_es_allocation_memoire;
Line 1429  instruction_read(struct_processus *s_eta Line 1430  instruction_read(struct_processus *s_eta
                 indicateur_48 = test_cfsf(s_etat_processus, 48);                  indicateur_48 = test_cfsf(s_etat_processus, 48);
                 cf(s_etat_processus, 48);                  cf(s_etat_processus, 48);
   
                   (*s_etat_processus).type_en_cours = NON;
                 recherche_type(s_etat_processus);                  recherche_type(s_etat_processus);
   
                 if ((*s_etat_processus).erreur_execution != d_ex)                  if ((*s_etat_processus).erreur_execution != d_ex)
Line 1502  instruction_read(struct_processus *s_eta Line 1504  instruction_read(struct_processus *s_eta
   
                 // Récupération de la position de la clef                  // Récupération de la position de la clef
   
                 if (alsprintf(&commande, "select key from control "                  if (alsprintf(s_etat_processus, &commande,
                         "where id = 1") < 0)                          "select key from control where id = 1") < 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
                             d_es_allocation_memoire;                              d_es_allocation_memoire;
Line 1576  instruction_read(struct_processus *s_eta Line 1578  instruction_read(struct_processus *s_eta
   
                 // Récupération de l'identifiant de la clef                  // Récupération de l'identifiant de la clef
   
                 if (alsprintf(&commande, "select id from key where key = "                  if (alsprintf(s_etat_processus, &commande,
                         "'{ \"%s\" }'", clef_utf8) < 0)                          "select id from key where key = '{ \"%s\" }'",
                           clef_utf8) < 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
                             d_es_allocation_memoire;                              d_es_allocation_memoire;
Line 1669  instruction_read(struct_processus *s_eta Line 1672  instruction_read(struct_processus *s_eta
   
                 free(commande);                  free(commande);
   
                 if (alsprintf(&commande, "select data from data where "                  if (alsprintf(s_etat_processus, &commande,
                           "select data from data where "
                         "key_id = %lld order by sequence asc", id) < 0)                          "key_id = %lld order by sequence asc", id) < 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 1736  instruction_read(struct_processus *s_eta Line 1740  instruction_read(struct_processus *s_eta
                             indicateur_48 = test_cfsf(s_etat_processus, 48);                              indicateur_48 = test_cfsf(s_etat_processus, 48);
                             cf(s_etat_processus, 48);                              cf(s_etat_processus, 48);
   
                               (*s_etat_processus).type_en_cours = NON;
                             recherche_type(s_etat_processus);                              recherche_type(s_etat_processus);
   
                             if ((*s_etat_processus).erreur_execution != d_ex)                              if ((*s_etat_processus).erreur_execution != d_ex)
Line 1798  instruction_read(struct_processus *s_eta Line 1803  instruction_read(struct_processus *s_eta
                                     return;                                      return;
                                 }                                  }
   
                                 if (alsprintf(&tampon2, "{ \"%s\" }",                                  if (alsprintf(s_etat_processus, &tampon2,
                                         (*s_etat_processus)                                          "{ \"%s\" }", (*s_etat_processus)
                                         .instruction_courante) < 0)                                          .instruction_courante) < 0)
                                 {                                  {
                                     (*s_etat_processus).erreur_systeme =                                      (*s_etat_processus).erreur_systeme =
Line 1814  instruction_read(struct_processus *s_eta Line 1819  instruction_read(struct_processus *s_eta
                                 indicateur_48 = test_cfsf(s_etat_processus, 48);                                  indicateur_48 = test_cfsf(s_etat_processus, 48);
                                 cf(s_etat_processus, 48);                                  cf(s_etat_processus, 48);
   
                                   (*s_etat_processus).type_en_cours = NON;
                                 recherche_type(s_etat_processus);                                  recherche_type(s_etat_processus);
   
                                 if ((*s_etat_processus).erreur_execution                                  if ((*s_etat_processus).erreur_execution
Line 2056  instruction_read(struct_processus *s_eta Line 2062  instruction_read(struct_processus *s_eta
                         return;                          return;
                     }                      }
   
                     if ((format_chaine = conversion_majuscule((unsigned char *)                      if ((format_chaine = conversion_majuscule(
                               s_etat_processus, (unsigned char *)
                             (*(*l_element_courant_format).donnee).objet))                              (*(*l_element_courant_format).donnee).objet))
                             == NULL)                              == NULL)
                     {                      {
Line 2156  instruction_read(struct_processus *s_eta Line 2163  instruction_read(struct_processus *s_eta
                                 }                                  }
                             }                              }
                         }                          }
                           else
                           {
                               // Évite un warning de gcc.
                               longueur_questure = 0;
                               index = 0;
                               timeout = 0;
                           }
   
                         do                          do
                         {                          {
Line 2755  instruction_read(struct_processus *s_eta Line 2769  instruction_read(struct_processus *s_eta
             indicateur_48 = test_cfsf(s_etat_processus, 48);              indicateur_48 = test_cfsf(s_etat_processus, 48);
             cf(s_etat_processus, 48);              cf(s_etat_processus, 48);
   
               (*s_etat_processus).type_en_cours = NON;
             recherche_type(s_etat_processus);              recherche_type(s_etat_processus);
   
             if ((*s_etat_processus).erreur_execution != d_ex)              if ((*s_etat_processus).erreur_execution != d_ex)
Removed from v.1.87  
changed lines
  Added in v.1.101

CVSweb interface <joel.bertrand@systella.fr>