comparison graal/com.oracle.truffle.ruby.nodes/src/com/oracle/truffle/ruby/nodes/objects/SingletonClassNode.java @ 13514:0fbee3eb71f0

Ruby: import project.
author Chris Seaton <chris.seaton@oracle.com>
date Mon, 06 Jan 2014 17:12:09 +0000
parents
children
comparison
equal deleted inserted replaced
13513:64a23ce736a0 13514:0fbee3eb71f0
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.objects;
11
12 import java.math.*;
13
14 import com.oracle.truffle.api.*;
15 import com.oracle.truffle.api.frame.*;
16 import com.oracle.truffle.api.nodes.*;
17 import com.oracle.truffle.ruby.nodes.*;
18 import com.oracle.truffle.ruby.runtime.*;
19 import com.oracle.truffle.ruby.runtime.objects.*;
20
21 /**
22 * Reads the singleton (meta, eigen) class of an object.
23 */
24 @NodeInfo(shortName = "singleton")
25 public class SingletonClassNode extends RubyNode {
26
27 @Child protected RubyNode child;
28
29 public SingletonClassNode(RubyContext context, SourceSection sourceSection, RubyNode child) {
30 super(context, sourceSection);
31 this.child = adoptChild(child);
32 }
33
34 @Override
35 public Object execute(VirtualFrame frame) {
36 final Object childResult = child.execute(frame);
37
38 final RubyContext context = getContext();
39
40 if (childResult instanceof NilPlaceholder) {
41 return context.getCoreLibrary().getNilClass();
42 } else if (childResult instanceof BigInteger) {
43 // TODO(CS): this is problematic - do Bignums have singletons or not?
44 return context.getCoreLibrary().box(childResult).getSingletonClass();
45 } else {
46 return ((RubyBasicObject) childResult).getSingletonClass();
47 }
48 }
49
50 }