--- rpl/src/instructions_i2.c	2011/11/17 22:47:55	1.33
+++ rpl/src/instructions_i2.c	2012/12/19 09:58:25	1.46
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.4
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.12
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -119,26 +119,12 @@ instruction_idn(struct_processus *s_etat
 
 		if (s_objet_argument == NULL)
 		{
-			if (pthread_mutex_lock(&((*(*s_etat_processus)
-					.s_liste_variables_partagees).mutex)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
-
 			if (recherche_variable_partagee(s_etat_processus,
 					(*(*s_etat_processus).pointeur_variable_courante).nom,
 					(*(*s_etat_processus).pointeur_variable_courante)
 					.variable_partagee, (*(*s_etat_processus)
-					.pointeur_variable_courante).origine) == d_faux)
+					.pointeur_variable_courante).origine) == NULL)
 			{
-				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
-				{
-					(*s_etat_processus).erreur_systeme = d_es_processus;
-					return;
-				}
-
 				(*s_etat_processus).erreur_systeme = d_es;
 				(*s_etat_processus).erreur_execution =
 						d_ex_variable_non_definie;
@@ -147,8 +133,7 @@ instruction_idn(struct_processus *s_etat
 			}
 
 			s_objet_argument = (*(*s_etat_processus)
-					.s_liste_variables_partagees).table[(*(*s_etat_processus)
-					.s_liste_variables_partagees).position_variable].objet;
+					.pointeur_variable_partagee_courante).objet;
 			variable_partagee = d_vrai;
 		}
 		else
@@ -181,7 +166,7 @@ instruction_idn(struct_processus *s_etat
 			if (variable_partagee == d_vrai)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -215,7 +200,7 @@ instruction_idn(struct_processus *s_etat
 				if (variable_partagee == d_vrai)
 				{
 					if (pthread_mutex_unlock(&((*(*s_etat_processus)
-							.s_liste_variables_partagees).mutex)) != 0)
+							.pointeur_variable_partagee_courante).mutex)) != 0)
 					{
 						(*s_etat_processus).erreur_systeme = d_es_processus;
 						return;
@@ -244,7 +229,7 @@ instruction_idn(struct_processus *s_etat
 			if (variable_partagee == d_vrai)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -266,7 +251,7 @@ instruction_idn(struct_processus *s_etat
 				if (variable_partagee == d_vrai)
 				{
 					if (pthread_mutex_unlock(&((*(*s_etat_processus)
-							.s_liste_variables_partagees).mutex)) != 0)
+							.pointeur_variable_partagee_courante).mutex)) != 0)
 					{
 						(*s_etat_processus).erreur_systeme = d_es_processus;
 						return;
@@ -297,7 +282,7 @@ instruction_idn(struct_processus *s_etat
 		if (variable_partagee == d_vrai)
 		{
 			if (pthread_mutex_unlock(&((*(*s_etat_processus)
-					.s_liste_variables_partagees).mutex)) != 0)
+					.pointeur_variable_partagee_courante).mutex)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
@@ -325,12 +310,11 @@ instruction_idn(struct_processus *s_etat
 		if (variable_partagee == d_vrai)
 		{
 			(*(*s_etat_processus).pointeur_variable_courante).objet = NULL;
-			(*(*s_etat_processus).s_liste_variables_partagees).table
-					[(*(*s_etat_processus).s_liste_variables_partagees)
-					.position_variable].objet = s_objet_resultat;
+			(*(*s_etat_processus).pointeur_variable_partagee_courante).objet =
+					s_objet_resultat;
 
 			if (pthread_mutex_unlock(&((*(*s_etat_processus)
-					.s_liste_variables_partagees).mutex)) != 0)
+					.pointeur_variable_partagee_courante).mutex)) != 0)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_processus;
 				return;
