remove experimental send xptr data

Author: shikokuchuo

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: nanonext
 Type: Package
 Title: NNG (Nanomsg Next Gen) Lightweight Messaging Library
-Version: 0.9.2.9034
+Version: 0.9.2.9035
 Description: R binding for NNG (Nanomsg Next Gen), a successor to ZeroMQ. NNG is 
     a socket library providing high-performance scalability protocols, a
     cross-platform standard for messaging and communications. Serves as a

NEWS.md

@@ -1,4 +1,4 @@
-# nanonext 0.9.2.9034 (development)
+# nanonext 0.9.2.9035 (development)
 
 #### New Features
 
@@ -24,7 +24,6 @@
   + Permits sending of NULL, in which case an empty vector of the corresponding mode is received.
   + Character vectors containing empty characters in the middle are now received correctly.
   + For character vectors, respects original encoding and no longer performs automatic conversion to UTF8.
-  + Experimental: sending of external pointer data (as char).
 * The unresolved value for an Aio is now the symbol ` unresolvedValue ` rather than a classed logical NA. Continue to use `unresolved()` to check for resolution.
 * Base64 and SHA hash functions now use big-endian representation for serialization (where this is performed) to ensure consistency across all systems (fixes #14, a regression in nanonext 0.9.2).
 * Package installation now succeeds in certain environments where 'cmake' failed to make 'libmbedtls' detectable after building (thanks @kendonB #13).

src/core.c

@@ -236,12 +236,6 @@ void nano_encode(nano_buf *enc, SEXP object) {
   case RAWSXP:
     NANO_INIT(enc, (unsigned char *) STDVEC_DATAPTR(object), XLENGTH(object));
     break;
-  case EXTPTRSXP: ;
-    const char *buf = R_ExternalPtrAddr(object);
-    if (buf != NULL) {
-      NANO_INIT(enc, (unsigned char *) buf, strlen(buf));
-      break;
-    }
   case NILSXP:
     NANO_INIT(enc, NULL, 0);
     break;

tests/tests.R

@@ -203,8 +203,6 @@ nanotest(!unresolved(msg))
 nanotest(is.integer(req$send(c(TRUE, FALSE, TRUE), mode = 2L, block = 500)))
 nanotestaio(msg <- recv_aio(ctx, mode = 6L, timeout = 500))
 nanotest(is.logical(call_aio(msg)$data))
-nanotest(is.integer(req$send(ctx, mode = 2L, block = 500)))
-nanotest(is.raw(recv(ctx, mode = 8L, block = 500L)))
 nanotestaio(err <- send_aio(ctx, msg, mode = 2L))
 nanotestn(stop_aio(err))
 nanotesterr(err$result, "active")