truffle: truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/MapTruffleObject.java annotate

author	Matthias Grimmer <grimmer@ssw.jku.at>
date	Fri, 11 Dec 2015 15:20:27 +0100
parents
children

rev	line source
22495 aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	1 /*
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	2 * Copyright (c) 2015, 2015, Oracle and/or its affiliates. All rights reserved.
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	4 *
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	5 * This code is free software; you can redistribute it and/or modify it
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	6 * under the terms of the GNU General Public License version 2 only, as
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	7 * published by the Free Software Foundation. Oracle designates this
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	8 * particular file as subject to the "Classpath" exception as provided
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	9 * by Oracle in the LICENSE file that accompanied this code.
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	10 *
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	11 * This code is distributed in the hope that it will be useful, but WITHOUT
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	12 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	13 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	14 * version 2 for more details (a copy is included in the LICENSE file that
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	15 * accompanied this code).
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	16 *
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	17 * You should have received a copy of the GNU General Public License version
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	18 * 2 along with this work; if not, write to the Free Software Foundation,
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	19 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	20 *
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	21 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	22 * or visit www.oracle.com if you need additional information or have any
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	23 * questions.
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	24 */
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	25 package com.oracle.truffle.tck;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	26
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	27 import java.util.Map;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	28
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	29 import com.oracle.truffle.api.CallTarget;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	30 import com.oracle.truffle.api.Truffle;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	31 import com.oracle.truffle.api.frame.VirtualFrame;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	32 import com.oracle.truffle.api.interop.ForeignAccess;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	33 import com.oracle.truffle.api.interop.ForeignAccess.Factory;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	34 import com.oracle.truffle.api.interop.Message;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	35 import com.oracle.truffle.api.interop.TruffleObject;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	36 import com.oracle.truffle.api.nodes.RootNode;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	37
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	38 @SuppressWarnings({"rawtypes", "unchecked"})
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	39 public final class MapTruffleObject implements TruffleObject {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	40
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	41 private final Map map;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	42
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	43 public MapTruffleObject(Map map) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	44 this.map = map;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	45 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	46
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	47 public ForeignAccess getForeignAccess() {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	48 return ForeignAccess.create(new MapForeignAccessFactory());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	49 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	50
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	51 private static class MapForeignAccessFactory implements Factory {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	52
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	53 public boolean canHandle(TruffleObject obj) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	54 return obj instanceof MapTruffleObject;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	55 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	56
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	57 public CallTarget accessMessage(Message tree) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	58 if (Message.IS_NULL.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	59 return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(false));
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	60 } else if (Message.IS_EXECUTABLE.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	61 return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(false));
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	62 } else if (Message.IS_BOXED.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	63 return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(false));
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	64 } else if (Message.HAS_SIZE.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	65 return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(true));
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	66 } else if (Message.READ.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	67 return Truffle.getRuntime().createCallTarget(new MapReadNode());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	68 } else if (Message.WRITE.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	69 return Truffle.getRuntime().createCallTarget(new MapWriteNode());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	70 } else if (Message.GET_SIZE.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	71 return Truffle.getRuntime().createCallTarget(new MapSizeNode());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	72 } else {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	73 throw new IllegalArgumentException(tree.toString() + " not supported");
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	74 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	75 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	76 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	77
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	78 private static class MapWriteNode extends RootNode {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	79 protected MapWriteNode() {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	80 super(TckLanguage.class, null, null);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	81 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	82
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	83 @Override
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	84 public Object execute(VirtualFrame frame) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	85 MapTruffleObject map = (MapTruffleObject) ForeignAccess.getReceiver(frame);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	86 Object key = ForeignAccess.getArguments(frame).get(0);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	87 Object value = ForeignAccess.getArguments(frame).get(1);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	88 map.map.put(key, value);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	89 return value;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	90 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	91 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	92
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	93 private static class MapReadNode extends RootNode {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	94 protected MapReadNode() {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	95 super(TckLanguage.class, null, null);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	96 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	97
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	98 @Override
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	99 public Object execute(VirtualFrame frame) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	100 MapTruffleObject map = (MapTruffleObject) ForeignAccess.getReceiver(frame);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	101 Object key = ForeignAccess.getArguments(frame).get(0);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	102 return map.map.get(key);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	103 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	104
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	105 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	106
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	107 private static class MapSizeNode extends RootNode {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	108 protected MapSizeNode() {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	109 super(TckLanguage.class, null, null);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	110 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	111
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	112 @Override
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	113 public Object execute(VirtualFrame frame) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	114 MapTruffleObject map = (MapTruffleObject) ForeignAccess.getReceiver(frame);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	115 return map.map.size();
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	116 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	117
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	118 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	119
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	120 }

22495

aeba89e1d8da Add ComplexNumber sequence tests