--- rpl/src/analyse_notation_algebrique.c	2013/03/20 17:11:43	1.43
+++ rpl/src/analyse_notation_algebrique.c	2013/03/23 16:14:39	1.45
@@ -57,8 +57,6 @@ analyse_algebrique(struct_processus *s_e
 	logical1							presence_fonction;
 	logical1							presence_liste;
 
-	long								k;
-
 	unsigned char						*chaine_arguments;
 	unsigned char						*chaine_centrale;
 	unsigned char						*chaine_droite;
@@ -88,6 +86,7 @@ analyse_algebrique(struct_processus *s_e
 	integer8							fin_zone_algebrique;
 	integer8							i;
 	integer8							j;
+	integer8							k;
 	integer8							longueur_chaine;
 	integer8							longueur_tampon;
 	integer8							niveau;
@@ -178,13 +177,30 @@ analyse_algebrique(struct_processus *s_e
 	{
 		if ((*ptr1) == '"')
 		{
-			if (presence_chaine == d_faux)
-			{
-				presence_chaine = d_vrai;
+			if (ptr1 != chaine_travail)
+			{ // Il existe un caractère précédent.
+				if ((*(ptr1 - 1)) != '\\')
+				{
+					if (presence_chaine == d_faux)
+					{
+						presence_chaine = d_vrai;
+					}
+					else
+					{
+						presence_chaine = d_faux;
+					}
+				}
 			}
 			else
-			{
-				presence_chaine = d_faux;
+			{ // Il n'existe pas de caractère précédent.
+				if (presence_chaine == d_faux)
+				{
+					presence_chaine = d_vrai;
+				}
+				else
+				{
+					presence_chaine = d_faux;
+				}
 			}
 		}
 
@@ -1098,8 +1114,8 @@ analyse_algebrique(struct_processus *s_e
 unsigned char *
 purification_chaine(unsigned char *chaine)
 {
-	long						i;
-	long						j;
+	integer8					i;
+	integer8					j;
 
 	unsigned char				*chaine_purifiee;
 
@@ -1137,8 +1153,6 @@ purification_chaine(unsigned char *chain
 logical1
 test_expression_rpn(unsigned char *chaine)
 {
-	long					j;
-
 	int						t;
 	int						t0;
 	int						t1;
@@ -1149,6 +1163,7 @@ test_expression_rpn(unsigned char *chain
 	integer8				compteur;
 	integer8				longueur_chaine;
 	integer8				i;
+	integer8				j;
 	integer8				niveau;
 
 	/*
@@ -1317,19 +1332,7 @@ extraction_chaine(unsigned char *chaine,
 	unsigned char			*sous_chaine;
 
 	if ((position_1 < 1) || (position_2 < position_1) ||
-			(position_1 > ((integer8) strlen(chaine))))
-	{
-		if ((sous_chaine = (unsigned char *) malloc(sizeof(unsigned char)))
-				== NULL)
-		{
-			return(NULL);
-		}
-
-		(*sous_chaine) = d_code_fin_chaine;
-		return(sous_chaine);
-	}
-
-	if (position_2 > ((integer8) strlen(chaine)))
+			(position_2 > ((integer8) strlen(chaine))))
 	{
 		if ((sous_chaine = (unsigned char *) malloc(sizeof(unsigned char)))
 				== NULL)