File: GB_qsort_1.c

package info (click to toggle)
suitesparse 1%3A7.10.1%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 254,920 kB
  • sloc: ansic: 1,134,743; cpp: 46,133; makefile: 4,875; fortran: 2,087; java: 1,826; sh: 996; ruby: 725; python: 495; asm: 371; sed: 166; awk: 44
file content (103 lines) | stat: -rw-r--r-- 2,814 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
//------------------------------------------------------------------------------
// GB_qsort_1: sort an 1-by-n list of integers
//------------------------------------------------------------------------------

// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2025, All Rights Reserved.
// SPDX-License-Identifier: Apache-2.0

//------------------------------------------------------------------------------

// Each entry is a single 32-bit or 64-bit unsigned integer.

#include "sort/GB_sort.h"

// returns true if A [a] < B [b]
#define GB_lt(A,a,B,b)                  \
    GB_lt_1 (A ## _0, a, B ## _0, b)

// argument list for calling a function
#define GB_arg(A)                       \
    A ## _0

// argument list for calling a function, with offset
#define GB_arg_offset(A,x)              \
    A ## _0 + (x)

// argument list for defining a function
#define GB_args(A)                      \
    GB_A0_t *restrict A ## _0

// each entry has a single key
#define GB_K 1

// swap A [a] and A [b]
#define GB_swap(A,a,b)                                                        \
{                                                                             \
    GB_A0_t t0 = A ## _0 [a] ; A ## _0 [a] = A ## _0 [b] ; A ## _0 [b] = t0 ; \
}

//------------------------------------------------------------------------------
// GB_qsort_1_32
//------------------------------------------------------------------------------

#define GB_A0_t uint32_t
#define GB_partition GB_partition_1_32
#define GB_quicksort GB_quicksort_1_32

#include "sort/template/GB_qsort_template.c"

void GB_qsort_1_32
(
    GB_A0_t *restrict A_0,      // size n array
    const int64_t n
)
{ 
    uint64_t seed = n ;
    GB_quicksort (A_0, n, &seed) ;
}

//------------------------------------------------------------------------------
// GB_qsort_1_64
//------------------------------------------------------------------------------

#undef  GB_A0_t
#undef  GB_partition
#undef  GB_quicksort

#define GB_A0_t uint64_t
#define GB_partition GB_partition_1_64
#define GB_quicksort GB_quicksort_1_64

#include "sort/template/GB_qsort_template.c"

void GB_qsort_1_64
(
    GB_A0_t *restrict A_0,      // size n array
    const int64_t n
)
{ 
    uint64_t seed = n ;
    GB_quicksort (A_0, n, &seed) ;
}

//------------------------------------------------------------------------------
// GB_qsort_1: sort an array A of size 1-by-n, 32 or 64 bit
//------------------------------------------------------------------------------

void GB_qsort_1
(
    void *restrict A_0,         // size n array
    bool A0_is_32,              // if true: A_0 is 32-bit; else 64-bit
    const int64_t n
)
{
    if (A0_is_32)
    { 
        GB_qsort_1_32 ((uint32_t *) A_0, n) ;
    }
    else
    { 
        GB_qsort_1_64 ((uint64_t *) A_0, n) ;
    }
}