--- rpl/src/rpl.c	2010/08/30 19:33:34	1.46
+++ rpl/src/rpl.c	2011/05/09 13:52:24	1.58.2.4
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.19
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.0.24
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -23,7 +23,7 @@
 #define  MAIN_RPL
 #include "rpl-conv.h"
 
-#ifdef SEMAPHORES_SYSV
+#ifdef IPCS_SYSV
 #ifndef OS2
 	unsigned char		*chemin_semaphores_SysV;
 #endif
@@ -107,6 +107,10 @@ rplinit(int argc, char *argv[], unsigned
 
 	errno = 0;
 
+#	ifdef DMALLOC
+	atexit(dmalloc_shutdown());
+#	endif
+
 #	ifdef DEBUG_MEMOIRE
 	debug_memoire_initialisation();
 #	endif
@@ -240,7 +244,7 @@ rplinit(int argc, char *argv[], unsigned
 	(*s_etat_processus).chemin_fichiers_temporaires =
 			recherche_chemin_fichiers_temporaires(s_etat_processus);
 
-#	ifdef SEMAPHORES_SYSV
+#	ifdef IPCS_SYSV
 #	ifndef OS2
 	chemin_semaphores_SysV = (*s_etat_processus).chemin_fichiers_temporaires;
 #	endif
@@ -307,11 +311,11 @@ rplinit(int argc, char *argv[], unsigned
 
 	if ((*s_etat_processus).langue == 'F')
 	{
-		printf("+++Copyright (C) 1989 à 2009, 2010 BERTRAND Joël\n");
+		printf("+++Copyright (C) 1989 à 2010, 2011 BERTRAND Joël\n");
 	}
 	else
 	{
-		printf("+++Copyright (C) 1989 to 2009, 2010 BERTRAND Joel\n");
+		printf("+++Copyright (C) 1989 to 2010, 2011 BERTRAND Joel\n");
 	}
 
 	if (getenv("HOME") != NULL)
@@ -438,6 +442,23 @@ rplinit(int argc, char *argv[], unsigned
 		return(EXIT_FAILURE);
 	}
 
+	if (sigaction(SIGTERM, &action, NULL) != 0)
+	{
+		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
@@ -465,7 +486,8 @@ rplinit(int argc, char *argv[], unsigned
 #	else
 	action.sa_handler = interruption4;
 #	endif
-	action.sa_flags = SA_ONSTACK | SA_SIGINFO | SA_NODEFER;
+	// SIGCONT ne doit pas pouvoir être appelé depuis son gestionnaire.
+	action.sa_flags = SA_ONSTACK | SA_SIGINFO;
 
 	if (sigaction(SIGSTART, &action, NULL) != 0)
 	{
@@ -1815,10 +1837,20 @@ 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';
+			(*s_etat_processus).recherche_type = 'N';
 
 			(*s_etat_processus).constante_symbolique = 'N';
 			(*s_etat_processus).traitement_symbolique = 'N';
@@ -3556,12 +3588,6 @@ rplinit(int argc, char *argv[], unsigned
 		}
 	}
 
-#	if !defined(Cygwin) && !defined(OpenBSD)
-	(*s_etat_processus).pile_signal.ss_flags = SS_DISABLE;
-	sigaltstack(&((*s_etat_processus).pile_signal), NULL);
-	free((*s_etat_processus).pile_signal.ss_sp);
-#	endif
-
 	closelog();
 
 	pthread_mutex_destroy(&((*s_etat_processus).protection_liste_mutexes));