1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
/*
* Copyright (C)2005-2017 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.
*/
import lua.Boot;
import lua.NativeStringTools;
@:keepInit
@:coreApi class Std {
public static inline function is( v : Dynamic, t : Dynamic ) : Bool {
return untyped lua.Boot.__instanceof(v,t);
}
public static inline function instance<T:{},S:T>( value : T, c : Class<S> ) : S {
return untyped lua.Boot.__instanceof(value, c) ? cast value : null;
}
@:keep
public static function string( s : Dynamic ) : String {
return untyped lua.Boot.__string_rec(s);
}
public static function int( x : Float ) : Int {
if (!Math.isFinite(x) || Math.isNaN(x)) return 0;
else return lua.Boot.clamp(x);
}
public static function parseInt( x : String ) : Null<Int> {
if (x == null) return null;
var hexMatch = NativeStringTools.match(x, "^ *[%-+]*0[xX][%da-FA-F]*");
if (hexMatch != null){
return lua.Lua.tonumber(hexMatch.substr(2), 16);
} else {
var intMatch = NativeStringTools.match(x, "^ *[%-+]?%d*");
if (intMatch != null){
return lua.Lua.tonumber(intMatch);
} else {
return null;
}
}
}
public static function parseFloat( x : String ) : Float {
if (x == null || x == "") return Math.NaN;
var digitMatch = NativeStringTools.match(x, "^ *[%.%-+]?[0-9]%d*");
if (digitMatch == null){
return Math.NaN;
}
x = x.substr(digitMatch.length);
var decimalMatch = NativeStringTools.match(x, "^%.%d*");
if (decimalMatch == null) decimalMatch = "";
x = x.substr(decimalMatch.length);
var eMatch = NativeStringTools.match(x, "^[eE][+%-]?%d+");
if (eMatch == null) eMatch = "";
var result = lua.Lua.tonumber(digitMatch + decimalMatch + eMatch);
return result != null ? result : Math.NaN;
}
public static function random( x : Int ) : Int {
return untyped x <= 0 ? 0 : Math.floor(Math.random()*x);
}
static function __init__() : Void untyped {
// lua workarounds for basic anonymous object functionality
haxe.macro.Compiler.includeFile("lua/_lua/_hx_anon.lua");
// class reflection metadata
haxe.macro.Compiler.includeFile("lua/_lua/_hx_classes.lua");
__feature__("lua.Boot.getClass", String.prototype.__class__ = __feature__("Type.resolveClass",_hxClasses["String"] = String,String));
__feature__("lua.Boot.isClass", String.__name__ = __feature__("Type.getClassName", __lua_table__(["String"]),true));
__feature__("Type.resolveClass",_hxClasses["Array"] = Array);
__feature__("lua.Boot.isClass",Array.__name__ = __feature__("Type.getClassName",__lua_table__(["Array"]),true));
}
}
|
