--- rpl/src/compilation.c	2010/03/04 10:17:47	1.4
+++ rpl/src/compilation.c	2010/05/24 10:58:29	1.10
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.12
+  RPL/2 (R) version 4.0.16
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -72,7 +72,6 @@ compilation(struct_processus *s_etat_pro
 
 	(*s_etat_processus).position_courante = 0;
 
-
 /*
 --------------------------------------------------------------------------------
   Recheche des définitions
@@ -1687,6 +1686,35 @@ conversion_majuscule(unsigned char *chai
 	return(chaine_convertie);
 }
 
+void
+conversion_majuscule_limitee(unsigned char *chaine_entree,
+		unsigned char *chaine_sortie, unsigned long longueur)
+{
+	unsigned long			i;
+
+	for(i = 0; i < longueur; i++)
+	{
+		if (isalpha((*chaine_entree)))
+		{
+			(*chaine_sortie) = (unsigned char) toupper((*chaine_entree));
+		}
+		else
+		{
+			(*chaine_sortie) = (*chaine_entree);
+		}
+
+		if ((*chaine_entree) == d_code_fin_chaine)
+		{
+			break;
+		}
+
+		chaine_entree++;
+		chaine_sortie++;
+	}
+
+	return;
+}
+
 
 /*
 ================================================================================