--- rpl/src/rpl.h	2012/03/31 12:15:22	1.159
+++ rpl/src/rpl.h	2012/12/18 10:20:24	1.188
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.7
+  RPL/2 (R) version 4.1.11
   Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -145,9 +145,10 @@
 		int sem_close_SysV(sem_t *sem);
 		int sem_wait_SysV(sem_t *sem);
 		int sem_trywait_SysV(sem_t *sem);
+		int sem_timedwait_SysV(sem_t *sem, struct timespec *ts);
 		int sem_post_SysV(sem_t *sem);
 		int sem_getvalue_SysV(sem_t *sem, int *value);
-		int sem_unlink_SysV(const char *nom);
+		int sem_unlink_SysV(char *nom);
 		int sem_destroy_SysV(sem_t *sem);
 #	endif
 
@@ -215,12 +216,37 @@
 #	endif
 #endif
 
+#ifdef MAIN_RPL
+#	define __EXTERN__
+#	define __STATIC_MUTEX_INITIALIZATION__ = PTHREAD_MUTEX_INITIALIZER
+#else
+#	define __EXTERN__						extern
+#	define __STATIC_MUTEX_INITIALIZATION__
+#endif
+
 /*
 ================================================================================
   Bugs spécifiques
 ================================================================================
 */
 
+// Néant
+
+/*
+================================================================================
+  TYPES
+================================================================================
+*/
+
+typedef FILE					file;
+typedef unsigned char			t_8_bits;
+
+#ifndef RPLARGS
+#	include "rpltypes-conv.h"
+#else
+#	include "rpltypes.h"
+#endif
+
 enum signaux_rpl
 {
 	rpl_signull = 0,
@@ -255,13 +281,17 @@ typedef struct queue_signaux
 #	ifndef IPCS_SYSV
 #		ifndef SEMAPHORES_NOMMES
 			sem_t				semaphore;
+			sem_t				signalisation;
 #		endif
 #	else
 		sem_t					semaphore;
+		sem_t					signalisation;
 #	endif
 
 	volatile int				pointeur_lecture;
 	volatile int				pointeur_ecriture;
+	pthread_t					thread_signaux;
+	volatile logical1			requete_arret;
 
 	volatile struct
 	{
@@ -270,18 +300,12 @@ typedef struct queue_signaux
 	}							queue[LONGUEUR_QUEUE_SIGNAUX];
 } struct_queue_signaux;
 
-#	ifndef MAIN_RPL
-		extern struct_queue_signaux			*s_queue_signaux;
-		extern int							f_queue_signaux;
-#		ifdef SEMAPHORES_NOMMES
-			extern sem_t					*semaphore_queue_signaux;
-#		endif
-#	else
-		struct_queue_signaux				*s_queue_signaux;
-		int									f_queue_signaux;
-#		ifdef SEMAPHORES_NOMMES
-			sem_t							*semaphore_queue_signaux;
-#		endif
+__EXTERN__ struct_queue_signaux		*s_queue_signaux;
+__EXTERN__ int						f_queue_signaux;
+
+#	ifdef SEMAPHORES_NOMMES
+		__EXTERN__ sem_t			*semaphore_queue_signaux;
+		__EXTERN__ sem_t			*semaphore_signalisation;
 #	endif
 #endif
 
@@ -319,6 +343,7 @@ union semun
 #	define sem_destroy(a)		sem_destroy_SysV(a)
 #	define sem_wait(a)			sem_wait_SysV(a)
 #	define sem_trywait(a)		sem_trywait_SysV(a)
+#	define sem_timedwait(a, b)	sem_timedwait_SysV(a, b)
 #	define sem_post(a)			sem_post_SysV(a)
 #	define sem_getvalue(a, b)	sem_getvalue_SysV(a, b)
 #	define sem_open(...)		sem_open_SysV(__VA_ARGS__)
@@ -344,7 +369,7 @@ union semun
 //	SIGHUP
 //	SIGALRM
 
-#	define SIGTEST					SIGUSR1
+#	define SIGTEST					255
 
 //	Nombre d'interruptions disponibles
 #	define d_NOMBRE_INTERRUPTIONS	64
