From 93ac3c97f65305215855750c72024a3745948aaf Mon Sep 17 00:00:00 2001
From: Bruno Haible <bruno@clisp.org>
Date: Sat, 20 Oct 2007 13:43:59 +0200
Subject: [PATCH] New module 'floor'.

---
 doc/functions/floor.texi |  2 +-
 m4/floor.m4              | 36 ++++++++++++++++++++++++++++++++++++
 modules/floor            | 26 ++++++++++++++++++++++++++
 3 files changed, 63 insertions(+), 1 deletion(-)
 create mode 100644 m4/floor.m4
 create mode 100644 modules/floor

diff --git a/doc/functions/floor.texi b/doc/functions/floor.texi
index 140452ce8..6ce4ede99 100644
--- a/doc/functions/floor.texi
+++ b/doc/functions/floor.texi
@@ -4,7 +4,7 @@
 
 POSIX specification: @url{http://www.opengroup.org/susv3xsh/floor.html}
 
-Gnulib module: ---
+Gnulib module: floor
 
 Portability problems fixed by Gnulib:
 @itemize
diff --git a/m4/floor.m4 b/m4/floor.m4
new file mode 100644
index 000000000..dd1e6f6e2
--- /dev/null
+++ b/m4/floor.m4
@@ -0,0 +1,36 @@
+# floor.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_FLOOR],
+[
+  dnl Test whether floor() can be used without libm.
+  FLOOR_LIBM=?
+  AC_TRY_LINK([
+     #ifndef __NO_MATH_INLINES
+     # define __NO_MATH_INLINES 1 /* for glibc */
+     #endif
+     #include <math.h>
+     double x;],
+    [x = floor(x);],
+    [FLOOR_LIBM=])
+  if test "$FLOOR_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>
+       double x;],
+      [x = floor(x);],
+      [FLOOR_LIBM="-lm"])
+    LIBS="$save_LIBS"
+  fi
+  if test "$FLOOR_LIBM" = "?"; then
+    FLOOR_LIBM=
+  fi
+  AC_SUBST([FLOOR_LIBM])
+])
diff --git a/modules/floor b/modules/floor
new file mode 100644
index 000000000..f0eaef843
--- /dev/null
+++ b/modules/floor
@@ -0,0 +1,26 @@
+Description:
+floor() function: round towards negative infinity.
+
+Files:
+m4/floor.m4
+
+Depends-on:
+math
+
+configure.ac:
+gl_FUNC_FLOOR
+
+Makefile.am:
+
+Include:
+<math.h>
+
+Link:
+$(FLOOR_LIBM)
+
+License:
+LGPL
+
+Maintainer:
+Bruno Haible
+
-- 
2.11.0