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

Diff for /rpl/src/instructions_d4.c between versions 1.46 and 1.81

version 1.46, 2012/12/21 12:09:50 version 1.81, 2025/04/15 10:17:52
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.12    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2012 Dr. BERTRAND Joël    Copyright (C) 1989-2025 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 310  instruction_delete(struct_processus *s_e Line 310  instruction_delete(struct_processus *s_e
                     return;                      return;
                 }                  }
   
                 if (alsprintf(&commande, "select count(*) from data where "                  if (alsprintf(s_etat_processus, &commande,
                         "id = %lld", (*((integer8 *) (*s_objet_indice).objet)))                          "select count(*) from data where id = %lld",
                         < 0)                          (*((integer8 *) (*s_objet_indice).objet))) < 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
                             d_es_allocation_memoire;                              d_es_allocation_memoire;
Line 320  instruction_delete(struct_processus *s_e Line 320  instruction_delete(struct_processus *s_e
                 }                  }
   
                 if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,                  if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
                         commande, strlen(commande), &ppStmt, &queue)                          commande, (int) strlen(commande), &ppStmt, &queue)
                         != SQLITE_OK)                          != SQLITE_OK)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;                      (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 377  instruction_delete(struct_processus *s_e Line 377  instruction_delete(struct_processus *s_e
                     return;                      return;
                 }                  }
   
                 if (alsprintf(&commande, "delete from data where id = %lld",                  if (alsprintf(s_etat_processus, &commande,
                           "delete from data where id = %lld",
                         (*((integer8 *) (*s_objet_indice).objet))) < 0)                          (*((integer8 *) (*s_objet_indice).objet))) < 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
Line 386  instruction_delete(struct_processus *s_e Line 387  instruction_delete(struct_processus *s_e
                 }                  }
   
                 if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,                  if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
                         commande, strlen(commande), &ppStmt, &queue)                          commande, (int) strlen(commande), &ppStmt, &queue)
                         != SQLITE_OK)                          != SQLITE_OK)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;                      (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 441  instruction_delete(struct_processus *s_e Line 442  instruction_delete(struct_processus *s_e
                     return;                      return;
                 }                  }
   
                 if (alsprintf(&commande, "select id from key where key = "                  if (alsprintf(s_etat_processus, &commande,
                         "'{ \"%s\" }'", utf8) < 0)                          "select id from key where key = '{ \"%s\" }'", utf8)
                           < 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
                             d_es_allocation_memoire;                              d_es_allocation_memoire;
Line 452  instruction_delete(struct_processus *s_e Line 454  instruction_delete(struct_processus *s_e
                 free(utf8);                  free(utf8);
   
                 if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,                  if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
                         commande, strlen(commande), &ppStmt, &queue)                          commande, (int) strlen(commande), &ppStmt, &queue)
                         != SQLITE_OK)                          != SQLITE_OK)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;                      (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 534  instruction_delete(struct_processus *s_e Line 536  instruction_delete(struct_processus *s_e
   
                 free(commande);                  free(commande);
   
                 if (alsprintf(&commande, "delete from data where key_id = %lld",                  if (alsprintf(s_etat_processus, &commande,
                         lecture_i64) < 0)                          "delete from data where key_id = %lld", lecture_i64)
                           < 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
                             d_es_allocation_memoire;                              d_es_allocation_memoire;
Line 543  instruction_delete(struct_processus *s_e Line 546  instruction_delete(struct_processus *s_e
                 }                  }
   
                 if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,                  if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
                         commande, strlen(commande), &ppStmt, &queue)                          commande, (int) strlen(commande), &ppStmt, &queue)
                         != SQLITE_OK)                          != SQLITE_OK)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;                      (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 565  instruction_delete(struct_processus *s_e Line 568  instruction_delete(struct_processus *s_e
   
                 free(commande);                  free(commande);
   
                 if (alsprintf(&commande, "delete from key where id = %lld",                  if (alsprintf(s_etat_processus, &commande,
                         lecture_i64) < 0)                          "delete from key where id = %lld", lecture_i64) < 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme =                      (*s_etat_processus).erreur_systeme =
                             d_es_allocation_memoire;                              d_es_allocation_memoire;
Line 574  instruction_delete(struct_processus *s_e Line 577  instruction_delete(struct_processus *s_e
                 }                  }
   
                 if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,                  if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
                         commande, strlen(commande), &ppStmt, &queue)                          commande, (int) strlen(commande), &ppStmt, &queue)
                         != SQLITE_OK)                          != SQLITE_OK)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;                      (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 710  instruction_drws(struct_processus *s_eta Line 713  instruction_drws(struct_processus *s_eta
   
     unsigned char               *nom_fichier;      unsigned char               *nom_fichier;
   
     unsigned long               j;      integer8                    j;
   
     struct_fichier_graphique    *l_fichier_courant;      struct_fichier_graphique    *l_fichier_courant;
     struct_fichier_graphique    *l_fichier_precedent;      struct_fichier_graphique    *l_fichier_precedent;
Line 853  instruction_drws(struct_processus *s_eta Line 856  instruction_drws(struct_processus *s_eta
   
             if (((*s_etat_processus).colonne_statistique_1 < 1) ||              if (((*s_etat_processus).colonne_statistique_1 < 1) ||
                     ((*s_etat_processus).colonne_statistique_2 < 1) ||                      ((*s_etat_processus).colonne_statistique_2 < 1) ||
                     ((*s_etat_processus).colonne_statistique_1 > (signed long)                      ((*s_etat_processus).colonne_statistique_1 >
                     (*((struct_matrice *) (*s_objet_statistique).objet))                      (*((struct_matrice *) (*s_objet_statistique).objet))
                     .nombre_colonnes) ||                      .nombre_colonnes) ||
                     ((*s_etat_processus).colonne_statistique_2 > (signed long)                      ((*s_etat_processus).colonne_statistique_2 >
                     (*((struct_matrice *) (*s_objet_statistique).objet))                      (*((struct_matrice *) (*s_objet_statistique).objet))
                     .nombre_colonnes))                      .nombre_colonnes))
             {              {
Removed from v.1.46  
changed lines
  Added in v.1.81

CVSweb interface <joel.bertrand@systella.fr>