--- rpl/src/rpl.c	2011/04/11 12:10:12	1.59
+++ rpl/src/rpl.c	2011/09/10 20:45:06	1.82
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.0
+  RPL/2 (R) version 4.1.3
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -46,7 +46,6 @@ rplinit(int argc, char *argv[], unsigned
 
 	int									erreur_historique;
 	int									option_P;
-	int									status;
 
 	logical1							core;
 	logical1							debug;
@@ -106,10 +105,7 @@ rplinit(int argc, char *argv[], unsigned
 	volatile unsigned char				traitement_fichier_temporaire;
 
 	errno = 0;
-
-#	ifdef DMALLOC
-	atexit(dmalloc_shutdown());
-#	endif
+	pid_processus_pere = getpid();
 
 #	ifdef DEBUG_MEMOIRE
 	debug_memoire_initialisation();
@@ -187,9 +183,12 @@ rplinit(int argc, char *argv[], unsigned
 		(*s_etat_processus).langue = 'E';
 	}
 
+	initialisation_contexte_cas(s_etat_processus);
+
 	(*s_etat_processus).exception = d_ep;
 	(*s_etat_processus).erreur_systeme = d_es;
 	(*s_etat_processus).erreur_execution = d_ex;
+	(*s_etat_processus).compteur_violation_d_acces = 0;
 
 	(*s_etat_processus).rpl_home = rpl_home;
 
@@ -442,6 +441,26 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
+	signal_test = SIGTEST;
+	kill(getpid(), SIGINT);
+
+	if (signal_test != SIGINT)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 	if (sigaction(SIGTERM, &action, NULL) != 0)
 	{
 		erreur = d_es_signal;
@@ -459,6 +478,26 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
+	signal_test = SIGTEST;
+	kill(getpid(), SIGTERM);
+
+	if (signal_test != SIGTERM)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 #	ifndef _BROKEN_SIGINFO
 	action.sa_sigaction = interruption2;
 #	else
@@ -481,6 +520,26 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
+	signal_test = SIGTEST;
+	kill(getpid(), SIGTSTP);
+
+	if (signal_test != SIGTSTP)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 #	ifndef _BROKEN_SIGINFO
 	action.sa_sigaction = interruption4;
 #	else
@@ -504,6 +563,26 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
+	signal_test = SIGTEST;
+	kill(getpid(), SIGSTART);
+
+	if (signal_test != SIGSTART)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 	if (sigaction(SIGCONT, &action, NULL) != 0)
 	{
 		if ((*s_etat_processus).langue == 'F')
@@ -519,6 +598,26 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
+	signal_test = SIGTEST;
+	kill(getpid(), SIGCONT);
+
+	if (signal_test != SIGCONT)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 #	ifndef _BROKEN_SIGINFO
 	action.sa_sigaction = interruption5;
 #	else
@@ -543,6 +642,26 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
+	signal_test = SIGTEST;
+	kill(getpid(), SIGFSTOP);
+
+	if (signal_test != SIGFSTOP)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 #	ifndef _BROKEN_SIGINFO
 	action.sa_sigaction = interruption11;
 #	else
@@ -567,6 +686,26 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
+	signal_test = SIGTEST;
+	kill(getpid(), SIGFABORT);
+
+	if (signal_test != SIGFABORT)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 #	ifndef _BROKEN_SIGINFO
 	action.sa_sigaction = interruption8;
 #	else
@@ -591,6 +730,26 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
+	signal_test = SIGTEST;
+	kill(getpid(), SIGURG);
+
+	if (signal_test != SIGURG)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 #	ifndef _BROKEN_SIGINFO
 	action.sa_sigaction = interruption7;
 #	else
@@ -615,6 +774,26 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
+	signal_test = SIGTEST;
+	kill(getpid(), SIGPIPE);
+
+	if (signal_test != SIGPIPE)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 #	ifndef _BROKEN_SIGINFO
 	action.sa_sigaction = interruption6;
 #	else
@@ -639,6 +818,26 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
+	signal_test = SIGTEST;
+	kill(getpid(), SIGINJECT);
+
+	if (signal_test != SIGINJECT)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 #	ifndef _BROKEN_SIGINFO
 	action.sa_sigaction = interruption9;
 #	else
@@ -663,6 +862,26 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
+	signal_test = SIGTEST;
+	kill(getpid(), SIGABORT);
+
+	if (signal_test != SIGABORT)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
 #	ifndef _BROKEN_SIGINFO
 	action.sa_sigaction = interruption1;
 #	else
@@ -687,12 +906,27 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
-#	ifndef _BROKEN_SIGINFO
-	action.sa_sigaction = interruption3;
-#	else
-	action.sa_handler = interruption3;
-#	endif
-	action.sa_flags = SA_NODEFER | SA_ONSTACK | SA_SIGINFO;
+	signal_test = SIGTEST;
+	kill(getpid(), SIGALRM);
+
+	if (signal_test != SIGALRM)
+	{
+		erreur = d_es_signal;
+
+		if ((*s_etat_processus).langue == 'F')
+		{
+			printf("+++Système : Initialisation des signaux POSIX "
+					"impossible\n");
+		}
+		else
+		{
+			printf("+++System : Initialization of POSIX signals failed\n");
+		}
+
+		return(EXIT_FAILURE);
+	}
+
+	signal_test = SIGTEST + 1;
 
 	erreur = d_absence_erreur;
 	core = d_faux;
@@ -1581,6 +1815,13 @@ rplinit(int argc, char *argv[], unsigned
 
 		if (debug == d_faux)
 		{
+#			ifndef _BROKEN_SIGINFO
+			action.sa_sigaction = interruption3;
+#			else
+			action.sa_handler = interruption3;
+#			endif
+			action.sa_flags = SA_NODEFER | SA_ONSTACK | SA_SIGINFO;
+
 			if (sigaction(SIGSEGV, &action, NULL) != 0)
 			{
 				if ((*s_etat_processus).langue == 'F')
@@ -1837,7 +2078,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 +2103,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 +2114,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;
@@ -2007,9 +2256,12 @@ rplinit(int argc, char *argv[], unsigned
 			(*s_etat_processus).var_volatile_recursivite = 0;
 			(*s_etat_processus).var_volatile_exception_gsl = 0;
 			(*s_etat_processus).arret_depuis_abort = 0;
+			(*s_etat_processus).signal_a_traiter = d_faux;
 
 			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 +2647,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 +2707,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 +2794,6 @@ rplinit(int argc, char *argv[], unsigned
 
 					fflush(stdout);
 
-					initialisation_instructions(s_etat_processus);
-
 					if (arguments != NULL)
 					{
 						tampon = (*s_etat_processus).definitions_chainees;
@@ -2761,6 +3010,20 @@ rplinit(int argc, char *argv[], unsigned
 							if (setjmp(contexte_initial) == 0)
 							{
 								erreur = sequenceur(s_etat_processus);
+
+								if (erreur == d_absence_erreur)
+								{
+									if (((*s_etat_processus).var_volatile_alarme
+											== 0) && ((*s_etat_processus)
+											.arret_depuis_abort == 0) &&
+											((*s_etat_processus).at_exit
+											!= NULL))
+									{
+										erreur = evaluation(s_etat_processus,
+												(*s_etat_processus).at_exit,
+												'E');
+									}
+								}
 							}
 						}
 						else
@@ -2768,18 +3031,20 @@ rplinit(int argc, char *argv[], unsigned
 							if (setjmp(contexte_initial) == 0)
 							{
 								erreur = sequenceur_optimise(s_etat_processus);
-							}
-						}
 
-						if (erreur == d_absence_erreur)
-						{
-							if (((*s_etat_processus).var_volatile_alarme == 0)
-									&& ((*s_etat_processus).arret_depuis_abort
-									== 0) && ((*s_etat_processus).at_exit
-									!= NULL))
-							{
-								erreur = evaluation(s_etat_processus,
-										(*s_etat_processus).at_exit, 'E');
+								if (erreur == d_absence_erreur)
+								{
+									if (((*s_etat_processus).var_volatile_alarme
+											== 0) && ((*s_etat_processus)
+											.arret_depuis_abort == 0) &&
+											((*s_etat_processus).at_exit
+											!= NULL))
+									{
+										erreur = evaluation(s_etat_processus,
+												(*s_etat_processus).at_exit,
+												'E');
+									}
+								}
 							}
 						}
 					}
@@ -2988,8 +3253,6 @@ rplinit(int argc, char *argv[], unsigned
 
 					while((*s_etat_processus).l_base_pile_processus != NULL)
 					{
-						status = 0;
-
 						l_element_courant = (void *)
 								(*s_etat_processus).l_base_pile_processus;
 
@@ -3213,14 +3476,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++)
@@ -3621,6 +3879,8 @@ rplinit(int argc, char *argv[], unsigned
 #	undef return
 #	endif
 
+	liberation_contexte_cas(s_etat_processus);
+
 	free((*s_etat_processus).chemin_fichiers_temporaires);
 	free(s_etat_processus);