add a CastToStringNode

Author: timfel

graalpython/com.oracle.graal.python/src/com/oracle/graal/python/nodes/util/CastToStringNode.java

@@ -0,0 +1,127 @@
+/*
+ * Copyright (c) 2018, 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.graal.python.nodes.util;
+
+import static com.oracle.graal.python.nodes.SpecialMethodNames.__STR__;
+
+import com.oracle.graal.python.builtins.PythonBuiltinClassType;
+import com.oracle.graal.python.builtins.objects.str.PString;
+import com.oracle.graal.python.nodes.PNodeWithContext;
+import com.oracle.graal.python.nodes.call.special.LookupAndCallUnaryNode;
+import com.oracle.truffle.api.CompilerDirectives;
+import com.oracle.truffle.api.CompilerDirectives.TruffleBoundary;
+import com.oracle.truffle.api.dsl.Specialization;
+
+/**
+ * Converts an arbitrary object to a java String
+ */
+public abstract class CastToStringNode extends PNodeWithContext {
+    private static final String ERROR_MESSAGE = "__str__ returned non-string (type %p)";
+
+    @Child private LookupAndCallUnaryNode callStrNode;
+    private final PythonBuiltinClassType errorType;
+    private final String message;
+    protected final boolean coerce;
+
+    protected CastToStringNode(boolean coerce) {
+        this.errorType = PythonBuiltinClassType.TypeError;
+        this.message = ERROR_MESSAGE;
+        this.coerce = coerce;
+    }
+
+    public abstract String execute(Object x);
+
+    public abstract String execute(int x);
+
+    public abstract String execute(long x);
+
+    public abstract String execute(boolean x);
+
+    @Specialization(guards = "coerce")
+    String doBoolean(boolean x) {
+        return x ? "True" : "False";
+    }
+
+    @Specialization(guards = "coerce")
+    @TruffleBoundary
+    String doInt(int x) {
+        return Integer.toString(x);
+    }
+
+    @Specialization(guards = "coerce")
+    @TruffleBoundary
+    String doLong(long x) {
+        return Long.toString(x);
+    }
+
+    @Specialization
+    String doPString(PString x) {
+        return x.getValue();
+    }
+
+    @Specialization
+    String doString(String x) {
+        return x;
+    }
+
+    @Specialization(guards = "coerce")
+    String doGeneric(Object x) {
+        if (callStrNode == null) {
+            CompilerDirectives.transferToInterpreterAndInvalidate();
+            callStrNode = insert(LookupAndCallUnaryNode.create(__STR__));
+        }
+        Object result = callStrNode.executeObject(x);
+        if (result instanceof String) {
+            return (String) result;
+        } else if (result instanceof PString) {
+            return ((PString) result).getValue();
+        }
+        throw raise(errorType, message);
+    }
+
+    public static CastToStringNode create() {
+        return CastToStringNodeGen.create(false);
+    }
+
+    public static CastToStringNode createCoercing() {
+        return CastToStringNodeGen.create(true);
+    }
+}