--- rpl/src/rpl.h	2010/04/20 12:49:18	1.23
+++ rpl/src/rpl.h	2010/05/05 21:19:24	1.31
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.14
+  RPL/2 (R) version 4.0.15
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -112,9 +112,7 @@
 #   define postgresqlclose(arg)
 #endif
 
-#ifdef LIBRPL
-#	include "librplprototypes.h"
-#endif
+#include "librplprototypes.h"
 
 /*
 ================================================================================
@@ -123,10 +121,16 @@
 */
 
 #ifndef RPLARGS
+//	Arrêt par STOP
 #	define SIGFSTOP					SIGUSR1
+//	Démarrage d'un processus fils
 #	define SIGSTART					SIGUSR2
+//	Injection de données
 #	define SIGINJECT				SIGQUIT
+//	Arrêt général
 #	define SIGABORT					SIGPROF
+//	Arrêt d'un processus fils depuis autre chose que STOP
+#	define SIGFABORT				SIGPOLL
 #	define d_NOMBRE_INTERRUPTIONS	64
 #endif
 
@@ -494,10 +498,11 @@ void debug_memoire_retrait(void *ptr);
 #define d_absence_erreur		((logical1) d_faux)
 #define d_erreur				((logical1) d_vrai)
 
-#define d_code_fin_chaine		'\0'
-#define d_code_espace			' '
-#define d_code_retour_chariot	'\n'
-#define d_code_tabulation		'\t'
+#define d_code_fin_chaine					'\0'
+#define d_code_espace						' '
+#define d_code_retour_chariot				'\n'
+#define d_code_tabulation					'\t'
+#define d_longueur_maximale_instruction		16
 
 #define d_INT					"integer"
 #define	d_REL					"real"
@@ -1762,6 +1767,8 @@ typedef struct processus
 	unsigned char				traitement_interruption;  /* Y/N */
 	unsigned char				traitement_interruptible; /* Y/N */
 
+	struct_objet				*at_exit;
+
 /* Variables volatiles									*/
 
 	volatile sig_atomic_t		var_volatile_alarme;
@@ -1775,6 +1782,8 @@ typedef struct processus
 	volatile sig_atomic_t		var_volatile_processus_pere;
 	volatile sig_atomic_t		var_volatile_recursivite;
 
+	volatile sig_atomic_t		arret_depuis_abort;
+
 	volatile int				var_volatile_exception_gsl;
 
 /* Autres												*/
@@ -1845,7 +1854,7 @@ typedef struct processus
 	unsigned long				taille_pile_objets;
 	struct_objet				*pile_objets;
 
-#	define TAILLE_CACHE 1024
+#	define TAILLE_CACHE 16384
 
 	unsigned long				*objets_adr[TAILLE_CACHE];
 	int							pointeur_adr;
@@ -1949,6 +1958,7 @@ void instruction_asl(struct_processus *s
 void instruction_asr(struct_processus *s_etat_processus);
 void instruction_atan(struct_processus *s_etat_processus);
 void instruction_atanh(struct_processus *s_etat_processus);
+void instruction_atexit(struct_processus *s_etat_processus);
 void instruction_autoscale(struct_processus *s_etat_processus);
 void instruction_axes(struct_processus *s_etat_processus);
 
@@ -1968,6 +1978,7 @@ void instruction_clear(struct_processus
 void instruction_cllcd(struct_processus *s_etat_processus);
 void instruction_clmf(struct_processus *s_etat_processus);
 void instruction_close(struct_processus *s_etat_processus);
+void instruction_clratexit(struct_processus *s_etat_processus);
 void instruction_clrcntxt(struct_processus *s_etat_processus);
 void instruction_clrerr(struct_processus *s_etat_processus);
 void instruction_clrfuse(struct_processus *s_etat_processus);
@@ -2467,6 +2478,8 @@ void conversion_element_tex(unsigned cha
 void conversion_format(struct_processus *s_etat_processus,
 		unsigned char *chaine);
 void conversion_hms_vers_decimal(real8 *angle);
+void conversion_majuscule_limitee(unsigned char *chaine_entree, 
+		unsigned char *chaine_sortie, unsigned long longueur);
 void conversion_radians_vers_degres(real8 *angle);
 void correction_formateur_tex(struct_processus *s_etat_processus,
 		unsigned char **ligne);