jruby · Mar 22, 2016 · Mar 22, 2016 · Mar 22, 2016 · Mar 22, 2016 · Mar 22, 2016
diff --git a/truffle/pom.rb b/truffle/pom.rb
@@ -45,6 +45,7 @@
                    :phase => 'compile',
                    'annotationProcessors' => [ 'org.jruby.truffle.om.dsl.processor.OMProcessor',
                                                'com.oracle.truffle.dsl.processor.TruffleProcessor',
+                                               'com.oracle.truffle.dsl.processor.InteropProcessor',
                                                'com.oracle.truffle.dsl.processor.verify.VerifyTruffleProcessor',
                                                'com.oracle.truffle.dsl.processor.LanguageRegistrationProcessor' ],
                    'generatedSourcesDirectory' =>  'target/generated-sources',

diff --git a/truffle/pom.xml b/truffle/pom.xml
@@ -119,6 +119,7 @@ DO NOT MODIFIY - GENERATED CODE
               <annotationProcessors>
                 <annotationProcessor>org.jruby.truffle.om.dsl.processor.OMProcessor</annotationProcessor>
                 <annotationProcessor>com.oracle.truffle.dsl.processor.TruffleProcessor</annotationProcessor>
+                <annotationProcessor>com.oracle.truffle.dsl.processor.InteropProcessor</annotationProcessor>
                 <annotationProcessor>com.oracle.truffle.dsl.processor.verify.VerifyTruffleProcessor</annotationProcessor>
                 <annotationProcessor>com.oracle.truffle.dsl.processor.LanguageRegistrationProcessor</annotationProcessor>
               </annotationProcessors>

