157 lines
7.0 KiB
C
157 lines
7.0 KiB
C
/* -*-C-*-
|
|
|
|
$Id: s48_bignum.h,v 1.13 2005/12/21 02:36:52 spestov Exp $
|
|
|
|
Copyright (c) 1989-1992 Massachusetts Institute of Technology
|
|
|
|
This material was developed by the Scheme project at the Massachusetts
|
|
Institute of Technology, Department of Electrical Engineering and
|
|
Computer Science. Permission to copy and modify this software, to
|
|
redistribute either the original software or a modified version, and
|
|
to use this software for any purpose is granted, subject to the
|
|
following restrictions and understandings.
|
|
|
|
1. Any copy made of this software must include this copyright notice
|
|
in full.
|
|
|
|
2. Users of this software agree to make their best efforts (a) to
|
|
return to the MIT Scheme project any improvements or extensions that
|
|
they make, so that these may be included in future releases; and (b)
|
|
to inform MIT of noteworthy uses of this software.
|
|
|
|
3. All materials developed as a consequence of the use of this
|
|
software shall duly acknowledge such use, in accordance with the usual
|
|
standards of acknowledging credit in academic research.
|
|
|
|
4. MIT has made no warrantee or representation that the operation of
|
|
this software will be error-free, and MIT is under no obligation to
|
|
provide any services, by way of maintenance, update, or otherwise.
|
|
|
|
5. In conjunction with products arising from the use of this material,
|
|
there shall be no use of the name of the Massachusetts Institute of
|
|
Technology nor of any adaptation thereof in any advertising,
|
|
promotional, or sales literature without prior written consent from
|
|
MIT in each case. */
|
|
|
|
/* External Interface to Bignum Code */
|
|
|
|
/* The `unsigned long' type is used for the conversion procedures
|
|
`bignum_to_long' and `long_to_bignum'. Older implementations of C
|
|
don't support this type; if you have such an implementation you can
|
|
disable these procedures using the following flag (alternatively
|
|
you could write alternate versions that don't require this type). */
|
|
/* #define BIGNUM_NO_ULONG */
|
|
|
|
typedef F_ARRAY * bignum_type;
|
|
#define BIGNUM_OUT_OF_BAND ((bignum_type) 0)
|
|
|
|
enum bignum_comparison
|
|
{
|
|
bignum_comparison_equal = 0,
|
|
bignum_comparison_less = -1,
|
|
bignum_comparison_greater = 1
|
|
};
|
|
|
|
typedef void * bignum_procedure_context;
|
|
int s48_bignum_equal_p(bignum_type, bignum_type);
|
|
enum bignum_comparison s48_bignum_test(bignum_type);
|
|
enum bignum_comparison s48_bignum_compare(bignum_type, bignum_type);
|
|
bignum_type s48_bignum_add(bignum_type, bignum_type);
|
|
bignum_type s48_bignum_subtract(bignum_type, bignum_type);
|
|
bignum_type s48_bignum_negate(bignum_type);
|
|
bignum_type s48_bignum_multiply(bignum_type, bignum_type);
|
|
void
|
|
s48_bignum_divide(bignum_type numerator, bignum_type denominator,
|
|
bignum_type * quotient, bignum_type * remainder);
|
|
bignum_type s48_bignum_quotient(bignum_type, bignum_type);
|
|
bignum_type s48_bignum_remainder(bignum_type, bignum_type);
|
|
DLLEXPORT bignum_type s48_fixnum_to_bignum(F_FIXNUM);
|
|
DLLEXPORT bignum_type s48_cell_to_bignum(CELL);
|
|
DLLEXPORT bignum_type s48_long_to_bignum(long);
|
|
DLLEXPORT bignum_type s48_long_long_to_bignum(s64 n);
|
|
DLLEXPORT bignum_type s48_ulong_long_to_bignum(u64 n);
|
|
DLLEXPORT bignum_type s48_ulong_to_bignum(unsigned long);
|
|
DLLEXPORT bignum_type s48_fixnum_pair_to_bignum(CELL x, F_FIXNUM y);
|
|
F_FIXNUM s48_bignum_to_fixnum(bignum_type);
|
|
CELL s48_bignum_to_cell(bignum_type);
|
|
long s48_bignum_to_long(bignum_type);
|
|
unsigned long s48_bignum_to_ulong(bignum_type);
|
|
s64 s48_bignum_to_long_long(bignum_type);
|
|
u64 s48_bignum_to_ulong_long(bignum_type);
|
|
bignum_type s48_double_to_bignum(double);
|
|
double s48_bignum_to_double(bignum_type);
|
|
int s48_bignum_fits_in_word_p(bignum_type, long word_length,
|
|
int twos_complement_p);
|
|
bignum_type s48_bignum_length_in_bits(bignum_type);
|
|
bignum_type s48_bignum_length_upper_limit(void);
|
|
bignum_type s48_digit_stream_to_bignum
|
|
(unsigned int n_digits,
|
|
unsigned int (*producer(bignum_procedure_context)),
|
|
bignum_procedure_context context,
|
|
unsigned int radix,
|
|
int negative_p);
|
|
long s48_bignum_max_digit_stream_radix(void);
|
|
|
|
/* Added bitwise operators. */
|
|
|
|
DLLEXPORT bignum_type s48_bignum_bitwise_not(bignum_type),
|
|
s48_bignum_arithmetic_shift(bignum_type, long),
|
|
s48_bignum_bitwise_and(bignum_type, bignum_type),
|
|
s48_bignum_bitwise_ior(bignum_type, bignum_type),
|
|
s48_bignum_bitwise_xor(bignum_type, bignum_type);
|
|
|
|
int s48_bignum_oddp(bignum_type);
|
|
long s48_bignum_bit_count(bignum_type);
|
|
|
|
/* Forward references */
|
|
int bignum_equal_p_unsigned(bignum_type, bignum_type);
|
|
enum bignum_comparison bignum_compare_unsigned(bignum_type, bignum_type);
|
|
bignum_type bignum_add_unsigned(bignum_type, bignum_type, int);
|
|
bignum_type bignum_subtract_unsigned(bignum_type, bignum_type);
|
|
bignum_type bignum_multiply_unsigned(bignum_type, bignum_type, int);
|
|
bignum_type bignum_multiply_unsigned_small_factor
|
|
(bignum_type, bignum_digit_type, int);
|
|
void bignum_destructive_scale_up(bignum_type, bignum_digit_type);
|
|
void bignum_destructive_add(bignum_type, bignum_digit_type);
|
|
void bignum_divide_unsigned_large_denominator
|
|
(bignum_type, bignum_type, bignum_type *, bignum_type *, int, int);
|
|
void bignum_destructive_normalization(bignum_type, bignum_type, int);
|
|
void bignum_destructive_unnormalization(bignum_type, int);
|
|
void bignum_divide_unsigned_normalized(bignum_type, bignum_type, bignum_type);
|
|
bignum_digit_type bignum_divide_subtract
|
|
(bignum_digit_type *, bignum_digit_type *, bignum_digit_type,
|
|
bignum_digit_type *);
|
|
void bignum_divide_unsigned_medium_denominator
|
|
(bignum_type, bignum_digit_type, bignum_type *, bignum_type *, int, int);
|
|
bignum_digit_type bignum_digit_divide
|
|
(bignum_digit_type, bignum_digit_type, bignum_digit_type, bignum_digit_type *);
|
|
bignum_digit_type bignum_digit_divide_subtract
|
|
(bignum_digit_type, bignum_digit_type, bignum_digit_type, bignum_digit_type *);
|
|
void bignum_divide_unsigned_small_denominator
|
|
(bignum_type, bignum_digit_type, bignum_type *, bignum_type *, int, int);
|
|
bignum_digit_type bignum_destructive_scale_down
|
|
(bignum_type, bignum_digit_type);
|
|
bignum_type bignum_remainder_unsigned_small_denominator
|
|
(bignum_type, bignum_digit_type, int);
|
|
bignum_type bignum_digit_to_bignum(bignum_digit_type, int);
|
|
bignum_type bignum_allocate(bignum_length_type, int);
|
|
bignum_type bignum_allocate_zeroed(bignum_length_type, int);
|
|
bignum_type bignum_shorten_length(bignum_type, bignum_length_type);
|
|
bignum_type bignum_trim(bignum_type);
|
|
bignum_type bignum_copy(bignum_type);
|
|
bignum_type bignum_new_sign(bignum_type, int);
|
|
bignum_type bignum_maybe_new_sign(bignum_type, int);
|
|
void bignum_destructive_copy(bignum_type, bignum_type);
|
|
/* Unused
|
|
void bignum_destructive_zero(bignum_type);
|
|
*/
|
|
|
|
/* Added for bitwise operations. */
|
|
bignum_type bignum_magnitude_ash(bignum_type arg1, long n);
|
|
bignum_type bignum_pospos_bitwise_op(int op, bignum_type, bignum_type);
|
|
bignum_type bignum_posneg_bitwise_op(int op, bignum_type, bignum_type);
|
|
bignum_type bignum_negneg_bitwise_op(int op, bignum_type, bignum_type);
|
|
void bignum_negate_magnitude(bignum_type);
|
|
long bignum_unsigned_logcount(bignum_type arg);
|
|
int bignum_unsigned_logbitp(int shift, bignum_type bignum);
|