Alternative?

Author: andrjohns

src/libquickjs.c

@@ -1,5 +1,11 @@
-#include <R_ext/Error.h>
-#include <R_ext/Print.h>
+void Rf_error(const char *, ...);
+void Rprintf(const char *, ...);
+
+//#include <R_ext/Error.h>
+//#include <R_ext/Print.h>
+#include <stdarg.h>
+#include <stdio.h>
+#include <stdlib.h>
 
 void Rf_abort() {
   Rf_error("Error!");
@@ -9,13 +15,20 @@ void Rf_exit(int code) {
   Rf_error("Error: %d", code);
 }
 
+void Rf_printf(void *file, const char *fmt, ...) {
+  va_list args;
+  va_start(args, fmt);
+  Rprintf(fmt, args);
+  va_end(args);
+}
+
 #define abort Rf_abort
 #define exit Rf_exit
 #define _exit Rf_exit
-#define fprintf(file, ...) Rprintf(__VA_ARGS__)
-#define putchar(c) Rprintf("%s", c)
-#define stderr NULL
-#define stdout NULL
+#define fprintf Rf_printf
+//#define putchar Rprintf
+//#define stderr NULL
+//#define stdout NULL
 
 #include "quickjs/cutils.c"
 #include "quickjs/libbf.c"