b8ce9ddeb665a6f1f5fb60c5e1bf2ed3105fd185
[valse.git] / pkg / src / valse_init.c
1 #include <stdlib.h> // for NULL
2 #include <R_ext/Rdynload.h>
3 #include <Rdefines.h>
4
5 /* .Call calls */
6 extern SEXP EMGLLF(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
7 extern SEXP EMGrank(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
8
9 static const R_CallMethodDef CEntries[] = {
10 { "EMGLLF", (DL_FUNC) &EMGLLF, 11 },
11 { "EMGrank", (DL_FUNC) &EMGrank, 8 },
12 { NULL, NULL, 0 }
13 };
14
15 void R_init_valse(DllInfo *dll)
16 {
17 R_registerRoutines(dll, NULL, CEntries, NULL, NULL);
18 R_useDynamicSymbols(dll, FALSE);
19 }