/* big.h */

/* Wesley Loewer's Big Numbers.        (C) 1994, Wesley B. Loewer */

#ifndef _BIG_H
#define _BIG_H

/*************************************************************
 The following allows the programmer to customize routines.
 They can be selected here or on the compiler command line.
**************************************************************/

/* different pointer versions: near, based, far                    */
/* huge pointers is not supported in assembly, only in C           */
/* uncomment only ONE of these or declare on compiler command line */
/* #define BIG_NEAR   */
#if defined(_MSC_VER)
#   define BIG_BASED    
#elif defined( __BORLANDC__)  
#   define BIG_FAR    
#endif
/* #define BIG_HUGE   */  /* C code only */
/* #define BIG_ANSI_C */  /* C code only */
/* In DOS, BIG_ANSI_C uses default pointer for model selected */


/* Number of bytes to use for integer part for fixed decimal math, */
/* does not effect floating point math at all. */
#define BN_INT_LENGTH 4

/* #define CALCULATING_BIG_PI */ /* define for generating big_pi[] table */

/****************************************************************
 The rest is handled by the compiler
****************************************************************/

#ifndef BIG_NEAR
#ifndef BIG_BASED
#ifndef BIG_FAR
#ifndef BIG_HUGE
#ifndef BIG_ANSI_C
#error BIG_NEAR, BIG_BASED, BIG_FAR, BIG_HUGE, or BIG_ANSI_C must be defined.
#endif
#endif
#endif
#endif
#endif

#define LOG10_256 2.4082399653118
#define LOG_256   5.5451774444795

/* values that bf_math can hold, */
/* 0 = bf_math is not being used */
/* 1 = bf_math is being used     */
#define BIGNUM 1  /* bf_math is being used with bn_t numbers */
#define BIGFLT 2  /* bf_math is being used with bf_t numbers */


/* use this for dynamic allocation */
#ifdef BIG_NEAR
extern _segment bignum_seg;
#define BIGDIST             __near
#define BIG_NULL            NULL
#define BIG_SIZE_T          size_t
#define big_malloc(size)    _nmalloc(size)
#define big_free(ptr)       _nfree(ptr)
#endif

#ifdef BIG_BASED
extern _segment bignum_seg;
#define BIGDIST             __based(bignum_seg)
#define BIG_NULL            _NULLOFF
#define BIG_SIZE_T          size_t
#define big_malloc(size)    _bmalloc(bignum_seg, (size))
#define big_free(ptr)       _bfree( bignum_seg, (ptr))
#endif

#ifdef BIG_FAR
#define BIGDIST             __far
#define BIG_NULL            NULL
#define BIG_SIZE_T          size_t
#define big_malloc(size)    _fmalloc( size )
#define big_free(ptr)       _ffree(ptr)
#endif

#ifdef BIG_HUGE
#define BIGDIST             __huge
#define BIG_NULL            NULL
#define BIG_SIZE_T          long
#define big_malloc(size)    _halloc( (size), 1 )
#define big_free(ptr)       _hfree(ptr)
#endif

#ifdef BIG_ANSI_C
#define USE_BIGNUM_C_CODE
#define BIGDIST
#define BIG_NULL            NULL
#define BIG_SIZE_T          size_t
#define big_malloc(size)    malloc(size)
#define big_free(ptr)       free(ptr)
#endif

typedef unsigned char BIGDIST * big_t;
#define bn_t   big_t  /* for clarification purposes */
#define bf_t   big_t
#define bf10_t big_t

#if 0 /* remove for Fractint */
struct Complex
{
   LDBL x;
   LDBL y;
};
typedef struct Complex    _CMPLX;
#else
#include "cmplx.h"
#endif

struct BFComplex
{
   bn_t x;
   bn_t y;
};
typedef struct BFComplex  _BFCMPLX;

struct BNComplex
{
   bn_t x;
   bn_t y;
};
typedef struct BNComplex  _BNCMPLX;

/* globals */
extern int fpu;
extern int cpu;

extern int bf_math;

extern int bnstep, intlength;
extern int bnlength, rlength,   padding,   decimals,   shiftfactor;
extern int bflength, rbflength, bfpadding, bfdecimals;

