419 lines
11 KiB
Haxe
419 lines
11 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 haxe;
|
|
|
|
import haxe.Int64Helper;
|
|
|
|
@:notNull
|
|
@:include("cpp/Int64.h")
|
|
@:native("cpp::Int64Struct")
|
|
private extern class ___Int64 {
|
|
|
|
@:native("_hx_int64_make")
|
|
static function make(high:Int32, low:Int32):__Int64;
|
|
|
|
@:native(" ::cpp::Int64Struct")
|
|
static function ofInt(value:Int):__Int64;
|
|
|
|
@:native(" ::cpp::Int64Struct::is")
|
|
static function isInt64(d:Dynamic):Bool;
|
|
|
|
@:native("_hx_int64_is_neg")
|
|
static function isNeg(a:__Int64):Bool;
|
|
|
|
@:native("_hx_int64_is_zero")
|
|
static function isZero(a:__Int64):Bool;
|
|
|
|
@:native("_hx_int64_compare")
|
|
static function compare(a:__Int64, b:__Int64):Int;
|
|
|
|
@:native("_hx_int64_ucompare")
|
|
static function ucompare(a:__Int64, b:__Int64):Int;
|
|
|
|
@:native("_hx_int64_to_string")
|
|
static function toString(a:__Int64):String;
|
|
|
|
@:native("_hx_int64_neg")
|
|
static function neg(a:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_pre_increment")
|
|
static function preIncrement(a:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_post_increment")
|
|
static function postIncrement(a:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_pre_decrement")
|
|
static function preDecrement(a:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_post_decrement")
|
|
static function postDecrement(a:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_add")
|
|
static function add(a:__Int64, b:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_add")
|
|
static function addInt(a:__Int64, b:Int):__Int64;
|
|
|
|
@:native("_hx_int64_sub")
|
|
static function sub(a:__Int64, b:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_sub")
|
|
static function subInt(a:__Int64, b:Int):__Int64;
|
|
|
|
@:native("_hx_int64_sub")
|
|
static function intSub(a:Int, b:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_mul")
|
|
static function mul(a:__Int64, b:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_div")
|
|
static function div(a:__Int64, b:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_mod")
|
|
static function mod(a:__Int64, b:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_eq")
|
|
static function eq(a:__Int64, b:__Int64):Bool;
|
|
|
|
@:native("_hx_int64_eq")
|
|
static function eqInt(a:__Int64, b:Int):Bool;
|
|
|
|
@:native("_hx_int64_neq")
|
|
static function neq(a:__Int64, b:__Int64):Bool;
|
|
|
|
@:native("_hx_int64_neq")
|
|
static function neqInt(a:__Int64, b:Int):Bool;
|
|
|
|
@:native("_hx_int64_complement")
|
|
static function complement(a:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_and")
|
|
static function bitAnd(a:__Int64, b:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_or")
|
|
static function bitOr(a:__Int64, b:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_xor")
|
|
static function bitXor(a:__Int64, b:__Int64):__Int64;
|
|
|
|
@:native("_hx_int64_shl")
|
|
static function shl(a:__Int64, b:Int):__Int64;
|
|
|
|
@:native("_hx_int64_shr")
|
|
static function shr(a:__Int64, b:Int):__Int64;
|
|
|
|
@:native("_hx_int64_ushr")
|
|
static function ushr(a:__Int64, b:Int):__Int64;
|
|
|
|
@:native("_hx_int64_high")
|
|
static function high(a:__Int64):Int32;
|
|
|
|
@:native("_hx_int64_low")
|
|
static function low(a:__Int64):Int32;
|
|
}
|
|
|
|
private typedef __Int64 = ___Int64;
|
|
|
|
@:coreApi
|
|
@:transitive
|
|
abstract Int64(__Int64) from __Int64 to __Int64 {
|
|
public #if !cppia inline #end function copy():Int64
|
|
return this;
|
|
|
|
public static #if !cppia inline #end function make(high:Int32, low:Int32):Int64 {
|
|
return __Int64.make(high, low);
|
|
}
|
|
|
|
@:from
|
|
public static #if !cppia inline #end function ofInt(x:Int):Int64 {
|
|
return __Int64.ofInt(x);
|
|
}
|
|
|
|
public static #if !cppia inline #end function toInt(x:Int64):Int {
|
|
if (x.high != x.low >> 31)
|
|
throw "Overflow";
|
|
|
|
return x.low;
|
|
}
|
|
|
|
@:deprecated('haxe.Int64.is() is deprecated. Use haxe.Int64.isInt64() instead')
|
|
inline public static function is(val:Dynamic):Bool {
|
|
return isInt64(val);
|
|
}
|
|
|
|
public static #if !cppia inline #end function isInt64(val:Dynamic):Bool
|
|
return __Int64.isInt64(val);
|
|
|
|
@:deprecated("Use high instead")
|
|
public static #if !cppia inline #end function getHigh(x:Int64):Int32
|
|
return x.high;
|
|
|
|
@:deprecated("Use low instead")
|
|
public static #if !cppia inline #end function getLow(x:Int64):Int32
|
|
return x.low;
|
|
|
|
public static #if !cppia inline #end function isNeg(x:Int64):Bool
|
|
return __Int64.isNeg(x);
|
|
|
|
public static #if !cppia inline #end function isZero(x:Int64):Bool
|
|
return __Int64.isZero(x);
|
|
|
|
public static #if !cppia inline #end function compare(a:Int64, b:Int64):Int
|
|
return __Int64.compare(a, b);
|
|
|
|
public static #if !cppia inline #end function ucompare(a:Int64, b:Int64):Int
|
|
return __Int64.ucompare(a, b);
|
|
|
|
public static #if !cppia inline #end function toStr(x:Int64):String
|
|
return x.toString();
|
|
|
|
private #if !cppia inline #end function toString():String
|
|
return __Int64.toString(this);
|
|
|
|
public static function parseString(sParam:String):Int64 {
|
|
return Int64Helper.parseString(sParam);
|
|
}
|
|
|
|
public static function fromFloat(f:Float):Int64 {
|
|
return Int64Helper.fromFloat(f);
|
|
}
|
|
|
|
public static function divMod(dividend:Int64, divisor:Int64):{quotient:Int64, modulus:Int64} {
|
|
var q = dividend / divisor;
|
|
|
|
if (isZero(divisor))
|
|
throw "divide by zero";
|
|
|
|
var m = dividend - q * divisor;
|
|
|
|
return {quotient: q, modulus: m};
|
|
}
|
|
|
|
@:op(-A)
|
|
public static #if !cppia inline #end function neg(x:Int64):Int64
|
|
return __Int64.neg(x);
|
|
|
|
@:op(++A) private inline function preIncrement():Int64 {
|
|
#if cppia
|
|
this = this + make(0, 1);
|
|
return this;
|
|
#else
|
|
return __Int64.preIncrement(this);
|
|
#end
|
|
}
|
|
|
|
@:op(A++) private inline function postIncrement():Int64 {
|
|
#if cppia
|
|
var result = this;
|
|
this = this + make(0, 1);
|
|
return result;
|
|
#else
|
|
return __Int64.postIncrement(this);
|
|
#end
|
|
}
|
|
|
|
@:op(--A) private inline function preDecrement():Int64 {
|
|
#if cppia
|
|
untyped this = this - make(0, 1);
|
|
return this;
|
|
#else
|
|
return __Int64.preDecrement(this);
|
|
#end
|
|
}
|
|
|
|
@:op(A--) private inline function postDecrement():Int64 {
|
|
#if cppia
|
|
var result = this;
|
|
this = this - make(0, 1);
|
|
return result;
|
|
#else
|
|
return __Int64.postDecrement(this);
|
|
#end
|
|
}
|
|
|
|
@:op(A + B)
|
|
public static #if !cppia inline #end function add(a:Int64, b:Int64):Int64
|
|
return __Int64.add(a, b);
|
|
|
|
@:op(A + B)
|
|
@:commutative
|
|
private static #if !cppia inline #end function addInt(a:Int64, b:Int):Int64
|
|
return __Int64.addInt(a, b);
|
|
|
|
@:op(A - B)
|
|
public static #if !cppia inline #end function sub(a:Int64, b:Int64):Int64 {
|
|
return __Int64.sub(a, b);
|
|
}
|
|
|
|
@:op(A - B)
|
|
private static #if !cppia inline #end function subInt(a:Int64, b:Int):Int64
|
|
return __Int64.subInt(a, b);
|
|
|
|
@:op(A - B)
|
|
private static #if !cppia inline #end function intSub(a:Int, b:Int64):Int64
|
|
return __Int64.intSub(a, b);
|
|
|
|
@:op(A * B)
|
|
public static #if !cppia inline #end function mul(a:Int64, b:Int64):Int64
|
|
return __Int64.mul(a, b);
|
|
|
|
@:op(A * B)
|
|
@:commutative
|
|
private static #if !cppia inline #end function mulInt(a:Int64, b:Int):Int64
|
|
return mul(a, b);
|
|
|
|
@:op(A / B)
|
|
public static #if !cppia inline #end function div(a:Int64, b:Int64):Int64 {
|
|
if (__Int64.isZero(b))
|
|
throw "divide by zero";
|
|
return __Int64.div(a, b);
|
|
}
|
|
|
|
@:op(A / B)
|
|
private static #if !cppia inline #end function divInt(a:Int64, b:Int):Int64
|
|
return div(a, b);
|
|
|
|
@:op(A / B)
|
|
private static #if !cppia inline #end function intDiv(a:Int, b:Int64):Int64
|
|
return toInt(div(a, b));
|
|
|
|
@:op(A % B)
|
|
public static #if !cppia inline #end function mod(a:Int64, b:Int64):Int64 {
|
|
if (__Int64.isZero(b))
|
|
throw "divide by zero";
|
|
return __Int64.mod(a, b);
|
|
}
|
|
|
|
@:op(A % B)
|
|
private static #if !cppia inline #end function modInt(a:Int64, b:Int):Int64
|
|
return toInt(mod(a, b));
|
|
|
|
@:op(A % B)
|
|
private static #if !cppia inline #end function intMod(a:Int, b:Int64):Int64
|
|
return toInt(mod(a, b));
|
|
|
|
@:op(A == B)
|
|
public static #if !cppia inline #end function eq(a:Int64, b:Int64):Bool
|
|
return __Int64.eq(a, b);
|
|
|
|
@:op(A == B)
|
|
@:commutative
|
|
private static #if !cppia inline #end function eqInt(a:Int64, b:Int):Bool
|
|
return __Int64.eqInt(a, b);
|
|
|
|
@:op(A != B)
|
|
public static #if !cppia inline #end function neq(a:Int64, b:Int64):Bool
|
|
return __Int64.neq(a, b);
|
|
|
|
@:op(A != B)
|
|
@:commutative
|
|
private static #if !cppia inline #end function neqInt(a:Int64, b:Int):Bool
|
|
return neq(a, b);
|
|
|
|
@:op(A < B)
|
|
private static #if !cppia inline #end function lt(a:Int64, b:Int64):Bool
|
|
return compare(a, b) < 0;
|
|
|
|
@:op(A < B)
|
|
private static #if !cppia inline #end function ltInt(a:Int64, b:Int):Bool
|
|
return lt(a, b);
|
|
|
|
@:op(A < B)
|
|
private static #if !cppia inline #end function intLt(a:Int, b:Int64):Bool
|
|
return lt(a, b);
|
|
|
|
@:op(A <= B)
|
|
private static #if !cppia inline #end function lte(a:Int64, b:Int64):Bool
|
|
return compare(a, b) <= 0;
|
|
|
|
@:op(A <= B)
|
|
private static #if !cppia inline #end function lteInt(a:Int64, b:Int):Bool
|
|
return lte(a, b);
|
|
|
|
@:op(A <= B)
|
|
private static #if !cppia inline #end function intLte(a:Int, b:Int64):Bool
|
|
return lte(a, b);
|
|
|
|
@:op(A > B)
|
|
private static #if !cppia inline #end function gt(a:Int64, b:Int64):Bool
|
|
return compare(a, b) > 0;
|
|
|
|
@:op(A > B)
|
|
private static #if !cppia inline #end function gtInt(a:Int64, b:Int):Bool
|
|
return gt(a, b);
|
|
|
|
@:op(A > B)
|
|
private static #if !cppia inline #end function intGt(a:Int, b:Int64):Bool
|
|
return gt(a, b);
|
|
|
|
@:op(A >= B)
|
|
private static #if !cppia inline #end function gte(a:Int64, b:Int64):Bool
|
|
return compare(a, b) >= 0;
|
|
|
|
@:op(A >= B)
|
|
private static #if !cppia inline #end function gteInt(a:Int64, b:Int):Bool
|
|
return gte(a, b);
|
|
|
|
@:op(A >= B)
|
|
private static #if !cppia inline #end function intGte(a:Int, b:Int64):Bool
|
|
return gte(a, b);
|
|
|
|
@:op(~A)
|
|
private static #if !cppia inline #end function complement(a:Int64):Int64
|
|
return __Int64.complement(a);
|
|
|
|
@:op(A & B)
|
|
public static #if !cppia inline #end function and(a:Int64, b:Int64):Int64
|
|
return __Int64.bitAnd(a, b);
|
|
|
|
@:op(A | B)
|
|
public static #if !cppia inline #end function or(a:Int64, b:Int64):Int64
|
|
return __Int64.bitOr(a, b);
|
|
|
|
@:op(A ^ B)
|
|
public static #if !cppia inline #end function xor(a:Int64, b:Int64):Int64
|
|
return __Int64.bitXor(a, b);
|
|
|
|
@:op(A << B)
|
|
public static #if !cppia inline #end function shl(a:Int64, b:Int):Int64
|
|
return __Int64.shl(a, b);
|
|
|
|
@:op(A >> B)
|
|
public static #if !cppia inline #end function shr(a:Int64, b:Int):Int64
|
|
return __Int64.shr(a, b);
|
|
|
|
@:op(A >>> B)
|
|
public static #if !cppia inline #end function ushr(a:Int64, b:Int):Int64
|
|
return __Int64.ushr(a, b);
|
|
|
|
public var high(get, never):Int32;
|
|
|
|
private #if !cppia inline #end function get_high():Int32
|
|
return __Int64.high(this);
|
|
|
|
public var low(get, never):Int32;
|
|
|
|
private #if !cppia inline #end function get_low():Int32
|
|
return __Int64.low(this);
|
|
}
|