mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 04:40:29 +02:00
53 lines
934 B
C
53 lines
934 B
C
/* this file is #include'd (several times) by numbers.c */
|
|
|
|
FTYPE
|
|
NUM2FLOAT (SCM num, unsigned long int pos, const char *s_caller)
|
|
{
|
|
if (SCM_INUMP (num))
|
|
return SCM_INUM (num);
|
|
else if (SCM_BIGP (num))
|
|
{ /* bignum */
|
|
|
|
FTYPE res = 0.0;
|
|
size_t l;
|
|
|
|
for (l = SCM_NUMDIGS (num); l--;)
|
|
res = SCM_BIGRAD * res + SCM_BDIGITS (num)[l];
|
|
|
|
if (SCM_BIGSIGN (num))
|
|
res = -res;
|
|
|
|
if (isfinite (res))
|
|
return res;
|
|
else
|
|
scm_out_of_range (s_caller, num);
|
|
}
|
|
else if (SCM_REALP (num))
|
|
return SCM_REAL_VALUE (num);
|
|
else
|
|
scm_wrong_type_arg (s_caller, pos, num);
|
|
}
|
|
|
|
SCM
|
|
FLOAT2NUM (FTYPE n)
|
|
{
|
|
SCM z;
|
|
z = scm_double_cell (scm_tc16_real, 0, 0, 0);
|
|
/*
|
|
See scm_make_real().
|
|
*/
|
|
scm_remember_upto_here_1 (z);
|
|
SCM_REAL_VALUE (z) = n;
|
|
return z;
|
|
}
|
|
|
|
/* clean up */
|
|
#undef FLOAT2NUM
|
|
#undef NUM2FLOAT
|
|
#undef FTYPE
|
|
|
|
/*
|
|
Local Variables:
|
|
c-file-style: "gnu"
|
|
End:
|
|
*/
|