Use R-safe output

Author: andrjohns

src/Makevars

@@ -42,7 +42,7 @@ $(OBJECTS): build-static
 build-static:
 	@mkdir -p ../inst/include/quickjs
 	@cp $(wildcard quickjs/*.h) ../inst/include/quickjs
-	$(R_CC) $(ALL_CPPFLAGS) $(ALL_CFLAGS) -funsigned-char -std=gnu11 -c libquickjs.c
+	$(R_CC) $(ALL_CPPFLAGS) $(ALL_CFLAGS) -DNDEBUG -funsigned-char -std=gnu11 -c libquickjs.c
 	@mkdir -p ../inst/lib/$(R_ARCH)
 	$(AR) -rs ../inst/lib/$(R_ARCH)/libquickjs.a libquickjs.o
 

src/libquickjs.c

@@ -1,3 +1,20 @@
+#include <stdio.h>
+
+void Rf_error(const char *fmt, ...);
+void Rprintf(const char *fmt, ...);
+
+void Rf_abort(void) {
+  Rf_error("Aborted!");
+}
+
+void Rf_exit(int status) {
+  Rf_error("Exit with status %d", status);
+}
+
+#define abort Rf_abort
+#define exit Rf_exit
+#define printf Rprintf
+
 #include "quickjs/cutils.c"
 #include "quickjs/libbf.c"
 #include "quickjs/libregexp.c"