1 |
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002, 2003 Free Software Foundation, Inc. |
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003 Free Software Foundation, Inc. |
2 |
* |
* |
3 |
* Portions Copyright 1990, 1991, 1992, 1993 by AT&T Bell Laboratories |
* Portions Copyright 1990, 1991, 1992, 1993 by AT&T Bell Laboratories |
4 |
* and Bellcore. See scm_divide. |
* and Bellcore. See scm_divide. |
3613 |
} |
} |
3614 |
#undef FUNC_NAME |
#undef FUNC_NAME |
3615 |
|
|
3616 |
SCM_GPROC1 (s_asinh, "$asinh", scm_tc7_cxr, (SCM (*)()) scm_asinh, g_asinh); |
SCM_GPROC1 (s_asinh, "$asinh", scm_tc7_dsubr, (SCM (*)()) scm_asinh, g_asinh); |
3617 |
/* "Return the inverse hyperbolic sine of @var{x}." |
/* "Return the inverse hyperbolic sine of @var{x}." |
3618 |
*/ |
*/ |
3619 |
double |
double |
3623 |
} |
} |
3624 |
|
|
3625 |
|
|
3626 |
SCM_GPROC1 (s_acosh, "$acosh", scm_tc7_cxr, (SCM (*)()) scm_acosh, g_acosh); |
SCM_GPROC1 (s_acosh, "$acosh", scm_tc7_dsubr, (SCM (*)()) scm_acosh, g_acosh); |
3627 |
/* "Return the inverse hyperbolic cosine of @var{x}." |
/* "Return the inverse hyperbolic cosine of @var{x}." |
3628 |
*/ |
*/ |
3629 |
double |
double |
3633 |
} |
} |
3634 |
|
|
3635 |
|
|
3636 |
SCM_GPROC1 (s_atanh, "$atanh", scm_tc7_cxr, (SCM (*)()) scm_atanh, g_atanh); |
SCM_GPROC1 (s_atanh, "$atanh", scm_tc7_dsubr, (SCM (*)()) scm_atanh, g_atanh); |
3637 |
/* "Return the inverse hyperbolic tangent of @var{x}." |
/* "Return the inverse hyperbolic tangent of @var{x}." |
3638 |
*/ |
*/ |
3639 |
double |
double |
3643 |
} |
} |
3644 |
|
|
3645 |
|
|
3646 |
SCM_GPROC1 (s_truncate, "truncate", scm_tc7_cxr, (SCM (*)()) scm_truncate, g_truncate); |
SCM_GPROC1 (s_truncate, "truncate", scm_tc7_dsubr, (SCM (*)()) scm_truncate, g_truncate); |
3647 |
/* "Round the inexact number @var{x} towards zero." |
/* "Round the inexact number @var{x} towards zero." |
3648 |
*/ |
*/ |
3649 |
double |
double |
3655 |
} |
} |
3656 |
|
|
3657 |
|
|
3658 |
SCM_GPROC1 (s_round, "round", scm_tc7_cxr, (SCM (*)()) scm_round, g_round); |
SCM_GPROC1 (s_round, "round", scm_tc7_dsubr, (SCM (*)()) scm_round, g_round); |
3659 |
/* "Round the inexact number @var{x}. If @var{x} is halfway between two\n" |
/* "Round the inexact number @var{x}. If @var{x} is halfway between two\n" |
3660 |
* "numbers, round towards even." |
* "numbers, round towards even." |
3661 |
*/ |
*/ |
3670 |
} |
} |
3671 |
|
|
3672 |
|
|
3673 |
SCM_GPROC1 (s_i_floor, "floor", scm_tc7_cxr, (SCM (*)()) floor, g_i_floor); |
SCM_GPROC1 (s_i_floor, "floor", scm_tc7_dsubr, (SCM (*)()) floor, g_i_floor); |
3674 |
/* "Round the number @var{x} towards minus infinity." |
/* "Round the number @var{x} towards minus infinity." |
3675 |
*/ |
*/ |
3676 |
SCM_GPROC1 (s_i_ceil, "ceiling", scm_tc7_cxr, (SCM (*)()) ceil, g_i_ceil); |
SCM_GPROC1 (s_i_ceil, "ceiling", scm_tc7_dsubr, (SCM (*)()) ceil, g_i_ceil); |
3677 |
/* "Round the number @var{x} towards infinity." |
/* "Round the number @var{x} towards infinity." |
3678 |
*/ |
*/ |
3679 |
SCM_GPROC1 (s_i_sqrt, "$sqrt", scm_tc7_cxr, (SCM (*)()) sqrt, g_i_sqrt); |
SCM_GPROC1 (s_i_sqrt, "$sqrt", scm_tc7_dsubr, (SCM (*)()) sqrt, g_i_sqrt); |
3680 |
/* "Return the square root of the real number @var{x}." |
/* "Return the square root of the real number @var{x}." |
3681 |
*/ |
*/ |
3682 |
SCM_GPROC1 (s_i_abs, "$abs", scm_tc7_cxr, (SCM (*)()) fabs, g_i_abs); |
SCM_GPROC1 (s_i_abs, "$abs", scm_tc7_dsubr, (SCM (*)()) fabs, g_i_abs); |
3683 |
/* "Return the absolute value of the real number @var{x}." |
/* "Return the absolute value of the real number @var{x}." |
3684 |
*/ |
*/ |
3685 |
SCM_GPROC1 (s_i_exp, "$exp", scm_tc7_cxr, (SCM (*)()) exp, g_i_exp); |
SCM_GPROC1 (s_i_exp, "$exp", scm_tc7_dsubr, (SCM (*)()) exp, g_i_exp); |
3686 |
/* "Return the @var{x}th power of e." |
/* "Return the @var{x}th power of e." |
3687 |
*/ |
*/ |
3688 |
SCM_GPROC1 (s_i_log, "$log", scm_tc7_cxr, (SCM (*)()) log, g_i_log); |
SCM_GPROC1 (s_i_log, "$log", scm_tc7_dsubr, (SCM (*)()) log, g_i_log); |
3689 |
/* "Return the natural logarithm of the real number @var{x}." |
/* "Return the natural logarithm of the real number @var{x}." |
3690 |
*/ |
*/ |
3691 |
SCM_GPROC1 (s_i_sin, "$sin", scm_tc7_cxr, (SCM (*)()) sin, g_i_sin); |
SCM_GPROC1 (s_i_sin, "$sin", scm_tc7_dsubr, (SCM (*)()) sin, g_i_sin); |
3692 |
/* "Return the sine of the real number @var{x}." |
/* "Return the sine of the real number @var{x}." |
3693 |
*/ |
*/ |
3694 |
SCM_GPROC1 (s_i_cos, "$cos", scm_tc7_cxr, (SCM (*)()) cos, g_i_cos); |
SCM_GPROC1 (s_i_cos, "$cos", scm_tc7_dsubr, (SCM (*)()) cos, g_i_cos); |
3695 |
/* "Return the cosine of the real number @var{x}." |
/* "Return the cosine of the real number @var{x}." |
3696 |
*/ |
*/ |
3697 |
SCM_GPROC1 (s_i_tan, "$tan", scm_tc7_cxr, (SCM (*)()) tan, g_i_tan); |
SCM_GPROC1 (s_i_tan, "$tan", scm_tc7_dsubr, (SCM (*)()) tan, g_i_tan); |
3698 |
/* "Return the tangent of the real number @var{x}." |
/* "Return the tangent of the real number @var{x}." |
3699 |
*/ |
*/ |
3700 |
SCM_GPROC1 (s_i_asin, "$asin", scm_tc7_cxr, (SCM (*)()) asin, g_i_asin); |
SCM_GPROC1 (s_i_asin, "$asin", scm_tc7_dsubr, (SCM (*)()) asin, g_i_asin); |
3701 |
/* "Return the arc sine of the real number @var{x}." |
/* "Return the arc sine of the real number @var{x}." |
3702 |
*/ |
*/ |
3703 |
SCM_GPROC1 (s_i_acos, "$acos", scm_tc7_cxr, (SCM (*)()) acos, g_i_acos); |
SCM_GPROC1 (s_i_acos, "$acos", scm_tc7_dsubr, (SCM (*)()) acos, g_i_acos); |
3704 |
/* "Return the arc cosine of the real number @var{x}." |
/* "Return the arc cosine of the real number @var{x}." |
3705 |
*/ |
*/ |
3706 |
SCM_GPROC1 (s_i_atan, "$atan", scm_tc7_cxr, (SCM (*)()) atan, g_i_atan); |
SCM_GPROC1 (s_i_atan, "$atan", scm_tc7_dsubr, (SCM (*)()) atan, g_i_atan); |
3707 |
/* "Return the arc tangent of the real number @var{x}." |
/* "Return the arc tangent of the real number @var{x}." |
3708 |
*/ |
*/ |
3709 |
SCM_GPROC1 (s_i_sinh, "$sinh", scm_tc7_cxr, (SCM (*)()) sinh, g_i_sinh); |
SCM_GPROC1 (s_i_sinh, "$sinh", scm_tc7_dsubr, (SCM (*)()) sinh, g_i_sinh); |
3710 |
/* "Return the hyperbolic sine of the real number @var{x}." |
/* "Return the hyperbolic sine of the real number @var{x}." |
3711 |
*/ |
*/ |
3712 |
SCM_GPROC1 (s_i_cosh, "$cosh", scm_tc7_cxr, (SCM (*)()) cosh, g_i_cosh); |
SCM_GPROC1 (s_i_cosh, "$cosh", scm_tc7_dsubr, (SCM (*)()) cosh, g_i_cosh); |
3713 |
/* "Return the hyperbolic cosine of the real number @var{x}." |
/* "Return the hyperbolic cosine of the real number @var{x}." |
3714 |
*/ |
*/ |
3715 |
SCM_GPROC1 (s_i_tanh, "$tanh", scm_tc7_cxr, (SCM (*)()) tanh, g_i_tanh); |
SCM_GPROC1 (s_i_tanh, "$tanh", scm_tc7_dsubr, (SCM (*)()) tanh, g_i_tanh); |
3716 |
/* "Return the hyperbolic tangent of the real number @var{x}." |
/* "Return the hyperbolic tangent of the real number @var{x}." |
3717 |
*/ |
*/ |
3718 |
|
|