--- rpl/src/rpl.c	2011/04/11 13:02:28	1.58.2.1
+++ rpl/src/rpl.c	2011/06/17 07:55:59	1.66
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.22
+  RPL/2 (R) version 4.1.0.prerelease.0
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -107,10 +107,6 @@ rplinit(int argc, char *argv[], unsigned
 
 	errno = 0;
 
-#	ifdef DMALLOC
-	atexit(dmalloc_shutdown());
-#	endif
-
 #	ifdef DEBUG_MEMOIRE
 	debug_memoire_initialisation();
 #	endif
@@ -1837,7 +1833,16 @@ rplinit(int argc, char *argv[], unsigned
 			(*s_etat_processus).affichage_arguments = 'N';
 			(*s_etat_processus).autorisation_conversion_chaine = 'Y';
 			(*s_etat_processus).autorisation_evaluation_nom = 'Y';
-			(*s_etat_processus).autorisation_nom_implicite = 'Y';
+
+			if (mode_interactif == d_vrai)
+			{
+				(*s_etat_processus).autorisation_nom_implicite = 'Y';
+			}
+			else
+			{
+				(*s_etat_processus).autorisation_nom_implicite = 'N';
+			}
+
 			(*s_etat_processus).autorisation_empilement_programme = 'N';
 			(*s_etat_processus).requete_arret = 'N';
 			(*s_etat_processus).evaluation_forcee = 'N';
@@ -1853,10 +1858,10 @@ rplinit(int argc, char *argv[], unsigned
 			(*s_etat_processus).l_base_pile = NULL;
 			(*s_etat_processus).l_base_pile_last = NULL;
 
-			(*s_etat_processus).s_liste_variables = NULL;
+			(*s_etat_processus).s_arbre_variables = NULL;
+			(*s_etat_processus).l_liste_variables_par_niveau = NULL;
 			(*s_etat_processus).gel_liste_variables = d_faux;
-			(*s_etat_processus).nombre_variables = 0;
-			(*s_etat_processus).nombre_variables_allouees = 0;
+			(*s_etat_processus).pointeur_variable_courante = NULL;
 			(*s_etat_processus).s_liste_variables_statiques = NULL;
 			(*s_etat_processus).nombre_variables_statiques = 0;
 			(*s_etat_processus).nombre_variables_statiques_allouees = 0;
@@ -1864,7 +1869,6 @@ rplinit(int argc, char *argv[], unsigned
 			(*s_etat_processus).niveau_initial = 0;
 			(*s_etat_processus).creation_variables_statiques = d_faux;
 			(*s_etat_processus).creation_variables_partagees = d_faux;
-			(*s_etat_processus).position_variable_courante = 0;
 			(*s_etat_processus).position_variable_statique_courante = 0;
 
 			(*s_etat_processus).s_bibliotheques = NULL;
@@ -2010,6 +2014,8 @@ rplinit(int argc, char *argv[], unsigned
 
 			initialisation_allocateur(s_etat_processus);
 			initialisation_drapeaux(s_etat_processus);
+			initialisation_variables(s_etat_processus);
+			initialisation_instructions(s_etat_processus);
 
 			if ((*s_etat_processus).erreur_systeme != d_es)
 			{
@@ -2395,7 +2401,7 @@ rplinit(int argc, char *argv[], unsigned
 					(*s_etat_processus).position_courante = 0;
 					(*s_etat_processus).traitement_cycle_exit = 'N';
 
-					if ((*s_etat_processus).nombre_variables == 0)
+					if ((*s_etat_processus).s_arbre_variables == NULL)
 					{
 						if ((*s_etat_processus).langue == 'F')
 						{
@@ -2455,9 +2461,8 @@ rplinit(int argc, char *argv[], unsigned
 						return(EXIT_FAILURE);
 					}
 
-					if ((*s_etat_processus).s_liste_variables
-							[(*s_etat_processus)
-							.position_variable_courante].niveau != 0)
+					if ((*(*s_etat_processus).pointeur_variable_courante)
+							.niveau != 0)
 					{
 						if ((*s_etat_processus).langue == 'F')
 						{
@@ -2543,8 +2548,6 @@ rplinit(int argc, char *argv[], unsigned
 
 					fflush(stdout);
 
-					initialisation_instructions(s_etat_processus);
-
 					if (arguments != NULL)
 					{
 						tampon = (*s_etat_processus).definitions_chainees;
@@ -3213,14 +3216,9 @@ rplinit(int argc, char *argv[], unsigned
 					 * le libérer...
 					 */
 
-					for(i = 0; i < (*s_etat_processus).nombre_variables; i++)
-					{
-						liberation(s_etat_processus,
-								(*s_etat_processus).s_liste_variables[i].objet);
-						free((*s_etat_processus).s_liste_variables[i].nom);
-					}
-
-					free((*s_etat_processus).s_liste_variables);
+					liberation_arbre_variables(s_etat_processus,
+							(*s_etat_processus).s_arbre_variables, d_vrai);
+					free((*s_etat_processus).pointeurs_caracteres_variables);
 
 					for(i = 0; i < (*s_etat_processus)
 							.nombre_variables_statiques; i++)