--- rpl/src/rpl.h	2010/03/05 11:20:09	1.14
+++ rpl/src/rpl.h	2010/03/17 14:14:37	1.18
@@ -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.
@@ -42,6 +42,7 @@
 #include <strings.h>
 #include <syslog.h>
 #include <errno.h>
+#include <stdarg.h>
 
 #ifndef RPLARGS
 #	include <sys/resource.h>
@@ -76,6 +77,7 @@
 #	include "iconv.h"
 
 #	include "openssl/evp.h"
+#	include "sqlite3.h"
 
 #	define HAVE_INLINE
 #	define GSL_RANGE_CHECK_OFF
@@ -619,19 +621,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 +840,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
 
@@ -2652,6 +2647,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 +2773,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
 
 /*