Mercurial > hg > graal-compiler

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Christian Humer <christian.humer@gmail.com>
date Tue, 07 Jan 2014 18:53:04 +0100
parents 0fbee3eb71f0
children
comparison
equal deleted inserted replaced
13528:5a0c694ef735 13529:856c2c294f84
1 /*
2 * Copyright (c) 2013 Oracle and/or its affiliates. All rights reserved. This
3 * code is released under a tri EPL/GPL/LGPL license. You can use it,
4 * redistribute it and/or modify it under the terms of the:
5 *
6 * Eclipse Public License version 1.0
7 * GNU General Public License version 2
8 * GNU Lesser General Public License version 2.1
9 */
10 package com.oracle.truffle.ruby.nodes.core;
11
12 import com.oracle.truffle.api.*;
13 import com.oracle.truffle.api.dsl.*;
14 import com.oracle.truffle.api.frame.*;
15 import com.oracle.truffle.ruby.nodes.call.*;
16 import com.oracle.truffle.ruby.runtime.*;
17 import com.oracle.truffle.ruby.runtime.core.*;
18 import com.oracle.truffle.ruby.runtime.objects.*;
19
20 @CoreClass(name = "Class")
21 public abstract class ClassNodes {
22
23 @CoreMethod(names = "===", minArgs = 1, maxArgs = 1)
24 public abstract static class ContainsInstanceNode extends CoreMethodNode {
25
26 public ContainsInstanceNode(RubyContext context, SourceSection sourceSection) {
27 super(context, sourceSection);
28 }
29
30 public ContainsInstanceNode(ContainsInstanceNode prev) {
31 super(prev);
32 }
33
34 @Specialization
35 public boolean containsInstance(RubyClass rubyClass, RubyBasicObject instance) {
36 return instance.getRubyClass().assignableTo(rubyClass);
37 }
38 }
39
40 @CoreMethod(names = "new", needsBlock = true, isSplatted = true)
41 public abstract static class NewNode extends CoreMethodNode {
42
43 @Child protected DispatchHeadNode initialize;
44
45 public NewNode(RubyContext context, SourceSection sourceSection) {
46 super(context, sourceSection);
47 initialize = adoptChild(new DispatchHeadNode(context, getSourceSection(), "initialize", false));
48 }
49
50 public NewNode(NewNode prev) {
51 super(prev);
52 initialize = adoptChild(prev.initialize);
53 }
54
55 @Specialization
56 public RubyBasicObject newInstance(VirtualFrame frame, RubyClass rubyClass, Object[] args, @SuppressWarnings("unused") UndefinedPlaceholder block) {
57 return doNewInstance(frame, rubyClass, args, null);
58 }
59
60 @Specialization
61 public RubyBasicObject newInstance(VirtualFrame frame, RubyClass rubyClass, Object[] args, RubyProc block) {
62 return doNewInstance(frame, rubyClass, args, block);
63 }
64
65 private RubyBasicObject doNewInstance(VirtualFrame frame, RubyClass rubyClass, Object[] args, RubyProc block) {
66 final RubyBasicObject instance = rubyClass.newInstance();
67 initialize.dispatch(frame, instance, block, args);
68 return instance;
69 }
70
71 }
72
73 @CoreMethod(names = "to_s", maxArgs = 0)
74 public abstract static class ToSNode extends CoreMethodNode {
75
76 public ToSNode(RubyContext context, SourceSection sourceSection) {
77 super(context, sourceSection);
78 }
79
80 public ToSNode(ToSNode prev) {
81 super(prev);
82 }
83
84 @Specialization
85 public RubyString toS(RubyClass rubyClass) {
86 return getContext().makeString(rubyClass.getName());
87 }
88 }
89
90 }