absdecimalrounding.hpp

Absolute Database 5.12 src. Absolute Database lets you forget the Borland Database Engine (BDE). Th

// Borland C++ Builder
// Copyright (c) 1995, 2005 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Absdecimalrounding.pas' rev: 10.00

#ifndef AbsdecimalroundingHPP
#define AbsdecimalroundingHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member functions
#pragma pack(push,8)
#include <System.hpp>	// Pascal unit
#include <Sysinit.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Absdecimalrounding
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum tDecimalRoundingCtrl { drNone, drHalfEven, drHalfPos, drHalfNeg, drHalfDown, drHalfUp, drRndNeg, drRndPos, drRndDown, drRndUp };
#pragma option pop

struct ABSDecimalRounding__1
{
	
public:
	SmallString<9>  Abbr;
	SmallString<59>  Dscr;
} ;

//-- var, const, procedure ---------------------------------------------------
static const Extended SglEps = 1.192093E-07;
static const Extended DblEps = 2.220446E-16;
static const Extended ExtEps = 1.084202E-19;
static const Extended KnownErrorLimit = 1.234375E+00;
static const Shortint SafetyFactor = 0x2;
static const Extended MaxRelErrSgl = 2.942979E-07;
static const Extended MaxRelErrDbl = 5.481726E-16;
static const Extended MaxRelErrExt = 2.676624E-19;
extern PACKAGE ABSDecimalRounding__1 DecimalRoundingCtrlStrs[10];
static const Shortint IM = 0x1;
static const Shortint DM = 0x2;
static const Shortint ZM = 0x4;
static const Shortint OM = 0x8;
static const Shortint UM = 0x10;
static const Shortint PM = 0x20;
static const Shortint IntrM = 0x3f;
static const Word PC = 0x300;
static const Word RC = 0xc00;
static const Shortint pcSingle = 0x0;
static const Word pcDouble = 0x200;
static const Word pcExtended = 0x300;
static const Shortint rcBankers = 0x0;
static const Word rcFloor = 0x400;
static const Word rcCeil = 0x800;
static const Word rcChop = 0xc00;
extern PACKAGE Extended __fastcall DecimalRound(Extended Value, int NDFD, double MaxRelErr, tDecimalRoundingCtrl Ctrl = (tDecimalRoundingCtrl)(0x1));
extern PACKAGE Extended __fastcall DecimalRoundSgl(float Value, int NDFD, tDecimalRoundingCtrl Ctrl = (tDecimalRoundingCtrl)(0x1));
extern PACKAGE Extended __fastcall DecimalRoundDbl(double Value, int NDFD, tDecimalRoundingCtrl Ctrl = (tDecimalRoundingCtrl)(0x1));
extern PACKAGE Extended __fastcall DecimalRoundExt(Extended Value, int NDFD, tDecimalRoundingCtrl Ctrl = (tDecimalRoundingCtrl)(0x1));
extern PACKAGE void __fastcall CalcEpsValues(double &SglEps, double &DblEps, double &ExtEps);
extern PACKAGE bool __fastcall IsNAN(const float sgl)/* overload */;
extern PACKAGE bool __fastcall IsNAN(const double dbl)/* overload */;
extern PACKAGE bool __fastcall IsNAN(const Extended ext)/* overload */;
extern PACKAGE Word __fastcall GetX87CW(void);
extern PACKAGE bool __fastcall IsFpuCwOkForRounding(void);
extern PACKAGE void __fastcall LoadDecimalRoundingCtrlAbbrs(const Classes::TStrings* Strings);

}	/* namespace Absdecimalrounding */
using namespace Absdecimalrounding;
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Absdecimalrounding