--- rpl/src/rpl.c	2011/09/21 09:09:01	1.94
+++ rpl/src/rpl.c	2011/11/30 09:28:38	1.101
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.3
+  RPL/2 (R) version 4.1.5
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -31,12 +31,15 @@
 */
 
 int
-rplinit(int argc, char *argv[], unsigned char ***resultats, char *rpl_home)
+rplinit(int argc, char *argv[], char *envp[],
+		unsigned char ***resultats, char *rpl_home)
 {
 #	include								"copyright-conv.h"
 #	include								"licence-conv.h"
 
+#	ifdef HAVE_STACK_OVERFLOW_RECOVERY
 	char								pile_signaux[SIGSTKSZ];
+#	endif
 
 	file								*f_source;
 
@@ -180,6 +183,10 @@ rplinit(int argc, char *argv[], unsigned
 	(*s_etat_processus).erreur_systeme = d_es;
 	(*s_etat_processus).erreur_execution = d_ex;
 
+	(*s_etat_processus).argc = argc;
+	(*s_etat_processus).argv = argv;
+	(*s_etat_processus).envp = envp;
+
 	(*s_etat_processus).rpl_home = rpl_home;
 
 	pthread_mutexattr_init(&attributs_mutex);
@@ -2755,16 +2762,6 @@ rplinit(int argc, char *argv[], unsigned
 					l_element_courant = (*s_etat_processus).liste_mutexes;
 					while(l_element_courant != NULL)
 					{
-						pthread_mutex_trylock(&((*((struct_mutex *)
-								(*(*((struct_liste_chainee *)
-								l_element_courant)).donnee).objet)).mutex));
-						pthread_mutex_unlock(&((*((struct_mutex *)
-								(*(*((struct_liste_chainee *)
-								l_element_courant)).donnee).objet)).mutex));
-						pthread_mutex_destroy(&((*((struct_mutex *)
-								(*(*((struct_liste_chainee *)
-								l_element_courant)).donnee).objet)).mutex));
-
 						liberation(s_etat_processus,
 								(*((struct_liste_chainee *)
 								l_element_courant)).donnee);
@@ -3647,4 +3644,72 @@ informations(struct_processus *s_etat_pr
 	return;
 }
 
+
+logical1
+controle_integrite(struct_processus *s_etat_processus,
+		unsigned char *executable_candidat, unsigned char *executable)
+{
+	unsigned char		*md5;
+	unsigned char		*sha1;
+
+	if (strcmp(executable, "rplpp") == 0)
+	{
+		md5 = rplpp_md5;
+		sha1 = rplpp_sha1;
+	}
+	else if (strcmp(executable, "rplfile") == 0)
+	{
+		md5 = rplfile_md5;
+		sha1 = rplfile_sha1;
+	}
+	else if (strcmp(executable, "rpliconv") == 0)
+	{
+		md5 = rpliconv_md5;
+		sha1 = rpliconv_sha1;
+	}
+	else if (strcmp(executable, "rplawk") == 0)
+	{
+		md5 = rplawk_md5;
+		sha1 = rplawk_sha1;
+	}
+	else if (strcmp(executable, "rplconvert") == 0)
+	{
+		md5 = rplconvert_md5;
+		sha1 = rplconvert_sha1;
+	}
+	else
+	{
+		return(d_faux);
+	}
+
+	if (controle(s_etat_processus, executable_candidat, "md5", md5) != d_vrai)
+	{
+		return(d_faux);
+	}
+
+	if (controle(s_etat_processus, executable_candidat, "sha1", sha1) != d_vrai)
+	{
+		return(d_faux);
+	}
+
+	return(d_vrai);
+}
+
+
+unsigned char *
+date_compilation()
+{
+	unsigned char		*date;
+
+	if ((date = malloc((strlen(d_date_en_rpl) + 1) * sizeof(unsigned char)))
+			== NULL)
+	{
+		return(NULL);
+	}
+
+	strcpy(date, d_date_en_rpl);
+
+	return(date);
+}
+
 // vim: ts=4