@@ -387,21 +412,6 @@ union semun
 
 /*
 ================================================================================
-  TYPES
-================================================================================
-*/
-
-typedef FILE					file;
-typedef unsigned char			t_8_bits;
-
-#ifndef RPLARGS
-#	include "rpltypes-conv.h"
-#else
-#	include "rpltypes.h"
-#endif
-
-/*
-================================================================================
   Variables globales
 ================================================================================
 */
@@ -411,66 +421,45 @@ typedef unsigned char			t_8_bits;
 #		define LONGUEUR_NOM_SEMAPHORE	64
 #	endif
 
-#	ifndef MAIN_RPL
-		extern jmp_buf				contexte_ecriture;
-		extern jmp_buf				contexte_impression;
-		extern jmp_buf				contexte_initial;
-		extern jmp_buf				contexte_processus;
-		extern jmp_buf				contexte_thread;
-
-		extern int					signal_test;
-
-		extern pid_t				pid_processus_pere;
-
-#		ifdef SEMAPHORES_NOMMES
-		extern pthread_mutex_t		mutex_sem;
-#		endif
-
-		extern pthread_mutex_t		mutex_liste_threads;
-		extern pthread_mutex_t		mutex_gestionnaires_signaux_atomique;
+#	ifdef SEMAPHORES_NOMMES
+#		define __PTR__		*
+#	else
+#		define __PTR__
+#	endif
 
-		extern sem_t
-#		ifdef SEMAPHORES_NOMMES
-			*
-#		endif
-									semaphore_gestionnaires_signaux;
+	__EXTERN__ jmp_buf				contexte_ecriture;
+	__EXTERN__ jmp_buf				contexte_impression;
+	__EXTERN__ jmp_buf				contexte_initial;
+	__EXTERN__ jmp_buf				contexte_processus;
+	__EXTERN__ jmp_buf				contexte_thread;
 
-		extern volatile int			routine_recursive;
-#	else
-		jmp_buf						contexte_ecriture;
-		jmp_buf						contexte_impression;
-		jmp_buf						contexte_initial;
-		jmp_buf						contexte_processus;
-		jmp_buf						contexte_thread;
+	__EXTERN__ volatile int			signal_test;
 
-		int							signal_test;
+	__EXTERN__ pid_t				pid_processus_pere;
 
-		pid_t						pid_processus_pere;
+#	ifdef SEMAPHORES_NOMMES
+	__EXTERN__ pthread_mutex_t		mutex_sem __STATIC_MUTEX_INITIALIZATION__;
+#	endif
 
-#		ifdef SEMAPHORES_NOMMES
-		pthread_mutex_t				mutex_sem = PTHREAD_MUTEX_INITIALIZER;
-#		endif
+	__EXTERN__ pthread_mutex_t		mutex_liste_threads
+											__STATIC_MUTEX_INITIALIZATION__;
+	__EXTERN__ pthread_mutex_t		mutex_gestionnaires_signaux_atomique
+											__STATIC_MUTEX_INITIALIZATION__;
+	__EXTERN__ pthread_mutex_t		mutex_creation_variable_partagee
+											__STATIC_MUTEX_INITIALIZATION__;
+	__EXTERN__ pthread_mutex_t		mutex_sections_critiques;
+	__EXTERN__ pthread_mutex_t		mutex_liste_variables_partagees;
 
-		pthread_mutex_t				mutex_liste_threads =
-											PTHREAD_MUTEX_INITIALIZER;
-		pthread_mutex_t				mutex_gestionnaires_signaux =
-											PTHREAD_MUTEX_INITIALIZER;
-		pthread_mutex_t				mutex_gestionnaires_signaux_atomique =
-											PTHREAD_MUTEX_INITIALIZER;
-		sem_t
-#		ifdef SEMAPHORES_NOMMES
-			*
-#		endif
-									semaphore_gestionnaires_signaux;
+	__EXTERN__ sem_t __PTR__		semaphore_gestionnaires_signaux;
 
