truffle: truffle/com.oracle.truffle.tck/src/com/oracle/truffle/tck/ComplexNumbersB.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 com.oracle.truffle.api.CallTarget;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	28 import com.oracle.truffle.api.CompilerDirectives;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	29 import com.oracle.truffle.api.Truffle;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	30 import com.oracle.truffle.api.frame.VirtualFrame;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	31 import com.oracle.truffle.api.interop.ForeignAccess;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	32 import com.oracle.truffle.api.interop.ForeignAccess.Factory;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	33 import com.oracle.truffle.api.interop.Message;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	34 import com.oracle.truffle.api.interop.TruffleObject;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	35 import com.oracle.truffle.api.nodes.Node;
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 public class ComplexNumbersB implements TruffleObject {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	39
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	40 private final double[] reals;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	41 private final double[] imags;
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 ComplexNumbersB(double[] reals, double[] imags) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	44 assert reals.length == imags.length;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	45 this.reals = reals;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	46 this.imags = imags;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	47 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	48
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	49 public double[] getData() {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	50 double[] data = new double[reals.length * 2];
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	51 for (int i = 0; i < reals.length; i++) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	52 data[i * 2] = reals[i];
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	53 data[i * 2 + 1] = imags[i];
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	54 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	55 return data;
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
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	58 public ForeignAccess getForeignAccess() {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	59 return ForeignAccess.create(new ComplexNumbersBForeignAccessFactory());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	60 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	61
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	62 private static class ComplexNumbersBForeignAccessFactory implements Factory {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	63
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	64 public boolean canHandle(TruffleObject obj) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	65 return obj instanceof ComplexNumbersB;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	66 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	67
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	68 public CallTarget accessMessage(Message tree) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	69 if (Message.IS_NULL.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	70 return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(false));
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	71 } else if (Message.IS_EXECUTABLE.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	72 return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(false));
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	73 } else if (Message.IS_BOXED.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	74 return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(false));
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	75 } else if (Message.HAS_SIZE.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	76 return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(true));
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	77 } else if (Message.READ.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	78 return Truffle.getRuntime().createCallTarget(new ComplexNumbersBReadNode());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	79 } else if (Message.WRITE.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	80 return Truffle.getRuntime().createCallTarget(new ComplexNumbersBWriteNode());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	81 } else if (Message.GET_SIZE.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	82 return Truffle.getRuntime().createCallTarget(new ComplexNumbersBSizeNode());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	83 } else {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	84 throw new IllegalArgumentException(tree.toString() + " not supported");
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	85 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	86 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	87 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	88
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	89 private static class ComplexNumbersBWriteNode extends RootNode {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	90 protected ComplexNumbersBWriteNode() {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	91 super(TckLanguage.class, null, null);
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
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	94 @Child private Node readReal;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	95 @Child private Node readImag;
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 @Override
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	98 public Object execute(VirtualFrame frame) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	99 ComplexNumbersB complexNumbers = (ComplexNumbersB) ForeignAccess.getReceiver(frame);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	100 Number index = (Number) ForeignAccess.getArguments(frame).get(0);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	101 TruffleObject value = (TruffleObject) ForeignAccess.getArguments(frame).get(1);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	102 if (readReal == null \|\| readImag == null) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	103 CompilerDirectives.transferToInterpreterAndInvalidate();
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	104 this.readReal = insert(Message.READ.createNode());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	105 this.readImag = insert(Message.READ.createNode());
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 Number realPart = (Number) ForeignAccess.execute(readReal, frame, value, new Object[]{ComplexNumber.REAL_IDENTIFIER});
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	108 Number imagPart = (Number) ForeignAccess.execute(readImag, frame, value, new Object[]{ComplexNumber.IMAGINARY_IDENTIFIER});
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	109
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	110 complexNumbers.reals[index.intValue()] = realPart.doubleValue();
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	111 complexNumbers.imags[index.intValue()] = imagPart.doubleValue();
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	112 return value;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	113 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	114 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	115
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	116 private static class ComplexNumbersBReadNode extends RootNode {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	117 protected ComplexNumbersBReadNode() {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	118 super(TckLanguage.class, null, null);
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
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	121 @Override
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	122 public Object execute(VirtualFrame frame) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	123 ComplexNumbersB complexNumbers = (ComplexNumbersB) ForeignAccess.getReceiver(frame);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	124 Number index = (Number) ForeignAccess.getArguments(frame).get(0);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	125 return new ComplexNumberBEntry(complexNumbers, index.intValue());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	126 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	127
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	128 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	129
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	130 private static class ComplexNumbersBSizeNode extends RootNode {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	131 protected ComplexNumbersBSizeNode() {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	132 super(TckLanguage.class, null, null);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	133 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	134
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	135 @Override
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	136 public Object execute(VirtualFrame frame) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	137 ComplexNumbersB complexNumbers = (ComplexNumbersB) ForeignAccess.getReceiver(frame);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	138 assert complexNumbers.reals.length == complexNumbers.imags.length;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	139 return complexNumbers.reals.length;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	140 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	141
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	142 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	143
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	144 private static class ComplexNumberBEntry implements TruffleObject {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	145
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	146 private final ComplexNumbersB numbers;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	147 private final int index;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	148
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	149 public ComplexNumberBEntry(ComplexNumbersB numbers, int index) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	150 this.numbers = numbers;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	151 this.index = index;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	152 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	153
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	154 public ForeignAccess getForeignAccess() {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	155 return ForeignAccess.create(new ComplexNumberBEntryForeignAccessFactory());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	156 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	157
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	158 private static class ComplexNumberBEntryForeignAccessFactory implements Factory {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	159
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	160 public boolean canHandle(TruffleObject obj) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	161 return obj instanceof ComplexNumberBEntry;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	162 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	163
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	164 public CallTarget accessMessage(Message tree) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	165 if (Message.IS_NULL.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	166 return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(false));
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	167 } else if (Message.IS_EXECUTABLE.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	168 return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(false));
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	169 } else if (Message.IS_BOXED.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	170 return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(false));
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	171 } else if (Message.HAS_SIZE.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	172 return Truffle.getRuntime().createCallTarget(RootNode.createConstantNode(false));
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	173 } else if (Message.READ.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	174 return Truffle.getRuntime().createCallTarget(new ComplexNumbersAEntryReadNode());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	175 } else if (Message.WRITE.equals(tree)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	176 return Truffle.getRuntime().createCallTarget(new ComplexNumbersAEntryWriteNode());
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	177 } else {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	178 throw new IllegalArgumentException(tree.toString() + " not supported");
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	179 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	180 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	181
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	182 private static class ComplexNumbersAEntryReadNode extends RootNode {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	183 protected ComplexNumbersAEntryReadNode() {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	184 super(TckLanguage.class, null, null);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	185 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	186
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	187 @Child private Node readReal;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	188 @Child private Node readImag;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	189
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	190 @Override
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	191 public Object execute(VirtualFrame frame) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	192 ComplexNumberBEntry complexNumber = (ComplexNumberBEntry) ForeignAccess.getReceiver(frame);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	193 String name = (String) ForeignAccess.getArguments(frame).get(0);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	194 if (name.equals(ComplexNumber.IMAGINARY_IDENTIFIER)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	195 return complexNumber.numbers.imags[complexNumber.index];
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	196 } else if (name.equals(ComplexNumber.REAL_IDENTIFIER)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	197 return complexNumber.numbers.reals[complexNumber.index];
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	198 } else {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	199 throw new IllegalArgumentException();
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	200 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	201 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	202 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	203
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	204 private static class ComplexNumbersAEntryWriteNode extends RootNode {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	205 protected ComplexNumbersAEntryWriteNode() {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	206 super(TckLanguage.class, null, null);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	207 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	208
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	209 @Override
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	210 public Object execute(VirtualFrame frame) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	211 ComplexNumberBEntry complexNumber = (ComplexNumberBEntry) ForeignAccess.getReceiver(frame);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	212 String name = (String) ForeignAccess.getArguments(frame).get(0);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	213 Number value = (Number) ForeignAccess.getArguments(frame).get(1);
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	214 if (name.equals(ComplexNumber.IMAGINARY_IDENTIFIER)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	215 complexNumber.numbers.imags[complexNumber.index] = value.doubleValue();
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	216 } else if (name.equals(ComplexNumber.REAL_IDENTIFIER)) {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	217 complexNumber.numbers.reals[complexNumber.index] = value.doubleValue();
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	218 } else {
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	219 throw new IllegalArgumentException();
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	220 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	221 return value;
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	222 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	223
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	224 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	225 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	226
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	227 }
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	228
aeba89e1d8da Add ComplexNumber sequence tests Matthias Grimmer <grimmer@ssw.jku.at> parents: diff changeset	229 }

22495

aeba89e1d8da Add ComplexNumber sequence tests