--- rpl/src/compilation.c	2014/07/17 08:07:16	1.67
+++ rpl/src/compilation.c	2014/07/26 09:58:02	1.68
@@ -1017,6 +1017,8 @@ swap(void *variable_1, void *variable_2,
 logical1
 recherche_instruction_suivante(struct_processus *s_etat_processus)
 {
+	enum t_type					registre_type_en_cours;
+
 	logical1					drapeau_fin_objet;
 	logical1					erreur;
 
@@ -1024,18 +1026,45 @@ recherche_instruction_suivante(struct_pr
 	int							erreur_format;
 
 	unsigned char				base_binaire;
+	unsigned char				caractere_fin;
 	unsigned char				*pointeur_caractere_courant;
 	unsigned char				*pointeur_caractere_destination;
 	unsigned char				*pointeur_debut_instruction;
 	unsigned char				*pointeur_fin_instruction;
 
 	signed long					niveau;
-	signed long					niveau_annexe;
 
 	erreur_analyse = d_ex;
 	erreur_format = d_ex;
 	erreur = d_absence_erreur;
 
+	switch((*s_etat_processus).type_en_cours)
+	{
+		case RPN:
+		{
+			caractere_fin = '>';
+			break;
+		}
+
+		case LST:
+		{
+			caractere_fin = '}';
+			break;
+		}
+
+		case TBL:
+		{
+			caractere_fin = ']';
+			break;
+		}
+
+		default:
+		{
+			caractere_fin = d_code_espace;
+			break;
+		}
+	}
+
 	drapeau_fin_objet = d_faux;
 	niveau = 0;
 
@@ -1074,8 +1103,7 @@ recherche_instruction_suivante(struct_pr
 	while(((*pointeur_caractere_courant) != d_code_espace) &&
 			((*pointeur_caractere_courant) != d_code_fin_chaine) &&
 			(drapeau_fin_objet == d_faux) &&
-			(erreur_analyse == d_ex) &&
-			(erreur_format == d_ex))
+			(erreur_analyse == d_ex) && (erreur_format == d_ex))
 	{
 		switch(*pointeur_caractere_courant++)
 		{
@@ -1294,7 +1322,8 @@ recherche_instruction_suivante(struct_pr
 				pointeur_caractere_courant++;
 
 				if (((*pointeur_caractere_courant) != d_code_fin_chaine) &&
-						((*pointeur_caractere_courant) != ' '))
+						((*pointeur_caractere_courant) != d_code_espace) &&
+						((*pointeur_caractere_courant) != caractere_fin))
 				{
 					erreur_analyse = d_ex_syntaxe;
 				}
@@ -1418,7 +1447,6 @@ recherche_instruction_suivante(struct_pr
 				}
 
 				niveau = 1;
-				niveau_annexe = 0;
 
 				while((niveau != 0) && ((*pointeur_caractere_courant) !=
 						d_code_fin_chaine))
@@ -1427,13 +1455,20 @@ recherche_instruction_suivante(struct_pr
 							pointeur_caractere_courant
 							- (*s_etat_processus).definitions_chainees;
 
+					registre_type_en_cours = (*s_etat_processus).type_en_cours;
+					(*s_etat_processus).type_en_cours = LST;
+
 					if (recherche_instruction_suivante(s_etat_processus)
 							== d_erreur)
 					{
+						(*s_etat_processus).type_en_cours =
+								registre_type_en_cours;
+
 						if ((*s_etat_processus).instruction_courante
 								!= NULL)
 						{
 							free((*s_etat_processus).instruction_courante);
+							(*s_etat_processus).instruction_courante = NULL;
 						}
 
 						return(d_erreur);
@@ -1443,92 +1478,16 @@ recherche_instruction_suivante(struct_pr
 							(*s_etat_processus).definitions_chainees +
 							(*s_etat_processus).position_courante;
 
-					if (strcmp((*s_etat_processus).instruction_courante, "{")
+					if (strcmp((*s_etat_processus).instruction_courante, "}")
 							== 0)
 					{
-						if (niveau_annexe == 0)
-						{
-							niveau++;
-						}
-						else
-						{
-							erreur_analyse = d_ex_syntaxe;
-						}
-					}
-					else if (strcmp((*s_etat_processus).instruction_courante,
-							"}") == 0)
-					{
-						if (niveau_annexe == 0)
-						{
-							niveau--;
-						}
-						else
-						{
-							erreur_analyse = d_ex_syntaxe;
-						}
-					}
-					else if (strcmp((*s_etat_processus).instruction_courante,
-							"<[") == 0)
-					{
-						niveau++;
-					}
-					else if (strcmp((*s_etat_processus).instruction_courante,
-							"]>") == 0)
-					{
 						niveau--;
 					}
-					else if (strcmp((*s_etat_processus).instruction_courante,
-							"[") == 0)
-					{
-						niveau_annexe++;
-
-						if (niveau_annexe > 2)
-						{
-							erreur_analyse = d_ex_syntaxe;
-						}
-					}
-					else if (strcmp((*s_etat_processus).instruction_courante,
-							"[[") == 0)
-					{
-						niveau_annexe += 2;
-
-						if (niveau_annexe > 2)
-						{
-							erreur_analyse = d_ex_syntaxe;
-						}
-					}
-					else if (strcmp((*s_etat_processus).instruction_courante,
-							"]") == 0)
-					{
-						niveau_annexe--;
-
-						if (niveau_annexe < 0)
-						{
-							erreur_analyse = d_ex_syntaxe;
-						}
-					}
-					else if (strcmp((*s_etat_processus).instruction_courante,
-							"]]") == 0)
-					{
-						niveau_annexe -= 2;
-
-						if (niveau_annexe < 0)
-						{
-							erreur_analyse = d_ex_syntaxe;
-						}
-					}
-					else if ((*s_etat_processus).instruction_courante[0] == '"')
-					{
-						if (niveau_annexe != 0)
-						{
-							erreur_analyse = d_ex_syntaxe;
-						}
-					}
 
 					free((*s_etat_processus).instruction_courante);
 				}
 
-				if ((niveau != 0) || (niveau_annexe != 0))
+				if (niveau != 0)
 				{
 					erreur_analyse = d_ex_syntaxe;
 				}
@@ -1635,18 +1594,28 @@ recherche_instruction_suivante(struct_pr
 								pointeur_caractere_courant
 								- (*s_etat_processus).definitions_chainees;
 
+						registre_type_en_cours = (*s_etat_processus)
+								.type_en_cours;
+						(*s_etat_processus).type_en_cours = RPN;
+
 						if (recherche_instruction_suivante(s_etat_processus)
 								== d_erreur)
 						{
+							(*s_etat_processus).type_en_cours =
+									registre_type_en_cours;
+
 							if ((*s_etat_processus).instruction_courante
 									!= NULL)
 							{
 								free((*s_etat_processus).instruction_courante);
+								(*s_etat_processus).instruction_courante = NULL;
 							}
 
 							return(d_erreur);
 						}
 
+						(*s_etat_processus).type_en_cours =
+								registre_type_en_cours;
 						pointeur_caractere_courant =
 								(*s_etat_processus).definitions_chainees +
 								(*s_etat_processus).position_courante;
@@ -1713,19 +1682,30 @@ recherche_instruction_suivante(struct_pr
 									pointeur_caractere_courant
 									- (*s_etat_processus).definitions_chainees;
 
+							registre_type_en_cours = (*s_etat_processus)
+									.type_en_cours;
+							(*s_etat_processus).type_en_cours = TBL;
+
 							if ((erreur = recherche_instruction_suivante(
 									s_etat_processus)) != d_absence_erreur)
 							{
+								(*s_etat_processus).type_en_cours =
+										registre_type_en_cours;
+
 								if ((*s_etat_processus).instruction_courante
 										!= NULL)
 								{
 									free((*s_etat_processus)
 											.instruction_courante);
+									(*s_etat_processus).instruction_courante
+											= NULL;
 								}
 
 								return(d_erreur);
 							}
 
+							(*s_etat_processus).type_en_cours =
+									registre_type_en_cours;
 							pointeur_caractere_courant = (*s_etat_processus)
 									.definitions_chainees + (*s_etat_processus)
 									.position_courante;
@@ -1744,6 +1724,11 @@ recherche_instruction_suivante(struct_pr
 				break;
 			}
 		}
+
+		if ((*pointeur_caractere_courant) == caractere_fin)
+		{
+			break;
+		}
 	}
 
 	pointeur_fin_instruction = pointeur_caractere_courant;
@@ -1779,6 +1764,7 @@ recherche_instruction_suivante(struct_pr
 		(*(*s_etat_processus).instruction_courante) = d_code_fin_chaine;
 	}
 
+uprintf("%c %s\n", caractere_fin, (*s_etat_processus).instruction_courante);
 	(*s_etat_processus).position_courante = pointeur_fin_instruction
 			- (*s_etat_processus).definitions_chainees;