98 lines
2.1 KiB
C
98 lines
2.1 KiB
C
|
/* Copyright Digital Equipment Corporation & INRIA 1988, 1989 */
|
|||
|
|
/* Last modified_on Fri Oct 5 16:45:46 GMT+1:00 1990 by herve */
|
|||
|
|
/* modified_on Thu Mar 22 21:29:09 GMT+1:00 1990 by shand */
|
|||
|
|
|
|||
|
|
/* BigZ.h: Types and structures for clients of BigZ */
|
|||
|
|
|
|||
|
|
|
|||
|
|
/* BigZ sign */
|
|||
|
|
|
|||
|
|
|
|||
|
|
#define BZ_PLUS 1
|
|||
|
|
#define BZ_ZERO 0
|
|||
|
|
#define BZ_MINUS -1
|
|||
|
|
#define BzSign BigNumCmp
|
|||
|
|
|
|||
|
|
|
|||
|
|
/* BigZ compare result */
|
|||
|
|
|
|||
|
|
|
|||
|
|
#define BZ_LT BN_LT
|
|||
|
|
#define BZ_EQ BN_EQ
|
|||
|
|
#define BZ_GT BN_GT
|
|||
|
|
#define BzCmp BigNumCmp
|
|||
|
|
|
|||
|
|
|
|||
|
|
/* BigZ number */
|
|||
|
|
|
|||
|
|
#ifndef BIGNUM
|
|||
|
|
#include "BigNum.h"
|
|||
|
|
#endif
|
|||
|
|
|
|||
|
|
struct BigZHeader
|
|||
|
|
{
|
|||
|
|
BigNumLength Size;
|
|||
|
|
BzSign Sign;
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
|
|||
|
|
struct BigZStruct
|
|||
|
|
{
|
|||
|
|
struct BigZHeader Header;
|
|||
|
|
BigNumDigit Digits [16];
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
|
|||
|
|
typedef struct BigZStruct * BigZ;
|
|||
|
|
|
|||
|
|
/* */
|
|||
|
|
|
|||
|
|
|
|||
|
|
/*********** macros of bz.c **********/
|
|||
|
|
|
|||
|
|
|
|||
|
|
#define BzGetSize(z) ((BigNumLength)(z)->Header.Size)
|
|||
|
|
#define BzGetSign(z) ((z)->Header.Sign)
|
|||
|
|
|
|||
|
|
#define BzSetSize(z,s) (z)->Header.Size = s
|
|||
|
|
#define BzSetSign(z,s) (z)->Header.Sign = s
|
|||
|
|
|
|||
|
|
#define BzGetOppositeSign(z) (-(z)->Header.Sign)
|
|||
|
|
|
|||
|
|
|
|||
|
|
/*********** functions of bz.c **********/
|
|||
|
|
|
|||
|
|
extern void BzInit __((void));
|
|||
|
|
extern void BzClose __((void));
|
|||
|
|
|
|||
|
|
extern BigZ BzCreate __((BigNumLength));
|
|||
|
|
extern void BzFree __((BigZ));
|
|||
|
|
extern void BzFreeString __((char *));
|
|||
|
|
|
|||
|
|
extern BigNumLength BzNumDigits __((BigZ));
|
|||
|
|
|
|||
|
|
extern BigZ BzCopy __((BigZ));
|
|||
|
|
extern BigZ BzNegate __((BigZ));
|
|||
|
|
extern BigZ BzAbs __((BigZ));
|
|||
|
|
extern BigNumCmp BzCompare __((BigZ, BigZ));
|
|||
|
|
|
|||
|
|
extern BigZ BzAdd __((BigZ, BigZ));
|
|||
|
|
extern BigZ BzSubtract __((BigZ, BigZ));
|
|||
|
|
extern BigZ BzMultiply __((BigZ, BigZ));
|
|||
|
|
extern BigZ BzDivide __((BigZ, BigZ, BigZ *));
|
|||
|
|
extern BigZ BzDiv __((BigZ, BigZ));
|
|||
|
|
extern BigZ BzMod __((BigZ, BigZ));
|
|||
|
|
|
|||
|
|
extern BigZ BzFromString __((char *, BigNumDigit));
|
|||
|
|
extern char * BzToString __((BigZ, BigNumDigit));
|
|||
|
|
|
|||
|
|
extern BigZ BzFromInteger __((int));
|
|||
|
|
extern int BzToInteger __((BigZ));
|
|||
|
|
|
|||
|
|
extern BigZ BzFromBigNum __((BigNum, BigNumLength));
|
|||
|
|
extern BigNum BzToBigNum __((BigZ, BigNumLength *));
|
|||
|
|
|
|||
|
|
/*********** functions of bzf.c **********/
|
|||
|
|
|
|||
|
|
extern BigZ BzFactorial __((BigZ));
|