#pragma once

s32int conv_to_s32(sl_v v, void *data, sl_numtype tag) sl_nonnull(2);
u32int conv_to_u32(sl_v v, void *data, sl_numtype tag) sl_nonnull(2);
s64int conv_to_s64(sl_v v, void *data, sl_numtype tag) sl_nonnull(2);
u64int conv_to_u64(sl_v v, void *data, sl_numtype tag) sl_nonnull(2);
mpint *conv_to_bignum(sl_v v, void *data, sl_numtype tag) sl_nonnull(2) sl_returns_nonnull;
double conv_to_double(sl_v v, void *data, sl_numtype tag) sl_nonnull(2);

#define conv_to_p32 conv_to_u32
#define conv_to_p64 conv_to_u64

#if defined(BITS64)
#define conv_to_ptr conv_to_p64
#else
#define conv_to_ptr conv_to_p32
#endif

int cmp_numeric(void *ap, sl_numtype ant, void *bp, sl_numtype bnt);