--- rpl/src/rpl.h	2010/04/28 11:05:45	1.27
+++ rpl/src/rpl.h	2010/05/13 19:09:18	1.34
@@ -24,8 +24,13 @@
 #define INCLUSION_RPL
 
 #define _GNU_SOURCE
+#define _POSIX_C_SOURCE		200112L
 #define _REENTRANT
 
+#ifdef Darwin
+#	define SIGPOLL			SIGIO
+#	define _DARWIN_C_SOURCE
+#endif
 
 /*
 ================================================================================
@@ -43,6 +48,7 @@
 #include <stdarg.h>
 
 #ifndef RPLARGS
+#	include <sys/mman.h>
 #	include <sys/resource.h>
 #	include <sys/select.h>
 #	include <sys/socket.h>
@@ -378,6 +384,7 @@ int sem_getvalue2(sem_t *semaphore, int
 
 #ifdef __GLIBC__
 #include <execinfo.h>
+#define __BACKTRACE
 #define BACKTRACE(n) \
 	do \
 	{ \
@@ -498,10 +505,11 @@ void debug_memoire_retrait(void *ptr);
 #define d_absence_erreur		((logical1) d_faux)
 #define d_erreur				((logical1) d_vrai)
 
-#define d_code_fin_chaine		'\0'
-#define d_code_espace			' '
-#define d_code_retour_chariot	'\n'
-#define d_code_tabulation		'\t'
+#define d_code_fin_chaine					'\0'
+#define d_code_espace						' '
+#define d_code_retour_chariot				'\n'
+#define d_code_tabulation					'\t'
+#define d_longueur_maximale_instruction		16
 
 #define d_INT					"integer"
 #define	d_REL					"real"
@@ -1853,7 +1861,7 @@ typedef struct processus
 	unsigned long				taille_pile_objets;
 	struct_objet				*pile_objets;
 
-#	define TAILLE_CACHE 1024
+#	define TAILLE_CACHE 16384
 
 	unsigned long				*objets_adr[TAILLE_CACHE];
 	int							pointeur_adr;
@@ -1977,6 +1985,7 @@ void instruction_clear(struct_processus
 void instruction_cllcd(struct_processus *s_etat_processus);
 void instruction_clmf(struct_processus *s_etat_processus);
 void instruction_close(struct_processus *s_etat_processus);
+void instruction_clratexit(struct_processus *s_etat_processus);
 void instruction_clrcntxt(struct_processus *s_etat_processus);
 void instruction_clrerr(struct_processus *s_etat_processus);
 void instruction_clrfuse(struct_processus *s_etat_processus);
@@ -2176,6 +2185,8 @@ void instruction_maxs(struct_processus *
 void instruction_mclrin(struct_processus *s_etat_processus);
 void instruction_mean(struct_processus *s_etat_processus);
 void instruction_mem(struct_processus *s_etat_processus);
+void instruction_memlock(struct_processus *s_etat_processus);
+void instruction_memunlock(struct_processus *s_etat_processus);
 void instruction_min(struct_processus *s_etat_processus);
 void instruction_mins(struct_processus *s_etat_processus);
 void instruction_mod(struct_processus *s_etat_processus);
@@ -2230,6 +2241,7 @@ void instruction_print(struct_processus
 void instruction_private(struct_processus *s_etat_processus);
 void instruction_prlcd(struct_processus *s_etat_processus);
 void instruction_prmd(struct_processus *s_etat_processus);
+void instruction_procid(struct_processus *s_etat_processus);
 void instruction_prompt(struct_processus *s_etat_processus);
 void instruction_protect(struct_processus *s_etat_processus);
 void instruction_prst(struct_processus *s_etat_processus);
@@ -2463,7 +2475,7 @@ void *allocation_maillon(struct_processu
 
 #ifndef RPLARGS
 void analyse(struct_processus *s_etat_processus, void (*fonction)());
-inline void *analyse_instruction(struct_processus *s_etat_processus,
+void *analyse_instruction(struct_processus *s_etat_processus,
 		unsigned char *candidat);
 void appel_gnuplot(struct_processus *s_etat_processus,
 		unsigned char persistance);
@@ -2476,6 +2488,8 @@ void conversion_element_tex(unsigned cha
 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, unsigned long longueur);
 void conversion_radians_vers_degres(real8 *angle);
 void correction_formateur_tex(struct_processus *s_etat_processus,
 		unsigned char **ligne);
@@ -2573,7 +2587,7 @@ void retrait_thread(struct_processus *s_
 void retrait_thread_surveillance(struct_processus *s_etat_processus,
 		struct_descripteur_thread *s_argument_thread);
 void rplcore(struct_processus *s_etat_processus);
-inline void scrutation_injection(struct_processus *s_etat_processus);
+void scrutation_injection(struct_processus *s_etat_processus);
 void sf(struct_processus *s_etat_processus, unsigned char indice_drapeau);
 void *surveillance_processus(void *argument);
 void swap(void *variable_1, void *variable_2, unsigned long taille_octets);
@@ -2793,9 +2807,9 @@ logical1 test_fonction(unsigned char *ch
 */
 
 #ifndef RPLARGS
-inline ssize_t read_atomic(struct_processus *s_etat_processus,
+ssize_t read_atomic(struct_processus *s_etat_processus,
 		int fd, void *buf, size_t count);
-inline ssize_t write_atomic(struct_processus *s_etat_processus,
+ssize_t write_atomic(struct_processus *s_etat_processus,
 		int fd, void *buf, size_t count);
 #endif
 
@@ -3185,7 +3199,7 @@ void zgelsy_(integer4 *m, integer4 *n, i
  * drapeau depuis une bibliothèque).
  */
 
-inline int test_arret(struct_processus *s_etat_processus);
+int test_arret(struct_processus *s_etat_processus);
 
 #endif