-		volatile int				routine_recursive;
-#	endif
+	__EXTERN__ volatile int			routine_recursive;
 #endif
 
 #ifdef SEMAPHORES_NOMMES
 #define SEM_FORK			0
 #define	SEM_QUEUE			1
 #define	SEM_SIGNAUX			2
+#define SEM_SIGNALISATION	3
 sem_t *sem_init2(unsigned int valeur, pid_t pid, int ordre);
 sem_t *sem_init3(unsigned int valeur, pid_t pid, pthread_t tid, int ordre);
 int sem_destroy2(sem_t *semaphore_p, pid_t pid, int ordre);
@@ -522,9 +511,6 @@ sem_t *sem_open2(pid_t pid, int ordre);
 #	define fclose(...) ({ int ios; \
 	        while((ios = fclose(__VA_ARGS__)) != 0) \
 	        { if ((errno != EINTR) && (errno != 0)) break; } ios; })
-#	define fread(...) ({ int ios; \
-	        while((ios = fread(__VA_ARGS__)) < 0) \
-	        { if ((errno != EINTR) && (errno != 0)) break; } ios; })
 #	define fflush(flux) ({ int ios; \
 			while((ios = fflush((flux == stdout) ? stderr : flux)) != 0) \
 			{ if ((errno != EINTR) && (errno != 0)) break; } ios; })
@@ -759,7 +745,7 @@ pid_t debug_fork();
   Erreurs système
 --------------------------------------------------------------------------------
 */
-
+#define DEBUG_ERREURS
 #ifdef DEBUG_ERREURS
 #	ifdef MESSAGES
 #		define __erreur(i)	i
@@ -942,6 +928,7 @@ pid_t debug_fork();
 #	define d_ex_fichier_corrompu				__erreur(85)
 #	define d_ex_mutex_acquis_autre_thread		__erreur(86)
 #	define d_ex_expression_reguliere			__erreur(87)
+#	define d_ex_instruction_indisponible		__erreur(88)
 #endif
 
 
@@ -1302,6 +1289,41 @@ typedef struct liste_chainee
 
 /*
 --------------------------------------------------------------------------------
+  Structure de gestion des signaux en provenance de rplsignal
+--------------------------------------------------------------------------------
+*/
+
+#define d_NOMBRE_SIGNAUX				64
+
+typedef struct gestion_signaux
+{
+	unsigned char				masque_signaux[d_NOMBRE_SIGNAUX];
+
+	/*
+	 * 'I' : signal ignoré
+	 * 'Q' : signal mis en queue pour un traitement ultérieur
+	 * 'N' : traitement normal du signal
+	 */
+
+	integer8					queue_signaux[d_NOMBRE_SIGNAUX];
+	integer8					nombre_signaux_en_queue;
+	struct_objet				*corps_signaux[d_NOMBRE_SIGNAUX];
+
+	pthread_mutex_t				mutex;
+} struct_gestion_signaux;
+
+#ifndef MAIN_RPL
+#	define __STATIC_GESTION_SIGNAUX__
+#else
+#	define __STATIC_GESTION_SIGNAUX__ = { .mutex = PTHREAD_MUTEX_INITIALIZER }
+#endif
+
+__EXTERN__ volatile struct_gestion_signaux signaux_externes
+		__STATIC_GESTION_SIGNAUX__;
+
+
+/*
+--------------------------------------------------------------------------------
   Structure liste profilage
 --------------------------------------------------------------------------------
 */
