Diff for /rpl/src/gestion_fichiers.c between versions 1.57 and 1.77

version 1.57, 2014/04/25 07:37:29 version 1.77, 2020/01/10 11:15:42
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.18    RPL/2 (R) version 4.1.32
   Copyright (C) 1989-2014 Dr. BERTRAND Joël    Copyright (C) 1989-2020 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 450  initialisation_controle(struct_processus Line 450  initialisation_controle(struct_processus
   
     unsigned char           *commande;      unsigned char           *commande;
   
     if (sqlite3_prepare_v2(sqlite, commande1, strlen(commande1), &ppStmt,      if (sqlite3_prepare_v2(sqlite, commande1, (int) strlen(commande1), &ppStmt,
             &queue) != SQLITE_OK)              &queue) != SQLITE_OK)
     {      {
         (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;          (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 471  initialisation_controle(struct_processus Line 471  initialisation_controle(struct_processus
   
     if (fichier_indexe == d_vrai)      if (fichier_indexe == d_vrai)
     {      {
         if (alsprintf(&commande, commande2, position_clef) < 0)          if (alsprintf(s_etat_processus, &commande, commande2, position_clef)
                   < 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             return(d_erreur);              return(d_erreur);
Line 535  initialisation_fichier_acces_indexe(stru Line 536  initialisation_fichier_acces_indexe(stru
   
     if (binaire == d_faux)      if (binaire == d_faux)
     {      {
         if (sqlite3_prepare_v2(sqlite, commande1, strlen(commande1), &ppStmt,          if (sqlite3_prepare_v2(sqlite, commande1, (int) strlen(commande1),
                 &queue) != SQLITE_OK)                  &ppStmt, &queue) != SQLITE_OK)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;              (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
             return(d_erreur);              return(d_erreur);
Line 554  initialisation_fichier_acces_indexe(stru Line 555  initialisation_fichier_acces_indexe(stru
             return(d_erreur);              return(d_erreur);
         }          }
   
         if (sqlite3_prepare_v2(sqlite, commande10, strlen(commande10), &ppStmt,          if (sqlite3_prepare_v2(sqlite, commande10, (int) strlen(commande10),
                 &queue) != SQLITE_OK)                  &ppStmt, &queue) != SQLITE_OK)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;              (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
             return(d_erreur);              return(d_erreur);
Line 575  initialisation_fichier_acces_indexe(stru Line 576  initialisation_fichier_acces_indexe(stru
     }      }
     else      else
     {      {
         if (sqlite3_prepare_v2(sqlite, commande2, strlen(commande2), &ppStmt,          if (sqlite3_prepare_v2(sqlite, commande2, (int) strlen(commande2),
                 &queue) != SQLITE_OK)                  &ppStmt, &queue) != SQLITE_OK)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;              (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
             return(d_erreur);              return(d_erreur);
Line 594  initialisation_fichier_acces_indexe(stru Line 595  initialisation_fichier_acces_indexe(stru
             return(d_erreur);              return(d_erreur);
         }          }
   
         if (sqlite3_prepare_v2(sqlite, commande20, strlen(commande20), &ppStmt,          if (sqlite3_prepare_v2(sqlite, commande20, (int) strlen(commande20),
                 &queue) != SQLITE_OK)                  &ppStmt, &queue) != SQLITE_OK)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;              (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
             return(d_erreur);              return(d_erreur);
Line 614  initialisation_fichier_acces_indexe(stru Line 615  initialisation_fichier_acces_indexe(stru
         }          }
     }      }
   
     if (sqlite3_prepare_v2(sqlite, commande3, strlen(commande3), &ppStmt,      if (sqlite3_prepare_v2(sqlite, commande3, (int) strlen(commande3), &ppStmt,
             &queue) != SQLITE_OK)              &queue) != SQLITE_OK)
     {      {
         (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;          (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 633  initialisation_fichier_acces_indexe(stru Line 634  initialisation_fichier_acces_indexe(stru
         return(d_erreur);          return(d_erreur);
     }      }
   
     if (sqlite3_prepare_v2(sqlite, commande4, strlen(commande4), &ppStmt,      if (sqlite3_prepare_v2(sqlite, commande4, (int) strlen(commande4), &ppStmt,
             &queue) != SQLITE_OK)              &queue) != SQLITE_OK)
     {      {
         (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;          (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 677  initialisation_fichier_acces_direct(stru Line 678  initialisation_fichier_acces_direct(stru
   
     if (binaire == d_faux)      if (binaire == d_faux)
     {      {
         if (sqlite3_prepare_v2(sqlite, commande1, strlen(commande1), &ppStmt,          if (sqlite3_prepare_v2(sqlite, commande1, (int) strlen(commande1),
                 &queue) != SQLITE_OK)                  &ppStmt, &queue) != SQLITE_OK)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;              (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
             return(d_erreur);              return(d_erreur);
Line 698  initialisation_fichier_acces_direct(stru Line 699  initialisation_fichier_acces_direct(stru
     }      }
     else      else
     {      {
         if (sqlite3_prepare_v2(sqlite, commande2, strlen(commande2), &ppStmt,          if (sqlite3_prepare_v2(sqlite, commande2, (int) strlen(commande2),
                 &queue) != SQLITE_OK)                  &ppStmt, &queue) != SQLITE_OK)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;              (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
             return(d_erreur);              return(d_erreur);
Line 718  initialisation_fichier_acces_direct(stru Line 719  initialisation_fichier_acces_direct(stru
         }          }
     }      }
   
     if (sqlite3_prepare_v2(sqlite, commande3, strlen(commande3), &ppStmt,      if (sqlite3_prepare_v2(sqlite, commande3, (int) strlen(commande3), &ppStmt,
             &queue) != SQLITE_OK)              &queue) != SQLITE_OK)
     {      {
         (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;          (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;

Removed from v.1.57  
changed lines
  Added in v.1.77


CVSweb interface <joel.bertrand@systella.fr>