1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/ossrv/stdcpp/src/uint64.h Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,184 @@
1.4 +// uint64.h
1.5 +// minimal double precision unsigned int arithmetics for numeric_facets support.
1.6 +// Written by Tsutomu Yoshida, Minokamo, Japan. 03/25/2000
1.7 +
1.8 +#ifndef _UINT64_H
1.9 +#define _UINT64_H
1.10 +
1.11 +
1.12 +
1.13 +template <class _Tp>
1.14 +class _compound_int : public _Tp
1.15 +{
1.16 +public:
1.17 + typedef _compound_int<_Tp> _Self;
1.18 +
1.19 + // Constructors, destructor, assignment operator.
1.20 + _compound_int(); // platform specific
1.21 + _compound_int(unsigned long); // platform specific
1.22 + _compound_int(unsigned long hi, unsigned long lo); // platform specific
1.23 + _compound_int(const _Tp& rhs) : _Tp(rhs) {}
1.24 +
1.25 + // Arithmetic op= operations involving two _compound_int.
1.26 + _Self& operator+= (const _Self&); // platform specific
1.27 + _Self& operator-= (const _Self&); // platform specific
1.28 + _Self& operator*= (const _Self&); // platform specific
1.29 + _Self& operator/= (const _Self&); // platform specific
1.30 + _Self& operator%= (const _Self&); // platform specific
1.31 + _Self& operator&= (const _Self&); // platform specific
1.32 + _Self& operator|= (const _Self&); // platform specific
1.33 + _Self& operator^= (const _Self&); // platform specific
1.34 +
1.35 + // Arithmetic op= operations involving built-in integer.
1.36 + _Self& operator<<= (unsigned int); // platform specific
1.37 + _Self& operator>>= (unsigned int); // platform specific
1.38 +
1.39 + _Self& operator= (unsigned long rhs) { return *this = _Self(rhs); }
1.40 + _Self& operator+= (unsigned long rhs) { return *this += _Self(rhs); }
1.41 + _Self& operator-= (unsigned long rhs) { return *this -= _Self(rhs); }
1.42 + _Self& operator*= (unsigned long rhs) { return *this *= _Self(rhs); }
1.43 + _Self& operator/= (unsigned long rhs) { return *this /= _Self(rhs); }
1.44 + _Self& operator%= (unsigned long rhs) { return *this %= _Self(rhs); }
1.45 + _Self& operator&= (unsigned long rhs) { return *this &= _Self(rhs); }
1.46 + _Self& operator|= (unsigned long rhs) { return *this |= _Self(rhs); }
1.47 + _Self& operator^= (unsigned long rhs) { return *this ^= _Self(rhs); }
1.48 +
1.49 + // Increment and decrement
1.50 + _Self& operator++() { return (*this) += 1; }
1.51 + _Self& operator--() { return (*this) -= 1; }
1.52 + _Self operator++(int) { _Self temp(*this); ++(*this); return temp; }
1.53 + _Self operator--(int) { _Self temp(*this); --(*this); return temp; }
1.54 +};
1.55 +
1.56 +// Comparison operators.
1.57 +template <class _Tp> bool operator==(const _compound_int<_Tp>&, const _compound_int<_Tp>&); // platform specific
1.58 +template <class _Tp> bool operator<(const _compound_int<_Tp>&, const _compound_int<_Tp>&); // platform specific
1.59 +
1.60 +template <class _Tp> inline bool operator==(const _compound_int<_Tp>& lhs, unsigned long rhs) { return lhs == _compound_int<_Tp>(rhs); }
1.61 +template <class _Tp> inline bool operator==(unsigned long lhs, const _compound_int<_Tp>& rhs) { return rhs == lhs; }
1.62 +
1.63 +template <class _Tp> inline bool operator< (const _compound_int<_Tp>& lhs, unsigned long rhs) { return lhs < _compound_int<_Tp>(rhs); }
1.64 +template <class _Tp> inline bool operator< (unsigned long lhs, const _compound_int<_Tp>& rhs) { return _compound_int<_Tp>(lhs) < rhs; }
1.65 +
1.66 +template <class _Tp> inline bool operator!=(const _compound_int<_Tp>& lhs, unsigned long rhs) { return !(lhs == rhs); }
1.67 +template <class _Tp> inline bool operator!=(unsigned long lhs, const _compound_int<_Tp>& rhs) { return !(lhs == rhs); }
1.68 +
1.69 +template <class _Tp> inline bool operator> (const _compound_int<_Tp>& lhs, unsigned long rhs) { return rhs < lhs; }
1.70 +template <class _Tp> inline bool operator> (unsigned long lhs, const _compound_int<_Tp>& rhs) { return rhs < lhs; }
1.71 +
1.72 +template <class _Tp> inline bool operator<=(const _compound_int<_Tp>& lhs, unsigned long rhs) { return !(lhs > rhs); }
1.73 +template <class _Tp> inline bool operator<=(unsigned long lhs, const _compound_int<_Tp>& rhs) { return !(lhs > rhs); }
1.74 +
1.75 +template <class _Tp> inline bool operator>=(const _compound_int<_Tp>& lhs, unsigned long rhs) { return !(lhs < rhs); }
1.76 +template <class _Tp> inline bool operator>=(unsigned long lhs, const _compound_int<_Tp>& rhs) { return !(lhs < rhs); }
1.77 +
1.78 +// Unary non-member arithmetic operators.
1.79 +template <class _Tp> unsigned long to_ulong(const _compound_int<_Tp>&); // platform specific
1.80 +template <class _Tp> _compound_int<_Tp> operator~(const _compound_int<_Tp>&); // platform specific
1.81 +
1.82 +template <class _Tp> inline _compound_int<_Tp> operator+(const _compound_int<_Tp>& val) {return val;}
1.83 +template <class _Tp> inline _compound_int<_Tp> operator-(const _compound_int<_Tp>& val) {return 0 - val;}
1.84 +template <class _Tp> inline bool operator!(const _compound_int<_Tp>& val) {return val==0;}
1.85 +
1.86 +// Non-member arithmetic operations involving two _compound_int arguments
1.87 +template <class _Tp> inline _compound_int<_Tp> operator+(const _compound_int<_Tp>& lhs, const _compound_int<_Tp>& rhs) { _compound_int<_Tp> temp(lhs); return temp += rhs; }
1.88 +template <class _Tp> inline _compound_int<_Tp> operator-(const _compound_int<_Tp>& lhs, const _compound_int<_Tp>& rhs) { _compound_int<_Tp> temp(lhs); return temp -= rhs; }
1.89 +template <class _Tp> inline _compound_int<_Tp> operator*(const _compound_int<_Tp>& lhs, const _compound_int<_Tp>& rhs) { _compound_int<_Tp> temp(lhs); return temp *= rhs; }
1.90 +template <class _Tp> inline _compound_int<_Tp> operator/(const _compound_int<_Tp>& lhs, const _compound_int<_Tp>& rhs) { _compound_int<_Tp> temp(lhs); return temp /= rhs; }
1.91 +template <class _Tp> inline _compound_int<_Tp> operator%(const _compound_int<_Tp>& lhs, const _compound_int<_Tp>& rhs) { _compound_int<_Tp> temp(lhs); return temp %= rhs; }
1.92 +template <class _Tp> inline _compound_int<_Tp> operator&(const _compound_int<_Tp>& lhs, const _compound_int<_Tp>& rhs) { _compound_int<_Tp> temp(lhs); return temp &= rhs; }
1.93 +template <class _Tp> inline _compound_int<_Tp> operator|(const _compound_int<_Tp>& lhs, const _compound_int<_Tp>& rhs) { _compound_int<_Tp> temp(lhs); return temp |= rhs; }
1.94 +template <class _Tp> inline _compound_int<_Tp> operator^(const _compound_int<_Tp>& lhs, const _compound_int<_Tp>& rhs) { _compound_int<_Tp> temp(lhs); return temp ^= rhs; }
1.95 +
1.96 +// Non-member arithmetic operations involving one built-in integer argument.
1.97 +template <class _Tp> inline _compound_int<_Tp> operator+(const _compound_int<_Tp>& lhs, unsigned long rhs) { return lhs + _compound_int<_Tp>(rhs); }
1.98 +template <class _Tp> inline _compound_int<_Tp> operator+(unsigned long lhs, const _compound_int<_Tp>& rhs) { return _compound_int<_Tp>(lhs) + rhs; }
1.99 +
1.100 +template <class _Tp> inline _compound_int<_Tp> operator-(const _compound_int<_Tp>& lhs, unsigned long rhs) { return lhs - _compound_int<_Tp>(rhs); }
1.101 +template <class _Tp> inline _compound_int<_Tp> operator-(unsigned long lhs, const _compound_int<_Tp>& rhs) { return _compound_int<_Tp>(lhs) - rhs; }
1.102 +
1.103 +template <class _Tp> inline _compound_int<_Tp> operator*(const _compound_int<_Tp>& lhs, unsigned long rhs) { return lhs * _compound_int<_Tp>(rhs); }
1.104 +template <class _Tp> inline _compound_int<_Tp> operator*(unsigned long lhs, const _compound_int<_Tp>& rhs) { return _compound_int<_Tp>(lhs) * rhs; }
1.105 +
1.106 +template <class _Tp> inline _compound_int<_Tp> operator/(const _compound_int<_Tp>& lhs, unsigned long rhs) { return lhs / _compound_int<_Tp>(rhs); }
1.107 +template <class _Tp> inline _compound_int<_Tp> operator/(unsigned long lhs, const _compound_int<_Tp>& rhs) { return _compound_int<_Tp>(lhs) / rhs; }
1.108 +
1.109 +template <class _Tp> inline _compound_int<_Tp> operator%(const _compound_int<_Tp>& lhs, unsigned long rhs) { return lhs % _compound_int<_Tp>(rhs); }
1.110 +template <class _Tp> inline _compound_int<_Tp> operator%(unsigned long lhs, const _compound_int<_Tp>& rhs) { return _compound_int<_Tp>(lhs) % rhs; }
1.111 +
1.112 +template <class _Tp> inline _compound_int<_Tp> operator&(const _compound_int<_Tp>& lhs, unsigned long rhs) { return lhs & _compound_int<_Tp>(rhs); }
1.113 +template <class _Tp> inline _compound_int<_Tp> operator&(unsigned long lhs, const _compound_int<_Tp>& rhs) { return _compound_int<_Tp>(lhs) & rhs; }
1.114 +
1.115 +template <class _Tp> inline _compound_int<_Tp> operator|(const _compound_int<_Tp>& lhs, unsigned long rhs) { return lhs | _compound_int<_Tp>(rhs); }
1.116 +template <class _Tp> inline _compound_int<_Tp> operator|(unsigned long lhs, const _compound_int<_Tp>& rhs) { return _compound_int<_Tp>(lhs) | rhs; }
1.117 +
1.118 +template <class _Tp> inline _compound_int<_Tp> operator^(const _compound_int<_Tp>& lhs, unsigned long rhs) { return lhs ^ _compound_int<_Tp>(rhs); }
1.119 +template <class _Tp> inline _compound_int<_Tp> operator^(unsigned long lhs, const _compound_int<_Tp>& rhs) { return _compound_int<_Tp>(lhs) ^ rhs; }
1.120 +
1.121 +template <class _Tp> inline _compound_int<_Tp> operator<<(const _compound_int<_Tp>& lhs, unsigned int rhs) { _compound_int<_Tp> temp(lhs); return temp <<= rhs; }
1.122 +template <class _Tp> inline _compound_int<_Tp> operator>>(const _compound_int<_Tp>& lhs, unsigned int rhs) { _compound_int<_Tp> temp(lhs); return temp >>= rhs; }
1.123 +
1.124 +
1.125 +
1.126 +
1.127 +// platform specific specializations
1.128 +
1.129 +#if defined(__MRC__)||defined(__SC__)
1.130 +
1.131 +_STLP_END_NAMESPACE // ugly!
1.132 +# include <Math64.h>
1.133 +# include <utility>
1.134 +# undef modff //*TY 04/06/2000 - defined in <math.h> which conflicts with <fp.h> definition
1.135 +# include <fp.h>
1.136 +
1.137 +_STLP_BEGIN_NAMESPACE
1.138 +
1.139 +# if TYPE_LONGLONG
1.140 +typedef UInt64 uint64;
1.141 +# define ULL(x) (U64SetU(x))
1.142 +
1.143 +# else
1.144 +// Apple's mpw sc compiler for 68k macintosh does not support native 64bit integer type.
1.145 +// Instead, it comes with external support library and struct data type representing 64bit int:
1.146 +//
1.147 +// struct UnsignedWide {
1.148 +// UInt32 hi;
1.149 +// UInt32 lo;
1.150 +// };
1.151 +
1.152 +typedef _compound_int<UnsignedWide> uint64;
1.153 +# define ULL(x) uint64(x)
1.154 +# define ULL2(hi,lo) {hi,lo}
1.155 +
1.156 +// Constructors, destructor, assignment operator.
1.157 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>::_compound_int() { hi = 0; lo = 0; }
1.158 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>::_compound_int(unsigned long val) { hi = 0; lo = val; }
1.159 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>::_compound_int(unsigned long h, unsigned long l) { hi = h; lo = l; }
1.160 +
1.161 +// Arithmetic op= operations involving two _compound_int.
1.162 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>& _compound_int<UnsignedWide>::operator+= (const _compound_int<UnsignedWide>& rhs) { *this = U64Add( *this, rhs ); return *this; }
1.163 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>& _compound_int<UnsignedWide>::operator-= (const _compound_int<UnsignedWide>& rhs) { *this = U64Subtract( *this, rhs ); return *this; }
1.164 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>& _compound_int<UnsignedWide>::operator*= (const _compound_int<UnsignedWide>& rhs) { *this = U64Multiply( *this, rhs ); return *this; }
1.165 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>& _compound_int<UnsignedWide>::operator/= (const _compound_int<UnsignedWide>& rhs) { *this = U64Divide( *this, rhs, NULL ); return *this; }
1.166 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>& _compound_int<UnsignedWide>::operator%= (const _compound_int<UnsignedWide>& rhs) { U64Divide( *this, rhs, this ); return *this; }
1.167 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>& _compound_int<UnsignedWide>::operator&= (const _compound_int<UnsignedWide>& rhs) { *this = U64BitwiseAnd( *this, rhs ); return *this; }
1.168 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>& _compound_int<UnsignedWide>::operator|= (const _compound_int<UnsignedWide>& rhs) { *this = U64BitwiseOr( *this, rhs ); return *this; }
1.169 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>& _compound_int<UnsignedWide>::operator^= (const _compound_int<UnsignedWide>& rhs) { *this = U64BitwiseEor( *this, rhs ); return *this; }
1.170 +
1.171 +// Arithmetic op= operations involving built-in integer.
1.172 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>& _compound_int<UnsignedWide>::operator<<= (unsigned int rhs) { *this = U64ShiftLeft( *this, rhs ); return *this; }
1.173 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide>& _compound_int<UnsignedWide>::operator>>= (unsigned int rhs) { *this = U64ShiftRight( *this, rhs ); return *this; }
1.174 +
1.175 +// Comparison operators.
1.176 +_STLP_TEMPLATE_NULL inline bool operator==(const _compound_int<UnsignedWide>& lhs, const _compound_int<UnsignedWide>& rhs) { return (lhs.hi == rhs.hi) && (lhs.lo == rhs.lo); }
1.177 +_STLP_TEMPLATE_NULL inline bool operator< (const _compound_int<UnsignedWide>& lhs, const _compound_int<UnsignedWide>& rhs) { return U64Compare( lhs, rhs ) < 0; }
1.178 +_STLP_TEMPLATE_NULL inline bool operator==(const _compound_int<UnsignedWide>& lhs, unsigned long rhs) { return (lhs.hi == 0) && (lhs.lo == rhs); }
1.179 +
1.180 +// Unary non-member arithmetic operators.
1.181 +_STLP_TEMPLATE_NULL inline unsigned long to_ulong(const _compound_int<UnsignedWide>& val) { return val.lo; }
1.182 +_STLP_TEMPLATE_NULL inline _compound_int<UnsignedWide> operator~(const _compound_int<UnsignedWide>& val) { return U64BitwiseNot( val ); }
1.183 +_STLP_TEMPLATE_NULL inline bool operator!(const _compound_int<UnsignedWide>& val) { return !((val.hi == 0) && (val.lo == 0)); }
1.184 +
1.185 +# endif // TYPE_LONGLONG
1.186 +#endif // __MRC__
1.187 +#endif // _UINT64_H