--- rpl/src/analyse_notation_algebrique.c	2013/02/27 17:11:39	1.42
+++ rpl/src/analyse_notation_algebrique.c	2013/03/20 17:11:43	1.43
@@ -76,24 +76,25 @@ analyse_algebrique(struct_processus *s_e
 	unsigned char						registre_test;
 	unsigned char						*sous_chaine_droite;
 	unsigned char						*sous_chaine_gauche;
-	unsigned char						t0;
-	unsigned char						t1;
-	unsigned char						t2;
-	unsigned char						t3;
-	unsigned char						t4;
 	unsigned char						*tampon;
 
-	unsigned long						debut_zone_algebrique;
-	unsigned long						fin_zone_algebrique;
-	unsigned long						i;
-	unsigned long						j;
-	unsigned long						longueur_chaine;
-	unsigned long						longueur_tampon;
-	unsigned long						niveau;
-	unsigned long						niveau_liste;
-	unsigned long						nombre_apostrophes;
-	unsigned long						nombre_arguments;
-	unsigned long						priorite;
+	int									t0;
+	int									t1;
+	int									t2;
+	int									t3;
+	int									t4;
+
+	integer8							debut_zone_algebrique;
+	integer8							fin_zone_algebrique;
+	integer8							i;
+	integer8							j;
+	integer8							longueur_chaine;
+	integer8							longueur_tampon;
+	integer8							niveau;
+	integer8							niveau_liste;
+	integer8							nombre_apostrophes;
+	integer8							nombre_arguments;
+	integer8							priorite;
 
 	(*l_base_liste) = NULL;
 
@@ -106,7 +107,8 @@ analyse_algebrique(struct_processus *s_e
 	presence_liste = d_faux;
 	niveau_liste = 0;
 
-	for(i = 1, chaine_invalide = d_vrai; i < strlen(chaine_algebrique) - 1; i++)
+	for(i = 1, chaine_invalide = d_vrai; i < ((integer8)
+			strlen(chaine_algebrique)) - 1; i++)
 	{
 		if (chaine_algebrique[i] != ' ')
 		{
@@ -143,7 +145,7 @@ analyse_algebrique(struct_processus *s_e
 	 * Transformation des "**" en "^ "
 	 */
 
-	for(i = 1; i < strlen(chaine_algebrique) - 1; i++)
+	for(i = 1; i < ((integer8) strlen(chaine_algebrique)) - 1; i++)
 	{
 		if (chaine_algebrique[i] == '*')
 		{
@@ -323,7 +325,8 @@ analyse_algebrique(struct_processus *s_e
 						debut_zone_algebrique + 1, fin_zone_algebrique + 1));
 				chaine_droite = purification_chaine(
 						extraction_chaine(chaine_travail,
-						fin_zone_algebrique + 2, strlen(chaine_travail)));
+						fin_zone_algebrique + 2,
+						(integer8) strlen(chaine_travail)));
 
 				free(chaine_travail);
 
@@ -352,7 +355,7 @@ analyse_algebrique(struct_processus *s_e
 				drapeau_elimination_parentheses = d_vrai;
 				presence_chaine = d_faux;
 
-				while(i < (strlen(chaine_centrale) - 1))
+				while(i < ((integer8) strlen(chaine_centrale)) - 1)
 				{
 					if (chaine_centrale[i] == '"')
 					{
@@ -416,7 +419,7 @@ analyse_algebrique(struct_processus *s_e
 				{
 					if ((tampon = purification_chaine(
 							extraction_chaine(chaine_centrale, 2,
-							strlen(chaine_centrale) - 1))) == NULL)
+							((integer8) strlen(chaine_centrale)) - 1))) == NULL)
 					{
 						(*s_etat_processus).erreur_systeme =
 								d_es_allocation_memoire;
@@ -473,13 +476,13 @@ analyse_algebrique(struct_processus *s_e
 						(fin_zone_algebrique - debut_zone_algebrique > 0))
 				{
 					i = 1;
-					while((i < (strlen(chaine_centrale) - 1)) &&
+					while((i < ((integer8) strlen(chaine_centrale)) - 1) &&
 							(chaine_centrale[i] != '('))
 					{
 						i++;
 					}
 
-					j = strlen(chaine_centrale) - 1;
+					j = ((integer8) strlen(chaine_centrale)) - 1;
 					while(chaine_centrale[j] != ')')
 					{
 						j--;
@@ -512,7 +515,7 @@ analyse_algebrique(struct_processus *s_e
 									extraction_chaine(chaine_arguments, 1, i));
 							sous_chaine_droite = purification_chaine(
 									extraction_chaine(chaine_arguments, i + 2,
-									strlen(chaine_arguments)));
+									((integer8) strlen(chaine_arguments))));
 
 							free(chaine_arguments);
 
@@ -595,8 +598,8 @@ analyse_algebrique(struct_processus *s_e
 						(*s_etat_processus).instruction_valide =
 								registre_instruction_valide;
 
-						if (((unsigned long) (*s_etat_processus)
-								.nombre_arguments != nombre_arguments) &&
+						if (((*s_etat_processus).nombre_arguments !=
+								nombre_arguments) &&
 								((*s_etat_processus).nombre_arguments != -2))
 						{
 							(*s_etat_processus).erreur_execution =
@@ -727,7 +730,7 @@ analyse_algebrique(struct_processus *s_e
 		} while((drapeau_debut_zone_valide == d_vrai)
 				&& (drapeau_fin_zone_valide == d_vrai));
 
-		for(longueur_chaine = strlen(chaine_travail),
+		for(longueur_chaine = (integer8) strlen(chaine_travail),
 				i = nombre_apostrophes = 0; i < longueur_chaine;
 				nombre_apostrophes += (chaine_travail[i++] == '\'') ? 1 : 0);
 
@@ -770,7 +773,7 @@ analyse_algebrique(struct_processus *s_e
 							i + 1, j + 1));
 					chaine_droite = purification_chaine(
 							extraction_chaine(chaine_travail, j + 2,
-							strlen(chaine_travail)));
+							((integer8) strlen(chaine_travail))));
 
 					if ((chaine_gauche == NULL) || (chaine_centrale == NULL) ||
 							(chaine_droite == NULL))
@@ -782,7 +785,8 @@ analyse_algebrique(struct_processus *s_e
 
 					drapeau_elimination_parentheses = d_vrai;
 
-					if ((longueur_tampon = strlen(chaine_centrale)) != 0)
+					if ((longueur_tampon = ((integer8) strlen(chaine_centrale)))
+							!= 0)
 					{
 						niveau = 0;
 
@@ -810,9 +814,9 @@ analyse_algebrique(struct_processus *s_e
 
 						if (drapeau_elimination_parentheses == d_vrai)
 						{
-							if ((tampon = (unsigned char *) malloc(
-									((longueur_tampon = strlen(
-									chaine_centrale)) + 1) * sizeof(
+							if ((tampon = (unsigned char *) malloc(((size_t)
+									((longueur_tampon = (integer8) strlen(
+									chaine_centrale)) + 1)) * sizeof(
 									unsigned char))) == NULL)
 							{
 								(*s_etat_processus).erreur_systeme =
@@ -838,15 +842,14 @@ analyse_algebrique(struct_processus *s_e
 					}
 
 					tampon[0] = d_code_fin_chaine;
-					longueur_chaine = strlen(chaine_centrale);
+					longueur_chaine = (integer8) strlen(chaine_centrale);
+					k = ((integer8) strlen(chaine_centrale)) - 1;
 					niveau = 0;
-					k = strlen(chaine_centrale) - 1;
 					fin_boucle_extraction = d_faux;
 
-					while((k >= 0) && (fin_boucle_extraction ==
-							d_faux))
+					while((k >= 0) && (fin_boucle_extraction == d_faux))
 					{
-						t0 = ((size_t) k < strlen(chaine_centrale))
+						t0 = (k < ((integer8) strlen(chaine_centrale)))
 								? chaine_centrale[k + 1] : ' ';
 						t1 = chaine_centrale[k];
 						t2 = (k < 1) ? ' ' : chaine_centrale[k - 1];
@@ -1101,7 +1104,7 @@ purification_chaine(unsigned char *chain
 	unsigned char				*chaine_purifiee;
 
 	i = 0;
-	j = strlen(chaine) - 1;
+	j = ((integer8) strlen(chaine)) - 1;
 
 	while(chaine[i] == ' ')
 	{
@@ -1136,17 +1139,17 @@ test_expression_rpn(unsigned char *chain
 {
 	long					j;
 
-	unsigned char			t;
-	unsigned char			t0;
-	unsigned char			t1;
-	unsigned char			t2;
-	unsigned char			t3;
-	unsigned char			t4;
-
-	unsigned long			compteur;
-	unsigned long			longueur_chaine;
-	unsigned long			i;
-	unsigned long			niveau;
+	int						t;
+	int						t0;
+	int						t1;
+	int						t2;
+	int						t3;
+	int						t4;
+
+	integer8				compteur;
+	integer8				longueur_chaine;
+	integer8				i;
+	integer8				niveau;
 
 	/*
 	 * On teste d'abord la chaîne pour vérifier qu'il n'y a pas de fonction
@@ -1155,7 +1158,8 @@ test_expression_rpn(unsigned char *chain
 
 	compteur = 0;
 
-	for(longueur_chaine = strlen(chaine), i = 1; i < longueur_chaine; i++)
+	for(longueur_chaine = ((integer8) strlen(chaine)), i = 1;
+			i < longueur_chaine; i++)
 	{
 		/*
 		 * On saute les chaînes de caractères
@@ -1170,12 +1174,12 @@ test_expression_rpn(unsigned char *chain
 			}
 		}
 
-		j = ((long) i) - 2;
+		j = i - 2;
 		t0 = (i >= 2) ? chaine[i - 2] : '?';
 		t1 = chaine[i - 1];
 		t2 = chaine[i];
-		t3 = ((i + 1) < strlen(chaine)) ? chaine[i + 1] : '?';
-		t4 = ((i + 2) < strlen(chaine)) ? chaine[i + 2] : '?';
+		t3 = ((i + 1) < ((integer8) strlen(chaine))) ? chaine[i + 1] : '?';
+		t4 = ((i + 2) < ((integer8) strlen(chaine))) ? chaine[i + 2] : '?';
 
 		/*
 		 * Ouverture d'une parenthèse signalant une fonction
@@ -1254,13 +1258,13 @@ test_fonction(unsigned char *chaine)
 {
 	logical1				drapeau_fonction;
 
-	unsigned char			t;
+	int						t;
 
-	unsigned long			compteur;
-	unsigned long			i;
-	unsigned long			longueur_chaine;
+	integer8				compteur;
+	integer8				i;
+	integer8				longueur_chaine;
 
-	longueur_chaine = strlen(chaine);
+	longueur_chaine = (integer8) strlen(chaine);
 	i = 1;
 
 	while(((t = chaine[i]) != '(') && (i < (longueur_chaine - 1)))
@@ -1303,17 +1307,29 @@ test_fonction(unsigned char *chaine)
 
 
 unsigned char *
-extraction_chaine(unsigned char *chaine, unsigned long position_1,
-		unsigned long position_2)
+extraction_chaine(unsigned char *chaine, integer8 position_1,
+		integer8 position_2)
 {
-	long					i;
+	integer8				i;
 
 	unsigned char			*pointeur_ecriture;
 	unsigned char			*pointeur_lecture;
 	unsigned char			*sous_chaine;
 
 	if ((position_1 < 1) || (position_2 < position_1) ||
-			(position_2 > strlen(chaine)))
+			(position_1 > ((integer8) strlen(chaine))))
+	{
+		if ((sous_chaine = (unsigned char *) malloc(sizeof(unsigned char)))
+				== NULL)
+		{
+			return(NULL);
+		}
+
+		(*sous_chaine) = d_code_fin_chaine;
+		return(sous_chaine);
+	}
+
+	if (position_2 > ((integer8) strlen(chaine)))
 	{
 		if ((sous_chaine = (unsigned char *) malloc(sizeof(unsigned char)))
 				== NULL)
@@ -1326,8 +1342,8 @@ extraction_chaine(unsigned char *chaine,
 	}
 
 	if ((sous_chaine = (unsigned char *)
-			malloc((position_2 - position_1 + 2) * sizeof(unsigned char)))
-			== NULL)
+			malloc(((size_t) (position_2 - position_1 + 2)) *
+			sizeof(unsigned char))) == NULL)
 	{
 		return(NULL);
 	}