2019-09-16 09:15:51 +00:00
|
|
|
#include <R.h>
|
|
|
|
#include <Rinternals.h>
|
|
|
|
#include <stdlib.h> // for NULL
|
|
|
|
#include <R_ext/Rdynload.h>
|
|
|
|
|
|
|
|
/* FIXME:
|
|
|
|
Check these declarations against the C/Fortran source code.
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* .Call calls */
|
2019-09-25 11:53:45 +00:00
|
|
|
extern SEXP cve_simple(SEXP X, SEXP Y, SEXP k,
|
|
|
|
SEXP h,
|
|
|
|
SEXP tau, SEXP tol,
|
|
|
|
SEXP epochs, SEXP attempts,
|
|
|
|
SEXP logger, SEXP loggerEnv);
|
2019-09-16 09:15:51 +00:00
|
|
|
|
|
|
|
static const R_CallMethodDef CallEntries[] = {
|
2019-09-25 11:53:45 +00:00
|
|
|
{"cve_simple", (DL_FUNC) &cve_simple, 10},
|
2019-09-16 09:15:51 +00:00
|
|
|
{NULL, NULL, 0}
|
|
|
|
};
|
|
|
|
|
|
|
|
/* Restrict C entrypoints to registered routines. */
|
|
|
|
void R_initCVE(DllInfo *dll)
|
|
|
|
{
|
|
|
|
R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
|
|
|
|
R_useDynamicSymbols(dll, FALSE);
|
|
|
|
}
|