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