@@ -1463,18 +1485,20 @@ typedef struct liste_pile_systeme
 
 	/*
 	type clôture :
-	C     SELECT  : END termine un test SELECT/DEFAULT/END.
-	D     DO      : END termine une boucle DO/UNTIL/END.
-	I     IF      : END termine un test IF/THEN (ELSE)/END.
-	J     IFERR   : END termine un test IFERR/THEN (ELSE)/END.
-	K     CASE    : END termine un test CASE/THEN/END
-	W     WHILE   : END termine une boucle WHILE/REPEAT/END.
+	C     SELECT   : END termine un test SELECT/DEFAULT/END.
+	D     DO       : END termine une boucle DO/UNTIL/END.
+	I     IF       : END termine un test IF/THEN (ELSE)/END.
+	J     IFERR    : END termine un test IFERR/THEN (ELSE)/END.
+	K     CASE     : END termine un test CASE/THEN/END
+	W     WHILE    : END termine une boucle WHILE/REPEAT/END.
+	Q     CRITICAL : END termine une section critique CRITICAL/END
 
 	F     FOR     : NEXT ou STEP termine une boucle avec compteur.
 	S     START   : NEXT ou STEP termine une boucle sans compteur.
 	L     LOOP    : boucle utilisé dans le traitement de l'instruction RETURN.
 	        Elle correspond à une boucle FOR ou START mais sans son
 			initialisation.
+	A     FORALL  : NEXT termine une boucle sur un objet.
 	*/
 
 	unsigned long				adresse_retour;
@@ -1500,7 +1524,7 @@ typedef union position_variable
 typedef struct variable
 {
 	unsigned char			*nom;
-	unsigned char			origine;
+	unsigned char			origine; // P(rogramme) ou E(valuation)
 
 	unsigned long			niveau;
 
@@ -1532,19 +1556,9 @@ typedef struct variable_partage
 	union_position_variable		variable_partagee;
 
 	struct_objet				*objet;
-} struct_variable_partagee;
-
-typedef struct table_variables_partagees
-{
-	pthread_mutex_t						mutex;
-
-	volatile struct_variable_partagee	*table;
 
-	volatile unsigned long				nombre_variables;
-	volatile unsigned long				nombre_variables_allouees;
-
-	unsigned long						position_variable;
-} struct_table_variables_partagees;
+	pthread_mutex_t				mutex;
+} struct_variable_partagee;
 
 #endif
 
@@ -1708,20 +1722,53 @@ typedef struct instruction
 
 /*
 --------------------------------------------------------------------------------
-  Structure d'arbre des variables variable globales et locales
+  Structure d'arbre des variables globales et locales
 --------------------------------------------------------------------------------
 */
 
 #ifndef RPLARGS
 typedef struct arbre_variables
 {
-	unsigned int			noeuds_utilises;
-	signed int				indice_tableau_pere;
-	struct arbre_variables	*noeud_pere;
-	struct arbre_variables	**noeuds;
-	struct liste_variables	*feuille;
+	unsigned int						noeuds_utilises;
+										// Nombre de noeuds utilisés dans le
+										// tableau **noeuds
+	signed int							indice_tableau_pere;
+										// Position de la structure dans le
+										// tableau **noeuds du père
+
+	struct arbre_variables				*noeud_pere;
+	struct arbre_variables				**noeuds;
+
+	struct liste_variables				*feuille;
+	struct liste_variables_statiques	*feuille_statique;
 } struct_arbre_variables;
 
+typedef struct arbre_variables_partagees
+{
+	unsigned int						noeuds_utilises;
+										// Nombre de noeuds utilisés dans le
+										// tableau **noeuds
+	signed int							indice_tableau_pere;
+										// Position de la structure dans le
+										// tableau **noeuds du père
+
+	struct arbre_variables_partagees	*noeud_pere;
+	struct arbre_variables_partagees	**noeuds;
+
+	struct liste_variables_partagees	*feuille;
+
+	pthread_mutex_t						mutex_feuille;
+} struct_arbre_variables_partagees;
+
+#define INITIALISATION_MUTEX(mutex) \
+	do { \
+		pthread_mutexattr_t		attributs_mutex; \
+		pthread_mutexattr_init(&attributs_mutex); \
+		pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL); \
+		pthread_mutex_init(&(mutex), &attributs_mutex); \
+		pthread_mutexattr_destroy(&attributs_mutex); \
+	} while(0)
+
 typedef struct tableau_variables
 {
 	unsigned char			origine;
@@ -1733,10 +1780,12 @@ typedef struct tableau_variables
 										// de l'objet.
 
 	logical1				variable_verrouillee;
+	logical1				variable_masquee;
 	union_position_variable	variable_statique;
 	union_position_variable	variable_partagee;
 } struct_tableau_variables;
 
