register routines for r-devel

hildebra · Feb 22, 2017 · 33896d9 · 33896d9
1 parent 61155ba
commit 33896d9
Showing 1 changed file with 23 additions and 0 deletions.
diff --git a/r-package/rtk/src/register.c b/r-package/rtk/src/register.c
@@ -0,0 +1,23 @@
+#include <R.h>
+#include <Rinternals.h>
+#include <stdlib.h> // for NULL
+#include <R_ext/Rdynload.h>
+
+/* FIXME: 
+   Check these declarations against the C/Fortran source code.
+*/
+
+/* .Call calls */
+extern SEXP rtk_rcpp_rarefaction(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
+
+static const R_CallMethodDef CallEntries[] = {
+    {"rtk_rcpp_rarefaction", (DL_FUNC) &rtk_rcpp_rarefaction, 12},
+    {NULL, NULL, 0}
+};
+
+void R_init_rtk(DllInfo *dll)
+{
+    R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
+    R_useDynamicSymbols(dll, FALSE);
+}
+