[GR-14489] Migrate standard FastR types to Truffle Libraries.

PullRequest: fastr/2045

Author: tomasstupka

com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/EngineRootNode.java

@@ -82,7 +82,7 @@ public static EngineRootNode createEngineRoot(REngine engine, RContext context,
     public Object execute(VirtualFrame frame) {
         Object actualFrame = executionFrame != null ? executionFrame : contextReference.get().stateREnvironment.getGlobalFrame();
         try {
-            return r2Foreign.execute(this.bodyNode.execute(actualFrame));
+            return r2Foreign.convert(this.bodyNode.execute(actualFrame));
         } catch (ReturnException ex) {
             return ex.getResult();
         } catch (DebugExitException | JumpToTopLevelException | ExitException | ThreadDeath e) {

com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/REngine.java

@@ -346,7 +346,7 @@ public Object execute(VirtualFrame frame) {
             for (int i = 0; i < statements.length - 1; i++) {
                 statements[i].execute(frame);
             }
-            return toForeignNode.execute(statements[statements.length - 1].execute(frame));
+            return toForeignNode.convert(statements[statements.length - 1].execute(frame));
         }
     }
 

com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/RRuntimeASTAccessImpl.java

@@ -43,6 +43,7 @@
 import com.oracle.truffle.r.nodes.access.variables.ReadVariableNode;
 import com.oracle.truffle.r.nodes.builtin.RBuiltinNode;
 import com.oracle.truffle.r.nodes.builtin.RBuiltinRootNode;
+import com.oracle.truffle.r.nodes.builtin.base.Rm;
 import com.oracle.truffle.r.nodes.builtin.base.printer.ComplexVectorPrinter;
 import com.oracle.truffle.r.nodes.builtin.base.printer.DoubleVectorPrinter;
 import com.oracle.truffle.r.nodes.builtin.helpers.DebugHandling;
@@ -54,7 +55,9 @@
 import com.oracle.truffle.r.nodes.control.ReplacementDispatchNode;
 import com.oracle.truffle.r.nodes.function.ClassHierarchyNode;
 import com.oracle.truffle.r.nodes.function.FunctionDefinitionNode;
+import com.oracle.truffle.r.nodes.function.PromiseHelperNode;
 import com.oracle.truffle.r.nodes.function.RCallNode;
+import com.oracle.truffle.r.nodes.function.call.RExplicitCallNode;
 import com.oracle.truffle.r.nodes.instrumentation.RSyntaxTags.FunctionBodyBlockTag;
 import com.oracle.truffle.r.nodes.instrumentation.RSyntaxTags.LoopTag;
 import com.oracle.truffle.r.runtime.ArgumentsSignature;
@@ -79,6 +82,7 @@
 import com.oracle.truffle.r.runtime.data.RPromise;
 import com.oracle.truffle.r.runtime.data.RStringVector;
 import com.oracle.truffle.r.runtime.data.model.RAbstractStringVector;
+import com.oracle.truffle.r.runtime.env.REnvironment;
 import com.oracle.truffle.r.runtime.nodes.InternalRSyntaxNodeChildren;
 import com.oracle.truffle.r.runtime.nodes.RBaseNode;
 import com.oracle.truffle.r.runtime.nodes.RInstrumentableNode;
@@ -118,6 +122,26 @@ public Object forcePromise(String identifier, Object val) {
         }
     }
 
+    @TruffleBoundary
+    @Override
+    public boolean removeFromEnv(REnvironment env, String key) {
+        try {
+            return Rm.removeFromEnv(env, key, true);
+        } catch (REnvironment.PutException ex) {
+            return false;
+        }
+    }
+
+    @Override
+    public Object forcePromise(RPromise promise) {
+        return PromiseHelperNode.evaluateSlowPath(promise);
+    }
+
+    @Override
+    public ExplicitFunctionCall createExplicitFunctionCall() {
+        return RExplicitCallNode.create();
+    }
+
     @Override
     public ArgumentsSignature getArgumentsSignature(RFunction f) {
         return ((RRootNode) f.getRootNode()).getSignature();