extern bn_t bntmp1, bntmp2, bntmp3, bntmp4, bntmp5, bntmp6;  /* rlength */
extern bn_t bntest1, bntest2, bntest3;                       /* rlength */
extern bn_t bntmpcpy1, bntmpcpy2;                            /* bnlength */
extern bn_t bn_pi;
extern bn_t bntmp;                                           /* rlength  */

extern bf_t bftmp1, bftmp2, bftmp3, bftmp4, bftmp5, bftmp6;  /* rbflength+2 */
extern bf_t bftest1, bftest2, bftest3;                       /* rbflength+2 */
extern bf_t bftmpcpy1, bftmpcpy2;                            /* bflength+2  */
extern bf_t bf_pi;
extern bf_t bftmp;                                           /* rbflength  */

extern bf10_t bf10tmp;                                            /* dec+4 */
extern big_t big_pi;


/* functions defined in biginit.c */

big_t big_alloc(size_t size);
/* void big_free(big_t memblock); now defined as a macro above */

void calc_lengths(void);
void init_big_dec(int dec);
void init_big_length(int bnl);
void init_big_pi(void);


/* functions defined in bignuma.asm or bignumc.c */
extern bn_t clear_bn(bn_t r);
extern bn_t max_bn(bn_t r);
extern bn_t copy_bn(bn_t r, bn_t n);
extern int cmp_bn(bn_t n1, bn_t n2);
extern int is_bn_neg(bn_t n);
extern int is_bn_not_zero(bn_t n);
extern bn_t add_bn(bn_t r, bn_t n1, bn_t n2);
extern bn_t add_a_bn(bn_t r, bn_t n);
extern bn_t sub_bn(bn_t r, bn_t n1, bn_t n2);
extern bn_t sub_a_bn(bn_t r, bn_t n);
extern bn_t neg_bn(bn_t r, bn_t n);
extern bn_t neg_a_bn(bn_t r);
extern bn_t double_bn(bn_t r, bn_t n);
extern bn_t double_a_bn(bn_t r);
extern bn_t half_bn(bn_t r, bn_t n);
extern bn_t half_a_bn(bn_t r);
extern bn_t unsafe_full_mult_bn(bn_t r, bn_t n1, bn_t n2);
extern bn_t unsafe_mult_bn(bn_t r, bn_t n1, bn_t n2);
extern bn_t unsafe_full_square_bn(bn_t r, bn_t n);
extern bn_t unsafe_square_bn(bn_t r, bn_t n);
extern bn_t mult_bn_int(bn_t r, bn_t n, U16 u);
extern bn_t mult_a_bn_int(bn_t r, U16 u);
extern bn_t unsafe_div_bn_int(bn_t r, bn_t n, U16 u);
extern bn_t div_a_bn_int(bn_t r, U16 u);

/* used to be in bigflta.asm or bigfltc.c */
extern bf_t clear_bf(bf_t r);
extern bf_t copy_bf(bf_t r, bf_t n);
extern bf_t floattobf(bf_t r, LDBL f);
extern LDBL bftofloat(bf_t n);
extern LDBL bntofloat(bn_t n);
extern LDBL extract_256(LDBL f, int *exp_ptr);
extern LDBL scale_256( LDBL f, int n );

/* functions defined in bignum.c */
#ifdef ACCESS_BY_BYTE
/* prototypes */
extern U32 big_access32(BYTE BIGDIST *addr);
extern U16 big_access16(BYTE BIGDIST *addr);
extern S16 big_accessS16(S16 BIGDIST *addr);
extern U32 big_set32(BYTE BIGDIST *addr, U32 val);
extern U16 big_set16(BYTE BIGDIST *addr, U16 val);
extern S16 big_setS16(S16 BIGDIST *addr, S16 val);
#else
/* equivalent defines */
#define big_access32(addr)   (*(U32 BIGDIST *)(addr))
#define big_access16(addr)   (*(U16 BIGDIST *)(addr))
#define big_accessS16(addr)   (*(S16 BIGDIST *)(addr))
#define big_set32(addr, val) (*(U32 BIGDIST *)(addr) = (U32)(val))
#define big_set16(addr, val) (*(U16 BIGDIST *)(addr) = (U16)(val))
#define big_setS16(addr, val) (*(S16 BIGDIST *)(addr) = (S16)(val))
#endif

