--- rpl/src/rpl.h	2010/03/05 11:20:09	1.14
+++ 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>
@@ -76,6 +75,7 @@
 #	include "iconv.h"
 
 #	include "openssl/evp.h"
+#	include "sqlite3.h"
 
 #	define HAVE_INLINE
 #	define GSL_RANGE_CHECK_OFF
@@ -487,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
 
 /*
@@ -619,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
 
 /*
 ================================================================================
@@ -847,12 +839,14 @@ typedef struct descripteur_fichier
 	unsigned long				identifiant;
 
 	unsigned char				effacement;
+	unsigned char				type; // C (file *) ou S (sqlite *)
 	unsigned char				*nom;
 
 	pid_t						pid;
 	pthread_t					tid;
 
-	file						*descripteur;
+	file						*descripteur_c;
+	sqlite3						*descripteur_sqlite;
 } struct_descripteur_fichier;
 #endif
 
@@ -1361,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*/
@@ -2039,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);
@@ -2652,6 +2648,10 @@ logical1 empilement_pile_last(struct_pro
 		unsigned long nombre_arguments);
 logical1 evaluation(struct_processus *s_etat_processus, struct_objet *s_objet,
 		unsigned char type_evaluation);
+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, 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);
@@ -2774,14 +2774,14 @@ struct_processus *copie_etat_processus(s
 
 /*
 --------------------------------------------------------------------------------
-  Fonctions renvoyant un pointeur sur un fichier (file *)
+  Fonctions renvoyant un pointeur sur un fichier (file *) ou un descripteur
 --------------------------------------------------------------------------------
 */
 
 #ifndef RPLARGS
 file *creation_fichier_tex(struct_processus *s_etat_processus);
-file *descripteur_fichier(struct_processus *s_etat_processus,
-		struct_fichier *s_fichier);
+struct_descripteur_fichier *descripteur_fichier(struct_processus
+		*s_etat_processus, struct_fichier *s_fichier);
 #endif
 
 /*