1 #include <R.h>
2 #include <Rinternals.h>
3 #include <stdlib.h> // for NULL
4 #include <R_ext/Rdynload.h>
5
6 /* .Call calls */
7 extern SEXP ellipsis_promise_forced(SEXP);
8 extern SEXP ellipsis_dots(SEXP, SEXP);
9 extern SEXP ellipsis_eval_bare(SEXP, SEXP);
10 extern SEXP ellipsis_dots_used(SEXP);
11
12 static const R_CallMethodDef CallEntries[] = {
13 {"ellipsis_dots", (DL_FUNC) &ellipsis_dots, 2},
14 {"ellipsis_promise_forced", (DL_FUNC) &ellipsis_promise_forced, 1},
15 {"ellipsis_eval_bare", (DL_FUNC) &ellipsis_eval_bare, 2},
16 {"ellipsis_dots_used", (DL_FUNC) &ellipsis_dots_used, 1},
17 {NULL, NULL, 0}
18 };
19
R_init_ellipsis(DllInfo * dll)20 void R_init_ellipsis(DllInfo *dll)
21 {
22 R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
23 R_useDynamicSymbols(dll, FALSE);
24 }
25