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 }