Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions DESCRIPTION
Original file line number Diff line number Diff line change
@@ -1,12 +1,12 @@
Package: udunits2
Type: Package
Title: Udunits-2 Bindings for R
Version: 0.13
Date: 2016-11-16
Version: 0.14
Author: James Hiebert <hiebert@uvic.ca>
Maintainer: James Hiebert <hiebert@uvic.ca>
Description: Provides simple bindings to Unidata's udunits library.
URL: https://github.com/pacificclimate/Rudunits2 https://www.unidata.ucar.edu/software/udunits/
BugReports: https://github.com/pacificclimate/Rudunits2/issues/
SystemRequirements: udunits-2
License: GPL-2
LazyLoad: yes
Expand Down
34 changes: 34 additions & 0 deletions src/init.c
Original file line number Diff line number Diff line change
@@ -0,0 +1,34 @@
#include <stdlib.h> // for NULL
#include <R_ext/Rdynload.h>

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

/* .C calls */
extern void R_ut_are_convertible(void *, void *, void *);
extern void R_ut_convert(void *, void *, void *, void *, void *);
extern void R_ut_get_name(void *, void *);
extern void R_ut_get_symbol(void *, void *);
extern void R_ut_has_system(void *);
extern void R_ut_init(void *);
extern void R_ut_is_parseable(void *, void *);
extern void R_ut_set_encoding(void *);

static const R_CMethodDef CEntries[] = {
{"R_ut_are_convertible", (DL_FUNC) &R_ut_are_convertible, 3},
{"R_ut_convert", (DL_FUNC) &R_ut_convert, 5},
{"R_ut_get_name", (DL_FUNC) &R_ut_get_name, 2},
{"R_ut_get_symbol", (DL_FUNC) &R_ut_get_symbol, 2},
{"R_ut_has_system", (DL_FUNC) &R_ut_has_system, 1},
{"R_ut_init", (DL_FUNC) &R_ut_init, 1},
{"R_ut_is_parseable", (DL_FUNC) &R_ut_is_parseable, 2},
{"R_ut_set_encoding", (DL_FUNC) &R_ut_set_encoding, 1},
{NULL, NULL, 0}
};

void R_init_udunits2(DllInfo *dll)
{
R_registerRoutines(dll, CEntries, NULL, NULL, NULL);
R_useDynamicSymbols(dll, FALSE);
}