--- rpl/src/rpl.h	2011/06/19 17:48:27	1.91
+++ rpl/src/rpl.h	2011/06/24 20:31:42	1.103
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.0
+  RPL/2 (R) version 4.1.0.prerelease.4
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -23,21 +23,28 @@
 #ifndef INCLUSION_RPL
 #define INCLUSION_RPL
 
-#define _GNU_SOURCE
-#define _POSIX_C_SOURCE		200112L
+#ifndef __RPLCAS
+#	define _GNU_SOURCE
+#	define _POSIX_C_SOURCE		200112L
+#endif
+
 #define _REENTRANT
 
-#ifdef Darwin
-#	define	_DARWIN_C_SOURCE
-#endif
+#ifndef __RPLCAS
+#	ifdef Darwin
+#		define	_DARWIN_C_SOURCE
+#	endif
 
-#ifdef OpenBSD
-#	define _BSD_SOURCE
+#	ifdef OpenBSD
+#		define _BSD_SOURCE
+#	endif
 #endif
 
 #ifdef OS2
-#	define _BSD_SOURCE
-#	define _XOPEN_SOURCE	600
+#	ifndef __RPLCAS
+#		define _BSD_SOURCE
+#		define _XOPEN_SOURCE	600
+#	endif
 
 #	include <types.h>
 	enum { SHUT_RD = 0, SHUT_WR, SHUT_RDWR };
@@ -973,6 +980,7 @@ pid_t debug_fork();
 #define VIN	__RPL_VIN
 #define VRL	__RPL_VRL
 
+enum t_rplcas_commandes		{ RPLCAS_INTEGRATION = 0, RPLCAS_LIMITE };
 
 enum t_type		{ ADR = 0, ALG, BIN, CHN, CPL, FCH, FCT, INT, LST,
 				MCX, MIN, MRL, MTX, NOM, NON, PRC, REL, RPN, SCK,
@@ -1855,6 +1863,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;
@@ -2232,6 +2241,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
 
@@ -2797,7 +2818,6 @@ void affichage_pile(struct_processus *s_
 		niveau_courant);
 #endif
 
-void *allocation(struct_processus *s_etat_processus, enum t_type type);
 void *allocation_maillon(struct_processus *s_etat_processus);
 
 #ifndef RPLARGS
@@ -2818,6 +2838,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);
@@ -2874,6 +2896,8 @@ void insertion_thread_surveillance(struc
 void integrale_romberg(struct_processus *s_etat_processus,
 		struct_objet *s_expression, unsigned char *variable,
 		real8 a, real8 b, real8 precision);
+void interface_cas(struct_processus *s_etat_processus,
+		enum t_rplcas_commandes commande);
 void interruption1(SIGHANDLER_ARGS);
 void interruption2(SIGHANDLER_ARGS);
 void interruption3(SIGHANDLER_ARGS);
@@ -3111,9 +3135,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
 
 /*
@@ -3253,6 +3274,7 @@ struct_objet *copie_objet(struct_process
 		struct_objet *s_objet, unsigned char type);
 
 #ifndef RPLARGS
+struct_objet *allocation(struct_processus *s_etat_processus, enum t_type type);
 struct_objet *formateur_date(struct_processus *s_etat_processus,
 		struct timeval *temps);
 struct_objet *lecture_pipe(struct_processus *s_etat_processus, int pipe);