--- rpl/src/instructions_o1.c	2010/09/23 15:27:39	1.24
+++ rpl/src/instructions_o1.c	2011/11/26 10:01:30	1.41
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.20
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.5
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -897,6 +897,8 @@ instruction_open(struct_processus *s_eta
 	 * Format :
 	 *   FORMATTED   : fichier texte ;
 	 *   UNFORMATTED : fichier binaire.
+	 *   FLOW        : chaîne de caractères sans format (en tant qu'objet
+	 *                 binaire comme "\x00avz\xFD")
 	 */
 
 	file						*descripteur;
@@ -1190,6 +1192,34 @@ instruction_open(struct_processus *s_eta
 
 					type_ouverture = 'R';
 				}
+				else if (strcmp(argument_majuscule, "OLD") == 0)
+				{
+					if (type_ouverture != ' ')
+					{
+						liberation(s_etat_processus, s_objet_argument);
+						free(argument_majuscule);
+
+						(*s_etat_processus).erreur_execution =
+								d_ex_erreur_parametre_fichier;
+						return;
+					}
+
+					if (type_arguments == ' ')
+					{
+						type_arguments = 'F';
+					}
+					else if (type_arguments == 'S')
+					{
+						liberation(s_etat_processus, s_objet_argument);
+						free(argument_majuscule);
+
+						(*s_etat_processus).erreur_execution =
+								d_ex_erreur_parametre_fichier;
+						return;
+					}
+
+					type_ouverture = 'O';
+				}
 				else if (strcmp(argument_majuscule, "UNKNOWN") == 0)
 				{
 					if (type_ouverture != ' ')
@@ -2782,10 +2812,17 @@ instruction_open(struct_processus *s_eta
 							return;
 						}
 
+						sqlite = NULL;
+
 						if (sqlite3_open_v2(nom, &sqlite,
 								SQLITE_OPEN_READWRITE | SQLITE_OPEN_CREATE,
 								NULL) != SQLITE_OK)
 						{
+							if (sqlite != NULL)
+							{
+								sqlite3_close(sqlite);
+							}
+
 							free(nom);
 
 							liberation(s_etat_processus, s_objet_argument);
@@ -2888,10 +2925,17 @@ instruction_open(struct_processus *s_eta
 					}
 					else
 					{
+						sqlite = NULL;
+
 						if (sqlite3_open_v2(nom, &sqlite,
 								SQLITE_OPEN_READWRITE,
 								NULL) != SQLITE_OK)
 						{
+							if (sqlite != NULL)
+							{
+								sqlite3_close(sqlite);
+							}
+
 							free(nom);
 
 							liberation(s_etat_processus, s_objet_argument);
@@ -3027,10 +3071,17 @@ instruction_open(struct_processus *s_eta
 					}
 					else
 					{
+						sqlite = NULL;
+
 						if (sqlite3_open_v2(nom, &sqlite,
 								SQLITE_OPEN_READWRITE | SQLITE_OPEN_CREATE,
 								NULL) != SQLITE_OK)
 						{
+							if (sqlite != NULL)
+							{
+								sqlite3_close(sqlite);
+							}
+
 							free(nom);
 
 							liberation(s_etat_processus, s_objet_argument);
@@ -3138,10 +3189,17 @@ instruction_open(struct_processus *s_eta
 						}
 						else
 						{
+							sqlite = NULL;
+
 							if (sqlite3_open_v2(nom, &sqlite,
 									SQLITE_OPEN_READWRITE | SQLITE_OPEN_CREATE,
 									NULL) != SQLITE_OK)
 							{
+								if (sqlite != NULL)
+								{
+									sqlite3_close(sqlite);
+								}
+
 								free(nom);
 
 								liberation(s_etat_processus, s_objet_argument);
@@ -3232,10 +3290,17 @@ instruction_open(struct_processus *s_eta
 						}
 						else
 						{
+							sqlite = NULL;
+
 							if (sqlite3_open_v2(nom, &sqlite,
 									SQLITE_OPEN_READWRITE,
 									NULL) != SQLITE_OK)
 							{
+								if (sqlite != NULL)
+								{
+									sqlite3_close(sqlite);
+								}
+
 								free(nom);
 
 								liberation(s_etat_processus, s_objet_argument);
@@ -3310,10 +3375,17 @@ instruction_open(struct_processus *s_eta
 							return;
 						}
 
+						sqlite = NULL;
+
 						if (sqlite3_open_v2(nom, &sqlite,
 								SQLITE_OPEN_READWRITE | SQLITE_OPEN_CREATE,
 								NULL) != SQLITE_OK)
 						{
+							if (sqlite != NULL)
+							{
+								sqlite3_close(sqlite);
+							}
+
 							free(nom);
 
 							liberation(s_etat_processus, s_objet_argument);