[2709] | 1 | /* |
---|
| 2 | * ---------------------------------------------------------------------- |
---|
| 3 | * INTERFACE: R Rappture Bindings |
---|
| 4 | * |
---|
| 5 | * ====================================================================== |
---|
| 6 | * AUTHOR: Derrick Kearney, Purdue University |
---|
[3177] | 7 | * Copyright (c) 2004-2012 HUBzero Foundation, LLC |
---|
[2709] | 8 | * |
---|
| 9 | * See the file "license.terms" for information on usage and |
---|
| 10 | * redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. |
---|
| 11 | * ====================================================================== |
---|
| 12 | */ |
---|
| 13 | |
---|
| 14 | #include "RpLibraryRInterface.h" |
---|
| 15 | #include "RpUnitsRInterface.h" |
---|
[2780] | 16 | #include "RpUtilsRInterface.h" |
---|
[2709] | 17 | |
---|
| 18 | #include <R_ext/Rdynload.h> |
---|
| 19 | |
---|
| 20 | static const R_CallMethodDef CallEntries[] = { |
---|
| 21 | {"RPRLib", (DL_FUNC) &RPRLib, 1}, |
---|
| 22 | {"RPRLibGetString", (DL_FUNC) &RPRLibGetString, 2}, |
---|
| 23 | {"RPRLibGetDouble", (DL_FUNC) &RPRLibGetDouble, 2}, |
---|
| 24 | {"RPRLibGetInteger", (DL_FUNC) &RPRLibGetInteger, 2}, |
---|
| 25 | {"RPRLibGetBoolean", (DL_FUNC) &RPRLibGetBoolean, 2}, |
---|
| 26 | {"RPRLibGetFile", (DL_FUNC) &RPRLibGetFile, 3}, |
---|
| 27 | {"RPRLibPutString", (DL_FUNC) &RPRLibPutString, 4}, |
---|
| 28 | // {"RPRLibPutData", (DL_FUNC) &RPRLibPutData, 5}, |
---|
| 29 | {"RPRLibPutDouble", (DL_FUNC) &RPRLibPutDouble, 4}, |
---|
| 30 | {"RPRLibPutFile", (DL_FUNC) &RPRLibPutFile, 5}, |
---|
| 31 | {"RPRLibResult", (DL_FUNC) &RPRLibResult, 1}, |
---|
| 32 | {"RPRUnitsConvertDouble", (DL_FUNC) &RPRUnitsConvertDouble, 2}, |
---|
| 33 | {"RPRUnitsConvertString", (DL_FUNC) &RPRUnitsConvertString, 3}, |
---|
[2780] | 34 | {"RPRUtilsProgress", (DL_FUNC) &RPRUtilsProgress, 2}, |
---|
[2709] | 35 | {NULL, NULL, 0} |
---|
| 36 | }; |
---|
| 37 | |
---|
| 38 | void R_init_Rappture(DllInfo *dll) |
---|
| 39 | { |
---|
| 40 | R_registerRoutines(dll, NULL, CallEntries, NULL, NULL); |
---|
| 41 | R_useDynamicSymbols(dll, FALSE); |
---|
| 42 | } |
---|
| 43 | |
---|
| 44 | |
---|
| 45 | #ifdef __cplusplus |
---|
| 46 | } |
---|
| 47 | #endif // ifdef __cplusplus |
---|
| 48 | |
---|