[Rprotobuf-commits] r673 - pkg/src

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

Author: murray
Date: 2013-12-31 21:07:50 +0100 (Tue, 31 Dec 2013)
New Revision: 673

Modified:
   pkg/src/rprotobuf.cpp
Log:
Mark function definitions extern C with RcppExport as they are in the
header file.



Modified: pkg/src/rprotobuf.cpp
===================================================================
--- pkg/src/rprotobuf.cpp	2013-12-31 12:44:31 UTC (rev 672)
+++ pkg/src/rprotobuf.cpp	2013-12-31 20:07:50 UTC (rev 673)
@@ -47,7 +47,7 @@
  *
  * @param file proto file name
  */
-SEXP readProtoFiles(SEXP file, SEXP dirs) {
+RcppExport SEXP readProtoFiles(SEXP file, SEXP dirs) {
     BEGIN_RCPP
     DescriptorPoolLookup::importProtoFiles(file, dirs);
     return R_NilValue;
@@ -62,7 +62,7 @@
  * @return an S4 object of class Descriptor, or NULL if the type
  *  is unknown
  */
-SEXP getProtobufDescriptor(SEXP type) {
+RcppExport SEXP getProtobufDescriptor(SEXP type) {
 
 #ifdef RPB_DEBUG
     Rprintf("<getProtobufDescriptor>\n      type = ");
@@ -95,7 +95,7 @@
  * @return an S4 object of class FieldDescriptor, or NULL if the type
  *  is unknown
  */
-SEXP getExtensionDescriptor(SEXP type) {
+RcppExport SEXP getExtensionDescriptor(SEXP type) {
 #ifdef RPB_DEBUG
     Rprintf("<getExtensionDescriptor>\n      type = ");
     Rf_PrintValue(type);
@@ -160,7 +160,7 @@
  * @param pointer external pointer to a google::protobuf::Descriptor object
  * @param name name of the thing to extract
  */
-SEXP do_dollar_Descriptor(SEXP pointer, SEXP name) {
+RcppExport SEXP do_dollar_Descriptor(SEXP pointer, SEXP name) {
 
     const char* what = CHAR(STRING_ELT(name, 0));
     GPB::Descriptor* desc = (GPB::Descriptor*)EXTPTR_PTR(pointer);