Replace extern "C" by cpp11::sexp

Author: mgirlich

src/connection.cpp

@@ -32,7 +32,7 @@ SEXP write_bin(SEXP data, SEXP con) {
 // raw vector.
 //
 [[cpp11::register]]
-extern "C" SEXP read_connection_(SEXP con_sxp, SEXP read_size_sxp) {
+cpp11::sexp read_connection_(SEXP con_sxp, SEXP read_size_sxp) {
 
   BEGIN_CPP
   std::vector<char> buffer;

src/cpp11.cpp

@@ -11,7 +11,7 @@
 #include <cstring>
 
 [[cpp11::register]]
-extern "C" SEXP  xml_parse_options_() {
+cpp11::sexp  xml_parse_options_() {
 
 #if defined(LIBXML_VERSION) && (LIBXML_VERSION >= 20700)
 #define HAS_OLD10
@@ -184,7 +184,7 @@ extern "C" SEXP  xml_parse_options_() {
 }
 
 [[cpp11::register]]
-extern "C" SEXP doc_parse_file(
+cpp11::sexp doc_parse_file(
     SEXP path_sxp,
     SEXP encoding_sxp,
     SEXP as_html_sxp,
@@ -217,7 +217,7 @@ extern "C" SEXP doc_parse_file(
 }
 
 [[cpp11::register]]
-extern "C" SEXP doc_parse_raw(
+cpp11::sexp doc_parse_raw(
     SEXP x,
     SEXP encoding_sxp,
     SEXP base_url_sxp,
@@ -259,7 +259,7 @@ extern "C" SEXP doc_parse_raw(
 }
 
 [[cpp11::register]]
-extern "C" SEXP doc_root(SEXP x) {
+cpp11::sexp doc_root(SEXP x) {
   BEGIN_CPP
   XPtrDoc doc(x);
   XPtrNode node(xmlDocGetRootElement(doc.checked_get()));
@@ -268,15 +268,15 @@ extern "C" SEXP doc_root(SEXP x) {
 }
 
 [[cpp11::register]]
-extern "C" SEXP doc_has_root(SEXP x_sxp) {
+cpp11::sexp doc_has_root(SEXP x_sxp) {
   BEGIN_CPP
   XPtrDoc x(x_sxp);
   return Rf_ScalarLogical(xmlDocGetRootElement(x.get()) != NULL);
   END_CPP
 }
 
 [[cpp11::register]]
-extern "C" SEXP  doc_url(SEXP doc_sxp) {
+cpp11::sexp  doc_url(SEXP doc_sxp) {
   BEGIN_CPP
 
   XPtrDoc doc(doc_sxp);
@@ -293,7 +293,7 @@ extern "C" SEXP  doc_url(SEXP doc_sxp) {
 }
 
 [[cpp11::register]]
-extern "C" SEXP  doc_new(SEXP version_sxp, SEXP encoding_sxp) {
+cpp11::sexp  doc_new(SEXP version_sxp, SEXP encoding_sxp) {
 
   const char* encoding = CHAR(STRING_ELT(encoding_sxp, 0));
 
@@ -306,7 +306,7 @@ extern "C" SEXP  doc_new(SEXP version_sxp, SEXP encoding_sxp) {
 }
 
 [[cpp11::register]]
-extern "C" SEXP doc_set_root(SEXP doc_sxp, SEXP root_sxp) {
+cpp11::sexp doc_set_root(SEXP doc_sxp, SEXP root_sxp) {
   BEGIN_CPP
   XPtrDoc doc(doc_sxp);
   XPtrNode root(root_sxp);
@@ -316,7 +316,7 @@ extern "C" SEXP doc_set_root(SEXP doc_sxp, SEXP root_sxp) {
 }
 
 [[cpp11::register]]
-extern "C" SEXP doc_is_html(SEXP doc_sxp) {
+cpp11::sexp doc_is_html(SEXP doc_sxp) {
   BEGIN_CPP
   XPtrDoc doc(doc_sxp);
   return Rf_ScalarLogical(doc->properties & XML_DOC_HTML);

src/xml2_doc.cpp

@@ -40,7 +40,7 @@ void handleGenericError(void *ctx, const char *fmt, ...)
 }
 
 [[cpp11::register]]
-extern "C" SEXP init_libxml2() {
+cpp11::sexp init_libxml2() {
   // Check that header and libs are compatible
   LIBXML_TEST_VERSION
 
@@ -59,6 +59,6 @@ extern "C" {
 }
 
 [[cpp11::register]]
-extern "C" SEXP libxml2_version_(){
+cpp11::sexp libxml2_version_(){
   return Rf_mkString(LIBXML_DOTTED_VERSION);
 }

src/xml2_init.cpp

@@ -10,7 +10,7 @@
 #include "xml2_utils.h"
 
 [[cpp11::register]]
-extern "C" SEXP unique_ns(SEXP ns) {
+cpp11::sexp unique_ns(SEXP ns) {
   BEGIN_CPP
   return NsMap(ns).out();
   END_CPP
@@ -29,7 +29,7 @@ void cache_namespace(xmlNode* node, NsMap* nsMap) {
 }
 
 [[cpp11::register]]
-extern "C" SEXP doc_namespaces(SEXP doc_sxp) {
+cpp11::sexp doc_namespaces(SEXP doc_sxp) {
   BEGIN_CPP
   XPtrDoc doc(doc_sxp);
 
@@ -43,7 +43,7 @@ extern "C" SEXP doc_namespaces(SEXP doc_sxp) {
 }
 
 [[cpp11::register]]
-extern "C" SEXP ns_lookup_uri(SEXP doc_sxp, SEXP node_sxp, SEXP uri_sxp) {
+cpp11::sexp ns_lookup_uri(SEXP doc_sxp, SEXP node_sxp, SEXP uri_sxp) {
   BEGIN_CPP
   XPtrDoc doc(doc_sxp);
   XPtrNode node(node_sxp);
@@ -58,7 +58,7 @@ extern "C" SEXP ns_lookup_uri(SEXP doc_sxp, SEXP node_sxp, SEXP uri_sxp) {
 }
 
 [[cpp11::register]]
-extern "C" SEXP ns_lookup(SEXP doc_sxp, SEXP node_sxp, SEXP prefix_sxp) {
+cpp11::sexp ns_lookup(SEXP doc_sxp, SEXP node_sxp, SEXP prefix_sxp) {
   BEGIN_CPP
   XPtrDoc doc(doc_sxp);
   XPtrNode node(node_sxp);