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
|
//------------------------------------------------------------------------------
// GxB_BinaryOp_new: create a new user-defined binary operator
//------------------------------------------------------------------------------
// SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
// SPDX-License-Identifier: Apache-2.0
//------------------------------------------------------------------------------
// Create a new a binary operator: z = f (x,y). The binary function signature
// must be void f (void *z, const void *x, const void *y), and then it must
// recast its input and output arguments internally as needed.
#include "GB.h"
#include "GB_binop.h"
GrB_Info GxB_BinaryOp_new
(
GrB_BinaryOp *op, // handle for the new binary operator
GxB_binary_function function, // pointer to the binary function
GrB_Type ztype, // type of output z
GrB_Type xtype, // type of input x
GrB_Type ytype, // type of input y
const char *binop_name, // name of the user function
const char *binop_defn // definition of the user function
)
{
//--------------------------------------------------------------------------
// check inputs
//--------------------------------------------------------------------------
GB_WHERE1 ("GxB_BinaryOp_new (op, function, ztype, xtype, ytype"
", name, defn)") ;
GB_RETURN_IF_NULL (op) ;
(*op) = NULL ;
GB_RETURN_IF_NULL (function) ;
GB_RETURN_IF_NULL_OR_FAULTY (ztype) ;
GB_RETURN_IF_NULL_OR_FAULTY (xtype) ;
GB_RETURN_IF_NULL_OR_FAULTY (ytype) ;
//--------------------------------------------------------------------------
// allocate the binary op
//--------------------------------------------------------------------------
size_t header_size ;
(*op) = GB_MALLOC (1, struct GB_BinaryOp_opaque, &header_size) ;
if (*op == NULL)
{
// out of memory
return (GrB_OUT_OF_MEMORY) ;
}
(*op)->header_size = header_size ;
//--------------------------------------------------------------------------
// create the binary op
//--------------------------------------------------------------------------
GrB_Info info = GB_binop_new (*op, function, ztype, xtype, ytype,
binop_name, binop_defn, GB_USER_binop_code) ;
if (info != GrB_SUCCESS)
{
// out of memory
GB_FREE (op, header_size) ;
return (info) ;
}
return (GrB_SUCCESS) ;
}
//------------------------------------------------------------------------------
// GB_BinaryOp_new: create a new user-defined binary operator (historical)
//------------------------------------------------------------------------------
// This method was only accessible via the GrB_BinaryOp_new macro in v5.1.x
// and earlier. The GrB_BinaryOp_new macro in v5.2.x and later calls
// GxB_BinaryOp_new instead.
GrB_Info GB_BinaryOp_new
(
GrB_BinaryOp *binaryop, // handle for the new binary operator
GxB_binary_function function, // pointer to the binary function
GrB_Type ztype, // type of output z
GrB_Type xtype, // type of input x
GrB_Type ytype, // type of input y
const char *name // name of the user function
)
{
return (GxB_BinaryOp_new (binaryop, function, ztype, xtype, ytype,
name, NULL)) ;
}
|