extern void bn_hexdump(bn_t r);
extern bn_t strtobn(bn_t r, char *s);
extern char *unsafe_bntostr(char *s, int dec, bn_t r);
extern bn_t inttobn(bn_t r, long longval);
extern long bntoint(bn_t n);

extern int  sign_bn(bn_t n);
extern bn_t abs_bn(bn_t r, bn_t n);
extern bn_t abs_a_bn(bn_t r);
extern bn_t unsafe_inv_bn(bn_t r, bn_t n);
extern bn_t unsafe_div_bn(bn_t r, bn_t n1, bn_t n2);
extern bn_t sqrt_bn(bn_t r, bn_t n);
extern bn_t exp_bn(bn_t r, bn_t n);
extern bn_t unsafe_ln_bn(bn_t r, bn_t n);
extern bn_t unsafe_sincos_bn(bn_t s, bn_t c, bn_t n);
extern bn_t unsafe_atan_bn(bn_t r, bn_t n);
extern bn_t unsafe_atan2_bn(bn_t r, bn_t ny, bn_t nx);
extern int convert_bn(bn_t new,bn_t old,int newbnlength,int newintlength,int oldbnlength,int oldintlength);

    /* "safe" versions */
extern bn_t full_mult_bn(bn_t r, bn_t n1, bn_t n2);
extern bn_t mult_bn(bn_t r, bn_t n1, bn_t n2);
extern bn_t full_square_bn(bn_t r, bn_t n);
extern bn_t square_bn(bn_t r, bn_t n);
extern bn_t div_bn_int(bn_t r, bn_t n, U16 u);
extern char *bntostr(char *s, int dec, bn_t r);
extern bn_t inv_bn(bn_t r, bn_t n);
extern bn_t div_bn(bn_t r, bn_t n1, bn_t n2);
extern bn_t ln_bn(bn_t r, bn_t n);
extern bn_t sincos_bn(bn_t s, bn_t c, bn_t n);
extern bn_t atan_bn(bn_t r, bn_t n);
extern bn_t atan2_bn(bn_t r, bn_t ny, bn_t nx);

    /* misc */
extern int is_bn_zero(bn_t n);
extern bn_t floattobn(bn_t r, LDBL f);

/************/
/* bigflt.c */
extern void bf_hexdump(bf_t r);
extern bf_t strtobf(bf_t r, char *s);
extern int strlen_needed_bf();
extern char *unsafe_bftostr(char *s, int dec, bf_t r);
extern char *unsafe_bftostr_e(char *s, int dec, bf_t r);
extern char *unsafe_bftostr_f(char *s, int dec, bf_t r);
extern bn_t bftobn(bn_t n, bf_t f);
extern bn_t bntobf(bf_t f, bn_t n);
extern long bftoint(bf_t f);
extern bf_t inttobf(bf_t r, long longval);

extern int sign_bf(bf_t n);
extern bf_t abs_bf(bf_t r, bf_t n);
extern bf_t abs_a_bf(bf_t r);
extern bf_t unsafe_inv_bf(bf_t r, bf_t n);
extern bf_t unsafe_div_bf(bf_t r, bf_t n1, bf_t n2);
extern bf_t unsafe_sqrt_bf(bf_t r, bf_t n);
extern bf_t exp_bf(bf_t r, bf_t n);
extern bf_t unsafe_ln_bf(bf_t r, bf_t n);
extern bf_t unsafe_sincos_bf(bf_t s, bf_t c, bf_t n);
extern bf_t unsafe_atan_bf(bf_t r, bf_t n);
extern bf_t unsafe_atan2_bf(bf_t r, bf_t ny, bf_t nx);

extern bf_t add_bf(bf_t r, bf_t n1, bf_t n2);
extern bf_t add_a_bf(bf_t r, bf_t n);
extern bf_t sub_bf(bf_t r, bf_t n1, bf_t n2);
extern bf_t sub_a_bf(bf_t r, bf_t n);
extern bf_t full_mult_bf(bf_t r, bf_t n1, bf_t n2);
extern bf_t mult_bf(bf_t r, bf_t n1, bf_t n2);
extern bf_t full_square_bf(bf_t r, bf_t n);
extern bf_t square_bf(bf_t r, bf_t n);
extern bf_t mult_bf_int(bf_t r, bf_t n, U16 u);
extern bf_t div_bf_int(bf_t r, bf_t n,  U16 u);