@@ -782,7 +766,12 @@ instruction_input(struct_processus *s_et
 {
 	struct_objet				*s_objet_resultat;
 
+	unsigned char				*ptr_e;
+	unsigned char				*ptr_l;
 	unsigned char				*tampon;
+	unsigned char				*tampon2;
+
+	unsigned long				i;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -848,7 +837,45 @@ instruction_input(struct_processus *s_et
 	}
 
 	free((unsigned char *) (*s_objet_resultat).objet);
-	(*s_objet_resultat).objet = tampon;
+
+	ptr_l = tampon;
+	i = 0;
+
+	while((*ptr_l) != d_code_fin_chaine)
+	{
+		if ((*ptr_l) == '\"')
+		{
+			i++;
+		}
+
+		ptr_l++;
+	}
+
+	if ((tampon2 = malloc((strlen(tampon) + 1 + i) *
+			sizeof(unsigned char))) == NULL)
+	{
+		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
+		return;
+	}
+
+	ptr_l = tampon;
+	ptr_e = tampon2;
+
+	while((*ptr_l) != d_code_fin_chaine)
+	{
+		if ((*ptr_l) == '\"')
+		{
+			(*ptr_e) = '\\';
+			ptr_e++;
+		}
+
+		(*ptr_e) = (*ptr_l);
+		ptr_e++;
+		ptr_l++;
+	}
+
+	free(tampon);
+	(*s_objet_resultat).objet = tampon2;
 
 	add_history((unsigned char *) (*s_objet_resultat).objet);
 	stifle_history(ds_longueur_historique);
@@ -1490,18 +1517,11 @@ instruction_incr(struct_processus *s_eta
 
 		if ((*(*s_etat_processus).pointeur_variable_courante).objet == NULL)
 		{
-			if (pthread_mutex_lock(&((*(*s_etat_processus)
-					.s_liste_variables_partagees).mutex)) != 0)
-			{
-				(*s_etat_processus).erreur_systeme = d_es_processus;
-				return;
-			}
-
 			if (recherche_variable_partagee(s_etat_processus,
 					(*(*s_etat_processus).pointeur_variable_courante).nom,
 					(*(*s_etat_processus).pointeur_variable_courante)
 					.variable_partagee, (*(*s_etat_processus)
-					.pointeur_variable_courante).origine) == d_faux)
+					.pointeur_variable_courante).origine) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es;
 				(*s_etat_processus).erreur_execution =
@@ -1511,9 +1531,7 @@ instruction_incr(struct_processus *s_eta
 			}
 
 			s_objet_argument = (*(*s_etat_processus)
-					.s_liste_variables_partagees).table
-					[(*(*s_etat_processus).s_liste_variables_partagees)
-					.position_variable].objet;
+					.pointeur_variable_partagee_courante).objet;
 			variable_partagee = d_vrai;
 		}
 		else
@@ -1529,7 +1547,7 @@ instruction_incr(struct_processus *s_eta
 			if (variable_partagee == d_vrai)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -1545,10 +1563,8 @@ instruction_incr(struct_processus *s_eta
 		if (variable_partagee == d_vrai)
 		{
 			(*(*s_etat_processus).pointeur_variable_courante).objet = NULL;
-			(*(*s_etat_processus)
-					.s_liste_variables_partagees).table
-					[(*(*s_etat_processus).s_liste_variables_partagees)
-					.position_variable].objet = s_copie_argument;
+			(*(*s_etat_processus).pointeur_variable_partagee_courante).objet =
+					s_copie_argument;
 		}
 		else
 		{
@@ -1563,7 +1579,7 @@ instruction_incr(struct_processus *s_eta
 			if (variable_partagee == d_vrai)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;
@@ -1575,7 +1591,7 @@ instruction_incr(struct_processus *s_eta
 			if (variable_partagee == d_vrai)
 			{
 				if (pthread_mutex_unlock(&((*(*s_etat_processus)
-						.s_liste_variables_partagees).mutex)) != 0)
+						.pointeur_variable_partagee_courante).mutex)) != 0)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_processus;
 					return;