--- rpl/src/rpl.h	2011/06/17 07:55:59	1.89
+++ rpl/src/rpl.h	2011/06/23 13:41:16	1.100
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.0
+  RPL/2 (R) version 4.1.0.prerelease.3
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -1701,6 +1701,21 @@ typedef struct arbre_variables
 	struct liste_variables	*feuille;
 } struct_arbre_variables;
 
+typedef struct tableau_variables
+{
+	unsigned char			origine;
+	unsigned char			*nom;		// pointeur sur la struct_variable
+										// réelle et non copie de la chaîne
+	unsigned long			niveau;
+
+	struct_objet			*objet;		// pointeur sur l'objet et non copie
+										// de l'objet.
+
+	logical1				variable_verrouillee;
+	union_position_variable	variable_statique;
+	union_position_variable	variable_partagee;
+} struct_tableau_variables;
+
 typedef struct liste_variables
 {
 	union
@@ -1712,6 +1727,7 @@ typedef struct liste_variables
 	};
 
 	struct arbre_variables				*noeud_pere;
+	struct arbre_variables				*noeud;
 	struct liste_variables				*suivant;
 	struct liste_variables				*precedent;
 } struct_liste_variables;
@@ -1839,6 +1855,7 @@ typedef struct processus
 
 	struct_arbre_variables		*s_arbre_variables;
 	struct_liste_variables		*l_liste_variables_par_niveau;
+	logical1					niveau_supprime;
 
 	struct_variable				*pointeur_variable_courante;
 	struct_liste_variables		*pointeur_feuille_courante;
@@ -2216,6 +2233,18 @@ typedef struct processus
 
 	struct_liste_chainee		*maillons[TAILLE_CACHE];
 	int							pointeur_maillons;
+
+	struct_arbre_variables		*variables_noeud[TAILLE_CACHE];
+	int							pointeur_variables_noeud;
+
+	struct_liste_variables		*variables_feuille[TAILLE_CACHE];
+	int							pointeur_variables_feuille;
+
+	struct_variable				*variables_variable[TAILLE_CACHE];
+	int							pointeur_variables_variable;
+
+	struct_arbre_variables		**variables_tableau_noeuds[TAILLE_CACHE];
+	int							pointeur_variables_tableau_noeuds;
 } struct_processus;
 #endif
 
@@ -2802,6 +2831,8 @@ void conversion_hms_vers_decimal(real8 *
 void conversion_majuscule_limitee(unsigned char *chaine_entree, 
 		unsigned char *chaine_sortie, unsigned long longueur);
 void conversion_radians_vers_degres(real8 *angle);
+void copie_arbre_variables(struct_processus *s_etat_processus,
+		struct_processus *s_nouvel_etat_processus);
 void correction_formateur_tex(struct_processus *s_etat_processus,
 		unsigned char **ligne);
 void depilement_pile_systeme(struct_processus *s_etat_processus);
@@ -3039,6 +3070,8 @@ unsigned char *formateur_nombre(struct_p
 		void *valeur_numerique, unsigned char type);
 unsigned char *formateur_reel(struct_processus *s_etat_processus,
 		void *valeur_numerique, unsigned char type);
+unsigned char *interface_cas(struct_processus *s_etat_processus,
+		unsigned char *commande, const char *argument);
 unsigned char *messages(struct_processus *s_etat_processus);
 unsigned char *purification_chaine(unsigned char *chaine);
 unsigned char *reencodage(struct_processus *s_etat_processus,
@@ -3095,9 +3128,6 @@ 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
 
 /*
@@ -3150,6 +3180,11 @@ ssize_t write_atomic(struct_processus *s
 */
 
 int alsprintf(unsigned char **strp, const char *fmt, ...);
+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);
 int tex_fprintf(struct_processus *s_etat_processus,
 		file *flux, const char *format, ...);
 int transliterated_fprintf(struct_processus *s_etat_processus, file *flux,