--- rpl/src/chainage.c	2010/01/26 15:22:45	1.1.1.1
+++ rpl/src/chainage.c	2010/08/26 19:07:34	1.18
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.9
+  RPL/2 (R) version 4.0.19
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -20,13 +20,13 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
 ================================================================================
-  Routine de chainage du programme (lecture du fichier puis constitution
-  de la chaine executable)
+  Routine de chaînage du programme (lecture du fichier puis constitution
+  de la chaîne exécutable)
 ================================================================================
   Entrées: structure processus
 --------------------------------------------------------------------------------
@@ -56,13 +56,27 @@ chainage(struct_processus *s_etat_proces
 	long					nombre_caracteres_source;
 
 	unsigned char			*commande;
+	unsigned char			*executable_candidat;
+
+#	ifndef OS2
 	unsigned char			*instructions = "sed -e '1,1s/^#!/\\/\\//g' %s | "
 									"%s/bin/%s | "
 									"%s/bin/rpliconv `%s/bin/rplfile "
 									"-m %s/share/rplfiles -i %s | awk "
 									"'{ print $3; }' | awk -F= "
 									"'{ if ($2 != \"\") printf(\"-f %%s\", "
-									"$2); }'` -t `locale charmap`//IGNORE > %s";
+									"$2); }'` -t %s//IGNORE > %s";
+#	else
+	unsigned char			*instructions = "sh -c \""
+									"sed -e '1,1s/^#!/\\/\\//g' %s | "
+									"%s/bin/%s | "
+									"%s/bin/rpliconv `%s/bin/rplfile "
+									"-m %s/share/rplfiles -i %s | awk "
+									"'{ print $3; }' | awk -F= "
+									"'{ if ($2 != \\\"\\\") "
+									"printf(\\\"-f %%s\\\", "
+									"$2); }'` -t %s//IGNORE\" > %s";
+#	endif
 
 	unsigned long			unite_fichier;
 
@@ -99,22 +113,189 @@ chainage(struct_processus *s_etat_proces
 			return(d_erreur);
 		}
 
-		if ((commande = (unsigned char *) malloc((strlen(ds_preprocesseur) +
-				(2 * strlen((*s_etat_processus).nom_fichier_source)) +
-				(4 * strlen(d_exec_path)) +
-				strlen(nom_fichier_temporaire) + strlen(instructions) - 11) *
-				sizeof(unsigned char))) == NULL)
+		// Avant d'exécuter la commande, on teste les sommes de hashage
+		// des utilitaires de la famille RPL/2.
+
+		if ((*s_etat_processus).rpl_home == NULL)
 		{
-			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+			if ((commande = (unsigned char *) malloc((strlen(ds_preprocesseur) +
+					(2 * strlen((*s_etat_processus).nom_fichier_source)) +
+					(4 * strlen(d_exec_path)) + strlen(d_locale) +
+					strlen(nom_fichier_temporaire) + strlen(instructions) - 13)
+					* sizeof(unsigned char))) == NULL)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+
+				free(nom_fichier_temporaire);
+				return(d_erreur);
+			}
+
+			sprintf(commande, instructions,
+					(*s_etat_processus).nom_fichier_source,
+					d_exec_path, ds_preprocesseur, d_exec_path, d_exec_path,
+					d_exec_path, (*s_etat_processus).nom_fichier_source,
+					d_locale, nom_fichier_temporaire);
+
+			if (alsprintf(&executable_candidat, "%s/bin/rpliconv",
+					d_exec_path) < 0)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return(d_erreur);
+			}
+
+			if (controle(s_etat_processus, executable_candidat, "md5",
+					rpliconv_md5) != d_vrai)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_somme_controle;
+				return(d_erreur);
+			}
+
+			if (controle(s_etat_processus, executable_candidat, "sha1",
+					rpliconv_sha1) != d_vrai)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_somme_controle;
+				return(d_erreur);
+			}
+
+			free(executable_candidat);
+
+			if (alsprintf(&executable_candidat, "%s/bin/rplfile",
+					d_exec_path) < 0)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return(d_erreur);
+			}
+
+			if (controle(s_etat_processus, executable_candidat, "md5",
+					rplfile_md5) != d_vrai)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_somme_controle;
+				return(d_erreur);
+			}
+
+			if (controle(s_etat_processus, executable_candidat, "sha1",
+					rplfile_sha1) != d_vrai)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_somme_controle;
+				return(d_erreur);
+			}
+
+			free(executable_candidat);
+
+			if (alsprintf(&executable_candidat, "%s/bin/rplpp",
+					d_exec_path) < 0)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return(d_erreur);
+			}
+
+			if (controle(s_etat_processus, executable_candidat, "md5",
+					rplpp_md5) != d_vrai)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_somme_controle;
+				return(d_erreur);
+			}
+
+			if (controle(s_etat_processus, executable_candidat, "sha1",
+					rplpp_sha1) != d_vrai)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_somme_controle;
+				return(d_erreur);
+			}
 
