Diff for /rpl/src/rpl.c between versions 1.9 and 1.12

version 1.9, 2010/03/04 10:09:31 version 1.12, 2010/03/06 18:29:07
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.11    RPL/2 (R) version 4.0.12
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2010 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 31 Line 31
 */  */
   
 int  int
 rplinit(int argc, char *argv[], unsigned char ***resultats)  rplinit(int argc, char *argv[], unsigned char ***resultats, char *rpl_home)
 {  {
 #   include                             "copyright.conv.h"  #   include                             "copyright.conv.h"
 #   include                             "licence.conv.h"  #   include                             "licence.conv.h"
Line 126  rplinit(int argc, char *argv[], unsigned Line 126  rplinit(int argc, char *argv[], unsigned
     (*s_etat_processus).erreur_systeme = d_es;      (*s_etat_processus).erreur_systeme = d_es;
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
       (*s_etat_processus).rpl_home = rpl_home;
   
     insertion_thread(s_etat_processus, d_vrai);      insertion_thread(s_etat_processus, d_vrai);
   
     pthread_mutexattr_init(&attributs_mutex);      pthread_mutexattr_init(&attributs_mutex);
Line 3188  rplinit(int argc, char *argv[], unsigned Line 3190  rplinit(int argc, char *argv[], unsigned
                         fclose((*((struct_descripteur_fichier *)                          fclose((*((struct_descripteur_fichier *)
                                 (*((struct_liste_chainee *)                                  (*((struct_liste_chainee *)
                                 l_element_courant)).donnee))                                  l_element_courant)).donnee))
                                 .descripteur);                                  .descripteur_c);
   
                           if ((*((struct_descripteur_fichier *)
                                   (*((struct_liste_chainee *)
                                   l_element_courant)).donnee)).type != 'C')
                           {
                               sqlite3_close((*((struct_descripteur_fichier *)
                                       (*((struct_liste_chainee *)
                                       l_element_courant)).donnee))
                                       .descripteur_sqlite);
                           }
   
                         if ((*((struct_descripteur_fichier *)                          if ((*((struct_descripteur_fichier *)
                                 (*((struct_liste_chainee *)                                  (*((struct_liste_chainee *)

Removed from v.1.9  
changed lines
  Added in v.1.12


CVSweb interface <joel.bertrand@systella.fr>