--- rpl/src/rpl.h	2015/01/08 14:29:52	1.257
+++ rpl/src/rpl.h	2015/01/27 14:18:09	1.258
@@ -347,11 +347,6 @@ __EXTERN__ int					f_queue_signaux;
 #	endif
 #endif
 
-#ifdef OS2
-#	define readline(s) readline_wrapper(s)
-	unsigned char *readline_wrapper(unsigned char *s);
-#endif
-
 #if ! defined(UNION_SEMUN) && defined(IPCS_SYSV)
 union semun
 {
@@ -370,6 +365,7 @@ union semun
 #	define SIGSTKSZ			65536
 #endif
 
+
 /*
 ================================================================================
   SÉMAPHORES
@@ -568,10 +564,8 @@ union semun
 			stderr, __VA_ARGS__)
 #define fprintf(flux, ...) transliterated_fprintf(s_etat_processus, \
 			flux, __VA_ARGS__)
-#define uprintf(...) transliterated_fprintf(NULL, \
-			stderr, __VA_ARGS__)
-#define ufprintf(flux, ...) transliterated_fprintf(NULL, \
-			flux, __VA_ARGS__)
+#define uprintf(...) std_fprintf(stderr, __VA_ARGS__)
+#define ufprintf(flux, ...) std_fprintf(flux, __VA_ARGS__)
 
 #ifdef SunOS
 #	define fopen(...) ({ FILE *desc; \
@@ -653,7 +647,7 @@ union semun
 		{ \
 			for(i = 0; i < nb; i++) \
 				uprintf("    %s\n", appels[i]); \
-			free(appels); \
+			sys_free(appels); \
 		} \
 		else \
 			uprintf("Nullified backtrace\n"); \
@@ -1057,7 +1051,7 @@ enum t_type		{ ADR = 0, ALG, BIN, CHN, C
 			Sans objet.
 			Type C/Fortran : unsigned integer8
 
-	CHN : chaine de caracteres (character*(*), unsigned char *)
+	CHN : chaine de caracteres (unsigned char *)
 			Sans objet.
 
 	CPL : complexe sur 2*64 bits (complex*16, struct_complexe16 *)
@@ -1921,7 +1915,7 @@ typedef struct buffer
 {
 	unsigned char						*buffer;
 
-	integer8							longueur_requise;
+	size_t								longueur_requise;
 	int									classe;
 } struct_buffer;
 
@@ -2435,6 +2429,33 @@ typedef struct processus
 
 /*
 ================================================================================
+  MISE EN PLACE DE L'ALLOCATEUR SPÉCIFIQUE
+================================================================================*/
+
+#ifndef DEBUG_MEMOIRE
+#	define malloc(a)			rpl_malloc(s_etat_processus, a)
+#	define realloc(a, b)		rpl_realloc(s_etat_processus, a, b)
+#	define free(a)				rpl_free(s_etat_processus, a)
+#endif
+
+void *rpl_malloc(struct_processus *s_etat_processus, size_t s);
+void *rpl_realloc(struct_processus *s_etat_processus, void *ptr, size_t s);
+void rpl_free(struct_processus *s_etat_processus, void *ptr);
+void *sys_malloc(size_t s);
+void sys_free(void *ptr);
+
+/*
+ * Wrapper de readline() pour que la fonction renvoie un pointeur sur un
+ * buffer alloué par rpl_malloc().
+ */
+
+#define readline(s) readline_wrapper(s_etat_processus, s)
+unsigned char *readline_wrapper(struct_processus *s_etat_processus,
+		unsigned char *s);
+
+
+/*
+================================================================================
   PROTOTYPES
 ================================================================================
 */
@@ -3004,12 +3025,14 @@ void conversion_chaine(struct_processus
 		unsigned char *chaine, unsigned char type);
 void conversion_decimal_vers_hms(real8 *angle);
 void conversion_degres_vers_radians(real8 *angle);
-void conversion_element_tex(unsigned char **element, unsigned char *fonction);
+void conversion_element_tex(struct_processus *s_etat_processus,
+		unsigned char **element, unsigned char *fonction);
 void conversion_format(struct_processus *s_etat_processus,
 		unsigned char *chaine);
 void conversion_hms_vers_decimal(real8 *angle);
-void conversion_majuscule_limitee(unsigned char *chaine_entree, 
-		unsigned char *chaine_sortie, integer8 longueur);
+void conversion_majuscule_limitee(
+		unsigned char *chaine_entree, unsigned char *chaine_sortie,
+		integer8 longueur);
 void conversion_radians_vers_degres(real8 *angle);
 void copie_arbre_variables(struct_processus *s_etat_processus,
 		struct_processus *s_nouvel_etat_processus);
@@ -3200,16 +3223,20 @@ real8 correlation_statistique(struct_mat
 real8 covariance_statistique(struct_matrice *s_matrice,
 		integer8 colonne_1, integer8 colonne_2,
 		unsigned char type, logical1 *erreur);
-struct_vecteur *ecart_type_statistique(struct_matrice *s_matrice,
-		unsigned char type);
-struct_vecteur *moyenne_statistique(struct_matrice *s_matrice);
-struct_vecteur *sommation_colonne_statistique(struct_matrice *s_matrice,
+struct_vecteur *ecart_type_statistique(struct_processus *s_etat_processus,
+		struct_matrice *s_matrice, unsigned char type);
+struct_vecteur *moyenne_statistique(struct_processus *s_etat_processus,
+		struct_matrice *s_matrice);
+struct_vecteur *sommation_colonne_statistique(
+		struct_processus *s_etat_processus, struct_matrice *s_matrice,
 		integer8 colonne);
-struct_vecteur *sommation_produits_colonnes_statistiques(struct_matrice
+struct_vecteur *sommation_produits_colonnes_statistiques(
+		struct_processus *s_etat_processus, struct_matrice
 		*s_matrice, integer8 colonne_1, integer8 colonne_2);
-struct_vecteur *sommation_statistique(struct_matrice *s_matrice);
-struct_vecteur *variance_statistique(struct_matrice *s_matrice,
-		unsigned char type);
+struct_vecteur *sommation_statistique(struct_processus *s_etat_processus,
+		struct_matrice *s_matrice);
+struct_vecteur *variance_statistique(struct_processus *s_etat_processus,
+		struct_matrice *s_matrice, unsigned char type);
 #endif
 
 /*
@@ -3245,17 +3272,21 @@ unsigned char *analyse_algebrique(struct
 		unsigned char *chaine_algebrique, struct_liste_chainee **l_base_liste);
 unsigned char *analyse_flux(struct_processus *s_etat_processus,
 		unsigned char *flux, integer8 longueur);
-unsigned char *chiffrement(const EVP_CIPHER *type_chiffrement,
+unsigned char *chiffrement(struct_processus *s_etat_processus,
+		const EVP_CIPHER *type_chiffrement,
 		logical1 encodage, unsigned char *message, integer8 longueur_message,
 		unsigned char *clef, integer8 longueur_clef,
 		unsigned char *vecteur_initialisation,
 		integer8 *longueur_message_chiffre);
-unsigned char *compactage(unsigned char *chaine);
-unsigned char *conversion_majuscule(unsigned char *chaine);
+unsigned char *compactage(struct_processus *s_etat_processus,
+		unsigned char *chaine);
+unsigned char *conversion_majuscule(struct_processus *s_etat_processus,
+		unsigned char *chaine);
 unsigned char *creation_nom_fichier(struct_processus *s_etat_processus,
 		unsigned char *chemin);
-unsigned char *date_compilation();
-unsigned char *extraction_chaine(unsigned char *chaine, integer8 i, integer8 j);
+unsigned char *date_compilation(struct_processus *s_etat_processus);
+unsigned char *extraction_chaine(struct_processus *s_etat_processus,
+		unsigned char *chaine, integer8 i, integer8 j);
 unsigned char *formateur(struct_processus *s_etat_processus, long offset,
 		struct_objet *s_objet);
 unsigned char *formateur_fichier(struct_processus *s_etat_processus,
@@ -3281,7 +3312,8 @@ unsigned char *formateur_reel(struct_pro
 unsigned char *messages(struct_processus *s_etat_processus);
 unsigned char *pointeur_ieme_caractere(struct_processus *s_etat_processus,
 		unsigned char *chaine, integer8 position);
-unsigned char *purification_chaine(unsigned char *chaine);
+unsigned char *purification_chaine(struct_processus *s_etat_processus,
+		unsigned char *chaine);
 unsigned char *recherche_chemin_fichiers_temporaires(struct_processus
 		*s_etat_processus);
 unsigned char *reencodage(struct_processus *s_etat_processus,
@@ -3395,20 +3427,28 @@ ssize_t write_atomic(struct_processus *s
 --------------------------------------------------------------------------------
 */
 
-int alsprintf(unsigned char **strp, const char *fmt, ...);
+int alsprintf(struct_processus *s_etat_processus,
+		unsigned char **strp, const char *fmt, ...);
+#ifndef RPLARGS
+int association_etat_processus_readline();
+#endif
 int interruption_violation_access(void *adresse_fautive, int gravite);
 #ifndef RPLARGS
+int initialisation_etat_processus_readline();
+int liberation_etat_processus_readline();
 integer8 liste_variables(struct_processus *s_etat_processus,
 		struct_tableau_variables *tableau);
 integer8 nombre_variables(struct_processus *s_etat_processus);
 int readline_analyse_syntaxique(int count, int key);
 int readline_effacement(int count, int key);
 #endif
+int std_fprintf(file *flux, const char *format, ...);
 int tex_fprintf(struct_processus *s_etat_processus,
 		file *flux, const char *format, ...);
 int transliterated_fprintf(struct_processus *s_etat_processus, file *flux,
 		const char *format, ...);
-int valsprintf(unsigned char **strp, const char *fmt, va_list ap);
+int valsprintf(struct_processus *s_etat_processus,
+		unsigned char **strp, const char *fmt, va_list ap);
 int wrapper_instruction_intrinseque(void (*fonction)(),
 		struct_rpl_arguments *rpl_arguments);
 
@@ -3466,7 +3506,7 @@ struct_liste_chainee *analyse_rpn(struct
 void initialisation_allocateur_buffer(struct_processus *s_etat_processus);
 void liberation_allocateur_buffer(struct_processus *s_etat_pocessus);
 struct_buffer *allocation_buffer(struct_processus *s_etat_processus,
-		integer8 longueur);
+		size_t longueur);
 void liberation_buffer(struct_processus *s_etat_processus,
 		struct_buffer *buffer);