--- rpl/src/formateur_flux.c	2011/11/26 10:01:26	1.18
+++ rpl/src/formateur_flux.c	2012/10/01 11:05:01	1.27
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.5
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.11
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -240,6 +240,142 @@ formateur_flux(struct_processus *s_etat_
 
 	return(chaine);
 }
+
+
+/*
+================================================================================
+  Routine de d'analyse d'un flux
+================================================================================
+  Entrées : structure sur l'état du processus et objet à afficher
+--------------------------------------------------------------------------------
+  Sorties : chaine de caractères
+--------------------------------------------------------------------------------
+  Effets de bord : néant
+================================================================================
+*/
+
+unsigned char *
+analyse_flux(struct_processus *s_etat_processus, unsigned char *donnees,
+		long longueur)
+{
+	long					longueur_courante;
+	long					offset;
+
+	unsigned char			*chaine;
+	unsigned char			hexadecimal[3];
+	unsigned char			*ptr_ecriture;
+	unsigned char			*ptr_lecture;
+
+	if ((chaine = malloc((longueur_courante = longueur + 1) *
+			sizeof(unsigned char))) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return(NULL);
+	}
+
+	ptr_lecture = donnees;
+	ptr_ecriture = chaine;
+
+	while(longueur > 0)
+	{
+		// Début de la séquence d'échappement
+
+		switch((*ptr_lecture))
+		{
+			case '"':
+			case '\b':
+			case '\n':
+			case '\t':
+			{
+				offset = ptr_ecriture - chaine;
+
+				if ((chaine = realloc(chaine, (++longueur_courante)
+						* sizeof(unsigned char))) == NULL)
+				{
+					(*s_etat_processus).erreur_systeme =
+							d_es_allocation_memoire;
+					return(NULL);
+				}
+
+				ptr_ecriture = chaine + offset;
+				*ptr_ecriture++ = '\\';
+
+				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;
+					}
+				}
+
+				break;
+			}
+
+			case ' ':
+			{
+				*ptr_ecriture++ = *ptr_lecture++;
+				break;
+			}
+
+			default:
+			{
+				if (isgraph((*ptr_lecture)))
+				{
+					*ptr_ecriture++ = *ptr_lecture++;
+				}
+				else
+				{
+					offset = ptr_ecriture - chaine;
+
+					if ((chaine = realloc(chaine, (longueur_courante =
+							longueur_courante + 3) * sizeof(unsigned char)))
+							== NULL)
+					{
+						(*s_etat_processus).erreur_systeme =
+								d_es_allocation_memoire;
+						return(NULL);
+					}
+
+					ptr_ecriture = chaine + offset;
+					*ptr_ecriture++ = '\\';
+					*ptr_ecriture++ = 'x';
+
+					sprintf(hexadecimal, "%02X", *ptr_lecture++);
+
+					*ptr_ecriture++ = hexadecimal[0];
+					*ptr_ecriture++ = hexadecimal[1];
+				}
+
+				break;
+			}
+		}
+
+		longueur--;
+	}
+
+	(*ptr_ecriture) = d_code_fin_chaine;
+
+	return(chaine);
+}
 
 
 /*