112 lines
3.8 KiB
C
112 lines
3.8 KiB
C
/* Copyright Digital Equipment Corporation & INRIA 1988 */
|
|
/* Last modified on Wed Feb 14 16:20:34 GMT+1:00 1990 by herve */
|
|
/* modified on 17-OCT-1989 20:23:23.17 by Jim Lawton SDE/Galway */
|
|
|
|
/* BntoBnn.h: allowing to use the new interfaces of KerN */
|
|
|
|
|
|
#ifdef __STDC__
|
|
#include <stdlib.h>
|
|
#else
|
|
#ifndef VMS
|
|
extern char *malloc();
|
|
#endif
|
|
#endif
|
|
|
|
/* old types of Bn */
|
|
|
|
typedef unsigned int BigNumType; /* A BigNum's type */
|
|
|
|
struct BigNumHeader /* The header of a BigNum */
|
|
{
|
|
BigNumType type;
|
|
int length;
|
|
};
|
|
|
|
|
|
/* macros of old types of Bn */
|
|
|
|
#define BN_TYPE(n) (((struct BigNumHeader *) n) - 1)->type
|
|
#define BN_LENGTH(n) (((struct BigNumHeader *) n) - 1)->length
|
|
|
|
|
|
/* macros of functions of Bn to functions Bnn */
|
|
|
|
#define BnIsZero(n, nd, nl) BnnIsZero ((n+nd), nl)
|
|
#define BnMultiply(p, pd, pl, m, md, ml, n, nd, nl) BnnMultiply ((p+pd), pl, (m+md), ml, (n+nd), nl)
|
|
#define BnDivide(n, nd, nl, d, dd, dl) BnnDivide ((n+nd), nl, (d+dd), dl)
|
|
#define BnCompare(m, md, ml, n, nd, nl) BnnCompare ((m+md), ml, (n+nd), nl)
|
|
#define BnSetToZero(n, nd, nl) BnnSetToZero ((n+nd), nl)
|
|
#define BnAssign(m, md, n, nd, nl) BnnAssign ((m+md), (n+nd), nl)
|
|
#define BnSetDigit(n, nd, d) BnnSetDigit ((n+nd), d)
|
|
#define BnGetDigit(n, nd) BnnGetDigit ((n+nd))
|
|
#define BnNumDigits(n, nd, nl) BnnNumDigits ((n+nd), nl)
|
|
#define BnNumLeadingZeroBitsInDigit(n, nd) BnnNumLeadingZeroBitsInDigit (*(n+nd))
|
|
#define BnDoesDigitFitInWord(n, nd) BnnDoesDigitFitInWord (*(n+nd))
|
|
#define BnIsDigitZero(n, nd) BnnIsDigitZero (*(n+nd))
|
|
#define BnIsDigitNormalized(n, nd) BnnIsDigitNormalized (*(n+nd))
|
|
#define BnIsDigitOdd(n, nd) BnnIsDigitOdd (*(n+nd))
|
|
#define BnCompareDigits(m, md, n, nd) BnnCompareDigits (*(m+md), *(n+nd))
|
|
#define BnComplement(n, nd, nl) BnnComplement ((n+nd), nl)
|
|
#define BnAndDigits(m, md, n, nd) BnnAndDigits ((m+md), *(n+nd))
|
|
#define BnOrDigits(m, md, n, nd) BnnOrDigits ((m+md), *(n+nd))
|
|
#define BnXorDigits(m, md, n, nd) BnnXorDigits ((m+md), *(n+nd))
|
|
#define BnShiftLeft(m, md, ml, n, nd, nbits) *(n+nd) = BnnShiftLeft ((m+md), ml, nbits)
|
|
#define BnShiftRight(m, md, ml, n, nd, nbits) *(n+nd) = BnnShiftRight ((m+md), ml, nbits)
|
|
#define BnAddCarry(n, nd, nl, carryin) BnnAddCarry ((n+nd), nl, carryin)
|
|
#define BnAdd(m, md, ml, n, nd, nl, carryin) BnnAdd ((m+md), ml, (n+nd), nl, carryin)
|
|
#define BnSubtractBorrow(n, nd, nl, carryin) BnnSubtractBorrow ((n+nd), nl, carryin)
|
|
#define BnSubtract(m, md, ml, n, nd, nl, carryin) BnnSubtract ((m+md), ml, (n+nd), nl, carryin)
|
|
#define BnMultiplyDigit(p, pd, pl, m, md, ml, n, nd) BnnMultiplyDigit ((p+pd), pl, (m+md), ml, *(n+nd))
|
|
#define BnDivideDigit(q, qd, r, rd, n, nd, nl, d, dd) *(r+rd) = BnnDivideDigit ((q+qd), (n+nd), nl, *(d+dd))
|
|
|
|
|
|
/* old functions of Bn */
|
|
|
|
/*
|
|
* Creation and access to type and length fields.
|
|
*/
|
|
|
|
/* Allocates a BigNum structure and returns a pointer to it */
|
|
BigNum BnAlloc(size) int size; {
|
|
register BigNum n;
|
|
|
|
n = (BigNum) ((char *) malloc(sizeof(struct BigNumHeader) +
|
|
size * sizeof(BigNumDigit))
|
|
+ sizeof(struct BigNumHeader));
|
|
BN_LENGTH(n) = size;
|
|
return(n);
|
|
}
|
|
|
|
/* Allocates a BigNum, inserts its Type, and returns a pointer to it */
|
|
BigNum BnCreate(type, size) BigNumType type; int size; {
|
|
register BigNum n;
|
|
|
|
n = BnAlloc(size);
|
|
BN_TYPE(n) = type;
|
|
BnSetToZero(n, 0, size);
|
|
return(n);
|
|
}
|
|
|
|
/* Frees a BigNum structure */
|
|
int BnFree(n) BigNum n; {
|
|
free(((struct BigNumHeader *) n) - 1);
|
|
return 1;
|
|
}
|
|
|
|
/* Returns the BigNum's Type */
|
|
BigNumType BnGetType(n) BigNum n; {
|
|
return(BN_TYPE(n));
|
|
}
|
|
|
|
/* Sets the BigNum's Type */
|
|
void BnSetType(n, type) BigNum n; BigNumType type; {
|
|
BN_TYPE(n) = type;
|
|
}
|
|
|
|
/* Returns the number of digits allocated for the BigNum */
|
|
int BnGetSize(n) BigNum n; {
|
|
return(BN_LENGTH(n));
|
|
}
|
|
|