Enabling shiny/httpuv

com.oracle.truffle.r.native/fficall/src/common/Rinternals_common.c

@@ -111,6 +111,8 @@ void *DATAPTR(SEXP x) {
 		return REAL(x);
 	} else if (type == LGLSXP) {
 		return LOGICAL(x);
+	} else if (type == RAWSXP) {
+		return RAW(x);
 	} else {
 		printf("DATAPTR %d\n", type);
 		unimplemented("R_DATAPTR");

com.oracle.truffle.r.native/fficall/src/common/unimplemented.c

@@ -75,6 +75,13 @@ addInputHandler(InputHandler *handlers, int fd, InputHandlerProc handler,
     return NULL;
 }
 
+int
+removeInputHandler(InputHandler **handlers, InputHandler *it)
+{
+    unimplemented("removeInputHandler");
+    return NULL;
+}
+
 void setup_RdotApp(void) {
 	unimplemented("setup_RdotApp");
 }

com.oracle.truffle.r.nodes.builtin/src/com/oracle/truffle/r/nodes/builtin/base/AsFunction.java

@@ -129,7 +129,7 @@ public abstract class AsFunction extends RBuiltinNode.Arg2 {
         RBaseNode body;
         Object bodyObject = x.getDataAtAsObject(x.getLength() - 1);
         if (bodyObject instanceof RLanguage) {
-            body = ((RLanguage) x.getDataAtAsObject(x.getLength() - 1)).getRep();
+            body = (RBaseNode) RContext.getASTBuilder().process(((RLanguage) x.getDataAtAsObject(x.getLength() - 1)).getRep().asRSyntaxNode());
         } else if (bodyObject instanceof RSymbol) {
             body = RContext.getASTBuilder().lookup(RSyntaxNode.LAZY_DEPARSE, ((RSymbol) bodyObject).getName(), false).asRNode();
         } else {