updates to testRcppModule

eddelbuettel · eddelbuettel · commit 63fb5a0a0ed3 · 2017-04-09T11:21:02.000-05:00
diff --git a/ChangeLog b/ChangeLog
@@ -1,7 +1,33 @@
+2017-04-09  Dirk Eddelbuettel  <edd@debian.org>
+
+        * inst/unitTests/testRcppModule/src/init.c (R_init_testRcppModule): Call
+        R_registerRoutines() and R_useDynamicSymbols(); also ensure
+        _rcpp_module_boot_* is registered for each module
+        * inst/unitTests/testRcppModule/NAMESPACE: Added registration
+
+        * inst/unitTests/testRcppModule/DESCRIPTION (Title): Title case
+
+        * inst/unitTests/testRcppModule/R/rcpp_hello_world.R (rcpp_hello_world):
+        Call the renamed C++ function
+        * inst/unitTests/testRcppModule/src/rcpp_hello_world.cpp (rcpp_hello_world_cpp):
+        Renamed C++ function to be distinct from R function calling it
+        * inst/unitTests/testRcppModule/src/rcpp_hello_world.h: Ditto
+        * inst/unitTests/testRcppModule/man/rcpp_hello_world.Rd: Alias renamed
+        C++ function
+
+        * inst/unitTests/testRcppModule/man/Rcpp_modules_examples.Rd: Alias
+        renamed modules
+        * inst/unitTests/testRcppModule/tests/modules.R: Call renamed module
+
 2017-03-28  James J Balamuta  <balamut2@illinois.edu>
 
         * inst/vignettes/Rcpp-FAQ.Rnw: Added "Known Issues" section to FAQ
 
+2017-03-25  Dirk Eddelbuettel  <edd@debian.org>
+
+        * LICENSE: Added
+        * .Rbuildignore: Do not include LICENSE in package
+
 2017-03-17  Dirk Eddelbuettel  <edd@debian.org>
 
         * DESCRIPTION: Release 0.12.10
diff --git a/inst/unitTests/testRcppModule/DESCRIPTION b/inst/unitTests/testRcppModule/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: testRcppModule
 Type: Package
-Title: Some test examples using Rcpp with the Module feature
+Title: Some Test Examples using Rcpp with the Module Feature
 Version: 0.1
 Date: 2010-09-06
 Author: John Chambers
diff --git a/inst/unitTests/testRcppModule/NAMESPACE b/inst/unitTests/testRcppModule/NAMESPACE
@@ -1,4 +1,4 @@
-useDynLib(testRcppModule)
+useDynLib(testRcppModule, .registration=TRUE)
 exportPattern("^[[:alpha:]]+")
 import(Rcpp,methods)
 
diff --git a/inst/unitTests/testRcppModule/R/rcpp_hello_world.R b/inst/unitTests/testRcppModule/R/rcpp_hello_world.R
@@ -1,5 +1,5 @@
 
 rcpp_hello_world <- function(){
-    .Call( "rcpp_hello_world", PACKAGE = "testRcppModule" )
+    .Call( "rcpp_hello_world_cpp", PACKAGE = "testRcppModule" )
 }
 
diff --git a/inst/unitTests/testRcppModule/man/Rcpp_modules_examples.Rd b/inst/unitTests/testRcppModule/man/Rcpp_modules_examples.Rd
@@ -1,15 +1,15 @@
 \name{Rcpp Modules Examples}
-\alias{Num}
-\alias{World}
+\alias{RcppModuleNum}
+\alias{RcppModuleWorld}
 \alias{bar}
 \alias{bla}
 \alias{bla1}
 \alias{bla2}
 \alias{foo}
 \alias{vec}
 \alias{hello}
-\alias{Rcpp_Num-class}
-\alias{Rcpp_World-class}
+\alias{Rcpp_RcppModuleNum-class}
+\alias{Rcpp_RcppModuleWorld-class}
 \alias{Rcpp_vec-class}
 \alias{C++Object-class}
 \title{
diff --git a/inst/unitTests/testRcppModule/man/rcpp_hello_world.Rd b/inst/unitTests/testRcppModule/man/rcpp_hello_world.Rd
@@ -1,5 +1,6 @@
 \name{rcpp_hello_world}
 \alias{rcpp_hello_world}
+\alias{rcpp_hello_world_cpp}
 \docType{package}
 \title{
 Simple function using Rcpp
diff --git a/inst/unitTests/testRcppModule/src/init.c b/inst/unitTests/testRcppModule/src/init.c
@@ -0,0 +1,27 @@
+#include <R.h>
+#include <Rinternals.h>
+#include <stdlib.h> // for NULL
+#include <R_ext/Rdynload.h>
+
+/* FIXME: 
+   Check these declarations against the C/Fortran source code.
+*/
+
+/* .Call calls */
+extern SEXP rcpp_hello_world_cpp();
+extern SEXP _rcpp_module_boot_RcppModuleNumEx();
+extern SEXP _rcpp_module_boot_RcppModuleWorld();
+extern SEXP _rcpp_module_boot_stdVector();
+
+static const R_CallMethodDef CallEntries[] = {
+    {"rcpp_hello_world_cpp", (DL_FUNC) &rcpp_hello_world_cpp, 0},
+    {"_rcpp_module_boot_RcppModuleNumEx", (DL_FUNC) &_rcpp_module_boot_RcppModuleNumEx, 0},
+    {"_rcpp_module_boot_RcppModuleWorld", (DL_FUNC) &_rcpp_module_boot_RcppModuleWorld, 0},
+    {"_rcpp_module_boot_stdVector", (DL_FUNC) &_rcpp_module_boot_stdVector, 0},
+    {NULL, NULL, 0}
+};
+
+void R_init_testRcppModule(DllInfo *dll) {
+    R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
+    R_useDynamicSymbols(dll, FALSE);
+}
diff --git a/inst/unitTests/testRcppModule/src/rcpp_hello_world.cpp b/inst/unitTests/testRcppModule/src/rcpp_hello_world.cpp
@@ -1,6 +1,6 @@
 #include "rcpp_hello_world.h"
 
-SEXP rcpp_hello_world(){
+SEXP rcpp_hello_world_cpp(){
     using namespace Rcpp ;
 
     CharacterVector x = CharacterVector::create( "foo", "bar" )  ;
diff --git a/inst/unitTests/testRcppModule/src/rcpp_hello_world.h b/inst/unitTests/testRcppModule/src/rcpp_hello_world.h
@@ -3,6 +3,6 @@
 
 #include <Rcpp.h>
 
-RcppExport SEXP rcpp_hello_world() ;
+RcppExport SEXP rcpp_hello_world_cpp() ;
 
 #endif
diff --git a/inst/unitTests/testRcppModule/tests/modules.R b/inst/unitTests/testRcppModule/tests/modules.R
@@ -15,9 +15,6 @@ stopifnot(all.equal(bar(2), 4))
 stopifnot(all.equal(foo(2,3), 6))
 
 ## properties (at one stage this seqfaulted, so beware)
-nn <- new(Num)
+nn <- new(RcppModuleNum)
 nn$x <- pi
 stopifnot(all.equal(nn$x, pi))
-
-
-

Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,5 @@`
`1`	`1`
`2`	`2`	`rcpp_hello_world <- function(){`
`3`		`- .Call( "rcpp_hello_world", PACKAGE = "testRcppModule" )`
	`3`	`+ .Call( "rcpp_hello_world_cpp", PACKAGE = "testRcppModule" )`
`4`	`4`	`}`
`5`	`5`