478 lines
13 KiB
Haxe
478 lines
13 KiB
Haxe
|
/*
|
||
|
|
* Copyright (C)2005-2019 Haxe Foundation
|
||
|
|
*
|
||
|
|
* Permission is hereby granted, free of charge, to any person obtaining a
|
||
|
|
* copy of this software and associated documentation files (the "Software"),
|
||
|
|
* to deal in the Software without restriction, including without limitation
|
||
|
|
* the rights to use, copy, modify, merge, publish, distribute, sublicense,
|
||
|
|
* and/or sell copies of the Software, and to permit persons to whom the
|
||
|
|
* Software is furnished to do so, subject to the following conditions:
|
||
|
|
*
|
||
|
|
* The above copyright notice and this permission notice shall 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 python;
|
||
|
|
|
||
|
|
import python.internal.MethodClosure;
|
||
|
|
import python.internal.ArrayImpl;
|
||
|
|
import python.internal.Internal;
|
||
|
|
import python.internal.StringImpl;
|
||
|
|
import python.internal.EnumImpl;
|
||
|
|
import python.internal.HxOverrides;
|
||
|
|
import python.internal.AnonObject;
|
||
|
|
import python.internal.UBuiltins;
|
||
|
|
import python.lib.Inspect;
|
||
|
|
import python.Syntax;
|
||
|
|
|
||
|
|
@:dox(hide)
|
||
|
|
class Boot {
|
||
|
|
static var keywords:Set<String> = new Set([
|
||
|
|
"and", "del", "from", "not", "with", "as", "elif", "global", "or", "yield", "assert", "else", "if", "pass", "None", "break", "except", "import",
|
||
|
|
"raise", "True", "class", "exec", "in", "return", "False", "continue", "finally", "is", "try", "def", "for", "lambda", "while",
|
||
|
|
]);
|
||
|
|
|
||
|
|
inline static function arrayJoin<T>(x:Array<T>, sep:String):String {
|
||
|
|
return Syntax.field(sep, "join")(Syntax.code("[{0}(x1,'') for x1 in {1}]", python.Boot.toString1, x));
|
||
|
|
}
|
||
|
|
|
||
|
|
inline static function safeJoin(x:Array<String>, sep:String):String {
|
||
|
|
return Syntax.field(sep, "join")(Syntax.code("[x1 for x1 in {0}]", x));
|
||
|
|
}
|
||
|
|
|
||
|
|
inline static function isPyBool(o:Dynamic):Bool {
|
||
|
|
return UBuiltins.isinstance(o, UBuiltins.bool);
|
||
|
|
}
|
||
|
|
|
||
|
|
inline static function isPyInt(o:Dynamic):Bool {
|
||
|
|
// for historic reasons bool extends int
|
||
|
|
return UBuiltins.isinstance(o, UBuiltins.int) && !isPyBool(o);
|
||
|
|
}
|
||
|
|
|
||
|
|
inline static function isPyFloat(o:Dynamic):Bool {
|
||
|
|
return UBuiltins.isinstance(o, UBuiltins.float);
|
||
|
|
}
|
||
|
|
|
||
|
|
static inline function isClass(o:Dynamic):Bool {
|
||
|
|
return o != null && (o == String || Inspect.isclass(o));
|
||
|
|
}
|
||
|
|
|
||
|
|
static inline function isAnonObject(o:Dynamic) {
|
||
|
|
return UBuiltins.isinstance(o, AnonObject);
|
||
|
|
}
|
||
|
|
|
||
|
|
@:ifFeature("add_dynamic") private static function _add_dynamic(a:Dynamic, b:Dynamic):Dynamic {
|
||
|
|
if (UBuiltins.isinstance(a, String) && UBuiltins.isinstance(b, String)) {
|
||
|
|
return Syntax.binop(a, "+", b);
|
||
|
|
}
|
||
|
|
if (UBuiltins.isinstance(a, String) || UBuiltins.isinstance(b, String)) {
|
||
|
|
return Syntax.binop(toString1(a, ""), "+", toString1(b, ""));
|
||
|
|
}
|
||
|
|
return Syntax.binop(a, "+", b);
|
||
|
|
}
|
||
|
|
|
||
|
|
static inline function toString(o:Dynamic) {
|
||
|
|
return toString1(o, "");
|
||
|
|
}
|
||
|
|
|
||
|
|
private static function toString1(o:Dynamic, s:String):String {
|
||
|
|
if (o == null)
|
||
|
|
return "null";
|
||
|
|
|
||
|
|
if (isString(o))
|
||
|
|
return o;
|
||
|
|
|
||
|
|
if (s == null)
|
||
|
|
s = "";
|
||
|
|
if (s.length >= 5)
|
||
|
|
return "<...>"; // too much deep recursion
|
||
|
|
|
||
|
|
if (isPyBool(o)) {
|
||
|
|
if ((o : Bool))
|
||
|
|
return "true"
|
||
|
|
else
|
||
|
|
return "false";
|
||
|
|
}
|
||
|
|
if (isPyInt(o)) {
|
||
|
|
return UBuiltins.str(o);
|
||
|
|
}
|
||
|
|
// 1.0 should be printed as 1
|
||
|
|
if (isPyFloat(o)) {
|
||
|
|
try {
|
||
|
|
if ((o : Float) == UBuiltins.int(o)) {
|
||
|
|
return UBuiltins.str(Math.round(o));
|
||
|
|
} else {
|
||
|
|
return UBuiltins.str(o);
|
||
|
|
}
|
||
|
|
} catch (e:Dynamic) {
|
||
|
|
return UBuiltins.str(o);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (isArray(o)) {
|
||
|
|
var o1:Array<Dynamic> = o;
|
||
|
|
|
||
|
|
var l = o1.length;
|
||
|
|
|
||
|
|
var st = "[";
|
||
|
|
s += "\t";
|
||
|
|
for (i in 0...l) {
|
||
|
|
var prefix = "";
|
||
|
|
if (i > 0) {
|
||
|
|
prefix = ",";
|
||
|
|
}
|
||
|
|
st += prefix + toString1(o1[i], s);
|
||
|
|
}
|
||
|
|
st += "]";
|
||
|
|
return st;
|
||
|
|
}
|
||
|
|
|
||
|
|
try {
|
||
|
|
if (UBuiltins.hasattr(o, "toString"))
|
||
|
|
return Syntax.callField(o, "toString");
|
||
|
|
} catch (e:Dynamic) {}
|
||
|
|
|
||
|
|
if (UBuiltins.hasattr(o, "__class__")) {
|
||
|
|
if (isAnonObject(o)) {
|
||
|
|
var toStr = null;
|
||
|
|
try {
|
||
|
|
var fields = fields(o);
|
||
|
|
var fieldsStr = [for (f in fields) '$f : ${toString1(simpleField(o, f), s + "\t")}'];
|
||
|
|
toStr = "{ " + safeJoin(fieldsStr, ", ") + " }";
|
||
|
|
} catch (e:Dynamic) {
|
||
|
|
return "{ ... }";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (toStr == null) {
|
||
|
|
return "{ ... }";
|
||
|
|
} else {
|
||
|
|
return toStr;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (UBuiltins.isinstance(o, Enum)) {
|
||
|
|
var o:EnumImpl = (o : EnumImpl);
|
||
|
|
|
||
|
|
var l = UBuiltins.len(o.params);
|
||
|
|
var hasParams = l > 0;
|
||
|
|
if (hasParams) {
|
||
|
|
var paramsStr = "";
|
||
|
|
for (i in 0...l) {
|
||
|
|
var prefix = "";
|
||
|
|
if (i > 0) {
|
||
|
|
prefix = ",";
|
||
|
|
}
|
||
|
|
paramsStr += prefix + toString1(o.params[i], s);
|
||
|
|
}
|
||
|
|
return o.tag + "(" + paramsStr + ")";
|
||
|
|
} else {
|
||
|
|
return o.tag;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (Internal.hasClassName(o)) {
|
||
|
|
if (Syntax.field(Syntax.field(o, "__class__"), "__name__") != "type") {
|
||
|
|
var fields = getInstanceFields(o);
|
||
|
|
var fieldsStr = [for (f in fields) '$f : ${toString1(simpleField(o, f), s + "\t")}'];
|
||
|
|
|
||
|
|
var toStr = (Internal.fieldClassName(o) : String) + "( " + safeJoin(fieldsStr, ", ") + " )";
|
||
|
|
return toStr;
|
||
|
|
} else {
|
||
|
|
var fields = getClassFields(o);
|
||
|
|
var fieldsStr = [for (f in fields) '$f : ${toString1(simpleField(o, f), s + "\t")}'];
|
||
|
|
var toStr = "#" + (Internal.fieldClassName(o) : String) + "( " + safeJoin(fieldsStr, ", ") + " )";
|
||
|
|
return toStr;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (isMetaType(o, String)) {
|
||
|
|
return "#String";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (isMetaType(o, Array)) {
|
||
|
|
return "#Array";
|
||
|
|
}
|
||
|
|
|
||
|
|
if (UBuiltins.callable(o)) {
|
||
|
|
return "function";
|
||
|
|
}
|
||
|
|
try {
|
||
|
|
if (UBuiltins.hasattr(o, "__repr__")) {
|
||
|
|
return Syntax.callField(o, "__repr__");
|
||
|
|
}
|
||
|
|
} catch (e:Dynamic) {}
|
||
|
|
|
||
|
|
if (UBuiltins.hasattr(o, "__str__")) {
|
||
|
|
return Syntax.callField(o, "__str__", []);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (UBuiltins.hasattr(o, "__name__")) {
|
||
|
|
return Syntax.field(o, "__name__");
|
||
|
|
}
|
||
|
|
return "???";
|
||
|
|
} else {
|
||
|
|
return UBuiltins.str(o);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static inline function isMetaType(v:Dynamic, t:Dynamic):Bool {
|
||
|
|
return Syntax.binop(Syntax.binop(Syntax.call(UBuiltins.type, [v]), "==", UBuiltins.type), "and", Syntax.binop(v, "==", t));
|
||
|
|
}
|
||
|
|
|
||
|
|
@:analyzer(no_local_dce)
|
||
|
|
static function fields(o:Dynamic) {
|
||
|
|
var a = [];
|
||
|
|
if (o != null) {
|
||
|
|
if (Internal.hasFields(o)) {
|
||
|
|
var fields = Internal.fieldFields(o);
|
||
|
|
if (fields != null) {
|
||
|
|
return (fields : Array<String>).copy();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (isAnonObject(o)) {
|
||
|
|
var d = Syntax.field(o, "__dict__");
|
||
|
|
var keys = Syntax.callField(d, "keys");
|
||
|
|
var handler = unhandleKeywords;
|
||
|
|
|
||
|
|
Syntax.code("for k in keys:");
|
||
|
|
Syntax.code(" if (k != '_hx_disable_getattr'):");
|
||
|
|
Syntax.code(" a.append(handler(k))");
|
||
|
|
} else if (UBuiltins.hasattr(o, "__dict__")) {
|
||
|
|
var a = [];
|
||
|
|
var d = Syntax.field(o, "__dict__");
|
||
|
|
var keys1 = Syntax.callField(d, "keys");
|
||
|
|
Syntax.code("for k in keys1:");
|
||
|
|
Syntax.code(" a.append(k)");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return a;
|
||
|
|
}
|
||
|
|
|
||
|
|
static inline function isString(o:Dynamic):Bool {
|
||
|
|
return UBuiltins.isinstance(o, UBuiltins.str);
|
||
|
|
}
|
||
|
|
|
||
|
|
static inline function isArray(o:Dynamic):Bool {
|
||
|
|
return UBuiltins.isinstance(o, UBuiltins.list);
|
||
|
|
}
|
||
|
|
|
||
|
|
static function simpleField(o:Dynamic, field:String):Dynamic {
|
||
|
|
if (field == null)
|
||
|
|
return null;
|
||
|
|
|
||
|
|
var field = handleKeywords(field);
|
||
|
|
return if (UBuiltins.hasattr(o, field)) UBuiltins.getattr(o, field) else null;
|
||
|
|
}
|
||
|
|
|
||
|
|
@:ifFeature("closure_Array", "closure_String")
|
||
|
|
static inline function createClosure(obj:Dynamic, func:Dynamic):Dynamic {
|
||
|
|
return new MethodClosure(obj, func);
|
||
|
|
}
|
||
|
|
|
||
|
|
static function hasField(o:Dynamic, field:String):Bool {
|
||
|
|
if (isAnonObject(o)) {
|
||
|
|
return Syntax.code('{0}._hx_hasattr({1})', o, field);
|
||
|
|
}
|
||
|
|
return UBuiltins.hasattr(o, handleKeywords(field));
|
||
|
|
}
|
||
|
|
|
||
|
|
static function field(o:Dynamic, field:String):Dynamic {
|
||
|
|
if (field == null)
|
||
|
|
return null;
|
||
|
|
|
||
|
|
inline function def() {
|
||
|
|
var field = handleKeywords(field);
|
||
|
|
return if (UBuiltins.hasattr(o, field)) UBuiltins.getattr(o, field) else null;
|
||
|
|
}
|
||
|
|
|
||
|
|
return if (isString(o)) {
|
||
|
|
switch (field) {
|
||
|
|
case "length":
|
||
|
|
StringImpl.get_length(o);
|
||
|
|
case "toLowerCase":
|
||
|
|
createClosure(o, StringImpl.toLowerCase);
|
||
|
|
case "toUpperCase":
|
||
|
|
createClosure(o, StringImpl.toUpperCase);
|
||
|
|
case "charAt":
|
||
|
|
createClosure(o, StringImpl.charAt);
|
||
|
|
case "charCodeAt":
|
||
|
|
createClosure(o, StringImpl.charCodeAt);
|
||
|
|
case "indexOf":
|
||
|
|
createClosure(o, StringImpl.indexOf);
|
||
|
|
case "lastIndexOf":
|
||
|
|
createClosure(o, StringImpl.lastIndexOf);
|
||
|
|
case "split":
|
||
|
|
createClosure(o, StringImpl.split);
|
||
|
|
case "substr":
|
||
|
|
createClosure(o, StringImpl.substr);
|
||
|
|
case "substring":
|
||
|
|
createClosure(o, StringImpl.substring);
|
||
|
|
case "toString":
|
||
|
|
createClosure(o, StringImpl.toString);
|
||
|
|
default:
|
||
|
|
def();
|
||
|
|
}
|
||
|
|
} else if (isArray(o)) {
|
||
|
|
switch (field) {
|
||
|
|
case "length":
|
||
|
|
ArrayImpl.get_length(o);
|
||
|
|
case "map":
|
||
|
|
createClosure(o, ArrayImpl.map);
|
||
|
|
case "filter":
|
||
|
|
createClosure(o, ArrayImpl.filter);
|
||
|
|
case "concat":
|
||
|
|
createClosure(o, ArrayImpl.concat);
|
||
|
|
case "copy":
|
||
|
|
createClosure(o, ArrayImpl.copy);
|
||
|
|
case "iterator":
|
||
|
|
createClosure(o, ArrayImpl.iterator);
|
||
|
|
case "keyValueIterator":
|
||
|
|
createClosure(o, ArrayImpl.keyValueIterator);
|
||
|
|
case "insert":
|
||
|
|
createClosure(o, ArrayImpl.insert);
|
||
|
|
case "join":
|
||
|
|
createClosure(o, ArrayImpl.join);
|
||
|
|
case "toString":
|
||
|
|
createClosure(o, ArrayImpl.toString);
|
||
|
|
case "pop":
|
||
|
|
createClosure(o, ArrayImpl.pop);
|
||
|
|
case "push":
|
||
|
|
createClosure(o, ArrayImpl.push);
|
||
|
|
case "unshift":
|
||
|
|
createClosure(o, ArrayImpl.unshift);
|
||
|
|
case "indexOf":
|
||
|
|
createClosure(o, ArrayImpl.indexOf);
|
||
|
|
case "lastIndexOf":
|
||
|
|
createClosure(o, ArrayImpl.lastIndexOf);
|
||
|
|
case "contains":
|
||
|
|
createClosure(o, ArrayImpl.contains);
|
||
|
|
case "remove":
|
||
|
|
createClosure(o, ArrayImpl.remove);
|
||
|
|
case "reverse":
|
||
|
|
createClosure(o, ArrayImpl.reverse);
|
||
|
|
case "shift":
|
||
|
|
createClosure(o, ArrayImpl.shift);
|
||
|
|
case "slice":
|
||
|
|
createClosure(o, ArrayImpl.slice);
|
||
|
|
case "sort":
|
||
|
|
createClosure(o, ArrayImpl.sort);
|
||
|
|
case "splice":
|
||
|
|
createClosure(o, ArrayImpl.splice);
|
||
|
|
default:
|
||
|
|
def();
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
def();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static function getInstanceFields(c:Class<Dynamic>):Array<String> {
|
||
|
|
var f = if (Internal.hasFields(c)) (Internal.fieldFields(c) : Array<String>).copy() else [];
|
||
|
|
if (Internal.hasMethods(c))
|
||
|
|
f = f.concat(Internal.fieldMethods(c));
|
||
|
|
|
||
|
|
var sc = getSuperClass(c);
|
||
|
|
|
||
|
|
if (sc == null) {
|
||
|
|
return f;
|
||
|
|
} else {
|
||
|
|
var scArr = getInstanceFields(sc);
|
||
|
|
var scMap = new Set(scArr);
|
||
|
|
for (f1 in f) {
|
||
|
|
if (!scMap.has(f1)) {
|
||
|
|
scArr.push(f1);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return scArr;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static function getSuperClass(c:Class<Dynamic>):Class<Dynamic> {
|
||
|
|
if (c == null)
|
||
|
|
return null;
|
||
|
|
|
||
|
|
try {
|
||
|
|
if (Internal.hasSuper(c)) {
|
||
|
|
return Internal.fieldSuper(c);
|
||
|
|
}
|
||
|
|
return null;
|
||
|
|
} catch (e:Dynamic) {}
|
||
|
|
return null;
|
||
|
|
}
|
||
|
|
|
||
|
|
static function getClassFields(c:Class<Dynamic>):Array<String> {
|
||
|
|
if (Internal.hasStatics(c)) {
|
||
|
|
var x:Array<String> = Internal.fieldStatics(c);
|
||
|
|
return x.copy();
|
||
|
|
} else {
|
||
|
|
return [];
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
static inline function unsafeFastCodeAt(s:String, index:Int) {
|
||
|
|
return UBuiltins.ord(python.Syntax.arrayAccess(s, index));
|
||
|
|
}
|
||
|
|
|
||
|
|
static inline function handleKeywords(name:String):String {
|
||
|
|
return if (keywords.has(name)) {
|
||
|
|
Internal.getPrefixed(name);
|
||
|
|
} else if (name.length > 2
|
||
|
|
&& unsafeFastCodeAt(name, 0) == "_".code
|
||
|
|
&& unsafeFastCodeAt(name, 1) == "_".code
|
||
|
|
&& unsafeFastCodeAt(name, name.length - 1) != "_".code) {
|
||
|
|
Internal.getPrefixed(name);
|
||
|
|
} else
|
||
|
|
name;
|
||
|
|
}
|
||
|
|
|
||
|
|
static var prefixLength = Internal.prefix().length;
|
||
|
|
|
||
|
|
static function unhandleKeywords(name:String):String {
|
||
|
|
if (name.substr(0, prefixLength) == Internal.prefix()) {
|
||
|
|
var real = name.substr(prefixLength);
|
||
|
|
if (keywords.has(real))
|
||
|
|
return real;
|
||
|
|
}
|
||
|
|
return name;
|
||
|
|
}
|
||
|
|
|
||
|
|
static inline function implementsInterface(value:Dynamic, cls:Class<Dynamic>):Bool {
|
||
|
|
function loop(intf) {
|
||
|
|
var f:Array<Dynamic> = if (Internal.hasInterfaces(intf)) Internal.fieldInterfaces(intf) else [];
|
||
|
|
if (f != null) {
|
||
|
|
for (i in f) {
|
||
|
|
if (i == cls) {
|
||
|
|
return true;
|
||
|
|
} else {
|
||
|
|
var l = loop(i);
|
||
|
|
if (l) {
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return false;
|
||
|
|
} else {
|
||
|
|
return false;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
var currentClass = Syntax.field(value, "__class__");
|
||
|
|
var result = false;
|
||
|
|
while (currentClass != null) {
|
||
|
|
if (loop(currentClass)) {
|
||
|
|
result = true;
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
currentClass = getSuperClass(currentClass);
|
||
|
|
}
|
||
|
|
return result;
|
||
|
|
}
|
||
|
|
}
|