pkg/src/morpheus_init.c

   1 #include <stdlib.h> // for NULL
   2 #include <R_ext/Rdynload.h>
   3
   4 /* FIXME:
   5    Check these declarations against the C/Fortran source code.
   6 */
   7
   8 /* .C calls */
   9 extern void hungarianAlgorithm(void *, void *, void *);
  10 extern void Moments_M2(void *, void *, void *, void *, void *);
  11 extern void Moments_M3(void *, void *, void *, void *, void *);
  12
  13 static const R_CMethodDef CEntries[] = {
  14     {"hungarianAlgorithm", (DL_FUNC) &hungarianAlgorithm, 3},
  15     {"Moments_M2",         (DL_FUNC) &Moments_M2,         5},
  16     {"Moments_M3",         (DL_FUNC) &Moments_M3,         5},
  17     {NULL, NULL, 0}
  18 };
  19
  20 void R_init_morpheus(DllInfo *dll)
  21 {
  22     R_registerRoutines(dll, CEntries, NULL, NULL, NULL);
  23     R_useDynamicSymbols(dll, FALSE);
  24 }
  25