1 /* Reentrant sort function.
2
3 Copyright 2014-2021 Free Software Foundation, Inc.
4
5 This file is free software: you can redistribute it and/or modify
6 it under the terms of the GNU Lesser General Public License as
7 published by the Free Software Foundation; either version 2.1 of the
8 License, or (at your option) any later version.
9
10 This file is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU Lesser General Public License for more details.
14
15 You should have received a copy of the GNU Lesser General Public License
16 along with this program. If not, see <https://www.gnu.org/licenses/>. */
17
18 /* Written by Paul Eggert. */
19
20 #include <config.h>
21
22 #include <stdlib.h>
23
24 /* This file is compiled only when the system has a qsort_r that needs
25 to be replaced because it has the BSD signature rather than the GNU
26 signature. */
27
28 struct thunk
29 {
30 int (*cmp) (void const *, void const *, void *);
31 void *arg;
32 };
33
34 static int
35 thunk_cmp (void *thunk, void const *a, void const *b)
/* ![[previous]](../icons/n_left.png)
![[next]](../icons/right.png)
![[first]](../icons/n_first.png)
![[last]](../icons/last.png)
![[top]](../icons/top.png)
![[bottom]](../icons/bottom.png)
![[index]](../icons/index.png)
*/
36 {
37 struct thunk *th = thunk;
38 return th->cmp (a, b, th->arg);
39 }
40
41 void
42 qsort_r (void *base, size_t nmemb, size_t size,
/* ![[previous]](../icons/left.png)
![[next]](../icons/n_right.png)
![[first]](../icons/first.png)
![[last]](../icons/n_last.png)
![[top]](../icons/top.png)
![[bottom]](../icons/bottom.png)
![[index]](../icons/index.png)
*/
43 int (*cmp) (void const *, void const *, void *),
44 void *arg)
45 {
46 # undef qsort_r
47 struct thunk thunk;
48 thunk.cmp = cmp;
49 thunk.arg = arg;
50 qsort_r (base, nmemb, size, &thunk, thunk_cmp);
51 }