diff --git a/truffle/src/main/java/org/jruby/truffle/core/MethodForeignAccessFactory.java b/truffle/src/main/java/org/jruby/truffle/core/MethodForeignAccessFactory.java
diff --git a/truffle/src/main/java/org/jruby/truffle/core/array/ArrayForeignAccessFactory.java b/truffle/src/main/java/org/jruby/truffle/core/array/ArrayForeignAccessFactory.java
diff --git a/truffle/src/main/java/org/jruby/truffle/core/hash/HashForeignAccessFactory.java b/truffle/src/main/java/org/jruby/truffle/core/hash/HashForeignAccessFactory.java
diff --git a/truffle/src/main/java/org/jruby/truffle/core/string/StringForeignAccessFactory.java b/truffle/src/main/java/org/jruby/truffle/core/string/StringForeignAccessFactory.java
diff --git a/truffle/src/main/java/org/jruby/truffle/interop/ForeignExecuteNode.java b/truffle/src/main/java/org/jruby/truffle/interop/ForeignExecuteNode.java
@@ -0,0 +1,43 @@
+/*
+ * Copyright (c) 2013, 2016 Oracle and/or its affiliates. All rights reserved. This
+ * code is released under a tri EPL/GPL/LGPL license. You can use it,
+ * redistribute it and/or modify it under the terms of the:
+ *
+ * Eclipse Public License version 1.0
+ * GNU General Public License version 2
+ * GNU Lesser General Public License version 2.1
+ */
+package org.jruby.truffle.interop;
+
+import com.oracle.truffle.api.CompilerDirectives;
+import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.api.interop.AcceptMessage;
+import com.oracle.truffle.api.nodes.Node;
+import com.oracle.truffle.api.object.DynamicObject;
+import org.jruby.truffle.RubyContext;
+import org.jruby.truffle.RubyLanguage;
+import org.jruby.truffle.language.RubyObjectType;
+
+@AcceptMessage(value = "EXECUTE", receiverType = RubyObjectType.class, language = RubyLanguage.class)
+public final class ForeignExecuteNode extends ForeignExecuteBaseNode {
+
+    @Child private Node findContextNode;
+    @Child private InteropExecute interopNode;
+
+    @Override
+    public Object access(VirtualFrame frame, DynamicObject object, Object[] args) {
+        return getInteropNode().execute(frame);
+    }
+
+    private InteropExecute getInteropNode() {
+        if (interopNode == null) {
+            CompilerDirectives.transferToInterpreter();
+            findContextNode = insert(RubyLanguage.INSTANCE.unprotectedCreateFindContextNode());
+            final RubyContext context = RubyLanguage.INSTANCE.unprotectedFindContext(findContextNode);
+            interopNode = insert(new InteropExecute(context, null));
+        }
+
+        return interopNode;
+    }
+
+}
diff --git a/truffle/src/main/java/org/jruby/truffle/interop/ForeignGetSizeNode.java b/truffle/src/main/java/org/jruby/truffle/interop/ForeignGetSizeNode.java
@@ -0,0 +1,48 @@
+/*
+ * Copyright (c) 2013, 2016 Oracle and/or its affiliates. All rights reserved. This
+ * code is released under a tri EPL/GPL/LGPL license. You can use it,
+ * redistribute it and/or modify it under the terms of the:
+ *
+ * Eclipse Public License version 1.0
+ * GNU General Public License version 2
+ * GNU Lesser General Public License version 2.1
+ */
+package org.jruby.truffle.interop;
+
+import com.oracle.truffle.api.CompilerDirectives;
+import com.oracle.truffle.api.CompilerDirectives.CompilationFinal;
+import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.api.interop.AcceptMessage;
+import com.oracle.truffle.api.interop.ForeignAccess;
+import com.oracle.truffle.api.nodes.Node;
+import com.oracle.truffle.api.object.DynamicObject;
+import org.jruby.truffle.RubyContext;
+import org.jruby.truffle.RubyLanguage;
+import org.jruby.truffle.language.RubyObjectType;
+import org.jruby.truffle.language.dispatch.DispatchAction;
+import org.jruby.truffle.language.dispatch.DispatchHeadNode;
+import org.jruby.truffle.language.dispatch.MissingBehavior;
+
+@AcceptMessage(value = "GET_SIZE", receiverType = RubyObjectType.class, language = RubyLanguage.class)
+public final class ForeignGetSizeNode extends ForeignGetSizeBaseNode {
+
+    @Child private Node findContextNode;
+    @Child private DispatchHeadNode dispatchNode;
+
+    @Override
+    public Object access(VirtualFrame frame, DynamicObject object) {
+        return getDispatchNode().dispatch(frame, object, "size", null, new Object[] {});
+    }
+
+    private DispatchHeadNode getDispatchNode() {
+        if (dispatchNode == null) {
+            CompilerDirectives.transferToInterpreter();
+            findContextNode = insert(RubyLanguage.INSTANCE.unprotectedCreateFindContextNode());
+            final RubyContext context = RubyLanguage.INSTANCE.unprotectedFindContext(findContextNode);
+            dispatchNode = insert(new DispatchHeadNode(context, true, MissingBehavior.CALL_METHOD_MISSING, DispatchAction.CALL_METHOD));
+        }
+
+        return dispatchNode;
+    }
+
+}
diff --git a/truffle/src/main/java/org/jruby/truffle/interop/ForeignHasSizeNode.java b/truffle/src/main/java/org/jruby/truffle/interop/ForeignHasSizeNode.java
@@ -0,0 +1,28 @@
+/*
+ * Copyright (c) 2013, 2016 Oracle and/or its affiliates. All rights reserved. This
+ * code is released under a tri EPL/GPL/LGPL license. You can use it,
+ * redistribute it and/or modify it under the terms of the:
+ *
+ * Eclipse Public License version 1.0
+ * GNU General Public License version 2
+ * GNU Lesser General Public License version 2.1
+ */
+package org.jruby.truffle.interop;
+
+import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.api.interop.AcceptMessage;
+import com.oracle.truffle.api.object.DynamicObject;
+import org.jruby.truffle.RubyLanguage;
+import org.jruby.truffle.core.string.StringOperations;
+import org.jruby.truffle.language.RubyGuards;
+import org.jruby.truffle.language.RubyObjectType;
+
+@AcceptMessage(value = "HAS_SIZE", receiverType = RubyObjectType.class, language = RubyLanguage.class)
+public final class ForeignHasSizeNode extends ForeignHasSizeBaseNode {
+
+    @Override
+    public Object access(VirtualFrame frame, DynamicObject object) {
+        return RubyGuards.isRubyArray(object) || RubyGuards.isRubyHash(object) || RubyGuards.isRubyString(object);
+    }
+
+}
diff --git a/truffle/src/main/java/org/jruby/truffle/interop/ForeignInvokeNode.java b/truffle/src/main/java/org/jruby/truffle/interop/ForeignInvokeNode.java
@@ -0,0 +1,44 @@
+/*
+ * Copyright (c) 2013, 2016 Oracle and/or its affiliates. All rights reserved. This
+ * code is released under a tri EPL/GPL/LGPL license. You can use it,
+ * redistribute it and/or modify it under the terms of the:
+ *
+ * Eclipse Public License version 1.0
+ * GNU General Public License version 2
+ * GNU Lesser General Public License version 2.1
+ */
+package org.jruby.truffle.interop;
+
+import com.oracle.truffle.api.CompilerDirectives;
+import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.api.interop.AcceptMessage;
+import com.oracle.truffle.api.nodes.Node;
+import com.oracle.truffle.api.object.DynamicObject;
+import org.jruby.truffle.RubyContext;
+import org.jruby.truffle.RubyLanguage;
+import org.jruby.truffle.language.RubyNode;
+import org.jruby.truffle.language.RubyObjectType;
+
+@AcceptMessage(value = "INVOKE", receiverType = RubyObjectType.class, language = RubyLanguage.class)
+public final class ForeignInvokeNode extends ForeignInvokeBaseNode {
+
+    @Child private Node findContextNode;
+    @Child private RubyNode interopNode;
+
+    @Override
+    public Object access(VirtualFrame frame, DynamicObject object, String name, Object[] args) {
+        return getInteropNode().execute(frame);
+    }
+
+    private RubyNode getInteropNode() {
+        if (interopNode == null) {
+            CompilerDirectives.transferToInterpreter();
+            findContextNode = insert(RubyLanguage.INSTANCE.unprotectedCreateFindContextNode());
+            final RubyContext context = RubyLanguage.INSTANCE.unprotectedFindContext(findContextNode);
+            interopNode = insert(new UnresolvedInteropExecuteAfterReadNode(context, null, 0));
+        }
+
+        return interopNode;
+    }
+
+}