+// La liste des variables est une liste doublement chaînée et circulaire.
 typedef struct liste_variables
 {
 	union
@@ -1753,6 +1802,27 @@ typedef struct liste_variables
 	struct liste_variables				*precedent;
 } struct_liste_variables;
 
+// La liste des variables statiques et une liste double chaînée et non
+// circulaire.
+typedef struct liste_variables_statiques
+{
+	struct liste_variables_statiques	*suivant;
+	struct liste_variables_statiques	*precedent;
+	struct liste_variables_statiques	*reference;
+	struct_arbre_variables				*feuille;
+	struct_variable_statique			*variable;
+} struct_liste_variables_statiques;
+
+typedef struct liste_variables_partagees
+{
+	struct liste_variables_partagees	*suivant;
+	struct liste_variables_partagees	*precedent;
+	struct liste_variables_partagees	*reference;
+	struct_arbre_variables_partagees	*feuille;
+	struct_variable_partagee			*variable;
+	pthread_t							tid;
+	pid_t								pid;
+} struct_liste_variables_partagees;
 #endif
 
 /*
@@ -1842,6 +1912,8 @@ typedef struct processus
 	logical1					presence_fusible;
 	pthread_t					thread_fusible;
 	pthread_t					thread_surveille_par_fusible;
+	pthread_t					thread_signaux;
+	int							pipe_signaux[2];
 
 	volatile int				pointeur_signal_ecriture;
 	volatile int				pointeur_signal_lecture;
@@ -1868,24 +1940,26 @@ typedef struct processus
 
 	struct_arbre_variables		*s_arbre_variables;
 	struct_liste_variables		*l_liste_variables_par_niveau;
+	struct_liste_variables_statiques
+								*l_liste_variables_statiques;
+
+	struct_arbre_variables_partagees
+								**s_arbre_variables_partagees;
+	struct_liste_variables_partagees
+								**l_liste_variables_partagees;
+
 	logical1					niveau_supprime;
 
 	struct_variable				*pointeur_variable_courante;
 	struct_liste_variables		*pointeur_feuille_courante;
+	struct_variable_statique	*pointeur_variable_statique_courante;
+	struct_variable_partagee	*pointeur_variable_partagee_courante;
 
 	int							*pointeurs_caracteres_variables;
 	int							nombre_caracteres_variables;
 
-	struct_variable_statique	*s_liste_variables_statiques;
-	unsigned long				nombre_variables_statiques;
-	unsigned long				nombre_variables_statiques_allouees;
-
-	struct_table_variables_partagees
-								*s_liste_variables_partagees;
-
 	unsigned long				niveau_courant;
 	unsigned long				niveau_initial;
-	unsigned long				position_variable_statique_courante;
 
 	logical1					creation_variables_statiques;
 	logical1					creation_variables_partagees;
@@ -2191,16 +2265,13 @@ typedef struct processus
 	pthread_mutex_t				mutex_allocation;
 
 	// Mutex autorisant les fork()
-	sem_t
-#	ifdef SEMAPHORES_NOMMES
-		*
-#	endif
-		 						semaphore_fork;
+	sem_t __PTR__				semaphore_fork;
 
 /* Mutexes											*/
 
 	struct_liste_chainee		*liste_mutexes;
 	pthread_mutex_t				protection_liste_mutexes;
+	unsigned int				sections_critiques;
 
 /* Drapeau nécessaire à RESTART					*/
 
@@ -2257,6 +2328,10 @@ typedef struct processus
 	struct_arbre_variables		*variables_noeud[TAILLE_CACHE];
 	int							pointeur_variables_noeud;
 
+	struct_arbre_variables_partagees
+								*variables_partagees_noeud[TAILLE_CACHE];
+	int							pointeur_variables_partagees_noeud;
+
 	struct_liste_variables		*variables_feuille[TAILLE_CACHE];
 	int							pointeur_variables_feuille;
 
@@ -2265,6 +2340,11 @@ typedef struct processus
 
 	struct_arbre_variables		**variables_tableau_noeuds[TAILLE_CACHE];
 	int							pointeur_variables_tableau_noeuds;
