--- rpl/src/rpl.h	2012/12/18 10:20:24	1.188
+++ rpl/src/rpl.h	2013/03/06 10:05:09	1.204
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.11
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -19,7 +19,6 @@
 ================================================================================
 */
 
-
 #ifndef INCLUSION_RPL
 #define INCLUSION_RPL
 
@@ -165,6 +164,40 @@
 #	include "iconv.h"
 
 #	include "openssl/evp.h"
+#	ifndef OPENSSL_NO_MD2
+#		include "openssl/md2.h"
+#	endif
+#	ifndef OPENSSL_NO_MD4
+#		include "openssl/md4.h"
+#	endif
+#	ifndef OPENSSL_NO_MD5
+#		include "openssl/md5.h"
+#	endif
+#	ifndef OPENSSL_NO_MDC2
+#		include "openssl/mdc2.h"
+#	endif
+#	ifndef OPENSSL_NO_RIPEMD
+#		include "openssl/ripemd.h"
+#	endif
+#	ifndef OPENSSL_NO_SHA
+#		include "openssl/sha.h"
+#	endif
+#	ifndef OPENSSL_NO_WHIRLPOOL
+#		include "openssl/whrlpool.h"
+#	endif
+#	ifndef OPENSSL_NO_AES
+#		include "openssl/aes.h"
+#	endif
+#	ifndef OPENSSL_NO_CAMELLIA
+#		include "openssl/camellia.h"
+#	endif
+#	ifndef OPENSSL_NO_RC2
+#		include "openssl/rc2.h"
+#	endif
+#	ifndef OPENSSL_NO_IDEA
+#		include "openssl/idea.h"
+#	endif
+
 #	include "sqlite3.h"
 #	include "sigsegv.h"
 #	ifdef OS2
@@ -745,7 +778,7 @@ pid_t debug_fork();
   Erreurs système
 --------------------------------------------------------------------------------
 */
-#define DEBUG_ERREURS
+
 #ifdef DEBUG_ERREURS
 #	ifdef MESSAGES
 #		define __erreur(i)	i
@@ -929,6 +962,10 @@ pid_t debug_fork();
 #	define d_ex_mutex_acquis_autre_thread		__erreur(86)
 #	define d_ex_expression_reguliere			__erreur(87)
 #	define d_ex_instruction_indisponible		__erreur(88)
+#	define d_ex_chiffrement						__erreur(89)
+#	define d_ex_chiffrement_indisponible		__erreur(90)
+#	define d_ex_longueur_clef_chiffrement		__erreur(91)
+#	define d_ex_taille_message					__erreur(92)
 #endif
 
 
@@ -1227,6 +1264,7 @@ typedef struct connecteur_sql
 #		ifdef POSTGRESQL_SUPPORT
 			PGconn				*postgresql;
 #		endif
+		sqlite3					*sqlite;
 	} descripteur;
 } struct_connecteur_sql;
 #endif
@@ -1240,6 +1278,10 @@ typedef struct connecteur_sql
 			"POSTGRESQL") == 0) \
 		postgresqlclose((*((struct_connecteur_sql *) (*s_objet).objet)) \
 				.descripteur); \
+	else if (strcmp((*((struct_connecteur_sql *) (*s_objet).objet)).type, \
+			"SQLITE") == 0) \
+		sqlite3_close((*((struct_connecteur_sql *) (*s_objet).objet)) \
+				.descripteur.sqlite); \
 	else \
 		BUG(1, uprintf("SQL type '%s' not allowed!", \
 				(*((struct_connecteur_sql *) (*s_objet).objet)).type));
@@ -1446,8 +1488,6 @@ typedef struct liste_pile_systeme
 {
 	struct liste_pile_systeme	*suivant;
 
-	struct_liste_chainee		*pointeur_objet_retour;
-
 	struct_objet				*indice_boucle;
 	struct_objet				*limite_indice_boucle;
 	struct_objet				*objet_de_test;
@@ -1503,7 +1543,7 @@ typedef struct liste_pile_systeme
 
 	unsigned long				adresse_retour;
 	unsigned long				niveau_courant;
-	struct_objet				*pointeur_adresse_retour;
+	struct_liste_chainee		*pointeur_objet_retour;
 } struct_liste_pile_systeme;
 #endif
 
@@ -2419,6 +2459,7 @@ void instruction_ceil(struct_processus *
 void instruction_centr(struct_processus *s_etat_processus);
 void instruction_cf(struct_processus *s_etat_processus);
 void instruction_chr(struct_processus *s_etat_processus);
+void instruction_cipher(struct_processus *s_etat_processus);
 void instruction_clear(struct_processus *s_etat_processus);
 void instruction_cllcd(struct_processus *s_etat_processus);
 void instruction_clmf(struct_processus *s_etat_processus);
@@ -2479,6 +2520,7 @@ void instruction_detach(struct_processus
 void instruction_dft(struct_processus *s_etat_processus);
 void instruction_dgtiz(struct_processus *s_etat_processus);
 void instruction_diag_fleche(struct_processus *s_etat_processus);
+void instruction_digest(struct_processus *s_etat_processus);
 void instruction_disp(struct_processus *s_etat_processus);
 void instruction_division(struct_processus *s_etat_processus);
 void instruction_do(struct_processus *s_etat_processus);
@@ -3174,8 +3216,11 @@ unsigned char *analyse_algebrique(struct
 		unsigned char *chaine_algebrique, struct_liste_chainee **l_base_liste);
 unsigned char *analyse_flux(struct_processus *s_etat_processus,
 		unsigned char *flux, long longueur);
-unsigned char *recherche_chemin_fichiers_temporaires(struct_processus
-		*s_etat_processus);
+unsigned char *chiffrement(const EVP_CIPHER *type_chiffrement,
+		logical1 encodage, unsigned char *message, unsigned int
+		longueur_message, unsigned char *clef, unsigned int longueur_clef,
+		unsigned char *vecteur_initialisation,
+		unsigned int *longueur_message_chiffre);
 unsigned char *compactage(unsigned char *chaine);
 unsigned char *conversion_majuscule(unsigned char *chaine);
 unsigned char *creation_nom_fichier(struct_processus *s_etat_processus,
@@ -3208,6 +3253,8 @@ unsigned char *messages(struct_processus
 unsigned char *pointeur_ieme_caractere(struct_processus *s_etat_processus,
 		unsigned char *chaine, integer8 position);
 unsigned char *purification_chaine(unsigned char *chaine);
+unsigned char *recherche_chemin_fichiers_temporaires(struct_processus
+		*s_etat_processus);
 unsigned char *reencodage(struct_processus *s_etat_processus,
 		unsigned char *chaine_entree, unsigned char *codage_entree,
 		unsigned char *codage_sortie);