[morpheus.git] / pkg / src / morpheus_init.c

#include <stdlib.h> // for NULL
#include <R_ext/Rdynload.h>

/* FIXME: 
   Check these declarations against the C/Fortran source code.
*/

/* .C calls */
extern void hungarianAlgorithm(void *, void *, void *);
extern void Moments_M2(void *, void *, void *, void *, void *);
extern void Moments_M3(void *, void *, void *, void *, void *);

static const R_CMethodDef CEntries[] = {
    {"hungarianAlgorithm", (DL_FUNC) &hungarianAlgorithm, 3},
    {"Moments_M2",         (DL_FUNC) &Moments_M2,         5},
    {"Moments_M3",         (DL_FUNC) &Moments_M3,         5},
    {NULL, NULL, 0}
};

void R_init_morpheus(DllInfo *dll)
{
    R_registerRoutines(dll, CEntries, NULL, NULL, NULL);
    R_useDynamicSymbols(dll, FALSE);
}
Commit	Line	Data
80be0d77 BA	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