Mercurial > hg > octave-kai > gnulib-hg
annotate lib/search.in.h @ 11224:5aa57cee93aa
avoid gcc 3.4.3 bug on long double NaN on Irix 6.5
* tests/nan.h (NaNl): Rewrite as function on Irix, to avoid
compilation bug by using runtime conversion.
* m4/isfinite.m4 (gl_ISFINITE): Likewise.
* m4/isnanl.m4 (gl_FUNC_ISNANL): Likewise.
* modules/ceill-tests (Files): Use nan.h.
* modules/floorl-tests (Files): Likewise.
* modules/frexpl-tests (Files): Likewise.
* modules/isnanl-tests (Files): Likewise.
* modules/ldexpl-tests (Files): Likewise.
* modules/roundl-tests (Files): Likewise.
* modules/truncl-tests (Files): Likewise.
* tests/test-ceill.c (main): Use a working NaN.
* tests/test-floorl.c (main): Likewise.
* tests/test-frexpl.c (main): Likewise.
* tests/test-isnan.c (test_long_double): Likewise.
* tests/test-isnanl.h (main): Likewise.
* tests/test-ldexpl.h (main): Likewise.
* tests/test-roundl.h (main): Likewise.
* tests/test-truncl.h (main): Likewise.
See http://lists.gnu.org/archive/html/bug-gnulib/2009-02/msg00190.html.
Signed-off-by: Eric Blake <ebb9@byu.net>
author | Eric Blake <ebb9@byu.net> |
---|---|
date | Thu, 26 Feb 2009 20:18:42 -0700 |
parents | 8668b19a7032 |
children | e8d2c6fc33ad |
rev | line source |
---|---|
9258
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
1 /* A GNU-like <search.h>. |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
2 |
9595
53dc0fa4233a
Work around OpenBSD 4.0 tdelete() bug.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
3 Copyright (C) 2007-2008 Free Software Foundation, Inc. |
9258
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
4 |
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
9258
diff
changeset
|
5 This program is free software: you can redistribute it and/or modify |
9258
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
6 it under the terms of the GNU General Public License as published by |
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
9258
diff
changeset
|
7 the Free Software Foundation; either version 3 of the License, or |
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
9258
diff
changeset
|
8 (at your option) any later version. |
9258
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
9 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
10 This program is distributed in the hope that it will be useful, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
11 but WITHOUT ANY WARRANTY; without even the implied warranty of |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
13 GNU General Public License for more details. |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
14 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
15 You should have received a copy of the GNU General Public License |
9309
bbbbbf4cd1c5
Change copyright notice from GPLv2+ to GPLv3+.
Bruno Haible <bruno@clisp.org>
parents:
9258
diff
changeset
|
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */ |
9258
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
17 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
18 #ifndef _GL_SEARCH_H |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
19 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
20 /* The include_next requires a split double-inclusion guard. */ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
21 #if @HAVE_SEARCH_H@ |
10655
8668b19a7032
Avoid gcc warnings because of #pragma GCC system_header on older gcc.
Bruno Haible <bruno@clisp.org>
parents:
10375
diff
changeset
|
22 # if __GNUC__ >= 3 |
10375
f96e845fc36d
Avoid some "gcc -pedantic" warnings.
Bruno Haible <bruno@clisp.org>
parents:
9595
diff
changeset
|
23 @PRAGMA_SYSTEM_HEADER@ |
10655
8668b19a7032
Avoid gcc warnings because of #pragma GCC system_header on older gcc.
Bruno Haible <bruno@clisp.org>
parents:
10375
diff
changeset
|
24 # endif |
9258
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
25 # @INCLUDE_NEXT@ @NEXT_SEARCH_H@ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
26 #endif |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
27 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
28 #ifndef _GL_SEARCH_H |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
29 #define _GL_SEARCH_H |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
30 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
31 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
32 /* The definition of GL_LINK_WARNING is copied here. */ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
33 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
34 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
35 #ifdef __cplusplus |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
36 extern "C" { |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
37 #endif |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
38 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
39 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
40 #if @GNULIB_TSEARCH@ |
9595
53dc0fa4233a
Work around OpenBSD 4.0 tdelete() bug.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
41 # if @REPLACE_TSEARCH@ |
53dc0fa4233a
Work around OpenBSD 4.0 tdelete() bug.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
42 # define tsearch rpl_tsearch |
53dc0fa4233a
Work around OpenBSD 4.0 tdelete() bug.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
43 # define tfind rpl_tfind |
53dc0fa4233a
Work around OpenBSD 4.0 tdelete() bug.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
44 # define tdelete rpl_tdelete |
53dc0fa4233a
Work around OpenBSD 4.0 tdelete() bug.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
45 # define twalk rpl_twalk |
53dc0fa4233a
Work around OpenBSD 4.0 tdelete() bug.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
46 # endif |
53dc0fa4233a
Work around OpenBSD 4.0 tdelete() bug.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
47 # if !@HAVE_TSEARCH@ || @REPLACE_TSEARCH@ |
9258
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
48 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
49 /* See <http://www.opengroup.org/susv3xbd/search.h.html>, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
50 <http://www.opengroup.org/susv3xsh/tsearch.html> |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
51 for details. */ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
52 |
9595
53dc0fa4233a
Work around OpenBSD 4.0 tdelete() bug.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
53 # if !@HAVE_TSEARCH@ |
9258
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
54 typedef enum |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
55 { |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
56 preorder, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
57 postorder, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
58 endorder, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
59 leaf |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
60 } |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
61 VISIT; |
9595
53dc0fa4233a
Work around OpenBSD 4.0 tdelete() bug.
Bruno Haible <bruno@clisp.org>
parents:
9309
diff
changeset
|
62 # endif |
9258
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
63 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
64 /* Searches an element in the tree *VROOTP that compares equal to KEY. |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
65 If one is found, it is returned. Otherwise, a new element equal to KEY |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
66 is inserted in the tree and is returned. */ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
67 extern void * tsearch (const void *key, void **vrootp, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
68 int (*compar) (const void *, const void *)); |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
69 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
70 /* Searches an element in the tree *VROOTP that compares equal to KEY. |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
71 If one is found, it is returned. Otherwise, NULL is returned. */ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
72 extern void * tfind (const void *key, void *const *vrootp, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
73 int (*compar) (const void *, const void *)); |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
74 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
75 /* Searches an element in the tree *VROOTP that compares equal to KEY. |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
76 If one is found, it is removed from the tree, and its parent node is |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
77 returned. Otherwise, NULL is returned. */ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
78 extern void * tdelete (const void *key, void **vrootp, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
79 int (*compar) (const void *, const void *)); |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
80 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
81 /* Perform a depth-first, left-to-right traversal of the tree VROOT. |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
82 The ACTION function is called: |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
83 - for non-leaf nodes: 3 times, before the left subtree traversal, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
84 after the left subtree traversal but before the right subtree traversal, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
85 and after the right subtree traversal, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
86 - for leaf nodes: once. |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
87 The arguments passed to ACTION are: |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
88 1. the node; it can be casted to a 'const void * const *', i.e. into a |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
89 pointer to the key, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
90 2. an indicator which visit of the node this is, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
91 3. the level of the node in the tree (0 for the root). */ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
92 extern void twalk (const void *vroot, |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
93 void (*action) (const void *, VISIT, int)); |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
94 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
95 # endif |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
96 #elif defined GNULIB_POSIXCHECK |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
97 # undef tsearch |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
98 # define tsearch(k,v,c) \ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
99 (GL_LINK_WARNING ("tsearch is unportable - " \ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
100 "use gnulib module tsearch for portability"), \ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
101 tsearch (k, v, c)) |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
102 # undef tfind |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
103 # define tfind(k,v,c) \ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
104 (GL_LINK_WARNING ("tfind is unportable - " \ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
105 "use gnulib module tsearch for portability"), \ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
106 tfind (k, v, c)) |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
107 # undef tdelete |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
108 # define tdelete(k,v,c) \ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
109 (GL_LINK_WARNING ("tdelete is unportable - " \ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
110 "use gnulib module tsearch for portability"), \ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
111 tdelete (k, v, c)) |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
112 # undef twalk |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
113 # define twalk(v,a) \ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
114 (GL_LINK_WARNING ("twalk is unportable - " \ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
115 "use gnulib module tsearch for portability"), \ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
116 twalk (v, a)) |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
117 #endif |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
118 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
119 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
120 #ifdef __cplusplus |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
121 } |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
122 #endif |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
123 |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
124 #endif /* _GL_SEARCH_H */ |
bee5960c276a
Rename search_.h to search.in.h.
Bruno Haible <bruno@clisp.org>
parents:
diff
changeset
|
125 #endif /* _GL_SEARCH_H */ |