Mercurial > hg > truffle
view truffle/com.oracle.truffle.api.test/src/com/oracle/truffle/api/vm/ArrayTruffleObject.java @ 22424:fec62e298245
Rename package truffle.api.test to truffle.api to enable package-protected API access for testing.
author | Christian Humer <christian.humer@oracle.com> |
---|---|
date | Wed, 02 Dec 2015 15:16:27 +0100 |
parents | truffle/com.oracle.truffle.api.test/src/com/oracle/truffle/api/test/vm/ArrayTruffleObject.java@5e2dd9c3fa7d |
children | b39b603e2a1e |
line wrap: on
line source
/* * Copyright (c) 2012, 2015, Oracle and/or its affiliates. All rights reserved. * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. * * This code is free software; you can redistribute it and/or modify it * under the terms of the GNU General Public License version 2 only, as * published by the Free Software Foundation. * * This code is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License * version 2 for more details (a copy is included in the LICENSE file that * accompanied this code). * * You should have received a copy of the GNU General Public License version * 2 along with this work; if not, write to the Free Software Foundation, * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. * * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA * or visit www.oracle.com if you need additional information or have any * questions. */ package com.oracle.truffle.api.vm; import com.oracle.truffle.api.CallTarget; import com.oracle.truffle.api.Truffle; import com.oracle.truffle.api.TruffleLanguage; import com.oracle.truffle.api.frame.VirtualFrame; import com.oracle.truffle.api.interop.ForeignAccess; import com.oracle.truffle.api.interop.Message; import com.oracle.truffle.api.interop.TruffleObject; import com.oracle.truffle.api.nodes.RootNode; import java.util.List; import static org.junit.Assert.assertNotEquals; final class ArrayTruffleObject implements TruffleObject, ForeignAccess.Factory10 { private final ForeignAccess access; private final Object[] values; private final Thread forbiddenDupl; ArrayTruffleObject(Object[] values) { this(values, null); } ArrayTruffleObject(Object[] values, Thread forbiddenDupl) { this.access = forbiddenDupl == null ? ForeignAccess.create(getClass(), this) : null; this.values = values; this.forbiddenDupl = forbiddenDupl; } @Override public ForeignAccess getForeignAccess() { return access != null ? access : ForeignAccess.create(getClass(), this); } @Override public CallTarget accessIsNull() { return target(RootNode.createConstantNode(Boolean.FALSE)); } @Override public CallTarget accessIsExecutable() { return target(RootNode.createConstantNode(Boolean.FALSE)); } @Override public CallTarget accessIsBoxed() { return target(RootNode.createConstantNode(Boolean.FALSE)); } @Override public CallTarget accessHasSize() { return target(RootNode.createConstantNode(Boolean.TRUE)); } @Override public CallTarget accessGetSize() { return target(RootNode.createConstantNode(values.length)); } @Override public CallTarget accessUnbox() { return null; } @Override public CallTarget accessRead() { return target(new IndexNode()); } @Override public CallTarget accessWrite() { return null; } @Override public CallTarget accessExecute(int argumentsLength) { return null; } @Override public CallTarget accessInvoke(int argumentsLength) { if (argumentsLength == 0) { return target(new DuplNode()); } if (argumentsLength == 1) { return target(new InvokeNode()); } return null; } @Override public CallTarget accessNew(int argumentsLength) { return null; } @Override public CallTarget accessMessage(Message unknown) { return null; } private static CallTarget target(RootNode node) { return Truffle.getRuntime().createCallTarget(node); } private final class IndexNode extends RootNode { public IndexNode() { super(TruffleLanguage.class, null, null); } @Override public Object execute(VirtualFrame frame) { int index = ((Number) ForeignAccess.getArguments(frame).get(0)).intValue(); if (values[index] instanceof Object[]) { return new ArrayTruffleObject((Object[]) values[index]); } else { return values[index]; } } } private final class InvokeNode extends RootNode { public InvokeNode() { super(TruffleLanguage.class, null, null); } @Override public Object execute(VirtualFrame frame) { final List<Object> args = ForeignAccess.getArguments(frame); if (!"get".equals(args.get(0))) { return null; } int index = ((Number) args.get(1)).intValue(); if (values[index] instanceof Object[]) { return new ArrayTruffleObject((Object[]) values[index]); } else { return values[index]; } } } private final class DuplNode extends RootNode { public DuplNode() { super(TruffleLanguage.class, null, null); } @Override public Object execute(VirtualFrame frame) { final List<Object> args = ForeignAccess.getArguments(frame); if (!"dupl".equals(args.get(0))) { return null; } assertNotEquals("Cannot allocate duplicate on forbidden thread", forbiddenDupl, Thread.currentThread()); return new ArrayTruffleObject(values); } } }