-			free(nom_fichier_temporaire);
-			return(d_erreur);
+			free(executable_candidat);
 		}
+		else
+		{
+			if ((commande = (unsigned char *) malloc((strlen(ds_preprocesseur) +
+					(2 * strlen((*s_etat_processus).nom_fichier_source)) +
+					(4 * strlen((*s_etat_processus).rpl_home)) +
+					strlen(nom_fichier_temporaire) + strlen(instructions) - 11)
+					* sizeof(unsigned char))) == NULL)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+
+				free(nom_fichier_temporaire);
+				return(d_erreur);
+			}
+
+			sprintf(commande, instructions,
+					(*s_etat_processus).nom_fichier_source,
+					(*s_etat_processus).rpl_home, ds_preprocesseur,
+					(*s_etat_processus).rpl_home, (*s_etat_processus).rpl_home,
+					(*s_etat_processus).rpl_home,
+					(*s_etat_processus).nom_fichier_source,
+					nom_fichier_temporaire);
+
+			if (alsprintf(&executable_candidat, "%s/bin/rpliconv",
+					(*s_etat_processus).rpl_home) < 0)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return(d_erreur);
+			}
+
+			if (controle(s_etat_processus, executable_candidat, "md5",
+					rpliconv_md5) != d_vrai)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_somme_controle;
+				return(d_erreur);
+			}
+
+			if (controle(s_etat_processus, executable_candidat, "sha1",
+					rpliconv_sha1) != d_vrai)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_somme_controle;
+				return(d_erreur);
+			}
+
+			free(executable_candidat);
+
+			if (alsprintf(&executable_candidat, "%s/bin/rplfile",
+					(*s_etat_processus).rpl_home) < 0)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return(d_erreur);
+			}
+
+			if (controle(s_etat_processus, executable_candidat, "md5",
+					rplfile_md5) != d_vrai)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_somme_controle;
+				return(d_erreur);
+			}
+
+			if (controle(s_etat_processus, executable_candidat, "sha1",
+					rplfile_sha1) != d_vrai)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_somme_controle;
+				return(d_erreur);
+			}
+
+			free(executable_candidat);
+
+			if (alsprintf(&executable_candidat, "%s/bin/rplpp",
+					(*s_etat_processus).rpl_home) < 0)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+				return(d_erreur);
+			}
+
+			if (controle(s_etat_processus, executable_candidat, "md5",
+					rplpp_md5) != d_vrai)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_somme_controle;
+				return(d_erreur);
+			}
+
+			if (controle(s_etat_processus, executable_candidat, "sha1",
+					rplpp_sha1) != d_vrai)
+			{
+				(*s_etat_processus).erreur_systeme = d_es_somme_controle;
+				return(d_erreur);
+			}
 
-		sprintf(commande, instructions, (*s_etat_processus).nom_fichier_source,
-				d_exec_path, ds_preprocesseur, d_exec_path, d_exec_path,
-				d_exec_path, (*s_etat_processus).nom_fichier_source,
-				nom_fichier_temporaire);
+			free(executable_candidat);
+		}
 
 		if ((f_source = popen(commande, "r")) == NULL)
 		{