cpp11 SEXP

Author: andrjohns

src/quickjsr.cpp

@@ -52,10 +52,8 @@ extern "C" {
     ContextXPtr ctx(ctx_ptr_);
     const char* code_string = Rf_translateCharUTF8(STRING_ELT(code_string_, 0));
     JSValue val = JS_Eval(ctx.get(), code_string, strlen(code_string), "<input>", JS_EVAL_TYPE_GLOBAL);
-    SEXP rtn = cpp11::as_sexp(!JS_IsException(val));
-    PROTECT(rtn);
+    cpp11::sexp rtn = cpp11::as_sexp(!JS_IsException(val));
     JS_FreeValue(ctx.get(), val);
-    UNPROTECT(1);
     return rtn;
     END_CPP11
   }
@@ -78,13 +76,10 @@ extern "C" {
       JS_FreeValue(ctx.get(), arg);
     }
 
-    SEXP result = quickjsr::JSValue_to_SEXP(ctx.get(), result_js);
-    PROTECT(result);
+    cpp11::sexp result = quickjsr::JSValue_to_SEXP(ctx.get(), result_js);
     JS_FreeValue(ctx.get(), fun);
     JS_FreeValue(ctx.get(), global);
     JS_FreeValue(ctx.get(), result_js);
-    UNPROTECT(1);
-
     return result;
     END_CPP11
   }
@@ -94,11 +89,9 @@ extern "C" {
     ContextXPtr ctx(ctx_ptr_);
     JSValue global = JS_GetGlobalObject(ctx.get());
     JSValue result = quickjsr::JS_GetPropertyRecursive(ctx.get(), global, Rf_translateCharUTF8(STRING_ELT(js_obj_name, 0)));
-    SEXP rtn = quickjsr::JSValue_to_SEXP(ctx.get(), result);
-    PROTECT(rtn);
+    cpp11::sexp rtn = quickjsr::JSValue_to_SEXP(ctx.get(), result);
     JS_FreeValue(ctx.get(), result);
     JS_FreeValue(ctx.get(), global);
-    UNPROTECT(1);
     return rtn;
     END_CPP11
   }
@@ -124,12 +117,10 @@ extern "C" {
     JSContext* rt_ctx = quickjsr::JS_NewCustomContext(rt);
 
     JSValue val = JS_Eval(rt_ctx, eval_string, strlen(eval_string), "<input>", JS_EVAL_TYPE_GLOBAL);
-    SEXP rtn = quickjsr::JSValue_to_SEXP(rt_ctx, val);
-    PROTECT(rtn);
+    cpp11::sexp rtn = quickjsr::JSValue_to_SEXP(rt_ctx, val);
     JS_FreeValue(rt_ctx, val);
     JS_FreeContext(rt_ctx);
     JS_FreeRuntime(rt);
-    UNPROTECT(1);
 
     return rtn;
     END_CPP11
@@ -143,15 +134,13 @@ extern "C" {
     JSValue arg = quickjsr::SEXP_to_JSValue(rt_ctx, arg_, LOGICAL_ELT(auto_unbox_, 0));
     JSValue result_js = JS_JSONStringify(rt_ctx, arg, JS_UNDEFINED, JS_UNDEFINED);
     const char* res_str = JS_ToCString(rt_ctx, result_js);
-    SEXP json = cpp11::as_sexp(res_str ? res_str : "");
-    PROTECT(json);
+    cpp11::sexp json = cpp11::as_sexp(res_str ? res_str : "");
 
     JS_FreeCString(rt_ctx, res_str);
     JS_FreeValue(rt_ctx, result_js);
     JS_FreeValue(rt_ctx, arg);
     JS_FreeContext(rt_ctx);
     JS_FreeRuntime(rt);
-    UNPROTECT(1);
 
     return json;
     END_CPP11
@@ -164,12 +153,11 @@ extern "C" {
 
     const char* json = Rf_translateCharUTF8(STRING_ELT(json_, 0));
     JSValue result = JS_ParseJSON(rt_ctx, json, strlen(json), "<input>");
-    SEXP rtn = quickjsr::JSValue_to_SEXP(rt_ctx, result);
-    PROTECT(rtn);
+    cpp11::sexp rtn = quickjsr::JSValue_to_SEXP(rt_ctx, result);
+
     JS_FreeValue(rt_ctx, result);
     JS_FreeContext(rt_ctx);
     JS_FreeRuntime(rt);
-    UNPROTECT(1);
 
     return rtn;
     END_CPP11