extreal.h

Go to the documentation of this file.

//& *** (c) 2006-2011 The HPGCC3 Team ***
//& Claudio Lapilli
//& Ingo Blank
//&
//& This file is licensed under the terms and conditions of the
//& HPGCC3 license that is included with the source distribution.
//& *** (c) 2006-2011 The HPGCC3 Team ***


// TYPE DEFINITIONS

// EXTENDED REAL FORMAT:
// BASE-2:
//         * LEFT-JUSTIFIED MANTISSA, BASE-2 EXPONENT
// BASE-10:
//         * INTEGER BASE-10 MANTISSA, BASE-10 EXPONENT

#ifndef _XREAL_H

#define _XREAL_H

typedef struct {
unsigned long long Mant;  // 64-BIT MANTISSA, LEFT OR RIGHT JUSTIFIED
signed Exp:31;                  // 31-BIT SIGNED EXPONENT
unsigned Sign:1;                            // 1-BIT SIGN
} XREAL;

// MACRO REPLACEMENT FOR TRIVIAL FUNCTIONS

#define xr_xr2uint(num) ((unsigned int)xr_xr2ullong(num))

// GENERAL STRING CONVERSION ROUTINES REPLACED BY MACROS

struct conversion_data {
unsigned int flags;
int width;
int precision;
int base;
int type;
};

void xr_10pow(int exp10,XREAL *value);
char *xr_atoxr(const char *str,XREAL *res);

char *xr_xrtoa(XREAL *number, struct conversion_data *data);



void xr_base2(XREAL *base10,XREAL *res);
void xr_base10(XREAL *base2,XREAL *res);
void xr_div(XREAL *num,XREAL *div,XREAL *result);
void xr_mul(XREAL *num1,XREAL *num2,XREAL *result);
void xr_add(XREAL *num1,XREAL *num2,XREAL *result);
void xr_sub(XREAL *num1,XREAL *num2,XREAL *result);
void xr_double2xr(double val,XREAL *num);
void xr_int2xr(int val,XREAL *num);
void xr_llong2xr(long long val,XREAL *num);
void xr_uint2xr(unsigned int val,XREAL *num);
void xr_ullong2xr(unsigned long long val,XREAL *num);
double xr_xr2double(XREAL *num);
long long xr_xr2llong(XREAL *num);
int xr_xr2int(XREAL *num);
unsigned long long xr_xr2ullong(XREAL *num);

int xr_getbasedigit(char num,int base);
unsigned long long xr_getbaselimit(int base);
int xr_getdigits10(XREAL *xr,char *buffer);
int xr_getdigits(XREAL *num,char *buffer,int base);
int xr_getnumbits(int number);

#define LN2_LN10  1292913987LL

#endif