X-Git-Url: https://git.auder.net/?p=valse.git;a=blobdiff_plain;f=pkg%2Fsrc%2Fvalse_init.c;fp=pkg%2Fsrc%2Fvalse_init.c;h=b8ce9ddeb665a6f1f5fb60c5e1bf2ed3105fd185;hp=0000000000000000000000000000000000000000;hb=1196a43d961a95abc18d3c8e777e9a4e8233e562;hpb=859c30ec72871f923da0498c14a94e67b0219875

diff --git a/pkg/src/valse_init.c b/pkg/src/valse_init.c
new file mode 100644
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);
+}