Mercurial > hg > graal-compiler
diff graal/com.oracle.truffle.ruby.nodes/src/com/oracle/truffle/ruby/nodes/core/TrueClassNodes.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/TrueClassNodes.java Tue Jan 07 18:53:04 2014 +0100 @@ -0,0 +1,97 @@ +/* + * 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.ruby.runtime.*; +import com.oracle.truffle.ruby.runtime.core.*; + +@CoreClass(name = "TrueClass") +public abstract class TrueClassNodes { + + @CoreMethod(names = "!", needsSelf = false, maxArgs = 0) + public abstract static class NotNode extends CoreMethodNode { + + public NotNode(RubyContext context, SourceSection sourceSection) { + super(context, sourceSection); + } + + public NotNode(NotNode prev) { + super(prev); + } + + @Specialization + public boolean not() { + return false; + } + + } + + @CoreMethod(names = {"==", "===", "=~"}, needsSelf = false, minArgs = 1, maxArgs = 1) + public abstract static class EqualNode extends CoreMethodNode { + + public EqualNode(RubyContext context, SourceSection sourceSection) { + super(context, sourceSection); + } + + public EqualNode(EqualNode prev) { + super(prev); + } + + @Specialization + public boolean equal(boolean other) { + return other; + } + + @Specialization + public boolean equal(Object other) { + return other instanceof Boolean && ((boolean) other); + } + + } + + @CoreMethod(names = "^", needsSelf = false, minArgs = 1, maxArgs = 1) + public abstract static class XorNode extends CoreMethodNode { + + public XorNode(RubyContext context, SourceSection sourceSection) { + super(context, sourceSection); + } + + public XorNode(XorNode prev) { + super(prev); + } + + @Specialization + public boolean xor(boolean other) { + return true ^ other; + } + + } + + @CoreMethod(names = "to_s", needsSelf = false, 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() { + return getContext().makeString("true"); + } + + } + +}