--- rpl/src/rpl.h	2012/10/03 14:53:12	1.179
+++ rpl/src/rpl.h	2012/10/04 15:21:26	1.180
@@ -1765,6 +1765,7 @@ typedef struct tableau_variables
 	union_position_variable	variable_partagee;
 } struct_tableau_variables;
 
+// La liste des variables est une liste doublement chaînée et circulaire.
 typedef struct liste_variables
 {
 	union
@@ -1781,9 +1782,13 @@ typedef struct liste_variables
 	struct liste_variables				*precedent;
 } struct_liste_variables;
 
+// La liste des variables statiques et une liste double chaînée et non
+// circulaire.
 typedef struct liste_variables_statiques
 {
 	struct liste_variables_statiques	*suivant;
+	struct liste_variables_statiques	*precedent;
+	struct liste_variables_statiques	*reference;
 	struct_variable_statique			*variable;
 } struct_liste_variables_statiques;
 #endif
@@ -1901,24 +1906,22 @@ typedef struct processus
 
 	struct_arbre_variables		*s_arbre_variables;
 	struct_liste_variables		*l_liste_variables_par_niveau;
+	struct_liste_variables_statiques
+								*l_liste_variables_statiques;
+	struct_table_variables_partagees
+								*s_liste_variables_partagees;
+
 	logical1					niveau_supprime;
 
 	struct_variable				*pointeur_variable_courante;
 	struct_liste_variables		*pointeur_feuille_courante;
+	struct_variable_statique	*pointeur_variable_statique_courante;
 
 	int							*pointeurs_caracteres_variables;
 	int							nombre_caracteres_variables;
 
-	struct_variable_statique	*s_liste_variables_statiques;
-	unsigned long				nombre_variables_statiques;
-	unsigned long				nombre_variables_statiques_allouees;
-
-	struct_table_variables_partagees
-								*s_liste_variables_partagees;
-
 	unsigned long				niveau_courant;
 	unsigned long				niveau_initial;
-	unsigned long				position_variable_statique_courante;
 
 	logical1					creation_variables_statiques;
 	logical1					creation_variables_partagees;
@@ -3168,6 +3171,7 @@ unsigned char *transliteration(struct_pr
 */
 
 #ifndef RPLARGS
+logical1 ajout_bouchon_variable_statique(struct_processus *s_etat_processus);
 logical1 analyse_syntaxique(struct_processus *s_etat_processus);
 logical1 caracteristiques_fichier(struct_processus *s_etat_processus,
 		unsigned char *nom, logical1 *existence, logical1 *ouverture,
@@ -3202,9 +3206,10 @@ logical1 initialisation_fichier_acces_in
 logical1 recherche_instruction_suivante(struct_processus *s_etat_processus);
 logical1 retrait_variable(struct_processus *s_etat_processus,
 		unsigned char *nom_variable, unsigned char type);
-logical1 retrait_variable_par_niveau(struct_processus *s_etat_processus);
+logical1 retrait_variables_par_niveau(struct_processus *s_etat_processus);
 logical1 retrait_variable_partagee(struct_processus *s_etat_processus,
 		unsigned char *nom_variable, union_position_variable position);
+logical1 retrait_variables_statiques(struct_processus *s_etat_processus);
 logical1 retrait_variable_statique(struct_processus *s_etat_processus,
 		unsigned char *nom_variable, union_position_variable position);
 logical1 sequenceur(struct_processus *s_etat_processus);
@@ -3232,9 +3237,6 @@ logical1 recherche_variable_globale(stru
 logical1 recherche_variable_partagee(struct_processus *s_etat_processus,
 		unsigned char *nom_variable, union_position_variable position,
 		unsigned char origine);
-logical1 recherche_variable_statique(struct_processus *s_etat_processus,
-		unsigned char *nom_variable, union_position_variable position,
-		unsigned char origine);
 logical1 test_cfsf(struct_processus *s_etat_processus,
 		unsigned char indice_drapeau);
 logical1 test_expression_rpn(unsigned char *chaine);
@@ -3365,6 +3367,17 @@ struct_objet *parametres_sql(struct_proc
 		struct_objet *s_parametres);
 struct_objet *simplification(struct_processus *s_etat_processus,
 		struct_objet *s_objet);
+
+/*
+--------------------------------------------------------------------------------
+  Fonctions renvoyant un pointeur sur une *struct_liste_variables_statiques
+--------------------------------------------------------------------------------
+*/
+
+struct_liste_variables_statiques *recherche_variable_statique(struct_processus
+		*s_etat_processus, unsigned char *nom_variable,
+		union_position_variable position,
+		unsigned char origine);
 #endif
 
 /*