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
104
105
106
107
108
|
//------------------------------------------------------------------------------
// GrB_error: return an error string describing the last error
//------------------------------------------------------------------------------
// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
// SPDX-License-Identifier: Apache-2.0
//------------------------------------------------------------------------------
#include "GB.h"
const char empty [8] = "" ;
GrB_Info GrB_Type_error (const char **error, const GrB_Type type)
{
GB_RETURN_IF_NULL (error) ;
(*error) = empty ;
return (GrB_SUCCESS) ;
}
GrB_Info GrB_UnaryOp_error (const char **error, const GrB_UnaryOp op)
{
GB_RETURN_IF_NULL (error) ;
(*error) = empty ;
return (GrB_SUCCESS) ;
}
GrB_Info GrB_BinaryOp_error (const char **error, const GrB_BinaryOp op)
{
GB_RETURN_IF_NULL (error) ;
(*error) = empty ;
return (GrB_SUCCESS) ;
}
GrB_Info GrB_IndexUnaryOp_error (const char **error, const GrB_IndexUnaryOp op)
{
GB_RETURN_IF_NULL (error) ;
(*error) = empty ;
return (GrB_SUCCESS) ;
}
GrB_Info GxB_SelectOp_error (const char **error, const GxB_SelectOp op)
{
GB_RETURN_IF_NULL (error) ;
(*error) = empty ;
return (GrB_SUCCESS) ;
}
GrB_Info GrB_Monoid_error (const char **error, const GrB_Monoid monoid)
{
GB_RETURN_IF_NULL (error) ;
(*error) = empty ;
return (GrB_SUCCESS) ;
}
GrB_Info GrB_Semiring_error (const char **error, const GrB_Semiring semiring)
{
GB_RETURN_IF_NULL (error) ;
(*error) = empty ;
return (GrB_SUCCESS) ;
}
GrB_Info GrB_Scalar_error (const char **error, const GrB_Scalar s)
{
GB_RETURN_IF_NULL (error) ;
(*error) = empty ;
GB_RETURN_IF_NULL_OR_FAULTY (s) ;
if (s->logger == NULL) return (GrB_SUCCESS) ;
(*error) = s->logger ;
return (GrB_SUCCESS) ;
}
// historical; use GrB_Scalar_error instead.
GrB_Info GxB_Scalar_error (const char **error, const GrB_Scalar s)
{
return (GrB_Scalar_error (error, s)) ;
}
GrB_Info GrB_Vector_error (const char **error, const GrB_Vector v)
{
GB_RETURN_IF_NULL (error) ;
(*error) = empty ;
GB_RETURN_IF_NULL_OR_FAULTY (v) ;
if (v->logger == NULL) return (GrB_SUCCESS) ;
(*error) = v->logger ;
return (GrB_SUCCESS) ;
}
GrB_Info GrB_Matrix_error (const char **error, const GrB_Matrix A)
{
GB_RETURN_IF_NULL (error) ;
(*error) = empty ;
GB_RETURN_IF_NULL_OR_FAULTY (A) ;
if (A->logger == NULL) return (GrB_SUCCESS) ;
(*error) = A->logger ;
return (GrB_SUCCESS) ;
}
GrB_Info GrB_Descriptor_error (const char **error, const GrB_Descriptor d)
{
GB_RETURN_IF_NULL (error) ;
(*error) = empty ;
GB_RETURN_IF_NULL_OR_FAULTY (d) ;
if (d->logger == NULL) return (GrB_SUCCESS) ;
(*error) = d->logger ;
return (GrB_SUCCESS) ;
}
|
