Add missing Truffle::Interop methods

Author: eregon

src/main/java/org/truffleruby/interop/InteropNodes.java

@@ -1262,6 +1262,15 @@ private Object doImport(String name) {
     // endregion
 
     // region Language
+    @CoreMethod(names = "has_language?", onSingleton = true, required = 1)
+    public abstract static class HasLanguageNode extends InteropCoreMethodArrayArgumentsNode {
+        @Specialization(limit = "getCacheLimit()")
+        protected boolean hasLanguage(Object receiver,
+                @CachedLibrary("receiver") InteropLibrary interop) {
+            return interop.hasLanguage(receiver);
+        }
+    }
+
     @CoreMethod(names = "language", onSingleton = true, required = 1)
     public abstract static class GetLanguageNode extends InteropCoreMethodArrayArgumentsNode {
 
@@ -1659,31 +1668,22 @@ protected int identityHashCode(Object value,
     // endregion
 
     // region Scope
-    @Primitive(name = "current_scope")
-    public abstract static class GetCurrentScopeNode extends PrimitiveArrayArgumentsNode {
-
-        @Specialization
-        protected Object getScope(VirtualFrame frame,
-                @CachedLibrary(limit = "1") NodeLibrary nodeLibrary,
-                @Cached TranslateInteropExceptionNode translateInteropException) {
-            try {
-                return nodeLibrary.getScope(this, frame, true);
-            } catch (UnsupportedMessageException e) {
-                throw translateInteropException.execute(e);
-            }
+    @CoreMethod(names = "scope?", onSingleton = true, required = 1)
+    public abstract static class IsScopeNode extends InteropCoreMethodArrayArgumentsNode {
+        @Specialization(limit = "getCacheLimit()")
+        protected boolean isScope(Object receiver,
+                @CachedLibrary("receiver") InteropLibrary interop) {
+            return interop.isScope(receiver);
         }
-
     }
 
-    @Primitive(name = "top_scope")
-    public abstract static class GetTopScopeNode extends PrimitiveArrayArgumentsNode {
-
-        @Specialization
-        protected Object getTopScope(
-                @CachedContext(RubyLanguage.class) RubyContext context) {
-            return context.getTopScopeObject();
+    @CoreMethod(names = "has_scope_parent?", onSingleton = true, required = 1)
+    public abstract static class HasScopeParentNode extends InteropCoreMethodArrayArgumentsNode {
+        @Specialization(limit = "getCacheLimit()")
+        protected boolean hasScopeParent(Object receiver,
+                @CachedLibrary("receiver") InteropLibrary interop) {
+            return interop.hasScopeParent(receiver);
         }
-
     }
 
     @CoreMethod(names = "scope_parent", onSingleton = true, required = 1)
@@ -1704,6 +1704,29 @@ protected Object getScope(Object scope,
             }
         }
     }
+
+    @Primitive(name = "current_scope")
+    public abstract static class GetCurrentScopeNode extends PrimitiveArrayArgumentsNode {
+        @Specialization
+        protected Object getScope(VirtualFrame frame,
+                @CachedLibrary(limit = "1") NodeLibrary nodeLibrary,
+                @Cached TranslateInteropExceptionNode translateInteropException) {
+            try {
+                return nodeLibrary.getScope(this, frame, true);
+            } catch (UnsupportedMessageException e) {
+                throw translateInteropException.execute(e);
+            }
+        }
+    }
+
+    @Primitive(name = "top_scope")
+    public abstract static class GetTopScopeNode extends PrimitiveArrayArgumentsNode {
+        @Specialization
+        protected Object getTopScope(
+                @CachedContext(RubyLanguage.class) RubyContext context) {
+            return context.getTopScopeObject();
+        }
+    }
     // endregion scope
 
 }