Add registration.

Author: jolars

inst/NEWS

@@ -4,6 +4,7 @@ RcppParallel 2017.7.0 (unreleased)
 * Allow setting the number of threads to use via RCPP_PARALLEL_NUM_THREADS
   environment variable.
 * Update to TBB 2017 Update 7.
+* Add native registration of compiled functions.
 
 RcppParallel 4.3.20
 ------------------------------------------------------------------------

src/init.c

@@ -0,0 +1,24 @@
+#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 defaultNumThreads();
+extern SEXP setThreadOptions(SEXP, SEXP);
+
+static const R_CallMethodDef CallEntries[] = {
+   {"defaultNumThreads", (DL_FUNC) &defaultNumThreads, 0},
+   {"setThreadOptions",  (DL_FUNC) &setThreadOptions,  2},
+   {NULL, NULL, 0}
+};
+
+void R_init_RcppParallel(DllInfo *dll)
+{
+   R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
+   R_useDynamicSymbols(dll, FALSE);
+}