--- rpl/src/formateur_flux.c	2012/06/12 11:44:34	1.24
+++ rpl/src/formateur_flux.c	2013/03/01 09:29:30	1.33
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.9
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -165,14 +165,16 @@ formateur_flux(struct_processus *s_etat_
 							{
 								printf("+++Information : "
 										"Séquence d'échappement "
-										"inconnue [%d]\n",
+										"inconnue (\\x%c%c) [%d]\n",
+										*ptr_lecture, *(ptr_lecture + 1),
 										(int) getpid());
 							}
 							else
 							{
 								printf("+++Warning : Unknown "
-										"escape code "
-										"[%d]\n", (int) getpid());
+										"escape code (\\x%c%c) [%d]\n",
+										*ptr_lecture, *(ptr_lecture + 1),
+										(int) getpid());
 							}
 						}
 					}
@@ -182,11 +184,11 @@ formateur_flux(struct_processus *s_etat_
 						{
 							printf("+++Information : "
 									"Séquence d'échappement "
-									"inconnue [%d]\n", (int) getpid());
+									"tronquée [%d]\n", (int) getpid());
 						}
 						else
 						{
-							printf("+++Warning : Unknown escape code "
+							printf("+++Warning : Truncated escape code "
 									"[%d]\n", (int) getpid());
 						}
 					}
@@ -212,15 +214,35 @@ formateur_flux(struct_processus *s_etat_
 			}
 			else
 			{
-				if ((*s_etat_processus).langue == 'F')
+				if ((*(ptr_lecture + 1)) == d_code_fin_chaine)
 				{
-					printf("+++Information : Séquence d'échappement "
-							"inconnue [%d]\n", (int) getpid());
+					if ((*s_etat_processus).langue == 'F')
+					{
+						printf("+++Information : "
+								"Séquence d'échappement "
+								"tronquée [%d]\n", (int) getpid());
+					}
+					else
+					{
+						printf("+++Warning : Truncated escape code "
+								"[%d]\n", (int) getpid());
+					}
 				}
 				else
-				{
-					printf("+++Warning : Unknown escape code "
-							"[%d]\n", (int) getpid());
+				{	
+					if ((*s_etat_processus).langue == 'F')
+					{
+						printf("+++Information : Séquence d'échappement "
+								"inconnue (%c%c) [%d]\n",
+								*ptr_lecture, *(ptr_lecture + 1),
+								(int) getpid());
+					}
+					else
+					{
+						printf("+++Warning : Unknown escape code (%c%c) "
+								"[%d]\n", *ptr_lecture, *(ptr_lecture + 1),
+								(int) getpid());
+					}
 				}
 			}
 		}
@@ -256,8 +278,9 @@ formateur_flux(struct_processus *s_etat_
 
 unsigned char *
 analyse_flux(struct_processus *s_etat_processus, unsigned char *donnees,
-		long *longueur)
+		long longueur)
 {
+	long					longueur_courante;
 	long					offset;
 
 	unsigned char			*chaine;
@@ -265,8 +288,8 @@ analyse_flux(struct_processus *s_etat_pr
 	unsigned char			*ptr_ecriture;
 	unsigned char			*ptr_lecture;
 
-	if ((chaine = malloc(((*longueur) = (strlen(donnees)) + 1)
-			* sizeof(unsigned char))) == NULL)
+	if ((chaine = malloc((longueur_courante = longueur + 1) *
+			sizeof(unsigned char))) == NULL)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return(NULL);
@@ -275,10 +298,8 @@ analyse_flux(struct_processus *s_etat_pr
 	ptr_lecture = donnees;
 	ptr_ecriture = chaine;
 
-	while((*ptr_lecture) != d_code_fin_chaine)
+	while(longueur > 0)
 	{
-		(*longueur)++;
-
 		// Début de la séquence d'échappement
 
 		switch((*ptr_lecture))
@@ -287,10 +308,11 @@ analyse_flux(struct_processus *s_etat_pr
 			case '\b':
 			case '\n':
 			case '\t':
+			case '\\':
 			{
 				offset = ptr_ecriture - chaine;
 
-				if ((chaine = realloc(chaine, ((*longueur) = (*longueur) + 1)
+				if ((chaine = realloc(chaine, (++longueur_courante)
 						* sizeof(unsigned char))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -300,8 +322,40 @@ analyse_flux(struct_processus *s_etat_pr
 
 				ptr_ecriture = chaine + offset;
 				*ptr_ecriture++ = '\\';
-				*ptr_ecriture++ = *ptr_lecture++;
-				(*longueur)++;
+
+				switch((*ptr_lecture++))
+				{
+					case '"':
+					{
+						*ptr_ecriture++ = '"';
+						break;
+					}
+
+					case '\b':
+					{
+						*ptr_ecriture++ = 'b';
+						break;
+					}
+
+					case '\n':
+					{
+						*ptr_ecriture++ = 'n';
+						break;
+					}
+
+					case '\t':
+					{
+						*ptr_ecriture++ = 't';
+						break;
+					}
+
+					case '\\':
+					{
+						*ptr_ecriture++ = '\\';
+						break;
+					}
+				}
+
 				break;
 			}
 
@@ -321,8 +375,9 @@ analyse_flux(struct_processus *s_etat_pr
 				{
 					offset = ptr_ecriture - chaine;
 
-					if ((chaine = realloc(chaine, ((*longueur) = (*longueur)
-							+ 3) * sizeof(unsigned char))) == NULL)
+					if ((chaine = realloc(chaine, (longueur_courante =
+							longueur_courante + 3) * sizeof(unsigned char)))
+							== NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
 								d_es_allocation_memoire;
@@ -337,12 +392,13 @@ analyse_flux(struct_processus *s_etat_pr
 
 					*ptr_ecriture++ = hexadecimal[0];
 					*ptr_ecriture++ = hexadecimal[1];
-					(*longueur) += 3;
 				}
 
 				break;
 			}
 		}
+
+		longueur--;
 	}
 
 	(*ptr_ecriture) = d_code_fin_chaine;