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
|
//------------------------------------------------------------------------------
// GB_wait.h: definitions for GB_wait
//------------------------------------------------------------------------------
// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2025, All Rights Reserved.
// SPDX-License-Identifier: Apache-2.0
//------------------------------------------------------------------------------
#ifndef GB_WAIT_H
#define GB_WAIT_H
GrB_Info GB_block // apply all pending computations if blocking mode enabled
(
GrB_Matrix A,
GB_Werk Werk
) ;
GrB_Info GB_wait // finish all pending computations
(
GrB_Matrix A, // matrix with pending computations
const char *name, // name of the matrix
GB_Werk Werk
) ;
GrB_Info GB_unjumble // unjumble a matrix
(
GrB_Matrix A, // matrix to unjumble
GB_Werk Werk
) ;
// wait if condition holds
#define GB_WAIT_IF(condition,A,name) \
{ \
if (condition) \
{ \
GrB_Info info ; \
GB_OK (GB_wait ((GrB_Matrix) A, name, Werk)) ; \
} \
}
// do all pending work: zombies, pending tuples, and unjumble
#define GB_MATRIX_WAIT(A) GB_WAIT_IF (GB_ANY_PENDING_WORK (A), A, GB_STR (A))
// do all pending work if pending tuples; zombies and jumbled are OK
#define GB_MATRIX_WAIT_IF_PENDING(A) GB_WAIT_IF (GB_PENDING (A), A, GB_STR (A))
// delete zombies and assemble any pending tuples; jumbled is O
#define GB_MATRIX_WAIT_IF_PENDING_OR_ZOMBIES(A) \
GB_WAIT_IF (GB_PENDING_OR_ZOMBIES (A), A, GB_STR (A))
// ensure A is not jumbled (if so, do all pending work)
#define GB_MATRIX_WAIT_IF_JUMBLED(A) GB_WAIT_IF (GB_JUMBLED (A), A, GB_STR (A))
// just ensure A is not jumbled; leaving pending tuples alone if possible
#define GB_UNJUMBLE(A) \
{ \
if (GB_JUMBLED (A)) \
{ \
GrB_Info info ; \
if (GB_ZOMBIES (A)) \
{ \
/* zombies cannot be unjumbled, so do all pending work */ \
GB_OK (GB_wait ((GrB_Matrix) A, GB_STR (A), Werk)) ; \
ASSERT (!GB_PENDING (A)) ; \
} \
else \
{ \
/* just unjumble the matrix; do no other pending work */ \
GB_BURBLE_MATRIX (A, "(unjumble: %s) ", GB_STR (A)) ; \
GB_OK (GB_unjumble ((GrB_Matrix) A, Werk)) ; \
ASSERT (GB_PENDING_OK (A)) ; \
} \
ASSERT (!GB_ZOMBIES (A)) ; \
} \
ASSERT (!GB_JUMBLED (A)) ; \
}
#endif
|
