--- rpl/src/formateur_flux.c	2011/11/18 10:54:21	1.16
+++ rpl/src/formateur_flux.c	2011/11/19 17:53:46	1.17
@@ -599,9 +599,9 @@ longueur_chaine(struct_processus *s_etat
 ================================================================================
   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
+  Entrées : structure sur l'état du processus, chaîne et position du caractère
 --------------------------------------------------------------------------------
-  Sorties : longueur de la chaîne
+  Sorties : pointeur sur le caractère
 --------------------------------------------------------------------------------
   Effets de bord : néant
 ================================================================================
@@ -633,4 +633,97 @@ pointeur_ieme_caractere(struct_processus
 	return(pointeur);
 }
 
+
+/*
+================================================================================
+  Routine retournant la position du caractère en fonction du pointeur
+  dans la chaîne
+================================================================================
+  Entrées : structure sur l'état du processus, chaîne et position
+--------------------------------------------------------------------------------
+  Sorties : quantième dans la chaîne
+--------------------------------------------------------------------------------
+  Effets de bord : néant
+================================================================================
+*/
+
+integer8
+position_caractere_de_chaine(struct_processus *s_etat_processus,
+		unsigned char *chaine, unsigned char *position)
+{
+	integer8			i;
+
+	i = 1;
+
+	while(chaine != position)
+	{
+		chaine = prochain_caractere(s_etat_processus, chaine);
+		i++;
+
+		if ((*chaine) == d_code_fin_chaine)
+		{
+			return(0);
+		}
+	}
+
+	return(i);
+}
+
+
+/*
+================================================================================
+  Conversion d'une chaîne en majuscule ou en minuscule
+================================================================================
+  Entrées : chaîne et indicateur ('M' pour majuscules, 'm' pour minuscules)
+--------------------------------------------------------------------------------
+  Sorties : néant
+--------------------------------------------------------------------------------
+  Effets de bord : néant
+================================================================================
+*/
+
+void
+conversion_chaine(struct_processus *s_etat_processus,
+		unsigned char *chaine, unsigned char type)
+{
+	int					(*fonction_1)(int);
+	int					(*fonction_2)(int);
+
+	unsigned char		*ptr;
+	unsigned char		*ptr2;
+	unsigned char		registre;
+
+	if (type == 'M')
+	{
+		fonction_1 = toupper;
+		fonction_2 = tolower;
+	}
+	else
+	{
+		fonction_1 = tolower;
+		fonction_2 = toupper;
+	}
+
+	ptr = chaine;
+
+	while((*ptr) != d_code_fin_chaine)
+	{
+		ptr2 = prochain_caractere(s_etat_processus, ptr);
+
+		if ((ptr2 - ptr) == 1)
+		{
+			registre = fonction_1((*ptr));
+
+			if (fonction_2(registre) == (*ptr))
+			{
+				(*ptr) = registre;
+			}
+		}
+
+		ptr = ptr2;
+	}
+
+	return;
+}
+
 // vim: ts=4