[Depmix-commits] r665 - in pkg/depmixS4: . src

[noreply at r-forge.r-project.org]

Author: ingmarvisser
Date: 2018-08-24 09:57:35 +0200 (Fri, 24 Aug 2018)
New Revision: 665

Added:
   pkg/depmixS4/src/depmixS4_init.c
Modified:
   pkg/depmixS4/DESCRIPTION
Log:
=added depmixS4_init.c

Modified: pkg/depmixS4/DESCRIPTION
===================================================================
--- pkg/depmixS4/DESCRIPTION	2018-08-24 07:54:16 UTC (rev 664)
+++ pkg/depmixS4/DESCRIPTION	2018-08-24 07:57:35 UTC (rev 665)
@@ -1,6 +1,6 @@
 Package: depmixS4
-Version: 1.3-5-R664
-Date: 2018-08-23
+Version: 1.3-5-R665
+Date: 2018-08-24
 Title: Dependent Mixture Models - Hidden Markov Models of GLMs and Other Distributions in S4
 Author: Ingmar Visser <i.visser at uva.nl>, Maarten Speekenbrink <m.speekenbrink at ucl.ac.uk>
 Maintainer: Ingmar Visser <i.visser at uva.nl>

Added: pkg/depmixS4/src/depmixS4_init.c
===================================================================
--- pkg/depmixS4/src/depmixS4_init.c	                        (rev 0)
+++ pkg/depmixS4/src/depmixS4_init.c	2018-08-24 07:57:35 UTC (rev 665)
@@ -0,0 +1,23 @@
+#include <stdlib.h> // for NULL
+#include <R_ext/Rdynload.h>
+
+/* FIXME: 
+   Check these declarations against the C/Fortran source code.
+*/
+
+/* .C calls */
+extern void forwardbackwardC(void *, void *, void *, void *, void *, void *, void *,
+                            void *, void *, void *,
+                            void *, void *, void *, void *);
+
+
+static const R_CMethodDef CEntries[] = {
+    {"forwardbackwardC", (DL_FUNC) &forwardbackwardC, 14},
+    {NULL, NULL, 0}
+};
+
+void R_init_depmixS4(DllInfo *dll)
+{
+    R_registerRoutines(dll, CEntries, NULL, NULL, NULL);
+    R_useDynamicSymbols(dll, FALSE);
+}