version 1.9, 2010/05/24 10:58:37
|
version 1.29, 2011/08/09 11:31:36
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.16 |
RPL/2 (R) version 4.1.3 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 194
|
Line 194
|
#define logger(...) do { syslog(LOG_NOTICE, __VA_ARGS__); } while(0) |
#define logger(...) do { syslog(LOG_NOTICE, __VA_ARGS__); } while(0) |
|
|
#define exportExternalFunctions(...) \ |
#define exportExternalFunctions(...) \ |
char **__external_symbols(unsigned long *nb_symbols) { \ |
char **__external_symbols(unsigned long *nb_symbols, \ |
|
const char *version) { \ |
char arguments[] = #__VA_ARGS__; \ |
char arguments[] = #__VA_ARGS__; \ |
char **tableau; \ |
char **tableau; \ |
char *ptr1, *ptr2; \ |
char *ptr1, *ptr2; \ |
int drapeau; \ |
int drapeau; \ |
unsigned long i; \ |
unsigned long i; \ |
|
if (strcmp(version, _d_version_rpl) != 0) \ |
|
{ \ |
|
notice(stdout, "Versions mismatch : library %s, expected %s\n", \ |
|
_d_version_rpl, version); \ |
|
(*nb_symbols) = -1; return(NULL); \ |
|
} \ |
(*nb_symbols) = 0; ptr1 = arguments; drapeau = 0; \ |
(*nb_symbols) = 0; ptr1 = arguments; drapeau = 0; \ |
while((*ptr1) != 0) \ |
while((*ptr1) != 0) \ |
{ \ |
{ \ |