Mercurial > hg > truffle
diff truffle/com.oracle.truffle.sl/src/com/oracle/truffle/sl/nodes/interop/SLForeignWriteNode.java @ 22415:c1f804ce6cad
Extend interop functionality for SL
author | Matthias Grimmer <grimmer@ssw.jku.at> |
---|---|
date | Mon, 23 Nov 2015 16:30:16 +0100 |
parents | |
children | 475b5817063f |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/truffle/com.oracle.truffle.sl/src/com/oracle/truffle/sl/nodes/interop/SLForeignWriteNode.java Mon Nov 23 16:30:16 2015 +0100 @@ -0,0 +1,113 @@ +/* + * Copyright (c) 2015, Oracle and/or its affiliates. All rights reserved. + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * The Universal Permissive License (UPL), Version 1.0 + * + * Subject to the condition set forth below, permission is hereby granted to any + * person obtaining a copy of this software, associated documentation and/or + * data (collectively the "Software"), free of charge and under any and all + * copyright rights in the Software, and any and all patent rights owned or + * freely licensable by each licensor hereunder covering either (i) the + * unmodified Software as contributed to or provided by such licensor, or (ii) + * the Larger Works (as defined below), to deal in both + * + * (a) the Software, and + * + * (b) any piece of software and/or hardware listed in the lrgrwrks.txt file if + * one is included with the Software each a "Larger Work" to which the Software + * is contributed by such licensors), + * + * without restriction, including without limitation the rights to copy, create + * derivative works of, display, perform, and distribute the Software and make, + * use, sell, offer for sale, import, export, have made, and have sold the + * Software and the Larger Work(s), and to sublicense the foregoing rights on + * either these or other terms. + * + * This license is subject to the following condition: + * + * The above copyright notice and either this complete permission notice or at a + * minimum a reference to the UPL must be included in all copies or substantial + * portions of the Software. + * + * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR + * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE + * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER + * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, + * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE + * SOFTWARE. + */ +package com.oracle.truffle.sl.nodes.interop; + +import com.oracle.truffle.api.CompilerDirectives; +import com.oracle.truffle.api.frame.VirtualFrame; +import com.oracle.truffle.api.interop.ForeignAccess; +import com.oracle.truffle.api.nodes.Node; +import com.oracle.truffle.api.nodes.RootNode; +import com.oracle.truffle.api.object.DynamicObject; +import com.oracle.truffle.api.object.Property; +import com.oracle.truffle.sl.SLLanguage; +import com.oracle.truffle.sl.nodes.access.SLWritePropertyCacheNode; +import com.oracle.truffle.sl.nodes.access.SLWritePropertyCacheNodeGen; + +public class SLForeignWriteNode extends RootNode { + + @Child private SLMonomorphicNameWriteNode write; + + public SLForeignWriteNode() { + super(SLLanguage.class, null, null); + } + + @Override + public Object execute(VirtualFrame frame) { + if (write == null) { + CompilerDirectives.transferToInterpreterAndInvalidate(); + String name = (String) ForeignAccess.getArguments(frame).get(0); + write = insert(new SLMonomorphicNameWriteNode(name)); + } + return write.execute(frame); + } + + private static abstract class SLWriteNode extends Node { + @Child protected SLForeignToSLTypeNode toSLType = SLForeignToSLTypeNodeGen.create(getSourceSection(), null); + + abstract Object execute(VirtualFrame frame); + } + + private static final class SLMonomorphicNameWriteNode extends SLWriteNode { + + private final String name; + @Child private SLWritePropertyCacheNode writePropertyCacheNode; + + SLMonomorphicNameWriteNode(String name) { + this.name = name; + this.writePropertyCacheNode = SLWritePropertyCacheNodeGen.create(name); + } + + @Override + Object execute(VirtualFrame frame) { + if (name.equals(ForeignAccess.getArguments(frame).get(0))) { + Object value = toSLType.executeWithTarget(frame, ForeignAccess.getArguments(frame).get(1)); + DynamicObject receiver = (DynamicObject) ForeignAccess.getReceiver(frame); + writePropertyCacheNode.executeObject(receiver, value); + return receiver; + } else { + CompilerDirectives.transferToInterpreterAndInvalidate(); + return this.replace(new SLPolymorphicNameWriteNode()).execute(frame); + } + } + } + + private static final class SLPolymorphicNameWriteNode extends SLWriteNode { + + @Override + Object execute(VirtualFrame frame) { + String name = (String) ForeignAccess.getArguments(frame).get(0); + DynamicObject obj = (DynamicObject) ForeignAccess.getReceiver(frame); + Property property = obj.getShape().getProperty(name); + Object value = toSLType.executeWithTarget(frame, ForeignAccess.getArguments(frame).get(0)); + return obj.set(property.getKey(), value); + } + } +}