reinstate mirai scm

Author: shikokuchuo

DESCRIPTION

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

NAMESPACE

@@ -42,6 +42,7 @@ S3method(setopt,nanoListener)
 S3method(setopt,nanoSocket)
 S3method(start,nanoDialer)
 S3method(start,nanoListener)
+export(.mirai_scm)
 export(call_aio)
 export(context)
 export(dial)

NEWS.md

@@ -1,4 +1,4 @@
-# nanonext 0.3.0.9004 (development)
+# nanonext 0.3.0.9005 (development)
 
 #### New Features
 

R/utils.R

@@ -100,6 +100,18 @@ logging <- function(level = c("keep", "check", "error", "info")) {
 
 }
 
+# nanonext - Limited scope exported functions ----------------------------------
+
+#' @export
+#'
+.mirai_scm <- function() {
+
+  identical(parent.env(parent.env(parent.frame())), getNamespace("mirai")) ||
+    stop("this function is for package internal use only")
+  .Call(rnng_scm)
+
+}
+
 # nanonext - Non-exported functions --------------------------------------------
 
 encode <- function(data, mode) {