--- rpl/src/sequenceur.c	2010/04/21 13:45:51	1.14
+++ rpl/src/sequenceur.c	2011/09/26 15:57:17	1.45
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.15
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.4
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -63,8 +63,6 @@ sequenceur(struct_processus *s_etat_proc
 	unsigned char				tampon_retour;
 	unsigned char				*t_ligne;
 
-	unsigned long				i;
-	unsigned long				j;
 	unsigned long				niveau;
 	unsigned long				position_courante;
 
@@ -109,9 +107,6 @@ sequenceur(struct_processus *s_etat_proc
 --------------------------------------------------------------------------------
 */
 
-	i = 0;
-	j = 0;
-
 	do
 	{
 		drapeau_appel_definition = d_faux;
@@ -199,6 +194,7 @@ sequenceur(struct_processus *s_etat_proc
 							(*s_etat_processus).localisation, d_locale))
 							== NULL)
 					{
+						free((*s_etat_processus).instruction_courante);
 						return(d_erreur);
 					}
 
@@ -305,6 +301,7 @@ sequenceur(struct_processus *s_etat_proc
 
 						if ((message = messages(s_etat_processus)) == NULL)
 						{
+							free((*s_etat_processus).instruction_courante);
 							return(d_erreur);
 						}
 
@@ -364,12 +361,15 @@ sequenceur(struct_processus *s_etat_proc
 								if ((message = messages(s_etat_processus))
 										== NULL)
 								{
+									free((*s_etat_processus)
+											.instruction_courante);
 									return(d_erreur);
 								}
 
 								printf("%s [%d]\n", message, (int) getpid());
-								free(message);
 
+								free(message);
+								free((*s_etat_processus).instruction_courante);
 								return(d_erreur);
 							}
 							else if ((*s_etat_processus)
@@ -387,6 +387,8 @@ sequenceur(struct_processus *s_etat_proc
 								if ((message = messages(s_etat_processus))
 										== NULL)
 								{
+									free((*s_etat_processus)
+											.instruction_courante);
 									return(d_erreur);
 								}
 
@@ -452,6 +454,7 @@ sequenceur(struct_processus *s_etat_proc
 
 					if ((message = messages(s_etat_processus)) == NULL)
 					{
+						free((*s_etat_processus).instruction_courante);
 						free(ligne);
 						return(d_erreur);
 					}
@@ -547,9 +550,8 @@ sequenceur(struct_processus *s_etat_proc
 						d_vrai) && ((*s_etat_processus)
 						.autorisation_evaluation_nom == 'Y'))
 				{
-					if (((*s_etat_processus).s_liste_variables
-							[(*s_etat_processus)
-							.position_variable_courante]).objet == NULL)
+					if ((*(*s_etat_processus).pointeur_variable_courante)
+							.objet == NULL)
 					{
 
 /*
@@ -566,12 +568,10 @@ sequenceur(struct_processus *s_etat_proc
 							{
 								printf("[%d] Empilement de la variable "
 										"partagée %s de type %d\n",
-										(int) getpid(),
-										(*s_etat_processus)
+										(int) getpid(), (*s_etat_processus)
 										.instruction_courante,
-										(*((*s_etat_processus).s_liste_variables
-										[(*s_etat_processus)
-										.position_variable_courante]).objet)
+										(*(*(*s_etat_processus)
+										.pointeur_variable_courante).objet)
 										.type);
 							}
 							else
@@ -580,9 +580,8 @@ sequenceur(struct_processus *s_etat_proc
 										"variable \n", (int) getpid(),
 										(*s_etat_processus)
 										.instruction_courante,
-										(*((*s_etat_processus).s_liste_variables
-										[(*s_etat_processus)
-										.position_variable_courante]).objet)
+										(*(*(*s_etat_processus)
+										.pointeur_variable_courante).objet)
 										.type);
 							}
 
@@ -598,13 +597,11 @@ sequenceur(struct_processus *s_etat_proc
 						}
 
 						if (recherche_variable_partagee(s_etat_processus,
-								((*s_etat_processus).s_liste_variables
-								[(*s_etat_processus)
-								.position_variable_courante]).nom,
-								((*s_etat_processus).s_liste_variables
-								[(*s_etat_processus)
-								.position_variable_courante])
-								.variable_partagee, 'P') == d_vrai)
+								(*(*s_etat_processus)
+								.pointeur_variable_courante).nom,
+								(*(*s_etat_processus)
+								.pointeur_variable_courante).variable_partagee,
+								'P') == d_vrai)
 						{
 							// La variable existe.
 
@@ -664,8 +661,7 @@ sequenceur(struct_processus *s_etat_proc
 --------------------------------------------------------------------------------
 */
 
-					else if ((*((*s_etat_processus).s_liste_variables
-							[(*s_etat_processus).position_variable_courante])
+					else if ((*(*(*s_etat_processus).pointeur_variable_courante)
 							.objet).type == ADR)
 					{
 
@@ -734,10 +730,9 @@ sequenceur(struct_processus *s_etat_proc
 
 							(*s_etat_processus).position_courante =
 									(*((unsigned long *)
-									((*((*s_etat_processus).s_liste_variables
-									[(*s_etat_processus)
-									.position_variable_courante]
-									.objet)).objet)));
+									((*(*(*s_etat_processus)
+									.pointeur_variable_courante)
+									.objet).objet)));
 
 							drapeau_appel_definition = d_vrai;
 						}
@@ -755,9 +750,8 @@ sequenceur(struct_processus *s_etat_proc
 										(int) getpid(),
 										(*s_etat_processus)
 										.instruction_courante,
-										(*((*s_etat_processus).s_liste_variables
-										[(*s_etat_processus)
-										.position_variable_courante]).objet)
+										(*(*(*s_etat_processus)
+										.pointeur_variable_courante).objet)
 										.type);
 							}
 							else
@@ -766,9 +760,8 @@ sequenceur(struct_processus *s_etat_proc
 										"\n", (int) getpid(),
 										(*s_etat_processus)
 										.instruction_courante,
-										(*((*s_etat_processus).s_liste_variables
-										[(*s_etat_processus)
-										.position_variable_courante]).objet)
+										(*(*(*s_etat_processus)
+										.pointeur_variable_courante).objet)
 										.type);
 							}
 
@@ -776,9 +769,8 @@ sequenceur(struct_processus *s_etat_proc
 						}
 
 						if ((s_objet = copie_objet(s_etat_processus,
-								((*s_etat_processus)
-								.s_liste_variables[(*s_etat_processus)
-								.position_variable_courante]).objet, 'P'))
+								(*(*s_etat_processus)
+								.pointeur_variable_courante).objet, 'P'))
 								== NULL)
 						{
 							(*s_etat_processus).erreur_systeme =
@@ -812,8 +804,12 @@ sequenceur(struct_processus *s_etat_proc
 					{
 						if ((*s_etat_processus).l_base_pile == NULL)
 						{
-							(*s_etat_processus).erreur_execution =
-									d_ex_manque_argument;
+							if ((*s_etat_processus).erreur_execution !=
+									d_ex_nom_implicite)
+							{
+								(*s_etat_processus).erreur_execution =
+										d_ex_manque_argument;
+							}
 						}
 						else if ((*(*(*s_etat_processus).l_base_pile).donnee)
 								.type == NOM)
@@ -848,21 +844,34 @@ sequenceur(struct_processus *s_etat_proc
 								&((*s_etat_processus).l_base_pile),
 								&s_objet_evaluation) == d_erreur)
 						{
+							free((*s_etat_processus).instruction_courante);
 							(*s_etat_processus).erreur_execution =
 									d_ex_manque_argument;
-////////////////////////////////////////////////////////////////////////////////
 							return(d_erreur);
 						}
 
 						if (evaluation(s_etat_processus, s_objet_evaluation,
 								'N') == d_erreur)
 						{
+							free((*s_etat_processus).instruction_courante);
 							liberation(s_etat_processus, s_objet_evaluation);
 							return(d_erreur);
 						}
 
 						liberation(s_etat_processus, s_objet_evaluation);
 					}
+
+					// Le séquenceur est appelé depuis la routine de
+					// recherche de type
+
+					else if ((*s_etat_processus).recherche_type == 'Y')
+					{
+						if ((*s_etat_processus).erreur_execution != d_ex)
+						{
+							free((*s_etat_processus).instruction_courante);
+							return(d_erreur);
+						}
+					}
 				}
 			}
 			else if (((*s_etat_processus).test_instruction == 'Y') &&
@@ -970,6 +979,7 @@ sequenceur(struct_processus *s_etat_proc
 
 			fflush(stdout);
 
+			free((*s_etat_processus).instruction_courante);
 			return(d_erreur);
 		}
 
@@ -1051,6 +1061,7 @@ sequenceur(struct_processus *s_etat_proc
 
 			if ((message = messages(s_etat_processus)) == NULL)
 			{
+				free((*s_etat_processus).instruction_courante);
 				return(d_erreur);
 			}
 
@@ -1137,27 +1148,26 @@ sequenceur(struct_processus *s_etat_proc
 
 					if (erreur == d_erreur)
 					{
+						free((*s_etat_processus).instruction_courante);
 						return(d_erreur);
 					}
 
 					if (recherche_variable(s_etat_processus,
 							(*s_etat_processus).instruction_courante) == d_vrai)
 					{
-						if (((*s_etat_processus).s_liste_variables
-								[(*s_etat_processus)
-								.position_variable_courante]).objet == NULL)
+						if ((*(*s_etat_processus).pointeur_variable_courante)
+								.objet == NULL)
 						{
 							// Variable partagée
 						}
-						else if ((*((*s_etat_processus).s_liste_variables
-								[(*s_etat_processus)
-								.position_variable_courante]).objet).type ==
-								ADR)
+						else if ((*(*(*s_etat_processus)
+								.pointeur_variable_courante).objet).type == ADR)
 						{
 							empilement_pile_systeme(s_etat_processus);
 
 							if ((*s_etat_processus).erreur_systeme != d_es)
 							{
+								free((*s_etat_processus).instruction_courante);
 								return(d_erreur);
 							}
 
@@ -1174,10 +1184,9 @@ sequenceur(struct_processus *s_etat_proc
 
 							(*s_etat_processus).position_courante =
 									(*((unsigned long *)
-									((*((*s_etat_processus).s_liste_variables
-									[(*s_etat_processus)
-									.position_variable_courante]
-									.objet)).objet)));
+									((*(*(*s_etat_processus)
+									.pointeur_variable_courante)
+									.objet).objet)));
 
 							(*s_etat_processus)
 									.autorisation_empilement_programme = 'N';
@@ -1191,6 +1200,7 @@ sequenceur(struct_processus *s_etat_proc
 
 						if (instruction_majuscule == NULL)
 						{
+							free((*s_etat_processus).instruction_courante);
 							return(d_erreur);
 						}
 
@@ -1383,7 +1393,8 @@ sequenceur(struct_processus *s_etat_proc
 
 		if ((*s_etat_processus).var_volatile_processus_pere == 0)
 		{
-			kill((*s_etat_processus).pid_processus_pere, SIGALRM);
+			envoi_signal_processus((*s_etat_processus).pid_processus_pere,
+					rpl_sigalrm);
 		}
 		else
 		{