extern char *bftostr(char *s, int dec, bf_t r);
extern char *bftostr_e(char *s, int dec, bf_t r);
extern char *bftostr_f(char *s, int dec, bf_t r);
extern bf_t inv_bf(bf_t r, bf_t n);
extern bf_t div_bf(bf_t r, bf_t n1, bf_t n2);
extern bf_t sqrt_bf(bf_t r, bf_t n);
extern bf_t ln_bf(bf_t r, bf_t n);
extern bf_t sincos_bf(bf_t s, bf_t c, bf_t n);
extern bf_t atan_bf(bf_t r, bf_t n);
extern bf_t atan2_bf(bf_t r, bf_t ny, bf_t nx);
extern int is_bf_zero(bf_t n);
extern int convert_bf(bf_t new, bf_t old, int newbflength, int oldbflength);

extern LDBL extract_value(LDBL f, LDBL b, int *exp_ptr);
extern LDBL scale_value( LDBL f, LDBL b , int n );
extern LDBL extract_10(LDBL f, int *exp_ptr);
extern LDBL scale_10( LDBL f, int n );

extern bf10_t unsafe_bftobf10(bf10_t s, int dec, bf_t n);
extern bf10_t mult_a_bf10_int(bf10_t s, int dec, U16 n);
extern bf10_t div_a_bf10_int (bf10_t s, int dec, U16 n);
extern char  *bf10tostr_e(char *s, int dec, bf10_t n);
extern char  *bf10tostr_f(char *s, int dec, bf10_t n);

/* functions defined in bigfltc.c */
extern bf_t norm_bf(bf_t r);
extern void norm_sign_bf(bf_t r, int positive);
extern S16 adjust_bf_add(bf_t n1, bf_t n2);
extern bf_t max_bf(bf_t r);
extern int cmp_bf(bf_t n1, bf_t n2);
extern int is_bf_neg(bf_t n);
extern int is_bf_not_zero(bf_t n);
extern bf_t unsafe_add_bf(bf_t r, bf_t n1, bf_t n2);
extern bf_t unsafe_add_a_bf(bf_t r, bf_t n);
extern bf_t unsafe_sub_bf(bf_t r, bf_t n1, bf_t n2);
extern bf_t unsafe_sub_a_bf(bf_t r, bf_t n);
extern bf_t neg_bf(bf_t r, bf_t n);
extern bf_t neg_a_bf(bf_t r);
extern bf_t double_bf(bf_t r, bf_t n);
extern bf_t double_a_bf(bf_t r);
extern bf_t half_bf(bf_t r, bf_t n);
extern bf_t half_a_bf(bf_t r);
extern bf_t unsafe_full_mult_bf(bf_t r, bf_t n1, bf_t n2);
extern bf_t unsafe_mult_bf(bf_t r, bf_t n1, bf_t n2);
extern bf_t unsafe_full_square_bf(bf_t r, bf_t n);
extern bf_t unsafe_square_bf(bf_t r, bf_t n);
extern bf_t unsafe_mult_bf_int(bf_t r, bf_t n, U16 u);
extern bf_t mult_a_bf_int(bf_t r, U16 u);
extern bf_t unsafe_div_bf_int(bf_t r, bf_t n,  U16 u);
extern bf_t div_a_bf_int(bf_t r, U16 u);

/****************************/
/* bigcmplx.c */
extern _CMPLX cmplxbntofloat(_BNCMPLX *s);
extern _CMPLX cmplxbftofloat(_BFCMPLX *s);
extern _BFCMPLX *cmplxlog_bf(_BFCMPLX *t, _BFCMPLX *s);
extern _BFCMPLX *cplxmul_bf( _BFCMPLX *t, _BFCMPLX *x, _BFCMPLX *y);
extern _BFCMPLX *ComplexPower_bf(_BFCMPLX *t, _BFCMPLX *xx, _BFCMPLX *yy);
extern _BNCMPLX *ComplexPower_bn(_BNCMPLX *t, _BNCMPLX *xx, _BNCMPLX *yy);
extern _BNCMPLX *cmplxlog_bn(_BNCMPLX *t, _BNCMPLX *s);
extern _BNCMPLX *cplxmul_bn( _BNCMPLX *t, _BNCMPLX *x, _BNCMPLX *y);

#include "biginit.h" /* fractint only */

#endif /* _BIG_H */