diff graal/com.oracle.truffle.ruby.nodes/src/com/oracle/truffle/ruby/nodes/core/ClassNodes.java @ 13529:856c2c294f84

Merge.
author Christian Humer <christian.humer@gmail.com>
date Tue, 07 Jan 2014 18:53:04 +0100
parents 0fbee3eb71f0
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/graal/com.oracle.truffle.ruby.nodes/src/com/oracle/truffle/ruby/nodes/core/ClassNodes.java	Tue Jan 07 18:53:04 2014 +0100
@@ -0,0 +1,90 @@
+/*
+ * Copyright (c) 2013 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 com.oracle.truffle.ruby.nodes.core;
+
+import com.oracle.truffle.api.*;
+import com.oracle.truffle.api.dsl.*;
+import com.oracle.truffle.api.frame.*;
+import com.oracle.truffle.ruby.nodes.call.*;
+import com.oracle.truffle.ruby.runtime.*;
+import com.oracle.truffle.ruby.runtime.core.*;
+import com.oracle.truffle.ruby.runtime.objects.*;
+
+@CoreClass(name = "Class")
+public abstract class ClassNodes {
+
+    @CoreMethod(names = "===", minArgs = 1, maxArgs = 1)
+    public abstract static class ContainsInstanceNode extends CoreMethodNode {
+
+        public ContainsInstanceNode(RubyContext context, SourceSection sourceSection) {
+            super(context, sourceSection);
+        }
+
+        public ContainsInstanceNode(ContainsInstanceNode prev) {
+            super(prev);
+        }
+
+        @Specialization
+        public boolean containsInstance(RubyClass rubyClass, RubyBasicObject instance) {
+            return instance.getRubyClass().assignableTo(rubyClass);
+        }
+    }
+
+    @CoreMethod(names = "new", needsBlock = true, isSplatted = true)
+    public abstract static class NewNode extends CoreMethodNode {
+
+        @Child protected DispatchHeadNode initialize;
+
+        public NewNode(RubyContext context, SourceSection sourceSection) {
+            super(context, sourceSection);
+            initialize = adoptChild(new DispatchHeadNode(context, getSourceSection(), "initialize", false));
+        }
+
+        public NewNode(NewNode prev) {
+            super(prev);
+            initialize = adoptChild(prev.initialize);
+        }
+
+        @Specialization
+        public RubyBasicObject newInstance(VirtualFrame frame, RubyClass rubyClass, Object[] args, @SuppressWarnings("unused") UndefinedPlaceholder block) {
+            return doNewInstance(frame, rubyClass, args, null);
+        }
+
+        @Specialization
+        public RubyBasicObject newInstance(VirtualFrame frame, RubyClass rubyClass, Object[] args, RubyProc block) {
+            return doNewInstance(frame, rubyClass, args, block);
+        }
+
+        private RubyBasicObject doNewInstance(VirtualFrame frame, RubyClass rubyClass, Object[] args, RubyProc block) {
+            final RubyBasicObject instance = rubyClass.newInstance();
+            initialize.dispatch(frame, instance, block, args);
+            return instance;
+        }
+
+    }
+
+    @CoreMethod(names = "to_s", maxArgs = 0)
+    public abstract static class ToSNode extends CoreMethodNode {
+
+        public ToSNode(RubyContext context, SourceSection sourceSection) {
+            super(context, sourceSection);
+        }
+
+        public ToSNode(ToSNode prev) {
+            super(prev);
+        }
+
+        @Specialization
+        public RubyString toS(RubyClass rubyClass) {
+            return getContext().makeString(rubyClass.getName());
+        }
+    }
+
+}