dolphin/Externals/wxWidgets3/src/common/longlong.cpp
Soren Jorvang d14efe561b Import r67258 of the wxWidgets trunk, which I expect will before
long become wxWidgets 2.9.2, which in turn is expected to be the
last 2.9 release before the 3.0 stable release.

Since the full wxWidgets distribution is rather large, I have
imported only the parts that we use, on a subdirectory basis:

art
include/wx/*.*
include/wx/aui
include/wx/cocoa
include/wx/generic
include/wx/gtk
include/wx/meta
include/wx/msw
include/wx/osx
include/wx/persist
include/wx/private
include/wx/protocol
include/wx/unix
src/aui
src/common
src/generic
src/gtk
src/msw
src/osx
src/unix


git-svn-id: https://dolphin-emu.googlecode.com/svn/trunk@7380 8ced0084-cf51-0410-be5f-012b33b47a6e
2011-03-20 18:05:19 +00:00

1364 lines
31 KiB
C++

/////////////////////////////////////////////////////////////////////////////
// Name: src/common/longlong.cpp
// Purpose: implementation of wxLongLongNative
// Author: Jeffrey C. Ollie <jeff@ollie.clive.ia.us>, Vadim Zeitlin
// Remarks: this class is not public in wxWidgets 2.0! It is intentionally
// not documented and is for private use only.
// Modified by:
// Created: 10.02.99
// RCS-ID: $Id: longlong.cpp 61508 2009-07-23 20:30:22Z VZ $
// Copyright: (c) 1998 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
// Licence: wxWindows licence
/////////////////////////////////////////////////////////////////////////////
// ============================================================================
// headers
// ============================================================================
#include "wx/wxprec.h"
#ifdef __BORLANDC__
#pragma hdrstop
#endif
#if wxUSE_LONGLONG
#include "wx/longlong.h"
#ifndef WX_PRECOMP
#include "wx/math.h" // for fabs()
#endif
#if wxUSE_STREAMS
#include "wx/txtstrm.h"
#endif
#include <string.h> // for memset()
#include "wx/ioswrap.h"
// ============================================================================
// implementation
// ============================================================================
#if wxUSE_LONGLONG_NATIVE
// ----------------------------------------------------------------------------
// misc
// ----------------------------------------------------------------------------
void *wxLongLongNative::asArray() const
{
static unsigned char temp[8];
temp[0] = wx_truncate_cast(unsigned char, ((m_ll >> 56) & 0xFF));
temp[1] = wx_truncate_cast(unsigned char, ((m_ll >> 48) & 0xFF));
temp[2] = wx_truncate_cast(unsigned char, ((m_ll >> 40) & 0xFF));
temp[3] = wx_truncate_cast(unsigned char, ((m_ll >> 32) & 0xFF));
temp[4] = wx_truncate_cast(unsigned char, ((m_ll >> 24) & 0xFF));
temp[5] = wx_truncate_cast(unsigned char, ((m_ll >> 16) & 0xFF));
temp[6] = wx_truncate_cast(unsigned char, ((m_ll >> 8) & 0xFF));
temp[7] = wx_truncate_cast(unsigned char, ((m_ll >> 0) & 0xFF));
return temp;
}
void *wxULongLongNative::asArray() const
{
static unsigned char temp[8];
temp[0] = wx_truncate_cast(unsigned char, ((m_ll >> 56) & 0xFF));
temp[1] = wx_truncate_cast(unsigned char, ((m_ll >> 48) & 0xFF));
temp[2] = wx_truncate_cast(unsigned char, ((m_ll >> 40) & 0xFF));
temp[3] = wx_truncate_cast(unsigned char, ((m_ll >> 32) & 0xFF));
temp[4] = wx_truncate_cast(unsigned char, ((m_ll >> 24) & 0xFF));
temp[5] = wx_truncate_cast(unsigned char, ((m_ll >> 16) & 0xFF));
temp[6] = wx_truncate_cast(unsigned char, ((m_ll >> 8) & 0xFF));
temp[7] = wx_truncate_cast(unsigned char, ((m_ll >> 0) & 0xFF));
return temp;
}
#if wxUSE_LONGLONG_WX
wxLongLongNative::wxLongLongNative(wxLongLongWx ll)
{
// assign first to avoid precision loss!
m_ll = ll.GetHi();
m_ll <<= 32;
m_ll |= ll.GetLo();
}
wxLongLongNative& wxLongLongNative::operator=(wxLongLongWx ll)
{
// assign first to avoid precision loss!
m_ll = ll.GetHi();
m_ll <<= 32;
m_ll |= ll.GetLo();
return *this;
}
wxLongLongNative& wxLongLongNative::operator=(const class wxULongLongWx &ll)
{
// assign first to avoid precision loss!
m_ll = ll.GetHi();
m_ll <<= 32;
m_ll |= ll.GetLo();
return *this;
}
wxULongLongNative::wxULongLongNative(const class wxULongLongWx &ll)
{
// assign first to avoid precision loss!
m_ll = ll.GetHi();
m_ll <<= 32;
m_ll |= ((unsigned long) ll.GetLo());
}
wxULongLongNative& wxULongLongNative::operator=(wxLongLongWx ll)
{
// assign first to avoid precision loss!
m_ll = ll.GetHi();
m_ll <<= 32;
m_ll |= ((unsigned long) ll.GetLo());
return *this;
}
wxULongLongNative& wxULongLongNative::operator=(const class wxULongLongWx &ll)
{
// assign first to avoid precision loss!
m_ll = ll.GetHi();
m_ll <<= 32;
m_ll |= ((unsigned long) ll.GetLo());
return *this;
}
#endif
#endif // wxUSE_LONGLONG_NATIVE
// ============================================================================
// wxLongLongWx: emulation of 'long long' using 2 longs
// ============================================================================
#if wxUSE_LONGLONG_WX
// Set value from unsigned wxULongLongWx
wxLongLongWx &wxLongLongWx::operator=(const class wxULongLongWx &ll)
{
m_hi = (unsigned long) ll.GetHi();
m_lo = ll.GetLo();
return *this;
}
// assignment
wxLongLongWx& wxLongLongWx::Assign(double d)
{
bool positive = d >= 0;
d = fabs(d);
if ( d <= ULONG_MAX )
{
m_hi = 0;
m_lo = (long)d;
}
else
{
m_hi = (unsigned long)(d / (1.0 + (double)ULONG_MAX));
m_lo = (unsigned long)(d - ((double)m_hi * (1.0 + (double)ULONG_MAX)));
}
#ifdef wxLONGLONG_TEST_MODE
m_ll = (wxLongLong_t)d;
Check();
#endif // wxLONGLONG_TEST_MODE
if ( !positive )
Negate();
return *this;
}
double wxLongLongWx::ToDouble() const
{
double d = m_hi;
d *= 1.0 + (double)ULONG_MAX;
d += m_lo;
#ifdef wxLONGLONG_TEST_MODE
wxASSERT( d == m_ll );
#endif // wxLONGLONG_TEST_MODE
return d;
}
double wxULongLongWx::ToDouble() const
{
unsigned double d = m_hi;
d *= 1.0 + (double)ULONG_MAX;
d += m_lo;
#ifdef wxLONGLONG_TEST_MODE
wxASSERT( d == m_ll );
#endif // wxLONGLONG_TEST_MODE
return d;
}
wxLongLongWx wxLongLongWx::operator<<(int shift) const
{
wxLongLongWx ll(*this);
ll <<= shift;
return ll;
}
wxULongLongWx wxULongLongWx::operator<<(int shift) const
{
wxULongLongWx ll(*this);
ll <<= shift;
return ll;
}
wxLongLongWx& wxLongLongWx::operator<<=(int shift)
{
if (shift != 0)
{
if (shift < 32)
{
m_hi <<= shift;
m_hi |= m_lo >> (32 - shift);
m_lo <<= shift;
}
else
{
m_hi = m_lo << (shift - 32);
m_lo = 0;
}
}
#ifdef wxLONGLONG_TEST_MODE
m_ll <<= shift;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxULongLongWx& wxULongLongWx::operator<<=(int shift)
{
if (shift != 0)
{
if (shift < 32)
{
m_hi <<= shift;
m_hi |= m_lo >> (32 - shift);
m_lo <<= shift;
}
else
{
m_hi = m_lo << (shift - 32);
m_lo = 0;
}
}
#ifdef wxLONGLONG_TEST_MODE
m_ll <<= shift;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxLongLongWx wxLongLongWx::operator>>(int shift) const
{
wxLongLongWx ll(*this);
ll >>= shift;
return ll;
}
wxULongLongWx wxULongLongWx::operator>>(int shift) const
{
wxULongLongWx ll(*this);
ll >>= shift;
return ll;
}
wxLongLongWx& wxLongLongWx::operator>>=(int shift)
{
if (shift != 0)
{
if (shift < 32)
{
m_lo >>= shift;
m_lo |= m_hi << (32 - shift);
m_hi >>= shift;
}
else
{
m_lo = m_hi >> (shift - 32);
m_hi = (m_hi < 0 ? -1L : 0);
}
}
#ifdef wxLONGLONG_TEST_MODE
m_ll >>= shift;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxULongLongWx& wxULongLongWx::operator>>=(int shift)
{
if (shift != 0)
{
if (shift < 32)
{
m_lo >>= shift;
m_lo |= m_hi << (32 - shift);
m_hi >>= shift;
}
else
{
m_lo = m_hi >> (shift - 32);
m_hi = 0;
}
}
#ifdef wxLONGLONG_TEST_MODE
m_ll >>= shift;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxLongLongWx wxLongLongWx::operator+(const wxLongLongWx& ll) const
{
wxLongLongWx res(*this);
res += ll;
return res;
}
wxULongLongWx wxULongLongWx::operator+(const wxULongLongWx& ll) const
{
wxULongLongWx res(*this);
res += ll;
return res;
}
wxLongLongWx wxLongLongWx::operator+(long l) const
{
wxLongLongWx res(*this);
res += l;
return res;
}
wxULongLongWx wxULongLongWx::operator+(unsigned long l) const
{
wxULongLongWx res(*this);
res += l;
return res;
}
wxLongLongWx& wxLongLongWx::operator+=(const wxLongLongWx& ll)
{
unsigned long previous = m_lo;
m_lo += ll.m_lo;
m_hi += ll.m_hi;
if ((m_lo < previous) || (m_lo < ll.m_lo))
m_hi++;
#ifdef wxLONGLONG_TEST_MODE
m_ll += ll.m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxULongLongWx& wxULongLongWx::operator+=(const wxULongLongWx& ll)
{
unsigned long previous = m_lo;
m_lo += ll.m_lo;
m_hi += ll.m_hi;
if ((m_lo < previous) || (m_lo < ll.m_lo))
m_hi++;
#ifdef wxLONGLONG_TEST_MODE
m_ll += ll.m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxLongLongWx& wxLongLongWx::operator+=(long l)
{
unsigned long previous = m_lo;
m_lo += l;
if (l < 0)
m_hi += -1l;
if ((m_lo < previous) || (m_lo < (unsigned long)l))
m_hi++;
#ifdef wxLONGLONG_TEST_MODE
m_ll += l;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxULongLongWx& wxULongLongWx::operator+=(unsigned long l)
{
unsigned long previous = m_lo;
m_lo += l;
if ((m_lo < previous) || (m_lo < l))
m_hi++;
#ifdef wxLONGLONG_TEST_MODE
m_ll += l;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
// pre increment
wxLongLongWx& wxLongLongWx::operator++()
{
m_lo++;
if (m_lo == 0)
m_hi++;
#ifdef wxLONGLONG_TEST_MODE
m_ll++;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxULongLongWx& wxULongLongWx::operator++()
{
m_lo++;
if (m_lo == 0)
m_hi++;
#ifdef wxLONGLONG_TEST_MODE
m_ll++;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
// negation
wxLongLongWx wxLongLongWx::operator-() const
{
wxLongLongWx res(*this);
res.Negate();
return res;
}
wxLongLongWx& wxLongLongWx::Negate()
{
m_hi = ~m_hi;
m_lo = ~m_lo;
m_lo++;
if ( m_lo == 0 )
m_hi++;
#ifdef wxLONGLONG_TEST_MODE
m_ll = -m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
// subtraction
wxLongLongWx wxLongLongWx::operator-(const wxLongLongWx& ll) const
{
wxLongLongWx res(*this);
res -= ll;
return res;
}
wxLongLongWx wxULongLongWx::operator-(const wxULongLongWx& ll) const
{
wxASSERT(m_hi <= LONG_MAX );
wxASSERT(ll.m_hi <= LONG_MAX );
wxLongLongWx res( (long)m_hi , m_lo );
wxLongLongWx op( (long)ll.m_hi , ll.m_lo );
res -= op;
return res;
}
wxLongLongWx& wxLongLongWx::operator-=(const wxLongLongWx& ll)
{
unsigned long previous = m_lo;
m_lo -= ll.m_lo;
m_hi -= ll.m_hi;
if (previous < ll.m_lo)
m_hi--;
#ifdef wxLONGLONG_TEST_MODE
m_ll -= ll.m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxULongLongWx& wxULongLongWx::operator-=(const wxULongLongWx& ll)
{
unsigned long previous = m_lo;
m_lo -= ll.m_lo;
m_hi -= ll.m_hi;
if (previous < ll.m_lo)
m_hi--;
#ifdef wxLONGLONG_TEST_MODE
m_ll -= ll.m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
// pre decrement
wxLongLongWx& wxLongLongWx::operator--()
{
m_lo--;
if (m_lo == 0xFFFFFFFF)
m_hi--;
#ifdef wxLONGLONG_TEST_MODE
m_ll--;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxULongLongWx& wxULongLongWx::operator--()
{
m_lo--;
if (m_lo == 0xFFFFFFFF)
m_hi--;
#ifdef wxLONGLONG_TEST_MODE
m_ll--;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
// comparison operators
bool wxLongLongWx::operator<(const wxLongLongWx& ll) const
{
if ( m_hi < ll.m_hi )
return true;
else if ( m_hi == ll.m_hi )
return m_lo < ll.m_lo;
else
return false;
}
bool wxULongLongWx::operator<(const wxULongLongWx& ll) const
{
if ( m_hi < ll.m_hi )
return true;
else if ( m_hi == ll.m_hi )
return m_lo < ll.m_lo;
else
return false;
}
bool wxLongLongWx::operator>(const wxLongLongWx& ll) const
{
if ( m_hi > ll.m_hi )
return true;
else if ( m_hi == ll.m_hi )
return m_lo > ll.m_lo;
else
return false;
}
bool wxULongLongWx::operator>(const wxULongLongWx& ll) const
{
if ( m_hi > ll.m_hi )
return true;
else if ( m_hi == ll.m_hi )
return m_lo > ll.m_lo;
else
return false;
}
// bitwise operators
wxLongLongWx wxLongLongWx::operator&(const wxLongLongWx& ll) const
{
return wxLongLongWx(m_hi & ll.m_hi, m_lo & ll.m_lo);
}
wxULongLongWx wxULongLongWx::operator&(const wxULongLongWx& ll) const
{
return wxULongLongWx(m_hi & ll.m_hi, m_lo & ll.m_lo);
}
wxLongLongWx wxLongLongWx::operator|(const wxLongLongWx& ll) const
{
return wxLongLongWx(m_hi | ll.m_hi, m_lo | ll.m_lo);
}
wxULongLongWx wxULongLongWx::operator|(const wxULongLongWx& ll) const
{
return wxULongLongWx(m_hi | ll.m_hi, m_lo | ll.m_lo);
}
wxLongLongWx wxLongLongWx::operator^(const wxLongLongWx& ll) const
{
return wxLongLongWx(m_hi ^ ll.m_hi, m_lo ^ ll.m_lo);
}
wxULongLongWx wxULongLongWx::operator^(const wxULongLongWx& ll) const
{
return wxULongLongWx(m_hi ^ ll.m_hi, m_lo ^ ll.m_lo);
}
wxLongLongWx& wxLongLongWx::operator&=(const wxLongLongWx& ll)
{
m_lo &= ll.m_lo;
m_hi &= ll.m_hi;
#ifdef wxLONGLONG_TEST_MODE
m_ll &= ll.m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxULongLongWx& wxULongLongWx::operator&=(const wxULongLongWx& ll)
{
m_lo &= ll.m_lo;
m_hi &= ll.m_hi;
#ifdef wxLONGLONG_TEST_MODE
m_ll &= ll.m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxLongLongWx& wxLongLongWx::operator|=(const wxLongLongWx& ll)
{
m_lo |= ll.m_lo;
m_hi |= ll.m_hi;
#ifdef wxLONGLONG_TEST_MODE
m_ll |= ll.m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxULongLongWx& wxULongLongWx::operator|=(const wxULongLongWx& ll)
{
m_lo |= ll.m_lo;
m_hi |= ll.m_hi;
#ifdef wxLONGLONG_TEST_MODE
m_ll |= ll.m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxLongLongWx& wxLongLongWx::operator^=(const wxLongLongWx& ll)
{
m_lo ^= ll.m_lo;
m_hi ^= ll.m_hi;
#ifdef wxLONGLONG_TEST_MODE
m_ll ^= ll.m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxULongLongWx& wxULongLongWx::operator^=(const wxULongLongWx& ll)
{
m_lo ^= ll.m_lo;
m_hi ^= ll.m_hi;
#ifdef wxLONGLONG_TEST_MODE
m_ll ^= ll.m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxLongLongWx wxLongLongWx::operator~() const
{
return wxLongLongWx(~m_hi, ~m_lo);
}
wxULongLongWx wxULongLongWx::operator~() const
{
return wxULongLongWx(~m_hi, ~m_lo);
}
// multiplication
wxLongLongWx wxLongLongWx::operator*(const wxLongLongWx& ll) const
{
wxLongLongWx res(*this);
res *= ll;
return res;
}
wxULongLongWx wxULongLongWx::operator*(const wxULongLongWx& ll) const
{
wxULongLongWx res(*this);
res *= ll;
return res;
}
wxLongLongWx& wxLongLongWx::operator*=(const wxLongLongWx& ll)
{
wxLongLongWx t(m_hi, m_lo);
wxLongLongWx q(ll.m_hi, ll.m_lo);
m_hi = m_lo = 0;
#ifdef wxLONGLONG_TEST_MODE
wxLongLong_t llOld = m_ll;
m_ll = 0;
#endif // wxLONGLONG_TEST_MODE
int counter = 0;
do
{
if ((q.m_lo & 1) != 0)
*this += t;
q >>= 1;
t <<= 1;
counter++;
}
while ((counter < 64) && ((q.m_hi != 0) || (q.m_lo != 0)));
#ifdef wxLONGLONG_TEST_MODE
m_ll = llOld * ll.m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
wxULongLongWx& wxULongLongWx::operator*=(const wxULongLongWx& ll)
{
wxULongLongWx t(m_hi, m_lo);
wxULongLongWx q(ll.m_hi, ll.m_lo);
m_hi = m_lo = 0;
#ifdef wxLONGLONG_TEST_MODE
wxULongLong_t llOld = m_ll;
m_ll = 0;
#endif // wxLONGLONG_TEST_MODE
int counter = 0;
do
{
if ((q.m_lo & 1) != 0)
*this += t;
q >>= 1;
t <<= 1;
counter++;
}
while ((counter < 64) && ((q.m_hi != 0) || (q.m_lo != 0)));
#ifdef wxLONGLONG_TEST_MODE
m_ll = llOld * ll.m_ll;
Check();
#endif // wxLONGLONG_TEST_MODE
return *this;
}
// division
#define IS_MSB_SET(ll) ((ll.GetHi()) & (1 << (8*sizeof(long) - 1)))
void wxLongLongWx::Divide(const wxLongLongWx& divisorIn,
wxLongLongWx& quotient,
wxLongLongWx& remainderIO) const
{
if ((divisorIn.m_lo == 0) && (divisorIn.m_hi == 0))
{
// provoke division by zero error and silence the compilers warnings
// about an expression without effect and unused variable
long dummy = divisorIn.m_lo/divisorIn.m_hi;
dummy += 0;
}
// VZ: I'm writing this in a hurry and it's surely not the fastest way to
// do this - any improvements are more than welcome
//
// code inspired by the snippet at
// http://www.bearcave.com/software/divide.htm
//
// Copyright notice:
//
// Use of this program, for any purpose, is granted the author, Ian
// Kaplan, as long as this copyright notice is included in the source
// code or any source code derived from this program. The user assumes
// all responsibility for using this code.
// init everything
wxULongLongWx dividend, divisor, remainder;
quotient = 0l;
remainder = 0l;
// always do unsigned division and adjust the signs later: in C integer
// division, the sign of the remainder is the same as the sign of the
// dividend, while the sign of the quotient is the product of the signs of
// the dividend and divisor. Of course, we also always have
//
// dividend = quotient*divisor + remainder
//
// with 0 <= abs(remainder) < abs(divisor)
bool negRemainder = GetHi() < 0;
bool negQuotient = false; // assume positive
if ( GetHi() < 0 )
{
negQuotient = !negQuotient;
dividend = -*this;
} else {
dividend = *this;
}
if ( divisorIn.GetHi() < 0 )
{
negQuotient = !negQuotient;
divisor = -divisorIn;
} else {
divisor = divisorIn;
}
// check for some particular cases
if ( divisor > dividend )
{
remainder = dividend;
}
else if ( divisor == dividend )
{
quotient = 1l;
}
else
{
// here: dividend > divisor and both are positive: do unsigned division
size_t nBits = 64u;
wxLongLongWx d;
while ( remainder < divisor )
{
remainder <<= 1;
if ( IS_MSB_SET(dividend) )
{
remainder |= 1;
}
d = dividend;
dividend <<= 1;
nBits--;
}
// undo the last loop iteration
dividend = d;
remainder >>= 1;
nBits++;
for ( size_t i = 0; i < nBits; i++ )
{
remainder <<= 1;
if ( IS_MSB_SET(dividend) )
{
remainder |= 1;
}
wxLongLongWx t = remainder - divisor;
dividend <<= 1;
quotient <<= 1;
if ( !IS_MSB_SET(t) )
{
quotient |= 1;
remainder = t;
}
}
}
remainderIO = remainder;
// adjust signs
if ( negRemainder )
{
remainderIO = -remainderIO;
}
if ( negQuotient )
{
quotient = -quotient;
}
}
void wxULongLongWx::Divide(const wxULongLongWx& divisorIn,
wxULongLongWx& quotient,
wxULongLongWx& remainder) const
{
if ((divisorIn.m_lo == 0) && (divisorIn.m_hi == 0))
{
// provoke division by zero error and silence the compilers warnings
// about an expression without effect and unused variable
unsigned long dummy = divisorIn.m_lo/divisorIn.m_hi;
dummy += 0;
}
// VZ: I'm writing this in a hurry and it's surely not the fastest way to
// do this - any improvements are more than welcome
//
// code inspired by the snippet at
// http://www.bearcave.com/software/divide.htm
//
// Copyright notice:
//
// Use of this program, for any purpose, is granted the author, Ian
// Kaplan, as long as this copyright notice is included in the source
// code or any source code derived from this program. The user assumes
// all responsibility for using this code.
// init everything
wxULongLongWx dividend = *this,
divisor = divisorIn;
quotient = 0l;
remainder = 0l;
// check for some particular cases
if ( divisor > dividend )
{
remainder = dividend;
}
else if ( divisor == dividend )
{
quotient = 1l;
}
else
{
// here: dividend > divisor
size_t nBits = 64u;
wxULongLongWx d;
while ( remainder < divisor )
{
remainder <<= 1;
if ( IS_MSB_SET(dividend) )
{
remainder |= 1;
}
d = dividend;
dividend <<= 1;
nBits--;
}
// undo the last loop iteration
dividend = d;
remainder >>= 1;
nBits++;
for ( size_t i = 0; i < nBits; i++ )
{
remainder <<= 1;
if ( IS_MSB_SET(dividend) )
{
remainder |= 1;
}
wxULongLongWx t = remainder - divisor;
dividend <<= 1;
quotient <<= 1;
if ( !IS_MSB_SET(t) )
{
quotient |= 1;
remainder = t;
}
}
}
}
wxLongLongWx wxLongLongWx::operator/(const wxLongLongWx& ll) const
{
wxLongLongWx quotient, remainder;
Divide(ll, quotient, remainder);
return quotient;
}
wxULongLongWx wxULongLongWx::operator/(const wxULongLongWx& ll) const
{
wxULongLongWx quotient, remainder;
Divide(ll, quotient, remainder);
return quotient;
}
wxLongLongWx& wxLongLongWx::operator/=(const wxLongLongWx& ll)
{
wxLongLongWx quotient, remainder;
Divide(ll, quotient, remainder);
*this = quotient;
return *this;
}
wxULongLongWx& wxULongLongWx::operator/=(const wxULongLongWx& ll)
{
wxULongLongWx quotient, remainder;
Divide(ll, quotient, remainder);
*this = quotient;
return *this;
}
wxLongLongWx wxLongLongWx::operator%(const wxLongLongWx& ll) const
{
wxLongLongWx quotient, remainder;
Divide(ll, quotient, remainder);
return remainder;
}
wxULongLongWx wxULongLongWx::operator%(const wxULongLongWx& ll) const
{
wxULongLongWx quotient, remainder;
Divide(ll, quotient, remainder);
return remainder;
}
// ----------------------------------------------------------------------------
// misc
// ----------------------------------------------------------------------------
// temporary - just for testing
void *wxLongLongWx::asArray(void) const
{
static unsigned char temp[8];
temp[0] = (char)((m_hi >> 24) & 0xFF);
temp[1] = (char)((m_hi >> 16) & 0xFF);
temp[2] = (char)((m_hi >> 8) & 0xFF);
temp[3] = (char)((m_hi >> 0) & 0xFF);
temp[4] = (char)((m_lo >> 24) & 0xFF);
temp[5] = (char)((m_lo >> 16) & 0xFF);
temp[6] = (char)((m_lo >> 8) & 0xFF);
temp[7] = (char)((m_lo >> 0) & 0xFF);
return temp;
}
void *wxULongLongWx::asArray(void) const
{
static unsigned char temp[8];
temp[0] = (char)((m_hi >> 24) & 0xFF);
temp[1] = (char)((m_hi >> 16) & 0xFF);
temp[2] = (char)((m_hi >> 8) & 0xFF);
temp[3] = (char)((m_hi >> 0) & 0xFF);
temp[4] = (char)((m_lo >> 24) & 0xFF);
temp[5] = (char)((m_lo >> 16) & 0xFF);
temp[6] = (char)((m_lo >> 8) & 0xFF);
temp[7] = (char)((m_lo >> 0) & 0xFF);
return temp;
}
#endif // wxUSE_LONGLONG_WX
#define LL_TO_STRING(name) \
wxString name::ToString() const \
{ \
/* TODO: this is awfully inefficient, anything better? */ \
wxString result; \
\
name ll = *this; \
\
bool neg = ll < 0; \
if ( neg ) \
{ \
while ( ll != 0 ) \
{ \
long digit = (ll % 10).ToLong(); \
result.Prepend((wxChar)(wxT('0') - digit)); \
ll /= 10; \
} \
} \
else \
{ \
while ( ll != 0 ) \
{ \
long digit = (ll % 10).ToLong(); \
result.Prepend((wxChar)(wxT('0') + digit)); \
ll /= 10; \
} \
} \
\
if ( result.empty() ) \
result = wxT('0'); \
else if ( neg ) \
result.Prepend(wxT('-')); \
\
return result; \
}
#define ULL_TO_STRING(name) \
wxString name::ToString() const \
{ \
/* TODO: this is awfully inefficient, anything better? */ \
wxString result; \
\
name ll = *this; \
\
while ( ll != 0 ) \
{ \
result.Prepend((wxChar)(wxT('0') + (ll % 10).ToULong())); \
ll /= 10; \
} \
\
if ( result.empty() ) \
result = wxT('0'); \
\
return result; \
}
#if wxUSE_LONGLONG_NATIVE
LL_TO_STRING(wxLongLongNative)
ULL_TO_STRING(wxULongLongNative)
#endif
#if wxUSE_LONGLONG_WX
LL_TO_STRING(wxLongLongWx)
ULL_TO_STRING(wxULongLongWx)
#endif
#if wxUSE_STD_IOSTREAM
// input/output
WXDLLIMPEXP_BASE
wxSTD ostream& operator<< (wxSTD ostream& o, const wxLongLong& ll)
{
return o << ll.ToString();
}
WXDLLIMPEXP_BASE
wxSTD ostream& operator<< (wxSTD ostream& o, const wxULongLong& ll)
{
return o << ll.ToString();
}
#endif // wxUSE_STD_IOSTREAM
WXDLLIMPEXP_BASE wxString& operator<< (wxString& s, const wxLongLong& ll)
{
return s << ll.ToString();
}
WXDLLIMPEXP_BASE wxString& operator<< (wxString& s, const wxULongLong& ll)
{
return s << ll.ToString();
}
#if wxUSE_STREAMS
WXDLLIMPEXP_BASE wxTextOutputStream& operator<< (wxTextOutputStream& o, const wxULongLong& ll)
{
return o << ll.ToString();
}
WXDLLIMPEXP_BASE wxTextOutputStream& operator<< (wxTextOutputStream& o, const wxLongLong& ll)
{
return o << ll.ToString();
}
#define READ_STRING_CHAR(s, idx, len) ((idx!=len) ? (wxChar)s[idx++] : wxT('\0'))
WXDLLIMPEXP_BASE class wxTextInputStream &operator>>(class wxTextInputStream &o, wxULongLong &ll)
{
wxString s = o.ReadWord();
ll = wxULongLong(0l, 0l);
size_t length = s.length();
size_t idx = 0;
wxChar ch = READ_STRING_CHAR(s, idx, length);
// Skip WS
while (ch==wxT(' ') || ch==wxT('\t'))
ch = READ_STRING_CHAR(s, idx, length);
// Read number
wxULongLong multiplier(0l, 10l);
while (ch>=wxT('0') && ch<=wxT('9')) {
long lValue = (unsigned) (ch - wxT('0'));
ll = ll * multiplier + wxULongLong(0l, lValue);
ch = READ_STRING_CHAR(s, idx, length);
}
return o;
}
WXDLLIMPEXP_BASE class wxTextInputStream &operator>>(class wxTextInputStream &o, wxLongLong &ll)
{
wxString s = o.ReadWord();
ll = wxLongLong(0l, 0l);
size_t length = s.length();
size_t idx = 0;
wxChar ch = READ_STRING_CHAR(s, idx, length);
// Skip WS
while (ch==wxT(' ') || ch==wxT('\t'))
ch = READ_STRING_CHAR(s, idx, length);
// Ask for sign
int iSign = 1;
if (ch==wxT('-') || ch==wxT('+')) {
iSign = ((ch==wxT('-')) ? -1 : 1);
ch = READ_STRING_CHAR(s, idx, length);
}
// Read number
wxLongLong multiplier(0l, 10l);
while (ch>=wxT('0') && ch<=wxT('9')) {
long lValue = (unsigned) (ch - wxT('0'));
ll = ll * multiplier + wxLongLong(0l, lValue);
ch = READ_STRING_CHAR(s, idx, length);
}
#if wxUSE_LONGLONG_NATIVE
ll = ll * wxLongLong((wxLongLong_t) iSign);
#else
ll = ll * wxLongLong((long) iSign);
#endif
return o;
}
#if wxUSE_LONGLONG_NATIVE
WXDLLIMPEXP_BASE class wxTextOutputStream &operator<<(class wxTextOutputStream &o, wxULongLong_t value)
{
return o << wxULongLong(value).ToString();
}
WXDLLIMPEXP_BASE class wxTextOutputStream &operator<<(class wxTextOutputStream &o, wxLongLong_t value)
{
return o << wxLongLong(value).ToString();
}
WXDLLIMPEXP_BASE class wxTextInputStream &operator>>(class wxTextInputStream &o, wxULongLong_t &value)
{
wxULongLong ll;
o >> ll;
value = ll.GetValue();
return o;
}
WXDLLIMPEXP_BASE class wxTextInputStream &operator>>(class wxTextInputStream &o, wxLongLong_t &value)
{
wxLongLong ll;
o >> ll;
value = ll.GetValue();
return o;
}
#endif // wxUSE_LONGLONG_NATIVE
#endif // wxUSE_STREAMS
#endif // wxUSE_LONGLONG