Mercurial > hg > graal-compiler
annotate graal/com.oracle.truffle.interop/src/com/oracle/truffle/interop/messages/Write.java @ 21013:556b6a4b36b2
Interop: add truffle.interop
author | Matthias Grimmer <grimmer@ssw.jku.at> |
---|---|
date | Mon, 20 Apr 2015 10:58:35 +0200 |
parents | |
children |
rev | line source |
---|---|
21013
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
1 /* |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
2 * Copyright (c) 2014, Oracle and/or its affiliates. All rights reserved. |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
4 * |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
5 * This code is free software; you can redistribute it and/or modify it |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
6 * under the terms of the GNU General Public License version 2 only, as |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
7 * published by the Free Software Foundation. Oracle designates this |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
8 * particular file as subject to the "Classpath" exception as provided |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
9 * by Oracle in the LICENSE file that accompanied this code. |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
10 * |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
11 * This code is distributed in the hope that it will be useful, but WITHOUT |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
12 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
13 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
14 * version 2 for more details (a copy is included in the LICENSE file that |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
15 * accompanied this code). |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
16 * |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
17 * You should have received a copy of the GNU General Public License version |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
18 * 2 along with this work; if not, write to the Free Software Foundation, |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
19 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
20 * |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
21 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
22 * or visit www.oracle.com if you need additional information or have any |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
23 * questions. |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
24 */ |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
25 package com.oracle.truffle.interop.messages; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
26 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
27 import com.oracle.truffle.api.interop.messages.*; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
28 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
29 public final class Write implements Message { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
30 private final Object receiver; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
31 private final Argument id; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
32 private final Argument value; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
33 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
34 private Write(Object receiver, Argument id, Argument value) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
35 this.receiver = receiver; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
36 this.id = id; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
37 this.value = value; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
38 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
39 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
40 public static Write create(Receiver receiver, Argument id, Argument value) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
41 return new Write(receiver, id, value); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
42 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
43 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
44 public static Write create(Message receiver, Argument id, Argument value) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
45 return new Write(receiver, id, value); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
46 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
47 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
48 public Argument getId() { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
49 return id; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
50 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
51 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
52 public Object getReceiver() { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
53 return receiver; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
54 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
55 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
56 public Argument getValue() { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
57 return value; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
58 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
59 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
60 public boolean matchStructure(Object message) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
61 if (!(message instanceof Write)) { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
62 return false; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
63 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
64 Write m1 = this; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
65 Write m2 = (Write) message; |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
66 return MessageUtil.compareMessage(m1.getReceiver(), m2.getReceiver()); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
67 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
68 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
69 @Override |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
70 public String toString() { |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
71 return String.format("Write(%s, %s, %s)", receiver.toString(), id.toString(), value.toString()); |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
72 } |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
73 |
556b6a4b36b2
Interop: add truffle.interop
Matthias Grimmer <grimmer@ssw.jku.at>
parents:
diff
changeset
|
74 } |