--- rpl/src/rpl.h	2010/03/06 18:29:07	1.15
+++ rpl/src/rpl.h	2010/04/07 13:33:23	1.20
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.12
+  RPL/2 (R) version 4.0.13
   Copyright (C) 1989-2010 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -26,8 +26,6 @@
 #define _GNU_SOURCE
 #define _REENTRANT
 
-// Nécessaire pour les systèmes qui ne comprennent pas _GNU_SOURCE
-#define _XOPEN_SOURCE 500
 
 /*
 ================================================================================
@@ -42,6 +40,7 @@
 #include <strings.h>
 #include <syslog.h>
 #include <errno.h>
+#include <stdarg.h>
 
 #ifndef RPLARGS
 #	include <sys/resource.h>
@@ -488,6 +487,7 @@ void debug_memoire_retrait(void *ptr);
 #	define d_es_interruption_invalide			2012
 #	define d_es_contexte						2013
 #	define d_es_somme_controle					2014
+#	define d_es_nom_implicite					2015
 #endif
 
 /*
@@ -620,19 +620,10 @@ void debug_memoire_retrait(void *ptr);
 #	define d_ex_locales							76
 #	define d_ex_representation					77
 #	define d_ex_erreur_profilage				78
+#	define d_ex_enregistrement_inexistant		79
+#	define d_ex_clef_inexistante				80
 #endif
 
-/*
---------------------------------------------------------------------------------
-  Erreurs de la ligne de commande
---------------------------------------------------------------------------------
-*/
-
-#ifndef RPLARGS
-#	define d_os									4000
-#	define d_os_ligne_de_commande				4001
-#	define d_os_fichier_introuvable				4002
-#endif
 
 /*
 ================================================================================
@@ -1364,6 +1355,7 @@ typedef struct processus
 	unsigned char				autorisation_conversion_chaine;		/*Y/N*/
 	unsigned char				autorisation_empilement_programme;	/*Y/N*/
 	unsigned char				autorisation_evaluation_nom;		/*Y/N*/
+	unsigned char				autorisation_nom_implicite;			/*Y/N*/
 	unsigned char				evaluation_forcee;					/*Y/N*/
 	unsigned char				instruction_valide;					/*Y/N*/
 	unsigned char				instruction_intrinseque;			/*Y/I/N*/
@@ -2042,6 +2034,7 @@ void instruction_ifft(struct_processus *
 void instruction_ift(struct_processus *s_etat_processus);
 void instruction_ifte(struct_processus *s_etat_processus);
 void instruction_im(struct_processus *s_etat_processus);
+void instruction_implicit(struct_processus *s_etat_processus);
 void instruction_in(struct_processus *s_etat_processus);
 void instruction_incr(struct_processus *s_etat_processus);
 void instruction_indep(struct_processus *s_etat_processus);
@@ -2658,7 +2651,7 @@ logical1 evaluation(struct_processus *s_
 logical1 initialisation_fichier_acces_direct(struct_processus *s_etat_processus,
 		sqlite3 *sqlite, logical1 binaire);
 logical1 initialisation_fichier_acces_indexe(struct_processus *s_etat_processus,
-		sqlite3 *sqlite, logical1 binaire);
+		sqlite3 *sqlite, integer8 position_clef, logical1 binaire);
 logical1 recherche_instruction_suivante(struct_processus *s_etat_processus);
 logical1 retrait_variable(struct_processus *s_etat_processus,
 		unsigned char *nom_variable, unsigned char type);