--- rpl/src/instructions_o1.c	2011/04/14 08:46:44	1.27.2.2
+++ rpl/src/instructions_o1.c	2012/01/05 10:19:02	1.43
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.23
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.5
+  Copyright (C) 1989-2012 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1972,6 +1972,16 @@ instruction_open(struct_processus *s_eta
 								protocole_socket = (unsigned char *)
 										(*(*l_element_courant_sous_objet)
 										.donnee).objet;
+
+				for(i = 0; i < strlen(protocole_socket); i++)
+				{
+					if ((protocole_socket[i] >= 'a') &&
+							(protocole_socket[i] <= 'z'))
+					{
+						protocole_socket[i] -= 'a' - 'A';
+					}
+				}
+
 							}
 							else
 							{
@@ -2812,10 +2822,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);
@@ -2918,10 +2935,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);
@@ -3057,10 +3081,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);
@@ -3168,10 +3199,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);
@@ -3262,10 +3300,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);
@@ -3340,10 +3385,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);
@@ -4006,6 +4058,28 @@ instruction_open(struct_processus *s_eta
 				return;
 			}
 
+			if ((type_adresse == ' ') && (type_domaine == 'L'))
+			{
+				if (strcmp(protocole, "IPV4") == 0)
+				{
+					for(i = 0; i < 4; adresse[i++] = 0);
+					type_adresse = '4';
+				}
+				else if (strcmp(protocole, "IPV6") == 0)
+				{
+					for(i = 0; i < 16; adresse[i++] = 0);
+					type_adresse = '6';
+				}
+				else
+				{
+					liberation(s_etat_processus, s_objet_argument);
+
+					(*s_etat_processus).erreur_execution =
+							d_ex_erreur_parametre_fichier;
+					return;
+				}
+			}
+
 			if (((strcmp(protocole, "IPV4") == 0) && (type_adresse == '6')) ||
 					((strcmp(protocole, "IPV6") == 0) && (type_adresse == '4')))
 			{
@@ -4037,16 +4111,7 @@ instruction_open(struct_processus *s_eta
 			}
 			else
 			{
-				for(i = 0; i < strlen(protocole_socket); i++)
-				{
-					if ((protocole_socket[i] >= 'A') &&
-							(protocole_socket[i] <= 'Z'))
-					{
-						protocole_socket[i] += 'a' - 'A';
-					}
-				}
-
-				if (strcmp(protocole_socket, "ipv4") == 0)
+				if (strcmp(protocole_socket, "IPV4") == 0)
 				{
 					protocole_socket[2] = d_code_fin_chaine;
 				}