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 *) |