+
+	struct_arbre_variables_partagees
+								**variables_tableau_noeuds_partages
+								[TAILLE_CACHE];
+	int							pointeur_variables_tableau_noeuds_partages;
 } struct_processus;
 #endif
 
@@ -2373,6 +2453,7 @@ void instruction_cosh(struct_processus *
 void instruction_cov(struct_processus *s_etat_processus);
 void instruction_cr(struct_processus *s_etat_processus);
 void instruction_create(struct_processus *s_etat_processus);
+void instruction_critical(struct_processus *s_etat_processus);
 void instruction_crmtx(struct_processus *s_etat_processus);
 void instruction_cross(struct_processus *s_etat_processus);
 void instruction_crsmphr(struct_processus *s_etat_processus);
@@ -2457,6 +2538,7 @@ void instruction_fleche_str(struct_proce
 void instruction_fleche_table(struct_processus *s_etat_processus);
 void instruction_floor(struct_processus *s_etat_processus);
 void instruction_for(struct_processus *s_etat_processus);
+void instruction_forall(struct_processus *s_etat_processus);
 void instruction_format(struct_processus *s_etat_processus);
 void instruction_fp(struct_processus *s_etat_processus);
 void instruction_fs_test(struct_processus *s_etat_processus);
@@ -2942,8 +3024,12 @@ void liberation_arbre_instructions(struc
 		struct_instruction *arbre);
 void liberation_arbre_variables(struct_processus *s_etat_processus,
 		struct_arbre_variables *arbre, logical1 definitions);
+void liberation_arbre_variables_partagees(struct_processus *s_etat_processus,
+		struct_arbre_variables_partagees *arbre);
 void liberation_contexte_cas(struct_processus *s_etat_processus);
 void liberation_generateur_aleatoire(struct_processus *s_etat_processus);
+void liberation_mutexes_arbre_variables_partagees(struct_processus
+		*s_etat_processus, struct_arbre_variables_partagees *l_element_courant);
 void liberation_threads(struct_processus *s_etat_processus);
 void liberation_profil(struct_processus *s_etat_processus);
 void localisation_courante(struct_processus *s_etat_processus);
@@ -2968,6 +3054,7 @@ void scrutation_interruptions(struct_pro
 void sf(struct_processus *s_etat_processus, unsigned char indice_drapeau);
 void *surveillance_processus(void *argument);
 void swap(void *variable_1, void *variable_2, unsigned long taille_octets);
+void *thread_signaux(void *argument);
 void trace(struct_processus *s_etat_processus, FILE *flux);
 void traitement_asynchrone_exceptions_gsl(struct_processus *s_etat_processus);
 void traitement_exceptions_gsl(const char *reason, const char *file,
@@ -3085,6 +3172,8 @@ 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);
+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 *compactage(unsigned char *chaine);
@@ -3135,6 +3224,7 @@ unsigned char *transliteration(struct_pr
 
 #ifndef RPLARGS
 logical1 analyse_syntaxique(struct_processus *s_etat_processus);
+logical1 arret_thread_signaux(struct_processus *s_etat_processus);
 logical1 caracteristiques_fichier(struct_processus *s_etat_processus,
 		unsigned char *nom, logical1 *existence, logical1 *ouverture,
 		unsigned long *unite);
@@ -3165,14 +3255,19 @@ logical1 initialisation_fichier_acces_di
 		sqlite3 *sqlite, logical1 binaire);
 logical1 initialisation_fichier_acces_indexe(struct_processus *s_etat_processus,
 		sqlite3 *sqlite, integer8 position_clef, logical1 binaire);
+logical1 lancement_thread_signaux(struct_processus *s_etat_processus);
 logical1 recherche_instruction_suivante(struct_processus *s_etat_processus);
 logical1 retrait_variable(struct_processus *s_etat_processus,
 		unsigned char *nom_variable, unsigned char type);
-logical1 retrait_variable_par_niveau(struct_processus *s_etat_processus);
+logical1 retrait_variables_par_niveau(struct_processus *s_etat_processus);
 logical1 retrait_variable_partagee(struct_processus *s_etat_processus,
 		unsigned char *nom_variable, union_position_variable position);
+logical1 retrait_variables_partagees_locales(
+		struct_processus *s_etat_processus);
 logical1 retrait_variable_statique(struct_processus *s_etat_processus,
 		unsigned char *nom_variable, union_position_variable position);
+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);
 #endif
@@ -3195,12 +3290,6 @@ logical1 recherche_variable(struct_proce
 		unsigned char *nom_variable);
 logical1 recherche_variable_globale(struct_processus *s_etat_processus,
 		unsigned char *nom_variable);
-logical1 recherche_variable_partagee(struct_processus *s_etat_processus,
-		unsigned char *nom_variable, union_position_variable position,
-		unsigned char origine);
-logical1 recherche_variable_statique(struct_processus *s_etat_processus,
-		unsigned char *nom_variable, union_position_variable position,
-		unsigned char origine);
 logical1 test_cfsf(struct_processus *s_etat_processus,
 		unsigned char indice_drapeau);
 logical1 test_expression_rpn(unsigned char *chaine);
@@ -3231,10 +3320,8 @@ int alsprintf(unsigned char **strp, cons
 int interruption_violation_access(void *adresse_fautive, int gravite);
 #ifndef RPLARGS
 int liste_variables(struct_processus *s_etat_processus,
-		struct_tableau_variables *tableau, int position,
-		struct_arbre_variables *l_element_courant);
-int nombre_variables(struct_processus *s_etat_processus,
-		struct_arbre_variables *l_element_courant);
+		struct_tableau_variables *tableau);
+int nombre_variables(struct_processus *s_etat_processus);
 int readline_analyse_syntaxique(int count, int key);
 int readline_effacement(int count, int key);
 #endif
@@ -3331,6 +3418,24 @@ struct_objet *parametres_sql(struct_proc
 		struct_objet *s_parametres);
 struct_objet *simplification(struct_processus *s_etat_processus,
 		struct_objet *s_objet);
+
+struct_arbre_variables *allocation_noeud(struct_processus *s_etat_processus);
+struct_arbre_variables **allocation_tableau_noeuds(
+		struct_processus *s_etat_processus);
+
+/*
+--------------------------------------------------------------------------------
+  Fonctions renvoyant un pointeur sur une *struct_liste_variables_statiques
+  ou *struct_liste_variables_partagees
+--------------------------------------------------------------------------------
+*/
+
+struct_liste_variables_statiques *recherche_variable_statique(struct_processus
+		*s_etat_processus, unsigned char *nom_variable,
+		union_position_variable position, unsigned char origine);
+struct_liste_variables_partagees *recherche_variable_partagee(struct_processus
+		*s_etat_processus, unsigned char *nom_variable,
+		union_position_variable position, unsigned char origine);
 #endif
 
 /*
@@ -3385,15 +3490,13 @@ void f77multiplicationci_(complex16 *ca,
 void f77multiplicationcr_(complex16 *ca, real8 *rb, complex16 *resultat);
 
 void f77puissancecc_(complex16 *ca, complex16 *cb, complex16 *resultat);
-void f77puissanceci_(complex16 *ca, integer8 *ib, complex16 *resultat,
-		integer4 *troncature);
+void f77puissanceci_(complex16 *ca, integer8 *ib, complex16 *resultat);
 void f77puissancecr_(complex16 *ca, real8 *rb, complex16 *resultat);
 void f77puissanceic_(integer8 *ia, complex16 *cb, complex16 *resultat);
 void f77puissanceii_(integer8 *ia, integer8 *ib, integer8 *resultat);
 void f77puissanceir_(integer8 *ia, real8 *rb, real8 *resultat);
 void f77puissancerc_(real8 *ra, complex16 *cb, complex16 *resultat);
-void f77puissanceri_(real8 *ra, integer8 *ib, real8 *resultat,
-		integer4 *troncature);
+void f77puissanceri_(real8 *ra, integer8 *ib, real8 *resultat);
 void f77puissancerr_(real8 *ra, real8 *rb, real8 *resultat);
 
 void f77racinecarreec_(complex16 *ca, complex16 *resultat);