--- rpl/src/instructions_w1.c	2012/06/22 10:12:19	1.64
+++ rpl/src/instructions_w1.c	2013/03/01 10:24:49	1.74
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.9
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -385,6 +385,7 @@ instruction_write(struct_processus *s_et
 
 	int									adresse[16];
 	int									port;
+	int									sqlite_status;
 
 	integer8							clef;
 	integer8							compteur;
@@ -424,6 +425,8 @@ instruction_write(struct_processus *s_et
 
 	struct flock						lock;
 
+	struct timespec						attente;
+
 	uint32_t							calcul_adresse;
 
 	unsigned char						*chaine;
@@ -760,11 +763,30 @@ instruction_write(struct_processus *s_et
 					return;
 				}
 
-				if (sqlite3_step(ppStmt) != SQLITE_ROW)
+				attente.tv_sec = 0;
+				attente.tv_nsec = GRANULARITE_us * 1000;
+
+				do
 				{
-					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
-					return;
-				}
+					sqlite_status = sqlite3_step(ppStmt);
+
+					if (sqlite_status == SQLITE_ROW)
+					{
+						break;
+					}
+					else if ((sqlite_status == SQLITE_BUSY) ||
+							(sqlite_status == SQLITE_LOCKED))
+					{
+						nanosleep(&attente, NULL);
+						INCR_GRANULARITE(attente.tv_nsec);
+					}
+					else
+					{
+						(*s_etat_processus).erreur_systeme =
+								d_es_erreur_fichier;
+						return;
+					}
+				} while(sqlite_status != SQLITE_ROW);
 
 				if (sqlite3_column_type(ppStmt, 0) != SQLITE_INTEGER)
 				{
@@ -917,100 +939,107 @@ instruction_write(struct_processus *s_et
 					return;
 				}
 
-				switch(sqlite3_step(ppStmt))
+				attente.tv_sec = 0;
+				attente.tv_nsec = GRANULARITE_us * 1000;
+
+				do
 				{
-					case SQLITE_ROW:
+					switch(sqlite_status = sqlite3_step(ppStmt))
 					{
-						// Une clef existe.
+						case SQLITE_ROW:
+						{
+							// Une clef existe.
 
-						mise_a_jour = d_vrai;
-						break;
-					}
+							mise_a_jour = d_vrai;
+							break;
+						}
 
-					case SQLITE_DONE:
-					{
-						// Aucune clef n'existe.
+						case SQLITE_DONE:
+						{
+							// Aucune clef n'existe.
 
-						mise_a_jour = d_faux;
+							mise_a_jour = d_faux;
 
-						if (sqlite3_finalize(ppStmt) != SQLITE_OK)
-						{
-							(*s_etat_processus).erreur_systeme =
-									d_es_erreur_fichier;
-							return;
-						}
+							if (sqlite3_finalize(ppStmt) != SQLITE_OK)
+							{
+								(*s_etat_processus).erreur_systeme =
+										d_es_erreur_fichier;
+								return;
+							}
 
-						free(commande);
+							free(commande);
 
-						if (alsprintf(&commande, "insert into key "
-								"(key) values ('%s')", clef_utf8) < 0)
-						{
-							(*s_etat_processus).erreur_systeme =
-									d_es_allocation_memoire;
-							return;
-						}
+							if (alsprintf(&commande, "insert into key "
+									"(key) values ('%s')", clef_utf8) < 0)
+							{
+								(*s_etat_processus).erreur_systeme =
+										d_es_allocation_memoire;
+								return;
+							}
 
-						if (sqlite3_prepare_v2((*descripteur)
-								.descripteur_sqlite,
-								commande, strlen(commande), &ppStmt, &queue)
-								!= SQLITE_OK)
-						{
-							(*s_etat_processus).erreur_systeme =
-									d_es_erreur_fichier;
-							return;
-						}
+							if (sqlite3_prepare_v2((*descripteur)
+									.descripteur_sqlite,
+									commande, strlen(commande), &ppStmt, &queue)
+									!= SQLITE_OK)
+							{
+								(*s_etat_processus).erreur_systeme =
+										d_es_erreur_fichier;
+								return;
+							}
 
-						if (sqlite3_step(ppStmt) != SQLITE_DONE)
-						{
-							(*s_etat_processus).erreur_systeme =
-									d_es_erreur_fichier;
-							return;
-						}
+							if (sqlite3_step(ppStmt) != SQLITE_DONE)
+							{
+								(*s_etat_processus).erreur_systeme =
+										d_es_erreur_fichier;
+								return;
+							}
 
-						if (sqlite3_finalize(ppStmt) != SQLITE_OK)
-						{
-							(*s_etat_processus).erreur_systeme =
-									d_es_erreur_fichier;
-							return;
-						}
+							if (sqlite3_finalize(ppStmt) != SQLITE_OK)
+							{
+								(*s_etat_processus).erreur_systeme =
+										d_es_erreur_fichier;
+								return;
+							}
 
-						free(commande);
+							free(commande);
 
-						if (alsprintf(&commande, "select id from key "
-								"where key = '%s'", clef_utf8) < 0)
-						{
-							(*s_etat_processus).erreur_systeme =
-									d_es_allocation_memoire;
-							return;
+							if (alsprintf(&commande, "select id from key "
+									"where key = '%s'", clef_utf8) < 0)
+							{
+								(*s_etat_processus).erreur_systeme =
+										d_es_allocation_memoire;
+								return;
+							}
+
+							if (sqlite3_prepare_v2((*descripteur)
+									.descripteur_sqlite,
+									commande, strlen(commande), &ppStmt, &queue)
+									!= SQLITE_OK)
+							{
+								(*s_etat_processus).erreur_systeme =
+										d_es_erreur_fichier;
+								return;
+							}
+
+							break;
 						}
 
-						if (sqlite3_prepare_v2((*descripteur)
-								.descripteur_sqlite,
-								commande, strlen(commande), &ppStmt, &queue)
-								!= SQLITE_OK)
+						case SQLITE_BUSY:
+						case SQLITE_LOCKED:
 						{
-							(*s_etat_processus).erreur_systeme =
-									d_es_erreur_fichier;
-							return;
+							nanosleep(&attente, NULL);
+							INCR_GRANULARITE(attente.tv_nsec);
+							break;
 						}
 
-						if (sqlite3_step(ppStmt) != SQLITE_ROW)
+						default:
 						{
 							(*s_etat_processus).erreur_systeme =
 									d_es_erreur_fichier;
 							return;
 						}
-
-						break;
 					}
-
-					default:
-					{
-						(*s_etat_processus).erreur_systeme =
-								d_es_erreur_fichier;
-						return;
-					}
-				}
+				} while(sqlite_status != SQLITE_ROW);
 
 				if (sqlite3_column_type(ppStmt, 0) != SQLITE_INTEGER)
 				{
@@ -1403,7 +1432,7 @@ instruction_write(struct_processus *s_et
 
 					longueur = strlen(format_chaine);
 
-					if (format_chaine[longueur] != ')')
+					if (format_chaine[longueur - 1] != ')')
 					{
 						free(format_chaine);
 
@@ -1737,6 +1766,12 @@ instruction_write(struct_processus *s_et
 						return;
 					}
 
+					if (ios == EMSGSIZE)
+					{
+						(*s_etat_processus).erreur_execution =
+								d_ex_taille_message;
+						return;
+					}
 
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
 					return;
@@ -1789,6 +1824,8 @@ instruction_write(struct_processus *s_et
 							longueur_effective, 0, (struct sockaddr *)
 							&adresse_ipv4, sizeof(adresse_ipv4)) < 0)
 					{
+						ios = errno;
+
 #						ifndef SEMAPHORES_NOMMES
 							while(sem_wait(&((*s_etat_processus)
 									.semaphore_fork)) != 0)
@@ -1805,6 +1842,20 @@ instruction_write(struct_processus *s_et
 							}
 						}
 
+						if ((ios == EPIPE) || (ios == ECONNRESET))
+						{
+							(*s_etat_processus).erreur_execution =
+									d_ex_erreur_acces_fichier;
+							return;
+						}
+
+						if (ios == EMSGSIZE)
+						{
+							(*s_etat_processus).erreur_execution =
+									d_ex_taille_message;
+							return;
+						}
+
 						(*s_etat_processus).erreur_systeme =
 								d_es_erreur_fichier;
 						return;
@@ -1872,6 +1923,8 @@ instruction_write(struct_processus *s_et
 							longueur_effective, 0, (struct sockaddr *)
 							&adresse_ipv6, sizeof(adresse_ipv6)) < 0)
 					{
+						ios = errno;
+
 #						ifndef SEMAPHORES_NOMMES
 							while(sem_wait(&((*s_etat_processus)
 									.semaphore_fork)) != 0)
@@ -1888,6 +1941,20 @@ instruction_write(struct_processus *s_et
 							}
 						}
 
+						if ((ios == EPIPE) || (ios == ECONNRESET))
+						{
+							(*s_etat_processus).erreur_execution =
+									d_ex_erreur_acces_fichier;
+							return;
+						}
+
+						if (ios == EMSGSIZE)
+						{
+							(*s_etat_processus).erreur_execution =
+									d_ex_taille_message;
+							return;
+						}
+
 						(*s_etat_processus).erreur_systeme =
 								d_es_erreur_fichier;
 						return;