--- rpl/src/instructions_r4.c	2012/12/20 15:32:52	1.67
+++ rpl/src/instructions_r4.c	2012/12/21 12:09:50	1.68
@@ -1313,42 +1313,58 @@ instruction_read(struct_processus *s_eta
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
 					return;
 				}
-				
-				switch(sqlite3_step(ppStmt))
+
+				attente.tv_sec = 0;
+				attente.tv_nsec = GRANULARITE_us * 1000;
+
+				do
 				{
-					case SQLITE_ROW:
-					{
-						// Résultat attendu
-						break;
-					}
+					ios = sqlite3_step(ppStmt);
 
-					case SQLITE_DONE:
+					switch(ios)
 					{
-						// Aucun enregistrement
-						if (sqlite3_finalize(ppStmt) != SQLITE_OK)
+						case SQLITE_ROW:
 						{
-							(*s_etat_processus).erreur_systeme =
-									d_es_erreur_fichier;
-							return;
+							// Résultat attendu
+							break;
 						}
 
-						free(commande);
+						case SQLITE_DONE:
+						{
+							// Aucun enregistrement
+							if (sqlite3_finalize(ppStmt) != SQLITE_OK)
+							{
+								(*s_etat_processus).erreur_systeme =
+										d_es_erreur_fichier;
+								return;
+							}
 
-						liberation(s_etat_processus, s_objet_argument_1);
-						liberation(s_etat_processus, s_objet_argument_2);
+							free(commande);
 
-						(*s_etat_processus).erreur_execution =
-								d_ex_enregistrement_inexistant;
-						return;
-					}
+							liberation(s_etat_processus, s_objet_argument_1);
+							liberation(s_etat_processus, s_objet_argument_2);
 
-					default:
-					{
-						(*s_etat_processus).erreur_systeme =
-								d_es_erreur_fichier;
-						return;
+							(*s_etat_processus).erreur_execution =
+									d_ex_enregistrement_inexistant;
+							return;
+						}
+
+						case SQLITE_BUSY:
+						case SQLITE_LOCKED:
+						{
+							nanosleep(&attente, NULL);
+							INCR_GRANULARITE(attente.tv_nsec);
+							break;
+						}
+
+						default:
+						{
+							(*s_etat_processus).erreur_systeme =
+									d_es_erreur_fichier;
+							return;
+						}
 					}
-				}
+				} while(ios != SQLITE_ROW);
 
 				if (sqlite3_column_type(ppStmt, 0) != SQLITE_TEXT)
 				{
@@ -1469,11 +1485,29 @@ instruction_read(struct_processus *s_eta
 					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;
-				}
+					ios = sqlite3_step(ppStmt);
+
+					if (ios == SQLITE_ROW)
+					{
+						break;
+					}
+					else if ((ios == SQLITE_BUSY) || (ios == SQLITE_LOCKED))
+					{
+						nanosleep(&attente, NULL);
+						INCR_GRANULARITE(attente.tv_nsec);
+					}
+					else
+					{
+						(*s_etat_processus).erreur_systeme =
+								d_es_erreur_fichier;
+						return;
+					}
+				} while(ios != SQLITE_ROW);
 
 				if (sqlite3_column_type(ppStmt, 0) != SQLITE_INTEGER)
 				{
@@ -1525,42 +1559,58 @@ instruction_read(struct_processus *s_eta
 					return;
 				}
 
-				switch(sqlite3_step(ppStmt))
+				attente.tv_sec = 0;
+				attente.tv_nsec = GRANULARITE_us * 1000;
+
+				do
 				{
-					case SQLITE_ROW:
-					{
-						// Résultat attendu : une clef correspond.
-						break;
-					}
+					ios = sqlite3_step(ppStmt);
 
-					case SQLITE_DONE:
+					switch(ios)
 					{
-						// Aucun enregistrement
-						if (sqlite3_finalize(ppStmt) != SQLITE_OK)
+						case SQLITE_ROW:
 						{
-							(*s_etat_processus).erreur_systeme =
-									d_es_erreur_fichier;
-							return;
+							// Résultat attendu : une clef correspond.
+							break;
 						}
 
-						free(clef_utf8);
-						free(commande);
+						case SQLITE_DONE:
+						{
+							// Aucun enregistrement
+							if (sqlite3_finalize(ppStmt) != SQLITE_OK)
+							{
+								(*s_etat_processus).erreur_systeme =
+										d_es_erreur_fichier;
+								return;
+							}
 
-						liberation(s_etat_processus, s_objet_argument_1);
-						liberation(s_etat_processus, s_objet_argument_2);
+							free(clef_utf8);
+							free(commande);
 
-						(*s_etat_processus).erreur_execution =
-								d_ex_enregistrement_inexistant;
-						return;
-					}
+							liberation(s_etat_processus, s_objet_argument_1);
+							liberation(s_etat_processus, s_objet_argument_2);
 
-					default:
-					{
-						(*s_etat_processus).erreur_systeme =
-								d_es_erreur_fichier;
-						return;
+							(*s_etat_processus).erreur_execution =
+									d_ex_enregistrement_inexistant;
+							return;
+						}
+
+						case SQLITE_BUSY:
+						case SQLITE_LOCKED:
+						{
+							nanosleep(&attente, NULL);
+							INCR_GRANULARITE(attente.tv_nsec);
+							break;
+						}
+
+						default:
+						{
+							(*s_etat_processus).erreur_systeme =
+									d_es_erreur_fichier;
+							return;
+						}
 					}
-				}
+				} while(ios != SQLITE_ROW);
 
 				if (sqlite3_column_type(ppStmt, 0) != SQLITE_INTEGER)
 				{
@@ -1604,6 +1654,9 @@ instruction_read(struct_processus *s_eta
 
 				element = 1;
 
+				attente.tv_sec = 0;
+				attente.tv_nsec = GRANULARITE_us * 1000;
+
 				do
 				{
 					switch(ios = sqlite3_step(ppStmt))
@@ -1782,6 +1835,14 @@ instruction_read(struct_processus *s_eta
 							break;
 						}
 
+						case SQLITE_BUSY:
+						case SQLITE_LOCKED:
+						{
+							nanosleep(&attente, NULL);
+							INCR_GRANULARITE(attente.tv_nsec);
+							break;
+						}
+
 						default:
 						{
 							(*s_etat_processus).erreur_systeme =