--- rpl/src/rplexternals.h	2017/06/29 14:54:42	1.75
+++ rpl/src/rplexternals.h	2017/07/02 22:28:20	1.77
@@ -89,13 +89,17 @@
 			if ((ptr != rptr) && (iptr)) goto __parse_error;
 #define parseError	{ goto __parse_error; } while(0)
 #define typeError { return(0); } while(0)
+#define typeSystemError { (*s_etat_processus).erreur_systeme = \
+		d_es_execution_bibliotheque; return(0); } while(0)
+#define typeSuccess { return(1); } while(0)
 #define typeFound(a) { return(a); } while(0)
 #define endTypeExtension __parse_error: return(0); }
 #define sizeOfParse	(rptr - ptr)
-#define searchType { recherche_type(s_etat_processus); \
+#define searchType(...) { recherche_type(s_etat_processus); \
 			if (((*s_etat_processus).erreur_execution != d_ex) || \
 					((*s_etat_processus).erreur_systeme != d_es)) \
-					return(0); } while(0)
+				{ __VA_ARGS__; return(0); } } while(0)
+#define integerFormat(a) formateur_nombre(s_etat_processus, a, 'I')
 
 /*
 --------------------------------------------------------------------------------
@@ -350,7 +354,7 @@
 		do { syslog(LOG_NOTICE, __VA_ARGS__); } while(0) 
 
 #define exportExternalFunctions(...) \
-	char **__external_symbols(struct_rpl_arguments *rpl_arguments, \
+	char **___external_symbols(struct_rpl_arguments *rpl_arguments, \
 			integer8 *nb_symbols, \
 			const char *version) { \
 		char arguments[] = #__VA_ARGS__; \