--- rpl/src/formateur_flux.c	2011/11/17 22:21:16	1.14
+++ rpl/src/formateur_flux.c	2011/11/18 09:51:32	1.15
@@ -244,6 +244,134 @@ formateur_flux(struct_processus *s_etat_
 
 /*
 ================================================================================
+  Routine testant la validité d'une chaîne de caractères
+================================================================================
+  Entrées : structure sur l'état du processus et chaîne courante
+--------------------------------------------------------------------------------
+  Sorties : pointeur sur le caractère suivant
+--------------------------------------------------------------------------------
+  Effets de bord : néant
+================================================================================
+*/
+
+logical1
+validation_chaine(unsigned char *chaine)
+{
+	if (chaine == NULL)
+	{
+		return(d_faux);
+	}
+
+	while((*chaine) != d_code_fin_chaine)
+	{
+		if ((*chaine) == '\\')
+		{
+			if ((*(chaine + 1)) == '"')
+			{
+				// Valide
+			}
+			else if ((*(chaine + 1)) == 'b')
+			{
+				// Valide
+			}
+			else if ((*(chaine + 1)) == 'n')
+			{
+				// Valide
+			}
+			else if ((*(chaine + 1)) == 't')
+			{
+				// Valide
+			}
+			else if ((*(chaine + 1)) == 'x')
+			{
+				if ((*(chaine + 2)) != d_code_fin_chaine)
+				{
+					if ((*(chaine + 3)) != d_code_fin_chaine)
+					{
+						switch(*(chaine + 2))
+						{
+							case '0':
+							case '1':
+							case '2':
+							case '3':
+							case '4':
+							case '5':
+							case '6':
+							case '7':
+							case '8':
+							case '9':
+							case 'A':
+							case 'B':
+							case 'C':
+							case 'D':
+							case 'E':
+							case 'F':
+								break;
+
+							default:
+								return(d_faux);
+								break;
+						}
+
+						switch(*(chaine + 3))
+						{
+							case '0':
+							case '1':
+							case '2':
+							case '3':
+							case '4':
+							case '5':
+							case '6':
+							case '7':
+							case '8':
+							case '9':
+							case 'A':
+							case 'B':
+							case 'C':
+							case 'D':
+							case 'E':
+							case 'F':
+								break;
+
+							default:
+								return(d_faux);
+								break;
+						}
+					}
+					else
+					{
+						return(d_faux);
+					}
+				}
+				else
+				{
+					return(d_faux);
+				}
+			}
+			else if ((*(chaine + 1)) == '\\')
+			{
+				// Valide
+			}
+			else
+			{
+				// Tous les autres cas sont invalides
+				return(d_faux);
+			}
+		}
+		else
+		{
+			// Caractère valide
+		}
+
+		chaine++;
+	}
+
+	return(d_vrai);
+}
+
+
+/*
+================================================================================
   Routine permettant de trouver le caractère suivant dans une chaîne
 ================================================================================
   Entrées : structure sur l'état du processus et chaîne courante
@@ -259,6 +387,11 @@ prochain_caractere(struct_processus *s_e
 {
 	unsigned char		*suivant;
 
+	if (chaine == NULL)
+	{
+		return(NULL);
+	}
+
 	if ((*chaine) == '\\')
 	{
 		if ((*(chaine + 1)) == '"')
@@ -461,4 +594,43 @@ longueur_chaine(struct_processus *s_etat
 	return(nombre_caracteres);
 }
 
+
+/*
+================================================================================
+  Routine retournant un pointeur sur le i-ème caractère d'une chaîne
+================================================================================
+  Entrées : structure sur l'état du processus et chaîne
+--------------------------------------------------------------------------------
+  Sorties : longueur de la chaîne
+--------------------------------------------------------------------------------
+  Effets de bord : néant
+================================================================================
+*/
+
+unsigned char *
+pointeur_ieme_caractere(struct_processus *s_etat_processus,
+		unsigned char *chaine, integer8 position)
+{
+	integer8			i;
+
+	unsigned char		*pointeur;
+
+	if ((pointeur = chaine) == NULL)
+	{
+		return(NULL);
+	}
+
+	for(i = 0; i < position; i++)
+	{
+		pointeur = prochain_caractere(s_etat_processus, pointeur);
+
+		if ((*pointeur) == d_code_fin_chaine)
+		{
+			return(pointeur);
+		}
+	}
+
+	return(pointeur);
+}
+
 // vim: ts=4