Ray Greenwell
6179c74b29
git-svn-id: svn+ssh://src.earth.threerings.net/narya/trunk@5357 542714f4-19e9-0310-aa3c-eee0fc999fb1
105 lines
3.4 KiB
ActionScript
105 lines
3.4 KiB
ActionScript
//
|
|
// $Id$
|
|
//
|
|
// Narya library - tools for developing networked games
|
|
// Copyright (C) 2002-2007 Three Rings Design, Inc., All Rights Reserved
|
|
// http://www.threerings.net/code/narya/
|
|
//
|
|
// This library is free software; you can redistribute it and/or modify it
|
|
// under the terms of the GNU Lesser General Public License as published
|
|
// by the Free Software Foundation; either version 2.1 of the License, or
|
|
// (at your option) any later version.
|
|
//
|
|
// This library is distributed in the hope that it will be useful,
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
// Lesser General Public License for more details.
|
|
//
|
|
// You should have received a copy of the GNU Lesser General Public
|
|
// License along with this library; if not, write to the Free Software
|
|
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
package com.threerings.util {
|
|
|
|
import flash.utils.ByteArray;
|
|
import flash.utils.Endian;
|
|
|
|
/**
|
|
* Equivalent to java.lang.Long.
|
|
*/
|
|
public class Long
|
|
implements Equalable
|
|
{
|
|
public var bytes :ByteArray;
|
|
|
|
public function Long ()
|
|
{
|
|
bytes = new ByteArray();
|
|
bytes.endian = Endian.BIG_ENDIAN;
|
|
bytes.writeDouble(0);
|
|
bytes.position = 0;
|
|
}
|
|
|
|
/**
|
|
* Creates a new Long from the provided variable. Only integers in the [-2^63, 2^63) range
|
|
* can be converted; non-integer values in this range will be rounded, and values outside
|
|
* of the range will trigger an ArgumentError. Additionally, since Number is a
|
|
* double-precision floating point value, values outside of the [-2^52, 2^52) range
|
|
* will suffer loss of precision.
|
|
*/
|
|
public static function fromNumber (value :Number = 0) :Long
|
|
{
|
|
if (value < -9223372036854775808 || value >= 9223372036854775808 ||
|
|
isNaN(value) || !isFinite(value)) {
|
|
throw new ArgumentError("Out of range initialization value for Long: " + value);
|
|
}
|
|
|
|
var n :Number = Math.round(value);
|
|
var l :Long = new Long();
|
|
for (var ii :int = 7; ii >= 0; ii--) {
|
|
l.bytes[ii] = (n % 256);
|
|
n = Math.floor(n / 256);
|
|
}
|
|
return l;
|
|
}
|
|
|
|
/**
|
|
* Creates a new Number from this Long variable. Since Number is a double-precision
|
|
* floating point type, values outside the [-2^52, 2^52) range will lose precision.
|
|
*/
|
|
public function toNumber () :Number
|
|
{
|
|
var n :Number = 0;
|
|
var positive :Boolean = ((bytes[0] & 0x80) == 0x00);
|
|
for (var ii :int = 0; ii < 8; ii++) {
|
|
// if the number is negative, complement each byte as it comes in, and fix up later
|
|
n = n * 256 + (positive ? bytes[ii] : (255 - bytes[ii]));
|
|
}
|
|
// now fix up negative numbers
|
|
if (! positive) {
|
|
n = -(n + 1);
|
|
}
|
|
return n;
|
|
}
|
|
|
|
public function toString () :String
|
|
{
|
|
var s :String = "Long [0x ";
|
|
for (var ii :int = 0; ii < 8; ii++) {
|
|
// my kingdom for a hex formatting routine!
|
|
if (ii != 0) { s += " "; }
|
|
if (bytes[ii] < 16) { s += "0"; }
|
|
s += int(bytes[ii]).toString(16);
|
|
}
|
|
s += "]";
|
|
return s;
|
|
}
|
|
|
|
// from Equalable
|
|
public function equals (other :Object) :Boolean
|
|
{
|
|
return (other is Long) && Util.equals(this.bytes, Long(other).bytes);
|
|
}
|
|
}
|
|
}
|