mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-20 14:19:18 +02:00
b1c0ea895b
can disable with USE_BIGNUMS=0 - the interactions between this and USE_FLONUMS are messy, so they will likely be merged into a single option in the near future (i.e. you either have only fixnums, or a full range of numeric types). adding rationals based on this would be easy and is a likely future feature. adding native support for complex numbers is unlikely.
33 lines
1.4 KiB
C
33 lines
1.4 KiB
C
/* bignum.h -- header for bignum utilities */
|
|
/* Copyright (c) 2009 Alex Shinn. All rights reserved. */
|
|
/* BSD-style license: http://synthcode.com/license.txt */
|
|
|
|
#ifndef SEXP_BIGNUM_H
|
|
#define SEXP_BIGNUM_H
|
|
|
|
typedef unsigned long long sexp_luint_t;
|
|
typedef long long sexp_lsint_t;
|
|
|
|
sexp_sint_t sexp_bignum_compare (sexp a, sexp b);
|
|
sexp sexp_compare (sexp ctx, sexp a, sexp b);
|
|
sexp sexp_make_bignum (sexp ctx, sexp_uint_t len);
|
|
sexp sexp_copy_bignum (sexp ctx, sexp dst, sexp a, sexp_uint_t len);
|
|
sexp sexp_fixnum_to_bignum (sexp ctx, sexp a);
|
|
double sexp_bignum_to_double (sexp a);
|
|
sexp sexp_bignum_fxadd (sexp ctx, sexp a, sexp_uint_t b);
|
|
sexp sexp_bignum_fxmul (sexp ctx, sexp d, sexp a, sexp_uint_t b, int offset);
|
|
sexp_uint_t sexp_bignum_fxdiv (sexp ctx, sexp a, sexp_uint_t b, int offset);
|
|
sexp sexp_bignum_add (sexp ctx, sexp dst, sexp a, sexp b);
|
|
sexp sexp_bignum_sub (sexp ctx, sexp dst, sexp a, sexp b);
|
|
sexp sexp_bignum_mul (sexp ctx, sexp dst, sexp a, sexp b);
|
|
sexp sexp_bignum_div (sexp ctx, sexp dst, sexp a, sexp b);
|
|
sexp sexp_bignum_expt (sexp ctx, sexp n, sexp e);
|
|
sexp sexp_add (sexp ctx, sexp a, sexp b);
|
|
sexp sexp_sub (sexp ctx, sexp a, sexp b);
|
|
sexp sexp_mul (sexp ctx, sexp a, sexp b);
|
|
sexp sexp_div (sexp ctx, sexp a, sexp b);
|
|
sexp sexp_quotient (sexp ctx, sexp a, sexp b);
|
|
sexp sexp_remainder (sexp ctx, sexp a, sexp b);
|
|
|
|
#endif /* ! SEXP_BIGNUM_H */
|
|
|