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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
//------------------------------------------------------------------------------
// GrB_Vector_set_*: set a field in a vector
//------------------------------------------------------------------------------
// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2025, All Rights Reserved.
// SPDX-License-Identifier: Apache-2.0
//------------------------------------------------------------------------------
#include "get_set/GB_get_set.h"
//------------------------------------------------------------------------------
// GrB_Vector_set_Scalar
//------------------------------------------------------------------------------
GrB_Info GrB_Vector_set_Scalar
(
GrB_Vector v,
GrB_Scalar scalar,
int field
)
{
//--------------------------------------------------------------------------
// check inputs
//--------------------------------------------------------------------------
GB_RETURN_IF_NULL (v) ;
GB_RETURN_IF_NULL (scalar) ;
GB_WHERE2 (v, scalar, "GrB_Vector_set_Scalar (v, scalar, field)") ;
ASSERT_VECTOR_OK (v, "v to set option", GB0) ;
//--------------------------------------------------------------------------
// set the field
//--------------------------------------------------------------------------
double dvalue = 0 ;
int32_t ivalue = 0 ;
switch ((int) field)
{
case GxB_BITMAP_SWITCH :
info = GrB_Scalar_extractElement_FP64 (&dvalue, scalar) ;
break ;
default :
info = GrB_Scalar_extractElement_INT32 (&ivalue, scalar) ;
break ;
}
if (info != GrB_SUCCESS)
{
return ((info == GrB_NO_VALUE) ? GrB_EMPTY_OBJECT : info) ;
}
return (GB_matvec_set ((GrB_Matrix) v, true, ivalue, dvalue, field, Werk)) ;
}
//------------------------------------------------------------------------------
// GrB_Vector_set_String
//------------------------------------------------------------------------------
GrB_Info GrB_Vector_set_String
(
GrB_Vector v,
char * value,
int field
)
{
//--------------------------------------------------------------------------
// check inputs
//--------------------------------------------------------------------------
GrB_Info info ;
GB_CHECK_INIT ;
GB_RETURN_IF_NULL_OR_INVALID (v) ;
GB_RETURN_IF_NULL (value) ;
ASSERT_VECTOR_OK (v, "v to set option", GB0) ;
//--------------------------------------------------------------------------
// set the field
//--------------------------------------------------------------------------
return (GB_matvec_name_set ((GrB_Matrix) v, value, field)) ;
}
//------------------------------------------------------------------------------
// GrB_Vector_set_INT32
//------------------------------------------------------------------------------
GrB_Info GrB_Vector_set_INT32
(
GrB_Vector v,
int32_t value,
int field
)
{
//--------------------------------------------------------------------------
// check inputs
//--------------------------------------------------------------------------
GB_RETURN_IF_NULL (v) ;
GB_WHERE_1 (v, "GrB_Vector_set_INT32 (v, value, field)") ;
ASSERT_VECTOR_OK (v, "v to set option", GB0) ;
//--------------------------------------------------------------------------
// set the field
//--------------------------------------------------------------------------
return (GB_matvec_set ((GrB_Matrix) v, true, value, 0, field, Werk)) ;
}
//------------------------------------------------------------------------------
// GrB_Vector_set_VOID
//------------------------------------------------------------------------------
GrB_Info GrB_Vector_set_VOID
(
GrB_Vector v,
void * value,
int field,
size_t size
)
{
return (GrB_INVALID_VALUE) ;
}
|
