--- rpl/src/rpl.h	2013/03/20 22:24:37	1.212
+++ rpl/src/rpl.h	2013/03/26 11:06:14	1.218
@@ -164,6 +164,7 @@
 #	include "readline.h"
 #	include "termcap.h"
 #	include "iconv.h"
+#	include "zlib.h"
 
 #	include "openssl/evp.h"
 #	ifndef OPENSSL_NO_MD2
@@ -1220,7 +1221,7 @@ typedef struct bibliotheque
 #ifndef RPLARGS
 typedef struct descripteur_fichier
 {
-	unsigned long				identifiant;
+	int							identifiant;
 
 	unsigned char				effacement;
 	unsigned char				type; // C (file *) ou S (sqlite *)
@@ -1806,7 +1807,7 @@ typedef struct arbre_variables_partagees
 	do { \
 		pthread_mutexattr_t		attributs_mutex; \
 		pthread_mutexattr_init(&attributs_mutex); \
-		pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL); \
+		pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE); \
 		pthread_mutex_init(&(mutex), &attributs_mutex); \
 		pthread_mutexattr_destroy(&attributs_mutex); \
 	} while(0)
@@ -1823,6 +1824,7 @@ typedef struct tableau_variables
 
 	logical1				variable_verrouillee;
 	logical1				variable_masquee;
+	pthread_mutex_t			*mutex;
 	union_position_variable	variable_statique;
 	union_position_variable	variable_partagee;
 } struct_tableau_variables;
@@ -2482,6 +2484,7 @@ void instruction_col_fleche(struct_proce
 void instruction_col_moins(struct_processus *s_etat_processus);
 void instruction_col_plus(struct_processus *s_etat_processus);
 void instruction_comb(struct_processus *s_etat_processus);
+void instruction_compress(struct_processus *s_etat_processus);
 void instruction_con(struct_processus *s_etat_processus);
 void instruction_cond(struct_processus *s_etat_processus);
 void instruction_cont(struct_processus *s_etat_processus);
@@ -2908,6 +2911,7 @@ void instruction_t_vers_l(struct_process
 
 void instruction_ucase(struct_processus *s_etat_processus);
 void instruction_uchol(struct_processus *s_etat_processus);
+void instruction_uncompress(struct_processus *s_etat_processus);
 void instruction_unlock(struct_processus *s_etat_processus);
 void instruction_unprotect(struct_processus *s_etat_processus);
 void instruction_until(struct_processus *s_etat_processus);