scsh-conservatory
/
scsh-ldap
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ don't use preprocessor symbol inside quotes 

+ get rid of FIXED_S48_CHECK_RECORD_TYPE
This commit is contained in:
eknauel 2004-02-11 12:44:06 +00:00
parent 37c2849c89
commit 53b3096a1e
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ffi-tools/ffi-tools.h
View File

@ -1,9 +1,6 @@
#include <unistd.h> #include <unistd.h>
#include "scheme48.h" #include "scheme48.h"
/* kludges */
#define FIXED_S48_RECORD_TYPE(x) (s48_stob_ref((x), S48_STOBTYPE_RECORD, 0))
/* variables */ /* variables */
static s48_value scheme_list_length_function = S48_FALSE; static s48_value scheme_list_length_function = S48_FALSE;
static s48_value scheme_boolean_p_function = S48_FALSE; static s48_value scheme_boolean_p_function = S48_FALSE;
@ -35,11 +32,11 @@ void ffit_init_hook(void);
#define FFIT_RECORD_TYPE_INIT(C_RECTYPE, SCM_NAME) \ #define FFIT_RECORD_TYPE_INIT(C_RECTYPE, SCM_NAME) \
S48_GC_PROTECT_GLOBAL(C_RECTYPE); \ S48_GC_PROTECT_GLOBAL(C_RECTYPE); \
C_RECTYPE = s48_get_imported_binding("SCM_NAME"); C_RECTYPE = s48_get_imported_binding(SCM_NAME);
#define FFIT_CHECK_RECORD_TYPE(SCM_VAL, SCM_RECTYPE) \ #define FFIT_CHECK_RECORD_TYPE(SCM_VAL, SCM_RECTYPE) \
if (!(S48_RECORD_P(SCM_VAL) && \ if (!(S48_RECORD_P(SCM_VAL) && \
(FIXED_S48_RECORD_TYPE(SCM_VAL) == SCM_RECTYPE))) \ (S48_RECORD_TYPE(SCM_VAL) == SCM_RECTYPE))) \
s48_raise_argument_type_error(SCM_VAL) s48_raise_argument_type_error(SCM_VAL)
#define FFIT_STRUCT_GET(FUNNAME, SCM_RECTYPE, C_RECTYPE, C_FIELD, FIELD_SCM_ENTER_FUN) \ #define FFIT_STRUCT_GET(FUNNAME, SCM_RECTYPE, C_RECTYPE, C_FIELD, FIELD_SCM_ENTER_FUN) \