Displaying 1 result from an estimated 1 matches for "external_def".
2003 Oct 10
1
number of arguments in .Call function registration
....
*
*/
#define CALL_DEF(fname, nargs) \
{ #fname, (DL_FUNC)&(fname), \
nargs+sizeof(TYPEOF(PREPROC_NULL_ARGS(fname, nargs)))- \
sizeof(TYPEOF(R_NilValue)) }
#endif
#ifndef TEST_CALL_DEF
#define CALL_DEF(fname, nargs) { #fname, (DL_FUNC)&fname, nargs}
#endif
#define EXTERNAL_DEF(fname) CALL_DEF(fname, 1)