--- rpl/src/rpl.h	2017/06/29 14:54:42	1.306
+++ rpl/src/rpl.h	2018/05/30 16:50:13	1.319
@@ -1,8 +1,7 @@
-#define DEBUG_ERREURS
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.27
-  Copyright (C) 1989-2017 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.29
+  Copyright (C) 1989-2018 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -93,10 +92,10 @@
 #include <stdarg.h>
 #include <poll.h>
 #include <signal.h>
+#include <sys/time.h>
 
 #ifndef RPLARGS
 #	include <sys/mman.h>
-#	include <sys/time.h>
 #	include <sys/resource.h>
 #	include <sys/select.h>
 #	include <sys/socket.h>
@@ -105,6 +104,7 @@
 #	include <sys/types.h>
 #	include <sys/un.h>
 #	include <sys/wait.h>
+#	include <omp.h>
 
 #	include <arpa/inet.h>
 #	include <netinet/in.h>
@@ -629,9 +629,9 @@ union semun
 	} while(0)
 
 #ifdef __GLIBC__
-#include <execinfo.h>
-#define __BACKTRACE
-#define BACKTRACE(n) \
+#	include <execinfo.h>
+#	define __BACKTRACE
+#	define BACKTRACE(n) \
 	do \
 	{ \
 		void    		*buffer[n]; \
@@ -656,7 +656,7 @@ union semun
 		pthread_mutex_unlock(&mutex); \
 	} while(0)
 #else
-#define BACKTRACE(n) NOTICE("BACKTRACE only defined in glibc")
+#	define BACKTRACE(n) NOTICE("BACKTRACE only defined in glibc")
 #endif
 
 #ifdef __BACKTRACE
@@ -702,23 +702,29 @@ pid_t debug_fork();
 #endif
 
 #ifdef DEBUG_RETURN
-#define return uprintf("[%d] Return from <%s()> at line #%d " \
+#	define return uprintf("[%d] Return from <%s()> at line #%d " \
 		"(%s [%d])\n", (int) getpid(), __FUNCTION__, \
 		__LINE__, strerror(errno), errno); fflush(stdout); errno = 0; return
 #endif
 
 #ifdef DEBUG_MUTEX
-#define pthread_mutex_lock(mutex) uprintf("[%d-%llu] Mutex %s (%p) " \
+#	define pthread_mutex_lock(mutex) uprintf("[%d-%llu] Mutex %s (%p) " \
 		"locking at %s() " \
 		"line #%d\n", (int) getpid(), (unsigned long long) pthread_self(), \
 		#mutex, mutex, __FUNCTION__, __LINE__), fflush(stdout), \
 		pthread_mutex_lock(mutex)
-#define pthread_mutex_unlock(mutex) uprintf("[%d-%llu] Mutex %s (%p) " \
+#	define pthread_mutex_unlock(mutex) uprintf("[%d-%llu] Mutex %s (%p) " \
 		"unlocking at " \
 		"%s() line #%d\n", (int) getpid(), (unsigned long long) \
 		pthread_self(), #mutex, mutex, __FUNCTION__, __LINE__), \
 		fflush(stdout), \
 		pthread_mutex_unlock(mutex)
+#	define pthread_mutex_trylock(mutex) uprintf("[%d-%llu] Mutex %s (%p) " \
+		"trylocking at " \
+		"%s() line #%d\n", (int) getpid(), (unsigned long long) \
+		pthread_self(), #mutex, mutex, __FUNCTION__, __LINE__), \
+		fflush(stdout), \
+		pthread_mutex_trylock(mutex)
 #endif
 
 
@@ -1015,6 +1021,8 @@ pid_t debug_fork();
 #	define d_ex_chiffrement_indisponible		__erreur(90)
 #	define d_ex_longueur_clef_chiffrement		__erreur(91)
 #	define d_ex_taille_message					__erreur(92)
+#	define d_ex_type_externe_dup				__erreur(93)
+#	define d_ex_type_externe_drop				__erreur(94)
 #endif
 
 
@@ -1778,6 +1786,7 @@ typedef struct instruction_externe
 	unsigned char		*nom;
 	unsigned char		*nom_bibliotheque;
 	void				*descripteur_bibliotheque;
+	integer8			position_fleche;
 } struct_instruction_externe;
 
 
@@ -2483,8 +2492,8 @@ typedef struct processus
 			variables_tableau_noeuds_partages)
 
 	CACHE2(struct_buffer, enveloppes_buffers)
-	unsigned char		***cache_buffer;
-	int					*pointeur_cache_buffer;
+	unsigned char				***cache_buffer;
+	int							*pointeur_cache_buffer;
 } struct_processus;
 #endif
 
@@ -2794,6 +2803,7 @@ void instruction_mtxtrylock(struct_proce
 void instruction_mtxunlock(struct_processus *s_etat_processus);
 void instruction_multiplication(struct_processus *s_etat_processus);
 
+void instruction_nbrcpus(struct_processus *s_etat_prorcessus);
 void instruction_ne(struct_processus *s_etat_processus);
 void instruction_neg(struct_processus *s_etat_processus);
 void instruction_next(struct_processus *s_etat_processus);
@@ -3337,8 +3347,10 @@ struct_liste_chainee *sauvegarde_argumen
 #ifndef RPLARGS
 unsigned char *analyse_algebrique(struct_processus *s_etat_processus,
 		unsigned char *chaine_algebrique, struct_liste_chainee **l_base_liste);
+#endif
 unsigned char *analyse_flux(struct_processus *s_etat_processus,
 		unsigned char *flux, integer8 longueur);
+#ifndef RPLARGS
 unsigned char *chiffrement(struct_processus *s_etat_processus,
 		const EVP_CIPHER *type_chiffrement,
 		logical1 encodage, unsigned char *message, integer8 longueur_message,
@@ -3361,8 +3373,10 @@ unsigned char *formateur_fichier(struct_
 		integer8 longueur, integer8 longueur_champ, unsigned char format,
 		unsigned char type, integer8 *longueur_effective, integer8 *recursivite,
 		logical1 export_fichier);
+#endif
 unsigned char *formateur_flux(struct_processus *s_etat_processus,
 		unsigned char *donnees, integer8 *longueur);
+#ifndef RPLARGS
 unsigned char *formateur_fichier_nombre(struct_processus *s_etat_processus,
 		void *valeur_numerique, unsigned char type,
 		integer8 longueur, integer8 longueur_champ, unsigned char format);
@@ -3446,7 +3460,8 @@ logical1 retrait_variable_statique(struc
 logical1 retrait_variables_statiques_locales(
 		struct_processus *s_etat_processus);
 logical1 sequenceur(struct_processus *s_etat_processus);
-logical1 sequenceur_optimise(struct_processus *s_etat_processus);
+logical1 sequenceur_optimise(struct_processus *s_etat_processus,
+		struct_liste_chainee *l_bibliotheques);
 #endif
 
 /*