/[guile]/guile/guile-core/libguile/numbers.c
ViewVC logotype

Diff of /guile/guile-core/libguile/numbers.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.189 by kryde, Fri May 30 00:23:11 2003 UTC revision 1.190 by dirk, Sun Jun 1 13:58:42 2003 UTC
# Line 1  Line 1 
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.
# Line 3613  scm_divide (SCM x, SCM y) Line 3613  scm_divide (SCM x, SCM y)
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
# Line 3623  scm_asinh (double x) Line 3623  scm_asinh (double x)
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
# Line 3633  scm_acosh (double x) Line 3633  scm_acosh (double x)
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
# Line 3643  scm_atanh (double x) Line 3643  scm_atanh (double x)
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
# Line 3655  scm_truncate (double x) Line 3655  scm_truncate (double x)
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   */   */
# Line 3670  scm_round (double x) Line 3670  scm_round (double x)
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    

Legend:
Removed from v.1.189  
changed lines
  Added in v.1.190

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26