Pass R CMD check --as-cran

[valse.git] / pkg / src / valse_init.c

diff --git a/pkg/src/valse_init.c b/pkg/src/valse_init.c
new file mode 100644 (file)
index 0000000..b8ce9dd
--- /dev/null
+++ b/pkg/src/valse_init.c
@@ -0,0 +1,19 @@
+#include <stdlib.h> // for NULL
+#include <R_ext/Rdynload.h>
+#include <Rdefines.h>
+
+/* .Call calls */
+extern SEXP EMGLLF(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
+extern SEXP EMGrank(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
+
+static const R_CallMethodDef CEntries[] = {
+  { "EMGLLF",  (DL_FUNC) &EMGLLF,  11 },
+  { "EMGrank", (DL_FUNC) &EMGrank, 8  },
+  { NULL,      NULL,               0  }
+};
+
+void R_init_valse(DllInfo *dll)
+{
+  R_registerRoutines(dll, NULL, CEntries, NULL, NULL);
+  R_useDynamicSymbols(dll, FALSE);
+}