forked from KolibriOS/kolibrios
103 lines
3.4 KiB
C
103 lines
3.4 KiB
C
|
|
||
|
|
#ifndef __anumber_h__
|
||
|
|
#define __anumber_h__
|
||
|
|
|
||
|
|
#include "grower.h"
|
||
|
|
#include "yacasbase.h"
|
||
|
|
#include "lispassert.h"
|
||
|
|
#include "lispstring.h"
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
/* Quantities derived from the platform-dependent types for doing
|
||
|
|
* arithmetic.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#define WordBits (8*sizeof(PlatWord))
|
||
|
|
#define WordBase (((PlatDoubleWord)1)<<WordBits)
|
||
|
|
#define WordMask (WordBase-1)
|
||
|
|
|
||
|
|
// The default is 8, but it is suspected mose numbers will be short integers that fit into
|
||
|
|
// one or two words. For these numbers memory allocation will be a lot more friendly.
|
||
|
|
class ANumberOps : public ArrOpsPOD<PlatWord>
|
||
|
|
{
|
||
|
|
public:
|
||
|
|
ANumberOps() {}
|
||
|
|
inline int granularity() const { return 2; }
|
||
|
|
};
|
||
|
|
|
||
|
|
|
||
|
|
/* Class ANumber represents an arbitrary precision number. it is
|
||
|
|
* basically an array of PlatWord objects, with the first element
|
||
|
|
* being the least significant. iExp <= 0 for integers.
|
||
|
|
*/
|
||
|
|
class ANumber : public CArrayGrower<PlatWord,ANumberOps>
|
||
|
|
{
|
||
|
|
public:
|
||
|
|
typedef CArrayGrower<PlatWord,ANumberOps> ASuper;
|
||
|
|
public:
|
||
|
|
ANumber(const LispChar * aString,LispInt aPrecision,LispInt aBase=10);
|
||
|
|
ANumber(LispInt aPrecision);
|
||
|
|
ANumber(PlatWord *aArray, LispInt aSize, LispInt aPrecision);
|
||
|
|
//TODO the properties of this object are set in the member initialization list, but then immediately overwritten by the CopyFrom. We can make this slightly cleaner by only initializing once.
|
||
|
|
inline ANumber(ANumber& aOther) : ASuper(),iExp(0),iNegative(LispFalse),iPrecision(0),iTensExp(0)
|
||
|
|
{
|
||
|
|
CopyFrom(aOther);
|
||
|
|
}
|
||
|
|
~ANumber();
|
||
|
|
void CopyFrom(const ANumber& aOther);
|
||
|
|
LispBoolean ExactlyEqual(const ANumber& aOther);
|
||
|
|
void SetTo(const LispChar * aString,LispInt aBase=10);
|
||
|
|
inline void SetPrecision(LispInt aPrecision) {iPrecision = aPrecision;}
|
||
|
|
void ChangePrecision(LispInt aPrecision);
|
||
|
|
void RoundBits(void);
|
||
|
|
void DropTrailZeroes();
|
||
|
|
|
||
|
|
public:
|
||
|
|
LispInt iExp;
|
||
|
|
LispInt iNegative;
|
||
|
|
LispInt iPrecision;
|
||
|
|
LispInt iTensExp;
|
||
|
|
};
|
||
|
|
|
||
|
|
inline LispBoolean IsPositive(ANumber& a) { return !a.iNegative; }
|
||
|
|
inline LispBoolean IsNegative(ANumber& a) { return a.iNegative; }
|
||
|
|
inline LispBoolean IsEven(ANumber& a) { return ((a[0]&1) == 0); }
|
||
|
|
inline LispBoolean IsOdd(ANumber& a) { return ((a[0]&1) == 1); }
|
||
|
|
inline LispInt Precision(ANumber& a) { return !a.iPrecision; }
|
||
|
|
|
||
|
|
LispBoolean BaseLessThan(ANumber& a1, ANumber& a2);
|
||
|
|
void BaseDivide(ANumber& aQuotient, ANumber& aRemainder, ANumber& a1, ANumber& a2);
|
||
|
|
|
||
|
|
void IntegerDivide(ANumber& aQuotient, ANumber& aRemainder, ANumber& a1, ANumber& a2);
|
||
|
|
|
||
|
|
LispBoolean Significant(ANumber& a);
|
||
|
|
|
||
|
|
LispInt WordDigits(LispInt aPrecision, LispInt aBase);
|
||
|
|
|
||
|
|
// Operations on ANumber.
|
||
|
|
void Negate(ANumber& aNumber);
|
||
|
|
void ANumberToString(LispString& aResult, ANumber& aNumber, LispInt aBase, LispBoolean aForceFloat=0);
|
||
|
|
void Add(ANumber& aResult, ANumber& a1, ANumber& a2);
|
||
|
|
void Subtract(ANumber& aResult, ANumber& a1, ANumber& a2);
|
||
|
|
void Multiply(ANumber& aResult, ANumber& a1, ANumber& a2);
|
||
|
|
void Divide(ANumber& aQuotient, ANumber& aRemainder, ANumber& a1, ANumber& a2);
|
||
|
|
LispBoolean GreaterThan(ANumber& a1, ANumber& a2);
|
||
|
|
LispBoolean LessThan(ANumber& a1, ANumber& a2);
|
||
|
|
void BaseShiftRight(ANumber& a, LispInt aNrBits);
|
||
|
|
void BaseShiftLeft(ANumber& a, LispInt aNrBits);
|
||
|
|
void BaseGcd(ANumber& aResult, ANumber& a1, ANumber& a2);
|
||
|
|
void Sqrt(ANumber& aResult, ANumber& N);
|
||
|
|
|
||
|
|
void PrintNumber(char* prefix,ANumber& aNumber);
|
||
|
|
|
||
|
|
#define CORRECT_DIVISION
|
||
|
|
void NormalizeFloat(ANumber& a2, LispInt digitsNeeded);
|
||
|
|
|
||
|
|
|
||
|
|
#include "anumber.inl"
|
||
|
|
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|