Mercurial > gnulib
changeset 9297:3191943555eb
New module 'ceill'.
| author | Bruno Haible <bruno@clisp.org> |
|---|---|
| date | Fri, 05 Oct 2007 03:54:50 +0200 |
| parents | 432959448905 |
| children | ff18f8290b0a |
| files | ChangeLog doc/functions/ceill.texi lib/ceill.c lib/math.in.h m4/ceill.m4 m4/math_h.m4 modules/ceill modules/math modules/mathl |
| diffstat | 9 files changed, 110 insertions(+), 40 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog Fri Oct 05 03:44:19 2007 +0200 +++ b/ChangeLog Fri Oct 05 03:54:50 2007 +0200 @@ -1,3 +1,15 @@ +2007-10-04 Bruno Haible <bruno@clisp.org> + + * modules/ceill: New file. + * lib/ceill.c: Replace entire file. + * m4/ceill.m4: New file. + * lib/math.in.h (ceill): Replace declaration. + * m4/math_h.m4 (gl_MATH_H_DEFAULTS): Initialize GNULIB_CEILL. + * modules/math (Makefile.am): Substitute also GNULIB_CEILL. + * doc/functions/ceill.texi: Mention the 'ceill' module. + * modules/mathl (Files): Remove lib/ceill.c. + (Depends-on): Add ceill. + 2007-10-04 Bruno Haible <bruno@clisp.org> * modules/ceilf-tests: New file.
--- a/doc/functions/ceill.texi Fri Oct 05 03:44:19 2007 +0200 +++ b/doc/functions/ceill.texi Fri Oct 05 03:54:50 2007 +0200 @@ -4,15 +4,15 @@ POSIX specification: @url{http://www.opengroup.org/susv3xsh/ceill.html} -Gnulib module: --- +Gnulib module: ceill Portability problems fixed by Gnulib: @itemize -@end itemize - -Portability problems not fixed by Gnulib: -@itemize @item This function is missing on some platforms: FreeBSD 5.2.1, NetBSD 3.0, OpenBSD 3.8, HP-UX 11, IRIX 6.5, Solaris 9, Cygwin, Interix 3.5, BeOS. @end itemize + +Portability problems not fixed by Gnulib: +@itemize +@end itemize
--- a/lib/ceill.c Fri Oct 05 03:44:19 2007 +0200 +++ b/lib/ceill.c Fri Oct 05 03:54:50 2007 +0200 @@ -1,9 +1,5 @@ -/* Emulation for ceill. - Contributed by Paolo Bonzini - - Copyright 2002, 2003, 2007 Free Software Foundation, Inc. - - This file is part of gnulib. +/* Round towards positive infinity. + Copyright (C) 2007 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -19,28 +15,7 @@ with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ -#include <config.h> - -/* Specification. */ -#include <math.h> - -#include <float.h> - -/* To compute the integer part of X, sum a big enough - integer so that the precision of the floating point - number is exactly 1. */ +/* Written by Bruno Haible <bruno@clisp.org>, 2007. */ -long double -ceill(long double x) -{ - long double y; - if (x < 0.0L) - y = -(1.0L / LDBL_EPSILON - x - 1.0 / LDBL_EPSILON); - else - y = 1.0L / LDBL_EPSILON + x - 1.0 / LDBL_EPSILON; - - if (y < x) - return y + 1.0L; - else - return y; -} +#define USE_LONG_DOUBLE +#include "ceil.c"
--- a/lib/math.in.h Fri Oct 05 03:44:19 2007 +0200 +++ b/lib/math.in.h Fri Oct 05 03:54:50 2007 +0200 @@ -103,14 +103,16 @@ ceilf (x)) #endif -#if @GNULIB_MATHL@ || !@HAVE_DECL_CEILL@ +#if @GNULIB_CEILL@ +# if !@HAVE_DECL_CEILL@ +# define ceill rpl_ceill extern long double ceill (long double x); -#endif -#if !@GNULIB_MATHL@ && defined GNULIB_POSIXCHECK +# endif +#elif defined GNULIB_POSIXCHECK # undef ceill # define ceill(x) \ (GL_LINK_WARNING ("ceill is unportable - " \ - "use gnulib module mathl for portability"), \ + "use gnulib module ceill for portability"), \ ceill (x)) #endif
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/m4/ceill.m4 Fri Oct 05 03:54:50 2007 +0200 @@ -0,0 +1,48 @@ +# ceill.m4 serial 1 +dnl Copyright (C) 2007 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +AC_DEFUN([gl_FUNC_CEILL], +[ + AC_REQUIRE([gl_MATH_H_DEFAULTS]) + dnl Persuade glibc <math.h> to declare ceill(). + AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) + dnl Test whether ceill() is declared. + AC_CHECK_DECLS([ceill], , , [#include <math.h>]) + if test "$ac_cv_have_decl_ceill" = yes; then + dnl Test whether ceill() can be used without libm. + CEILL_LIBM=? + AC_TRY_LINK([ + #ifndef __NO_MATH_INLINES + # define __NO_MATH_INLINES 1 /* for glibc */ + #endif + #include <math.h> + long double x;], + [x = ceill(x);], + [CEILL_LIBM=]) + if test "$CEILL_LIBM" = "?"; then + save_LIBS="$LIBS" + LIBS="$LIBS -lm" + AC_TRY_LINK([ + #ifndef __NO_MATH_INLINES + # define __NO_MATH_INLINES 1 /* for glibc */ + #endif + #include <math.h> + long double x;], + [x = ceill(x);], + [CEILL_LIBM="-lm"]) + LIBS="$save_LIBS" + fi + if test "$CEILL_LIBM" = "?"; then + CEILL_LIBM= + fi + else + HAVE_DECL_CEILL=0 + AC_LIBOBJ([ceill]) + CEILL_LIBM= + fi + AC_SUBST([HAVE_DECL_CEILL]) + AC_SUBST([CEILL_LIBM]) +])
--- a/m4/math_h.m4 Fri Oct 05 03:44:19 2007 +0200 +++ b/m4/math_h.m4 Fri Oct 05 03:54:50 2007 +0200 @@ -20,6 +20,7 @@ AC_DEFUN([gl_MATH_H_DEFAULTS], [ GNULIB_CEILF=0; AC_SUBST([GNULIB_CEILF]) + GNULIB_CEILL=0; AC_SUBST([GNULIB_CEILL]) GNULIB_FLOORF=0; AC_SUBST([GNULIB_FLOORF]) GNULIB_FLOORL=0; AC_SUBST([GNULIB_FLOORL]) GNULIB_FREXP=0; AC_SUBST([GNULIB_FREXP])
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/modules/ceill Fri Oct 05 03:54:50 2007 +0200 @@ -0,0 +1,31 @@ +Description: +ceill() function: round towards positive infinity. + +Files: +lib/ceill.c +lib/ceil.c +m4/ceill.m4 + +Depends-on: +math +extensions +float + +configure.ac: +gl_FUNC_CEILL +gl_MATH_MODULE_INDICATOR([ceill]) + +Makefile.am: + +Include: +<math.h> + +Link: +$(CEILL_LIBM) + +License: +LGPL + +Maintainer: +Bruno Haible +
--- a/modules/math Fri Oct 05 03:44:19 2007 +0200 +++ b/modules/math Fri Oct 05 03:54:50 2007 +0200 @@ -23,6 +23,7 @@ sed -e 's/@''INCLUDE_NEXT''@/$(INCLUDE_NEXT)/g' \ -e 's|@''NEXT_MATH_H''@|$(NEXT_MATH_H)|g' \ -e 's|@''GNULIB_CEILF''@|$(GNULIB_CEILF)|g' \ + -e 's|@''GNULIB_CEILL''@|$(GNULIB_CEILL)|g' \ -e 's|@''GNULIB_FLOORF''@|$(GNULIB_FLOORF)|g' \ -e 's|@''GNULIB_FLOORL''@|$(GNULIB_FLOORL)|g' \ -e 's|@''GNULIB_FREXP''@|$(GNULIB_FREXP)|g' \