--- rpl/src/rpl.h	2010/11/26 11:46:38	1.73
+++ rpl/src/rpl.h	2011/04/14 10:32:59	1.81
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.20
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.0.prerelease.0
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1670,6 +1670,33 @@ typedef struct rpl_arguments
 	void						*s_etat_processus;
 } struct_rpl_arguments;
 
+/*
+--------------------------------------------------------------------------------
+  Structure d'arbre des instructions intrinsèques
+--------------------------------------------------------------------------------
+*/
+
+#ifndef RPLARGS
+typedef struct instruction
+{
+	struct instruction		**noeud;
+	void					(*feuille)(struct processus *);
+} struct_instruction;
+#endif
+
+/*
+--------------------------------------------------------------------------------
+  Structure d'arbre des variables variable globales et locales
+--------------------------------------------------------------------------------
+*/
+
+#ifndef RPLARGS
+typedef struct arbre_variables
+{
+	struct arbre_variables	**noeud;
+	struct_liste_chainee	*l_variable;
+} struct_arbre_variables;
+#endif
 
 /*
 --------------------------------------------------------------------------------
@@ -1716,7 +1743,7 @@ typedef struct processus
 
 	int							*pointeurs_caracteres;
 	int							nombre_caracteres;
-	struct instruction			*arbre_instructions;
+	struct_instruction			*arbre_instructions;
 
 /* Requetes												*/
 
@@ -1780,9 +1807,11 @@ typedef struct processus
 
 /* Variables											*/
 
-	struct_variable				*s_liste_variables;
-	unsigned long				nombre_variables;
-	unsigned long				nombre_variables_allouees;
+	struct_arbre_variables		*s_arbre_variables;
+	struct_liste_chainee		*l_liste_variables_par_niveau;
+
+	int							*pointeurs_caracteres_variables;
+	int							nombre_caracteres_variables;
 
 	struct_variable_statique	*s_liste_variables_statiques;
 	unsigned long				nombre_variables_statiques;
@@ -1793,7 +1822,7 @@ typedef struct processus
 
 	unsigned long				niveau_courant;
 	unsigned long				niveau_initial;
-	unsigned long				position_variable_courante;
+	struct_variable				*pointeur_variable_courante;
 	unsigned long				position_variable_statique_courante;
 
 	logical1					creation_variables_statiques;
@@ -2121,11 +2150,7 @@ typedef struct processus
 	unsigned long				taille_pile_objets;
 	struct_objet				*pile_objets;
 
-#	ifndef DEBUG_MALLOC
-#		define TAILLE_CACHE 16384
-#	else
-#		define TAILLE_CACHE 4
-#	endif
+#	define TAILLE_CACHE 16384
 
 	unsigned long				*objets_adr[TAILLE_CACHE];
 	int							pointeur_adr;
@@ -2164,21 +2189,6 @@ typedef struct processus
 
 /*
 --------------------------------------------------------------------------------
-  Structures instruction intrinsèque
---------------------------------------------------------------------------------
-*/
-
-#ifndef RPLARGS
-typedef struct instruction
-{
-	struct instruction		**noeud;
-	void					(*feuille)(struct_processus *);
-} struct_instruction;
-#endif
-
-
-/*
---------------------------------------------------------------------------------
   Structure fonction
 --------------------------------------------------------------------------------
 */
@@ -2444,6 +2454,7 @@ void instruction_lq(struct_processus *s_
 void instruction_lsq(struct_processus *s_etat_processus);
 void instruction_lt(struct_processus *s_etat_processus);
 void instruction_lu(struct_processus *s_etat_processus);
+void instruction_l_vers_t(struct_processus *s_etat_processus);
 
 void instruction_mant(struct_processus *s_etat_processus);
 void instruction_mark(struct_processus *s_etat_processus);
@@ -2679,6 +2690,7 @@ void instruction_trn(struct_processus *s
 void instruction_trnc(struct_processus *s_etat_processus);
 void instruction_true(struct_processus *s_etat_processus);
 void instruction_type(struct_processus *s_etat_processus);
+void instruction_t_vers_l(struct_processus *s_etat_processus);
 
 void instruction_ucase(struct_processus *s_etat_processus);
 void instruction_uchol(struct_processus *s_etat_processus);
@@ -2801,6 +2813,7 @@ void initialisation_drapeaux(struct_proc
 void initialisation_generateur_aleatoire(struct_processus *s_etat_processus,
 		logical1 initialisation_automatique, unsigned long int racine);
 void initialisation_instructions(struct_processus *s_etat_processus);
+void initialisation_variables(struct_processus *s_etat_processus);
 #endif
 
 void initialisation_objet(struct_objet *s_objet);
@@ -2980,6 +2993,8 @@ unsigned char *formateur_fichier(struct_
 		struct_objet *s_objet, struct_objet *s_format,
 		long longueur, long longueur_champ, unsigned char format,
 		unsigned char type, long *longueur_effective, long *recursivite);
+unsigned char *formateur_flux(struct_processus *s_etat_processus,
+		unsigned char *donnees, long *longueur);
 unsigned char *formateur_fichier_nombre(struct_processus *s_etat_processus,
 		void *valeur_numerique, unsigned char type,
 		long longueur, long longueur_champ, unsigned char format);
@@ -3046,6 +3061,9 @@ logical1 retrait_variable_statique(struc
 		unsigned char *nom_variable, union_position_variable position);
 logical1 sequenceur(struct_processus *s_etat_processus);
 logical1 sequenceur_optimise(struct_processus *s_etat_processus);
+
+struct_arbre_variables *copie_arbre_variables(
+		struct_processus *s_etat_processus);
 #endif
 
 /*