swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: dc000f2a5f006d137f66716b086025d618bf8306 authored by John M Chambers on 14 July 2008, 00:00:00 UTC
version 1.0-5
version 1.0-5
Tip revision: dc000f2
SoDA_init.c
#include <R.h>
#include <Rinternals.h>
#include <R_ext/Rdynload.h>
void F77_SUB(geodistv)();
void R_digest_C(char **, int *, int *, char **);
SEXP R_digest(SEXP, SEXP, SEXP);
static R_FortranMethodDef FortEntries[] = {
{"geodistv", (DL_FUNC) &F77_SUB(geodistv), 6},
{NULL, NULL, 0}
};
static R_NativePrimitiveArgType digest_type[4] = {STRSXP, INTSXP, INTSXP, STRSXP};
static R_CMethodDef cEntries[] = {
{"R_digest_C", (DL_FUNC) &R_digest_C, 4, digest_type},
{NULL, NULL, 0, NULL}
};
static R_CallMethodDef callEntries[] = {
{"R_digest", (DL_FUNC) &R_digest, 3},
{NULL, NULL, 0}
};
void
R_init_SoDA(DllInfo *info)
{
/* Register routines, allocate resources. */
R_registerRoutines(info, cEntries /* Centries*/, callEntries /*CallEntries*/,
FortEntries, NULL /*ExternEntries*/);
}
void
R_unload_SoDA(DllInfo *info)
{
/* Release resources. */
}