Browse code

Added registration for C functions

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/crlmm@36696 bc3139a8-67e5-0310-9ffc-ced21a209358

Nishant Gopalakrishnan authored on 16/01/2009 00:50:49
Showing3 changed files

... ...
@@ -1,4 +1,4 @@
1
-useDynLib("crlmm")
1
+useDynLib("crlmm",.registration=TRUE)
2 2
 import(methods, utils)
3 3
 export("crlmm",
4 4
        "list.celfiles")
5 5
new file mode 100644
... ...
@@ -0,0 +1,33 @@
1
+#include <R.h>
2
+#include <Rinternals.h>
3
+
4
+
5
+SEXP gtypeCallerPart1nm(SEXP *, SEXP *, SEXP *, SEXP *, SEXP *,SEXP *, SEXP *,
6
+		        SEXP *, SEXP *, SEXP *, SEXP *, SEXP *,SEXP *, SEXP *,
7
+                        SEXP *, SEXP *, SEXP *);
8
+
9
+
10
+SEXP test (SEXP *);
11
+
12
+SEXP gtypeCallerPart1NormalNoN(SEXP *, SEXP *, SEXP *, SEXP *,SEXP *, SEXP *,
13
+                               SEXP *, SEXP *, SEXP *, SEXP *,SEXP *, SEXP *,
14
+		               SEXP *, SEXP *, SEXP *, SEXP *,SEXP *);
15
+
16
+SEXP gtypeCallerPart2(SEXP *, SEXP *, SEXP *, SEXP *,
17
+		      SEXP *, SEXP *, SEXP *, SEXP *,
18
+                      SEXP *, SEXP *, SEXP *, SEXP *,
19
+		      SEXP *, SEXP *, SEXP *, SEXP *,
20
+                      SEXP *, SEXP *, SEXP *);
21
+
22
+SEXP gtypeCallerPart1TNoN(SEXP *, SEXP *, SEXP *, SEXP *,
23
+		          SEXP *, SEXP *, SEXP *, SEXP *,
24
+                          SEXP *, SEXP *, SEXP *, SEXP *,
25
+		          SEXP *, SEXP *, SEXP *,
26
+		      SEXP *, SEXP *)
27
+
28
+
29
+SEXP gtypeCallerPart2TNoN(SEXP *, SEXP *, SEXP *, SEXP *,
30
+			  SEXP *, SEXP *, SEXP *, SEXP *, 
31
+			  SEXP *, SEXP *, SEXP *, SEXP *,
32
+			  SEXP *, SEXP *, SEXP *, SEXP *,
33
+			  SEXP *, SEXP *, SEXP *)
0 34
\ No newline at end of file
1 35
new file mode 100644
... ...
@@ -0,0 +1,23 @@
1
+#include <R.h>
2
+#include <R_ext/Rdynload.h>
3
+#include "crlmm.h"
4
+
5
+static const R_CallMethodDef CallEntries[] = {
6
+    {"test", (DL_FUNC)&test, 1},
7
+    {"gtypeCallerPart1nm", (DL_FUNC)&gtypeCallerPart1nm, 17},
8
+    {"gtypeCallerPart2nm", (DL_FUNC)&gtypeCallerPart2nm, 19},
9
+    {"gtypeCallerPart1NormalNoN", (DL_FUNC)&gtypeCallerPart1NormalNoN, 17},
10
+    {"gtypeCallerPart1", (DL_FUNC)&gtypeCallerPart1, 17},
11
+    {"gtypeCallerPart2", (DL_FUNC)&gtypeCallerPart2, 19},
12
+    {"gtypeCallerPart1TNoN", (DL_FUNC)&gtypeCallerPart1TNoN, 17},
13
+    {"gtypeCallerPart2TNoN", (DL_FUNC)&gtypeCallerPart2TNoN, 19},
14
+    {NULL, NULL, 0}
15
+};
16
+
17
+void R_init_flowCore(DllInfo *dll)
18
+{
19
+    R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);    
20
+}
21
+
22
+
23
+