mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-15 08:10:17 +02:00
* conv-integer.i.c, conv-uinteger.i.c: New files, used to generate
the functions below. * numbers.c, numbers.h (scm_to_int8, scm_to_uint8, scm_to_int16, scm_to_uint16, scm_to_int32, scm_to_uint32, scm_to_int64, scm_to_uint64, scm_from_int8, scm_from_uint8, scm_from_int16, scm_from_uint16, scm_from_int32, scm_from_uint32, scm_from_int64, scm_from_uint64): Turned from macros into proper functions. (scm_to_signed_integer, scm_to_unsigned_integer, scm_from_signed_integer, scm_from_unsigned_integer): Generate via conv-integer.i.c and conv-uinteger.i.c, as well.
This commit is contained in:
Marius Vollmer
parent
3bfd202a72
commit
bfd7932e66
4 changed files with 325 additions and 207 deletions
126
libguile/conv-integer.i.c
Normal file
126
libguile/conv-integer.i.c
Normal file
|
|
@ -0,0 +1,126 @@
|
|||
TYPE
|
||||
SCM_TO_TYPE_PROTO (SCM val)
|
||||
{
|
||||
if (SCM_I_INUMP (val))
|
||||
{
|
||||
scm_t_signed_bits n = SCM_I_INUM (val);
|
||||
#if SIZEOF_TYPE != 0 && SIZEOF_TYPE > SIZEOF_SCM_T_BITS
|
||||
return n;
|
||||
#else
|
||||
if (n >= TYPE_MIN && n <= TYPE_MAX)
|
||||
return n;
|
||||
else
|
||||
{
|
||||
goto out_of_range;
|
||||
}
|
||||
#endif
|
||||
}
|
||||
else if (SCM_BIGP (val))
|
||||
{
|
||||
if (TYPE_MIN >= SCM_MOST_NEGATIVE_FIXNUM
|
||||
&& TYPE_MAX <= SCM_MOST_POSITIVE_FIXNUM)
|
||||
goto out_of_range;
|
||||
else if (TYPE_MIN >= LONG_MIN && TYPE_MAX <= LONG_MAX)
|
||||
{
|
||||
if (mpz_fits_slong_p (SCM_I_BIG_MPZ (val)))
|
||||
{
|
||||
long n = mpz_get_si (SCM_I_BIG_MPZ (val));
|
||||
#if SIZEOF_TYPE != 0 && SIZEOF_TYPE > SCM_SIZEOF_LONG
|
||||
return n;
|
||||
#else
|
||||
if (n >= TYPE_MIN && n <= TYPE_MAX)
|
||||
return n;
|
||||
else
|
||||
goto out_of_range;
|
||||
#endif
|
||||
}
|
||||
else
|
||||
goto out_of_range;
|
||||
}
|
||||
else
|
||||
{
|
||||
scm_t_intmax n;
|
||||
size_t count;
|
||||
|
||||
if (mpz_sizeinbase (SCM_I_BIG_MPZ (val), 2)
|
||||
> CHAR_BIT*sizeof (scm_t_uintmax))
|
||||
goto out_of_range;
|
||||
|
||||
mpz_export (&n, &count, 1, sizeof (scm_t_uintmax), 0, 0,
|
||||
SCM_I_BIG_MPZ (val));
|
||||
|
||||
if (mpz_sgn (SCM_I_BIG_MPZ (val)) >= 0)
|
||||
{
|
||||
if (n < 0)
|
||||
goto out_of_range;
|
||||
}
|
||||
else
|
||||
{
|
||||
n = -n;
|
||||
if (n >= 0)
|
||||
goto out_of_range;
|
||||
}
|
||||
|
||||
if (n >= TYPE_MIN && n <= TYPE_MAX)
|
||||
return n;
|
||||
else
|
||||
{
|
||||
out_of_range:
|
||||
scm_out_of_range (NULL, val);
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
scm_wrong_type_arg_msg (NULL, 0, val, "exact integer");
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
|
||||
SCM
|
||||
SCM_FROM_TYPE_PROTO (TYPE val)
|
||||
{
|
||||
#if SIZEOF_TYPE != 0 && SIZEOF_TYPE < SIZEOF_SCM_T_BITS
|
||||
return SCM_I_MAKINUM (val);
|
||||
#else
|
||||
if (SCM_FIXABLE (val))
|
||||
return SCM_I_MAKINUM (val);
|
||||
else if (val >= LONG_MIN && val <= LONG_MAX)
|
||||
{
|
||||
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
|
||||
mpz_init_set_si (SCM_I_BIG_MPZ (z), val);
|
||||
return z;
|
||||
}
|
||||
else
|
||||
{
|
||||
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
|
||||
mpz_init (SCM_I_BIG_MPZ (z));
|
||||
if (val < 0)
|
||||
{
|
||||
val = -val;
|
||||
mpz_import (SCM_I_BIG_MPZ (z), 1, 1, sizeof (TYPE), 0, 0,
|
||||
&val);
|
||||
mpz_neg (SCM_I_BIG_MPZ (z), SCM_I_BIG_MPZ (z));
|
||||
}
|
||||
else
|
||||
mpz_import (SCM_I_BIG_MPZ (z), 1, 1, sizeof (TYPE), 0, 0,
|
||||
&val);
|
||||
return z;
|
||||
}
|
||||
#endif
|
||||
}
|
||||
|
||||
/* clean up */
|
||||
#undef TYPE
|
||||
#undef TYPE_MIN
|
||||
#undef TYPE_MAX
|
||||
#undef SIZEOF_TYPE
|
||||
#undef SCM_TO_TYPE_PROTO
|
||||
#undef SCM_FROM_TYPE_PROTO
|
||||
|
||||
/*
|
||||
Local Variables:
|
||||
c-file-style: "gnu"
|
||||
End:
|
||||
*/
|
||||
95
libguile/conv-uinteger.i.c
Normal file
95
libguile/conv-uinteger.i.c
Normal file
|
|
@ -0,0 +1,95 @@
|
|||
TYPE
|
||||
SCM_TO_TYPE_PROTO (SCM val)
|
||||
{
|
||||
if (SCM_I_INUMP (val))
|
||||
{
|
||||
scm_t_signed_bits n = SCM_I_INUM (val);
|
||||
if (n >= 0
|
||||
&& ((scm_t_uintmax)n) >= TYPE_MIN && ((scm_t_uintmax)n) <= TYPE_MAX)
|
||||
return n;
|
||||
else
|
||||
{
|
||||
out_of_range:
|
||||
scm_out_of_range (NULL, val);
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
else if (SCM_BIGP (val))
|
||||
{
|
||||
if (TYPE_MAX <= SCM_MOST_POSITIVE_FIXNUM)
|
||||
goto out_of_range;
|
||||
else if (TYPE_MAX <= ULONG_MAX)
|
||||
{
|
||||
if (mpz_fits_ulong_p (SCM_I_BIG_MPZ (val)))
|
||||
{
|
||||
unsigned long n = mpz_get_ui (SCM_I_BIG_MPZ (val));
|
||||
#if SIZEOF_TYPE != 0 && SIZEOF_TYPE > SCM_SIZEOF_LONG
|
||||
return n;
|
||||
#else
|
||||
if (n >= TYPE_MIN && n <= TYPE_MAX)
|
||||
return n;
|
||||
else
|
||||
goto out_of_range;
|
||||
#endif
|
||||
}
|
||||
else
|
||||
goto out_of_range;
|
||||
}
|
||||
else
|
||||
{
|
||||
scm_t_uintmax n;
|
||||
size_t count;
|
||||
|
||||
if (mpz_sgn (SCM_I_BIG_MPZ (val)) < 0)
|
||||
goto out_of_range;
|
||||
|
||||
if (mpz_sizeinbase (SCM_I_BIG_MPZ (val), 2)
|
||||
> CHAR_BIT*sizeof (TYPE))
|
||||
goto out_of_range;
|
||||
|
||||
mpz_export (&n, &count, 1, sizeof (TYPE), 0, 0, SCM_I_BIG_MPZ (val));
|
||||
|
||||
if (n >= TYPE_MIN && n <= TYPE_MAX)
|
||||
return n;
|
||||
else
|
||||
goto out_of_range;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
scm_wrong_type_arg_msg (NULL, 0, val, "exact integer");
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
|
||||
SCM
|
||||
SCM_FROM_TYPE_PROTO (TYPE val)
|
||||
{
|
||||
#if SIZEOF_TYPE != 0 && SIZEOF_TYPE < SIZEOF_SCM_T_BITS
|
||||
return SCM_I_MAKINUM (val);
|
||||
#else
|
||||
if (SCM_POSFIXABLE (val))
|
||||
return SCM_I_MAKINUM (val);
|
||||
else if (val <= ULONG_MAX)
|
||||
{
|
||||
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
|
||||
mpz_init_set_ui (SCM_I_BIG_MPZ (z), val);
|
||||
return z;
|
||||
}
|
||||
else
|
||||
{
|
||||
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
|
||||
mpz_init (SCM_I_BIG_MPZ (z));
|
||||
mpz_import (SCM_I_BIG_MPZ (z), 1, 1, sizeof (TYPE), 0, 0, &val);
|
||||
return z;
|
||||
}
|
||||
#endif
|
||||
}
|
||||
|
||||
#undef TYPE
|
||||
#undef TYPE_MIN
|
||||
#undef TYPE_MAX
|
||||
#undef SIZEOF_TYPE
|
||||
#undef SCM_TO_TYPE_PROTO
|
||||
#undef SCM_FROM_TYPE_PROTO
|
||||
|
||||
|
|
@ -5750,184 +5750,89 @@ scm_is_unsigned_integer (SCM val, scm_t_uintmax min, scm_t_uintmax max)
|
|||
return 0;
|
||||
}
|
||||
|
||||
scm_t_intmax
|
||||
scm_to_signed_integer (SCM val, scm_t_intmax min, scm_t_intmax max)
|
||||
{
|
||||
if (SCM_I_INUMP (val))
|
||||
{
|
||||
scm_t_signed_bits n = SCM_I_INUM (val);
|
||||
if (n >= min && n <= max)
|
||||
return n;
|
||||
else
|
||||
{
|
||||
out_of_range:
|
||||
scm_out_of_range (NULL, val);
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
else if (SCM_BIGP (val))
|
||||
{
|
||||
if (min >= SCM_MOST_NEGATIVE_FIXNUM && max <= SCM_MOST_POSITIVE_FIXNUM)
|
||||
goto out_of_range;
|
||||
else if (min >= LONG_MIN && max <= LONG_MAX)
|
||||
{
|
||||
if (mpz_fits_slong_p (SCM_I_BIG_MPZ (val)))
|
||||
{
|
||||
long n = mpz_get_si (SCM_I_BIG_MPZ (val));
|
||||
if (n >= min && n <= max)
|
||||
return n;
|
||||
else
|
||||
goto out_of_range;
|
||||
}
|
||||
else
|
||||
goto out_of_range;
|
||||
}
|
||||
else
|
||||
{
|
||||
scm_t_intmax n;
|
||||
size_t count;
|
||||
#define TYPE scm_t_intmax
|
||||
#define TYPE_MIN min
|
||||
#define TYPE_MAX max
|
||||
#define SIZEOF_TYPE 0
|
||||
#define SCM_TO_TYPE_PROTO(arg) scm_to_signed_integer (arg, scm_t_intmax min, scm_t_intmax max)
|
||||
#define SCM_FROM_TYPE_PROTO(arg) scm_from_signed_integer (arg)
|
||||
#include "libguile/conv-integer.i.c"
|
||||
|
||||
if (mpz_sizeinbase (SCM_I_BIG_MPZ (val), 2)
|
||||
> CHAR_BIT*sizeof (scm_t_uintmax))
|
||||
goto out_of_range;
|
||||
#define TYPE scm_t_uintmax
|
||||
#define TYPE_MIN min
|
||||
#define TYPE_MAX max
|
||||
#define SIZEOF_TYPE 0
|
||||
#define SCM_TO_TYPE_PROTO(arg) scm_to_unsigned_integer (arg, scm_t_uintmax min, scm_t_uintmax max)
|
||||
#define SCM_FROM_TYPE_PROTO(arg) scm_from_unsigned_integer (arg)
|
||||
#include "libguile/conv-uinteger.i.c"
|
||||
|
||||
mpz_export (&n, &count, 1, sizeof (scm_t_uintmax), 0, 0,
|
||||
SCM_I_BIG_MPZ (val));
|
||||
#define TYPE scm_t_int8
|
||||
#define TYPE_MIN SCM_T_INT8_MIN
|
||||
#define TYPE_MAX SCM_T_INT8_MAX
|
||||
#define SIZEOF_TYPE 1
|
||||
#define SCM_TO_TYPE_PROTO(arg) scm_to_int8 (arg)
|
||||
#define SCM_FROM_TYPE_PROTO(arg) scm_from_int8 (arg)
|
||||
#include "libguile/conv-integer.i.c"
|
||||
|
||||
if (mpz_sgn (SCM_I_BIG_MPZ (val)) >= 0)
|
||||
{
|
||||
if (n < 0)
|
||||
goto out_of_range;
|
||||
}
|
||||
else
|
||||
{
|
||||
n = -n;
|
||||
if (n >= 0)
|
||||
goto out_of_range;
|
||||
}
|
||||
#define TYPE scm_t_uint8
|
||||
#define TYPE_MIN 0
|
||||
#define TYPE_MAX SCM_T_UINT8_MAX
|
||||
#define SIZEOF_TYPE 1
|
||||
#define SCM_TO_TYPE_PROTO(arg) scm_to_uint8 (arg)
|
||||
#define SCM_FROM_TYPE_PROTO(arg) scm_from_uint8 (arg)
|
||||
#include "libguile/conv-uinteger.i.c"
|
||||
|
||||
if (n >= min && n <= max)
|
||||
return n;
|
||||
else
|
||||
goto out_of_range;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
scm_wrong_type_arg_msg (NULL, 0, val, "exact integer");
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
#define TYPE scm_t_int16
|
||||
#define TYPE_MIN SCM_T_INT16_MIN
|
||||
#define TYPE_MAX SCM_T_INT16_MAX
|
||||
#define SIZEOF_TYPE 2
|
||||
#define SCM_TO_TYPE_PROTO(arg) scm_to_int16 (arg)
|
||||
#define SCM_FROM_TYPE_PROTO(arg) scm_from_int16 (arg)
|
||||
#include "libguile/conv-integer.i.c"
|
||||
|
||||
scm_t_uintmax
|
||||
scm_to_unsigned_integer (SCM val, scm_t_uintmax min, scm_t_uintmax max)
|
||||
{
|
||||
if (SCM_I_INUMP (val))
|
||||
{
|
||||
scm_t_signed_bits n = SCM_I_INUM (val);
|
||||
if (n >= 0 && ((scm_t_uintmax)n) >= min && ((scm_t_uintmax)n) <= max)
|
||||
return n;
|
||||
else
|
||||
{
|
||||
out_of_range:
|
||||
scm_out_of_range (NULL, val);
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
else if (SCM_BIGP (val))
|
||||
{
|
||||
if (max <= SCM_MOST_POSITIVE_FIXNUM)
|
||||
goto out_of_range;
|
||||
else if (max <= ULONG_MAX)
|
||||
{
|
||||
if (mpz_fits_ulong_p (SCM_I_BIG_MPZ (val)))
|
||||
{
|
||||
unsigned long n = mpz_get_ui (SCM_I_BIG_MPZ (val));
|
||||
if (n >= min && n <= max)
|
||||
return n;
|
||||
else
|
||||
goto out_of_range;
|
||||
}
|
||||
else
|
||||
goto out_of_range;
|
||||
}
|
||||
else
|
||||
{
|
||||
scm_t_uintmax n;
|
||||
size_t count;
|
||||
#define TYPE scm_t_uint16
|
||||
#define TYPE_MIN 0
|
||||
#define TYPE_MAX SCM_T_UINT16_MAX
|
||||
#define SIZEOF_TYPE 2
|
||||
#define SCM_TO_TYPE_PROTO(arg) scm_to_uint16 (arg)
|
||||
#define SCM_FROM_TYPE_PROTO(arg) scm_from_uint16 (arg)
|
||||
#include "libguile/conv-uinteger.i.c"
|
||||
|
||||
if (mpz_sgn (SCM_I_BIG_MPZ (val)) < 0)
|
||||
goto out_of_range;
|
||||
#define TYPE scm_t_int32
|
||||
#define TYPE_MIN SCM_T_INT32_MIN
|
||||
#define TYPE_MAX SCM_T_INT32_MAX
|
||||
#define SIZEOF_TYPE 4
|
||||
#define SCM_TO_TYPE_PROTO(arg) scm_to_int32 (arg)
|
||||
#define SCM_FROM_TYPE_PROTO(arg) scm_from_int32 (arg)
|
||||
#include "libguile/conv-integer.i.c"
|
||||
|
||||
if (mpz_sizeinbase (SCM_I_BIG_MPZ (val), 2)
|
||||
> CHAR_BIT*sizeof (scm_t_uintmax))
|
||||
goto out_of_range;
|
||||
#define TYPE scm_t_uint32
|
||||
#define TYPE_MIN 0
|
||||
#define TYPE_MAX SCM_T_UINT32_MAX
|
||||
#define SIZEOF_TYPE 4
|
||||
#define SCM_TO_TYPE_PROTO(arg) scm_to_uint32 (arg)
|
||||
#define SCM_FROM_TYPE_PROTO(arg) scm_from_uint32 (arg)
|
||||
#include "libguile/conv-uinteger.i.c"
|
||||
|
||||
mpz_export (&n, &count, 1, sizeof (scm_t_uintmax), 0, 0,
|
||||
SCM_I_BIG_MPZ (val));
|
||||
#if SCM_HAVE_T_INT64
|
||||
|
||||
if (n >= min && n <= max)
|
||||
return n;
|
||||
else
|
||||
goto out_of_range;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
scm_wrong_type_arg_msg (NULL, 0, val, "exact integer");
|
||||
return 0;
|
||||
}
|
||||
}
|
||||
#define TYPE scm_t_int64
|
||||
#define TYPE_MIN SCM_T_INT64_MIN
|
||||
#define TYPE_MAX SCM_T_INT64_MAX
|
||||
#define SIZEOF_TYPE 8
|
||||
#define SCM_TO_TYPE_PROTO(arg) scm_to_int64 (arg)
|
||||
#define SCM_FROM_TYPE_PROTO(arg) scm_from_int64 (arg)
|
||||
#include "libguile/conv-integer.i.c"
|
||||
|
||||
SCM
|
||||
scm_from_signed_integer (scm_t_intmax val)
|
||||
{
|
||||
if (SCM_FIXABLE (val))
|
||||
return SCM_I_MAKINUM (val);
|
||||
else if (val >= LONG_MIN && val <= LONG_MAX)
|
||||
{
|
||||
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
|
||||
mpz_init_set_si (SCM_I_BIG_MPZ (z), val);
|
||||
return z;
|
||||
}
|
||||
else
|
||||
{
|
||||
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
|
||||
mpz_init (SCM_I_BIG_MPZ (z));
|
||||
if (val < 0)
|
||||
{
|
||||
val = -val;
|
||||
mpz_import (SCM_I_BIG_MPZ (z), 1, 1, sizeof (scm_t_intmax), 0, 0,
|
||||
&val);
|
||||
mpz_neg (SCM_I_BIG_MPZ (z), SCM_I_BIG_MPZ (z));
|
||||
}
|
||||
else
|
||||
mpz_import (SCM_I_BIG_MPZ (z), 1, 1, sizeof (scm_t_intmax), 0, 0,
|
||||
&val);
|
||||
return z;
|
||||
}
|
||||
}
|
||||
#define TYPE scm_t_uint64
|
||||
#define TYPE_MIN 0
|
||||
#define TYPE_MAX SCM_T_UINT64_MAX
|
||||
#define SIZEOF_TYPE 8
|
||||
#define SCM_TO_TYPE_PROTO(arg) scm_to_uint64 (arg)
|
||||
#define SCM_FROM_TYPE_PROTO(arg) scm_from_uint64 (arg)
|
||||
#include "libguile/conv-uinteger.i.c"
|
||||
|
||||
SCM
|
||||
scm_from_unsigned_integer (scm_t_uintmax val)
|
||||
{
|
||||
if (SCM_POSFIXABLE (val))
|
||||
return SCM_I_MAKINUM (val);
|
||||
else if (val <= ULONG_MAX)
|
||||
{
|
||||
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
|
||||
mpz_init_set_ui (SCM_I_BIG_MPZ (z), val);
|
||||
return z;
|
||||
}
|
||||
else
|
||||
{
|
||||
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0);
|
||||
mpz_init (SCM_I_BIG_MPZ (z));
|
||||
mpz_import (SCM_I_BIG_MPZ (z), 1, 1, sizeof (scm_t_uintmax), 0, 0,
|
||||
&val);
|
||||
return z;
|
||||
}
|
||||
}
|
||||
#endif
|
||||
|
||||
int
|
||||
scm_is_real (SCM val)
|
||||
|
|
|
|||
|
|
@ -356,6 +356,34 @@ SCM_API scm_t_uintmax scm_to_unsigned_integer (SCM val,
|
|||
scm_t_uintmax min,
|
||||
scm_t_uintmax max);
|
||||
|
||||
SCM_API scm_t_int8 scm_to_int8 (SCM x);
|
||||
SCM_API SCM scm_from_int8 (scm_t_int8 x);
|
||||
|
||||
SCM_API scm_t_uint8 scm_to_uint8 (SCM x);
|
||||
SCM_API SCM scm_from_uint8 (scm_t_uint8 x);
|
||||
|
||||
SCM_API scm_t_int16 scm_to_int16 (SCM x);
|
||||
SCM_API SCM scm_from_int16 (scm_t_int16 x);
|
||||
|
||||
SCM_API scm_t_uint16 scm_to_uint16 (SCM x);
|
||||
SCM_API SCM scm_from_uint16 (scm_t_uint16 x);
|
||||
|
||||
SCM_API scm_t_int32 scm_to_int32 (SCM x);
|
||||
SCM_API SCM scm_from_int32 (scm_t_int32 x);
|
||||
|
||||
SCM_API scm_t_uint32 scm_to_uint32 (SCM x);
|
||||
SCM_API SCM scm_from_uint32 (scm_t_uint32 x);
|
||||
|
||||
#if SCM_HAVE_T_INT64
|
||||
|
||||
SCM_API scm_t_int64 scm_to_int64 (SCM x);
|
||||
SCM_API SCM scm_from_int64 (scm_t_int64 x);
|
||||
|
||||
SCM_API scm_t_uint64 scm_to_uint64 (SCM x);
|
||||
SCM_API SCM scm_from_uint64 (scm_t_uint64 x);
|
||||
|
||||
#endif
|
||||
|
||||
#define scm_to_schar(x) \
|
||||
((signed char)scm_to_signed_integer ((x), SCHAR_MIN, SCHAR_MAX))
|
||||
#define scm_to_uchar(x) \
|
||||
|
|
@ -382,9 +410,9 @@ SCM_API scm_t_uintmax scm_to_unsigned_integer (SCM val,
|
|||
((unsigned long)scm_to_unsigned_integer ((x), 0, ULONG_MAX))
|
||||
|
||||
#define scm_to_ssize_t(x) \
|
||||
((ssize_t)scm_to_signed_integer ((x), -SSIZE_MAX-1, SSIZE_MAX))
|
||||
((ssize_t)scm_to_signed_integer ((x), SCM_I_SSIZE_MIN, SCM_I_SSIZE_MAX))
|
||||
#define scm_to_size_t(x) \
|
||||
((unsigned long)scm_to_unsigned_integer ((x), 0, SIZE_MAX))
|
||||
((unsigned long)scm_to_unsigned_integer ((x), 0, SCM_I_SIZE_MAX))
|
||||
|
||||
#if SCM_SIZEOF_LONG_LONG != 0
|
||||
#define scm_to_long_long(x) \
|
||||
|
|
@ -393,28 +421,6 @@ SCM_API scm_t_uintmax scm_to_unsigned_integer (SCM val,
|
|||
((unsigned long long)scm_to_unsigned_integer ((x), 0, SCM_I_ULLONG_MAX))
|
||||
#endif
|
||||
|
||||
#define scm_to_int8(x) \
|
||||
((scm_t_int8)scm_to_signed_integer ((x), SCM_T_INT8_MIN, SCM_T_INT8_MAX))
|
||||
#define scm_to_uint8(x) \
|
||||
((scm_t_uint8)scm_to_unsigned_integer ((x), 0, SCM_T_UINT8_MAX))
|
||||
|
||||
#define scm_to_int16(x) \
|
||||
((scm_t_int16)scm_to_signed_integer ((x), SCM_T_INT16_MIN, SCM_T_INT16_MAX))
|
||||
#define scm_to_uint16(x) \
|
||||
((scm_t_uint16)scm_to_unsigned_integer ((x), 0, SCM_T_UINT16_MAX))
|
||||
|
||||
#define scm_to_int32(x) \
|
||||
((scm_t_int32)scm_to_signed_integer ((x), SCM_T_INT32_MIN, SCM_T_INT32_MAX))
|
||||
#define scm_to_uint32(x) \
|
||||
((scm_t_uint32)scm_to_unsigned_integer ((x), 0, SCM_T_UINT32_MAX))
|
||||
|
||||
#if SCM_HAVE_T_INT64
|
||||
#define scm_to_int64(x) \
|
||||
((scm_t_int64)scm_to_signed_integer ((x), SCM_T_INT64_MIN, SCM_T_INT64_MAX))
|
||||
#define scm_to_uint64(x) \
|
||||
((scm_t_uint64)scm_to_unsigned_integer ((x), 0, SCM_T_UINT64_MAX))
|
||||
#endif
|
||||
|
||||
#define scm_to_intmax(x) \
|
||||
((scm_t_intmax)scm_to_signed_integer ((x),SCM_T_INTMAX_MIN,SCM_T_INTMAX_MAX))
|
||||
#define scm_to_uintmax(x) \
|
||||
|
|
@ -445,20 +451,6 @@ SCM_API scm_t_uintmax scm_to_unsigned_integer (SCM val,
|
|||
#define scm_from_ulong_long(x) scm_from_unsigned_integer ((unsigned long long)(x))
|
||||
#endif
|
||||
|
||||
#define scm_from_int8(x) scm_from_signed_integer ((scm_t_int8)(x))
|
||||
#define scm_from_uint8(x) scm_from_unsigned_integer ((scm_t_uint8)(x))
|
||||
|
||||
#define scm_from_int16(x) scm_from_signed_integer ((scm_t_int16)(x))
|
||||
#define scm_from_uint16(x) scm_from_unsigned_integer ((scm_t_uint16)(x))
|
||||
|
||||
#define scm_from_int32(x) scm_from_signed_integer ((scm_t_int32)(x))
|
||||
#define scm_from_uint32(x) scm_from_unsigned_integer ((scm_t_uint32)(x))
|
||||
|
||||
#if SCM_HAVE_T_INT64
|
||||
#define scm_from_int64(x) scm_from_signed_integer ((scm_t_int64)(x))
|
||||
#define scm_from_uint64(x) scm_from_unsigned_integer ((scm_t_uint64)(x))
|
||||
#endif
|
||||
|
||||
#define scm_from_intmax(x) scm_from_signed_integer ((scm_t_intmax)(x))
|
||||
#define scm_from_uintmax(x) scm_from_unsigned_integer ((scm_t_uintmax)(x))
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue