--- rpl/src/analyse_notation_algebrique.c	2013/03/21 16:31:58	1.44
+++ rpl/src/analyse_notation_algebrique.c	2014/07/17 08:07:15	1.54
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.13
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.19
+  Copyright (C) 1989-2014 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -116,7 +116,10 @@ analyse_algebrique(struct_processus *s_e
 
 		if (chaine_algebrique[i] == '"')
 		{
-			presence_chaine = (presence_chaine == d_faux) ? d_vrai : d_faux;
+			if (chaine_algebrique[i - 1] != '\\')
+			{
+				presence_chaine = (presence_chaine == d_faux) ? d_vrai : d_faux;
+			}
 		}
 		else if (presence_chaine == d_faux)
 		{
@@ -177,13 +180,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;
+				}
 			}
 		}
 
@@ -268,8 +288,19 @@ analyse_algebrique(struct_processus *s_e
 				}
 				else if (chaine_travail[i] == '"')
 				{
-					presence_chaine = (presence_chaine == d_vrai)
-							? d_faux : d_vrai;
+					if (i > 0)
+					{
+						if (chaine_travail[i - 1] != '\\')
+						{
+							presence_chaine = (presence_chaine == d_vrai)
+									? d_faux : d_vrai;
+						}
+					}
+					else
+					{
+						presence_chaine = (presence_chaine == d_vrai)
+								? d_faux : d_vrai;
+					}
 				}
 
 				i++;
@@ -306,8 +337,19 @@ analyse_algebrique(struct_processus *s_e
 
 				if (chaine_travail[j] == '"')
 				{
-					presence_chaine = (presence_chaine == d_vrai)
-							? d_faux : d_vrai;
+					if (j > 0)
+					{
+						if (chaine_travail[j - 1] != '\\')
+						{
+							presence_chaine = (presence_chaine == d_vrai)
+									? d_faux : d_vrai;
+						}
+					}
+					else
+					{
+						presence_chaine = (presence_chaine == d_vrai)
+								? d_faux : d_vrai;
+					}
 				}
 
 				j++;
@@ -358,8 +400,19 @@ analyse_algebrique(struct_processus *s_e
 				{
 					if (chaine_centrale[i] == '"')
 					{
-						presence_chaine = (presence_chaine == d_faux)
-								? d_vrai : d_faux;
+						if (i > 0)
+						{
+							if (chaine_centrale[i - 1] != '\\')
+							{
+								presence_chaine = (presence_chaine == d_faux)
+										? d_vrai : d_faux;
+							}
+						}
+						else
+						{
+							presence_chaine = (presence_chaine == d_faux)
+									? d_vrai : d_faux;
+						}
 
 						if (i == 1)
 						{
@@ -1166,7 +1219,7 @@ test_expression_rpn(unsigned char *chain
 		if (chaine[i - 1] == '"')
 		{
 			i++;
-			while(chaine[i - 1] != '"')
+			while(!((chaine[i - 1] == '"') && (chaine[i - 2] != '\\')))
 			{
 				i++;
 			}
@@ -1315,19 +1368,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)